比较火的传奇玫瑰情人功能添加方法
[@main]#if
CHECKLEVELEX > 0
#ACT
GOTO @REFUSH
GMEXECUTE 开始提问 @reSetValue_ms
MOV S1
MOV S10
MOV S11
MOV N1 0
MOV S20 <$STR(A232)>
MOV S21 <$STR(A233)>
MOV S22 <$STR(A234)>
MOV S23 <$STR(G232)>
MOV S24 <$STR(G233)>
MOV S25 <$STR(G234)>
SetStringBlank S20 16 0
SetStringBlank S21 16 0
SetStringBlank S22 16 0
SetStringBlank S23 6 1
SetStringBlank S24 6 1
SetStringBlank S25 6 1
#SAY
<Img:459:0:0:0> <玫瑰情人/SCOLOR=254> <Hot~/SCOLOR=249> <您的魅力值:/SCOLOR=71> {<$HUMAN(MG)>朵玫瑰/SCOLOR=253}\
<┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈/SCOLOR=13>\
<魅力第①名:/SCOLOR=71> {<$STR(S20)>/SCOLOR=253} <玫瑰数量:/SCOLOR=71>{<$STR(S23)> 朵玫瑰/SCOLOR=253}\
<魅力第②名:/SCOLOR=71> {<$STR(S21)>/SCOLOR=253} <玫瑰数量:/SCOLOR=71>{<$STR(S24)> 朵玫瑰/SCOLOR=253}\
<魅力第③名:/SCOLOR=71> {<$STR(S22)>/SCOLOR=253} <玫瑰数量:/SCOLOR=71>{<$STR(S25)> 朵玫瑰/SCOLOR=253}\
<每朵鲜花需消耗/SCOLOR=71><100元宝/SCOLOR=250>，<接收人可得到/SCOLOR=71><25元宝/SCOLOR=250><,更有几率抽取到/SCOLOR=71>\
<幸运鲜花/SCOLOR=250><,获取最高/SCOLOR=71><1000倍本金/SCOLOR=250><的奖励哦!/SCOLOR=71>\
<┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈/SCOLOR=13>\
<开始赠送鲜花/@赠送> <关闭对话/@exit>\ \
<魅力值前三的玩家分别获得全属性3-3 , 2-2 , 1-1/SCOLOR=151>\
[@赠送]
#if
#ACT
MOV S10 <$STR(S1)>
MOV S11 <$STR(N1)>
INC S11 朵玫瑰
SetStringBlank S10 16 0
SetStringBlank S11 16 0
#SAY
<┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈/SCOLOR=13>\
<Img:459:0:0:0> <玫瑰情人/SCOLOR=254> <Hot~/SCOLOR=249> <谁是英雄?谁是狗熊?比比就知道!/SCOLOR=31>\
<┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈/SCOLOR=13>\
<当前接收鲜花的玩家名字:/SCOLOR=151> {<$STR(S10)>/SCOLOR=253} 『<修改/@@inputstring1>』\ \
<当前赠送对方的鲜花数量:/SCOLOR=151> {<$STR(S11)>/SCOLOR=253} 『<修改/@@INPUTINTEGER1>』\ \
<┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈/SCOLOR=13>\
<确定赠送/@赠送_ok> <返回首页/@main> <关闭对话/@exit>
[@赠送_ok]
#if
EQUAL S1
#ACT
MESSAGEBOX [错误]:\请输入你要赠送的玩家的名字!
GOTO @赠送
BREAK
#if
SMALL N1 10
#ACT
MESSAGEBOX 最少10朵起送!
MOV N1 0
GOTO @赠送
Break
#If
CheckLevelEx > 0
#Act
MOV N3 <$STR(N1)>
MUL N3 100
;SENDMSG 6 <$STR(N1)>:<$STR(P1)>
#IF
CHECKGAMEGOLD < <$STR(N3)>
#ACT
MESSAGEBOX 错误:你没有足够的元宝,无法赠送!
Break
#iF
CHECKONLINE <$STR(S1)>
#ACT
MOV N3 <$STR(N1)>
Gmexecute showeffect 84
GOTO @开始_赠送
#ELSEACT
MESSAGEBOX 你要赠送的玩家不在线!
MOV S1
GOTO @赠送
[@开始_赠送]
#if
CHECKONLINE <$STR(S1)>
#ELSEACT
MESSAGEBOX 你要赠送的玩家不在线!
bREAK
#IF
CHECKGAMEGOLD< 100
#ACT
MESSAGEBOX 你的元宝数量不够!
bREAK
#IF
LARGE N3 0
#ACT
GAMEGOLD - 100
DEC N3 1
;Sendmsg 6 一共向<$STR(S1)>赠送<$STR(N1)>朵玫瑰,现在还有<$STR(N3)>朵等待送出!
S1.MOV S0 <$USERNAME>
S1.MOV S1 <$STR(N1)>
S1.GOTO @ADD_MG
DELAYCALL 100 @开始_赠送
bREAK
#IF
#ACT
ClearDelayGoto
Break
[@ADD_MG]
#IF
Random 100
#ACT
GAMEGOLD + 1000
GUILDNOTICEMSG 250 252 恭喜<$USERNAME>获得幸运玫瑰,得到1000元宝额外奖励!
#IF
#ACT
GAMEGOLD + 25
CALCVAR HUMAN MG + 1
SAVEVAR HUMAN MG ..\QuestDiary\迷失脚本\玫瑰情人\玫瑰数量.txt
GUILDNOTICEMSG 253 246 玩家【<$STR(S0)>】向【<$USERNAME>】赠送了[<$STR(S1)>]朵玫瑰，他一共收到[<$HUMAN(MG)>]朵玫瑰
bREAK
[@@InPutInteger1]
#If
CheckLevelEx > 0
#Act
DelayGoto 1 ~InPutInteger1
[~InPutInteger1]
#if
LARGE N1 9
#ACT
GOTO @赠送
#ELSEACT
MESSAGEBOX 最少10朵起送!
MOV N1 0
GOTO @赠送
[@CALLinputstring1]
#IF
#ACT
DELAYCALL 1 ~inputstring1
[~inputstring1]
#IF
EQUAL S1
#act
GOTO @赠送
MESSAGEBOX 你要赠送的玩家不在线!
Break
#iF
CHECKONLINE <$STR(S1)>
#ACT
GOTO @赠送
#ELSEACT
MESSAGEBOX 你要赠送的玩家不在线!
MOV S1
GOTO @赠送
[@赠送_ok]
#if
EQUAL S1
#ACT
MESSAGEBOX [错误]:\请输入你要赠送的玩家的名字!
GOTO @赠送
BREAK
#if
EQUAL S1 <$USERNAME>
#ACT
MESSAGEBOX [错误]:\如果你要赠送给自己,请选择匿名赠送!
GOTO @赠送
BREAK
[@REFUSH]
#CALL [\迷失脚本\玫瑰情人\读取排行.txt] @MS_MG_PH
页:
[1]