如何给传奇新区设置一个玩家惊喜功能

断了铉

[@main]
#IF
CHECKLEVELEX > 0
#ACT
CloseBigDialogBox


#if
EQUAL G478 1
#ACT
#say
泡点领元宝：<泡点达到3600秒即可免费领取2万元宝/SCOLOR=242><(每个角色仅1次,/SCOLOR=250>\
　　　　　　<总共60个名额)/SCOLOR=250><小退或不在泡点地图不增加泡点时间/SCOLOR=249>\ \
　　　　　　<领取元宝/@泡点领元宝> <您当前泡点时间：/SCOLOR=250><$HUMAN(泡点时间)>秒　<剩余名额：/SCOLOR=250> <$STR(G485)>次\
<┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄/SCOLOR=248>\
免费抽经验：<新区开放免费抽经验活动,每个角色可免费抽取3次经验/SCOLOR=242>\
　　　　　　<抽中即可获得2亿经验/SCOLOR=249><(每个角色限抽3次,总共600次)/SCOLOR=250>\ \
　　　　　　<抽取经验/@免费抽经验> <您剩余抽奖次数：/SCOLOR=250><$HUMAN(新区抽经验)>次　<剩余次数：/SCOLOR=250><$STR(G486)>次\
#ELSEACT
MOV G478 1
MOV G485 60
MOV G486 600
goto @main0


[@main0]
#if
#say
泡点领元宝：<泡点达到3600秒即可免费领取2万元宝/SCOLOR=242><(每个角色仅1次,/SCOLOR=250>\
　　　　　　<总共80个名额)/SCOLOR=250><小退或不在泡点地图不增加泡点时间/SCOLOR=249>\ \
　　　　　　<领取元宝/@泡点领元宝> <您当前泡点时间：/SCOLOR=250><$HUMAN(泡点时间)>秒　<剩余名额：/SCOLOR=250> <$STR(G485)>次\
<┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄/SCOLOR=248>\
免费抽经验：<新区开放免费抽经验活动,每个角色可免费抽取3次经验/SCOLOR=242>\
　　　　　　<抽中即可获得2亿经验/SCOLOR=249><(每个角色限抽3次,总共600次)/SCOLOR=250>\ \
　　　　　　<抽取经验/@免费抽经验> <您剩余抽奖次数：/SCOLOR=250><$HUMAN(新区抽经验)>次　<剩余次数：/SCOLOR=250><$STR(G486)>次\

[@泡点领元宝]
#IF
Check [80] 0
large G485 0
CHECKVAR HUMAN 泡点时间 > 3600
#ACT
DEC G485 1
SET [80] 1
GAMEGOLD + 20000
GuildNoticeMsg 151 249 恭喜玩家〖<$USERNAME>〗领取新区惊喜礼物(20000元宝)1份,元宝惊喜剩余：<$STR(G485)>名
GOTO @main
#ELSEACT
MESSAGEBOX [错误]：1.你的泡点时间不够，请在这里多呆一会儿\　　　　2.惊喜已经发完，请关注我们下个新区\　　　　3.你已经领取过了，每人只能领取一次
GOTO @main

[@免费抽经验]
#IF
random 6
large G486 0
CHECKVAR HUMAN 新区抽经验 > 0
#ACT
CALCVAR HUMAN 新区抽经验 - 1
SAVEVAR HUMAN 新区抽经验 ..\QuestDiary\游戏功能\新区抽经验.txt
DEC G486 1
CHANGEEXP + 200000000
GuildNoticeMsg 151 249 恭喜玩家〖<$USERNAME>〗抽取新区惊喜礼物(2亿经验),经验惊喜剩余：<$STR(G486)>次
GOTO @main
break

#IF
random 3
large G486 0
CHECKVAR HUMAN 新区抽经验 > 0
#ACT
CALCVAR HUMAN 新区抽经验 - 1
SAVEVAR HUMAN 新区抽经验 ..\QuestDiary\游戏功能\新区抽经验.txt
DEC G486 1
CHANGEEXP + 5000000
GuildNoticeMsg 151 249 恭喜玩家〖<$USERNAME>〗抽取新区惊喜礼物(500万经验),经验惊喜剩余：<$STR(G486)>次
GOTO @main
break

#IF
random 1
large G486 0
CHECKVAR HUMAN 新区抽经验 > 0
#ACT
CALCVAR HUMAN 新区抽经验 - 1
SAVEVAR HUMAN 新区抽经验 ..\QuestDiary\游戏功能\新区抽经验.txt
DEC G486 1
CHANGEEXP + 200000
GuildNoticeMsg 151 249 恭喜玩家〖<$USERNAME>〗抽取新区惊喜礼物(20万经验),经验惊喜剩余：<$STR(G486)>次
GOTO @main
break
#ELSEACT
MESSAGEBOX [错误]：1.你的抽奖次数已经用完\　　　　2.惊喜已经发完，请关注我们下个新区
GOTO @main

恋雾—迷尘

好，很好，非常好！

nan1991

LZ是天才，坚定完毕

刘子力

发发呆，回回帖，工作结束~

Bigmerboy

楼主呀，，，您太有才了。。。

chenshibin

确实不错，顶先

方丈很流氓

佩服佩服！

xuhaorangood

这么强,支持楼主，佩服

三年是一种痛

我是个凑数的。。。

牛必塞

LZ帖子不给力，勉强给回复下吧