比较火的传奇玫瑰情人功能添加方法

[@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

无回帖，不论坛，这才是人道。

强烈支持楼主ing……

真是被感动的痛哭流涕……

真是被感动的痛哭流涕……

我只是路过打酱油的。

看到这帖子真是高兴！

楼主加油，我们都看好你哦。

我只是路过打酱油的。

楼主加油，我们都看好你哦。