[@main] #ifCHECKLEVELEX 0#ACTGOTO @REFUSHGMEXECUTE 开始提问 @reSetValue_ms
[@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=71100元宝/SCOLOR=250，接收人可得到/SCOLOR=7125元宝/SCOLOR=250,更有几率抽取到/SCOLOR=71\
幸运鲜花/SCOLOR=250,获取最高/SCOLOR=711000倍本金/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 你的元宝数量不够!
bhaosfREAK
#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
TAGS：找网通微变传奇
