比较火的传奇玫瑰情人功能添加方法
[@main]
#if
CHECKLEVELEX>0
#ACT
GOTO@REFUSH
GMEXECUTE开始提问@reSetValue_ms
MOVS1
MOVS10
MOVS11
MOVN10
MOVS20<$STR(A232)>
MOVS21<$STR(A233)>
MOVS22<$STR(A234)>
MOVS23<$STR(G232)>
MOVS24<$STR(G233)>
MOVS25<$STR(G234)>
SetStringBlankS20160
SetStringBlankS21160
SetStringBlankS22160
SetStringBlankS2361
SetStringBlankS2461
SetStringBlankS2561
#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-32-21-1/SCOLOR=151>\
[@赠送]
#if
#ACT
MOVS10<$STR(S1)>
MOVS11<$STR(N1)>
INCS11朵玫瑰
SetStringBlankS10160
SetStringBlankS11160
#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
EQUALS1
#ACT
MESSAGEBOX[错误]:\请输入你要赠送的玩家的名字!
GOTO@赠送
BREAK
#if
SMALLN110
#ACT
MESSAGEBOX最少10朵起送!
MOVN10
GOTO@赠送
Break
#If
CheckLevelEx>0
#Act
MOVN3<$STR(N1)>
MULN3100
;SENDMSG6<$STR(N1)>:<$STR(P1)>
#IF
CHECKGAMEGOLD<<$STR(N3)>
#ACT
MESSAGEBOX错误:你没有足够的元宝无法赠送!
Break
#iF
CHECKONLINE<$STR(S1)>
#ACT
MOVN3<$STR(N1)>
Gmexecuteshoweffect84
GOTO@开始_赠送
#ELSEACT
MESSAGEBOX你要赠送的玩家不在线!
MOVS1
GOTO@赠送
[@开始_赠送]
#if
CHECKONLINE<$STR(S1)>
#ELSEACT
MESSAGEBOX你要赠送的玩家不在线!
bREAK
#IF
CHECKGAMEGOLD<100
#ACT
MESSAGEBOX你的元宝数量不够!
bREAK
#IF
LARGEN30
#ACT
GAMEGOLD-100
DECN31
;Sendmsg6一共向<$STR(S1)>赠送<$STR(N1)>朵玫瑰现在还有<$STR(N3)>朵等待送出!
S1.MOVS0<$USERNAME>
S1.MOVS1<$STR(N1)>
S1.GOTO@ADD_MG
DELAYCALL100@开始_赠送
bREAK
#IF
#ACT
ClearDelayGoto
Break
[@ADD_MG]
#IF
Random100
#ACT
GAMEGOLD+1000
GUILDNOTICEMSG250252恭喜<$USERNAME>获得幸运玫瑰得到1000元宝额外奖励!
#IF
#ACT
GAMEGOLD+25
CALCVARHUMANMG+1
SAVEVARHUMANMG..\QuestDiary\迷失脚本\玫瑰情人\玫瑰数量.txt
GUILDNOTICEMSG253246玩家【<$STR(S0)>】向【<$USERNAME>】赠送了[<$STR(S1)>]朵玫瑰，他一共收到[<$HUMAN(MG)>]朵玫瑰
bREAK
[@@InPutInteger1]
#If
CheckLevelEx>0
#Act
DelayGoto1~InPutInteger1
[~InPutInteger1]
#if
LARGEN19
#ACT
GOTO@赠送
#ELSEACT
MESSAGEBOX最少10朵起送!
MOVN10
GOTO@赠送
[@CALLinputstring1]
#IF
#ACT
DELAYCALL1~inputstring1
[~inputstring1]
#IF
EQUALS1
#act
GOTO@赠送
MESSAGEBOX你要赠送的玩家不在线!
Break
#iF
CHECKONLINE<$STR(S1)>
#ACT
GOTO@赠送
#ELSEACT
MESSAGEBOX你要赠送的玩家不在线!
MOVS1
GOTO@赠送
[@赠送_ok]
#if
EQUALS1
#ACT
MESSAGEBOX[错误]:\请输入你要赠送的玩家的名字!
GOTO@赠送
BREAK
#if
EQUALS1<$USERNAME>
#ACT
MESSAGEBOX[错误]:\如果你要赠送给自己请选择匿名赠送!
GOTO@赠送
BREAK
[@REFUSH]
#CALL[\迷失脚本\玫瑰情人\读取排行.txt]@MS_MG_PH