泡点得元宝脚本

22pk论坛 · 发表于 2015-4-19 13:46:50

[@main]
#IF
EQUAL G128 1
#ACT
#SAY
　 <泡点领元宝：泡点达到3600秒就可以免费领取2万元宝/SCOLOR=250>\
　 <　泡点注意：小退时间,不在此图不增时!/SCOLOR=250>  <泡点时间：/SCOLOR=56><$GAMEGIRD>秒\
　 <──────────────────────────/SCOLOR=19>\
　 <免费抽经验：新区开放免费抽经验活动,限制300次,每人可/SCOLOR=253>\
　                   <免费抽取3次,抽中可获得2亿经验,抽/SCOLOR=253>\
　                   <不到就不可在抽.抽奖机率为三分一./SCOLOR=253>\
　　　　　　　　 <免费领元宝剩余名额：/SCOLOR=250><$STR(G127)>  <名共66 名/SCOLOR=250>\
　　　　　　    　　  <经验抽奖剩余次数：/SCOLOR=253><$STR(G129)> <名共600次/SCOLOR=253>\
　    <Img:51>  <泡点领元宝[url=]/@GetExp[/url]>  <Img:51>    <Img:51>  <免费抽经验/@抽奖喽>

#ELSEACT
MOV G128 1
MOV G127 66
MOV G129 600

[@抽奖喽]
#IF
large G129 0
CHECKVAR HUMAN 经验抽奖 < 3
#act
mov s10
SENDMSG 6  00000=
GetRandomText .\QuestDiary\抽奖机率.txt S10
SENDMSG 6  经验抽奖<$STR(S10)>
CHANGEEXP + <$STR(S10)>
DEC G129 1
CALCVAR HUMAN 经验抽奖 + 1
SAVEVAR HUMAN 经验抽奖 ..\QuestDiary\充值积分\经验抽奖.txt
GuildNoticeMsg 255  236 勇士『<$USERNAME>』在泡点室通过免费抽奖获得【<$STR(S10)>】经验.
GuildNoticeMsg 255  236 勇士『<$USERNAME>』在泡点室通过免费抽奖获得【<$STR(S10)>】经验.
sendmsg 6 您已经抽了《<$HUMAN(经验抽奖)>》次奖,总计可抽取《3》次！
sendmsg 6 您已经抽了《<$HUMAN(经验抽奖)>》次奖,总计可抽取《3》次！
goto @main
#elseact
sendmsg 6 运气不好哦,没有抽到经验!或者您的抽奖次数已用光.

[@GetExp]
#if
CHECKGAMEGIRD > 3599
#act
goto @夺魄a
#elsesay
你的时间不够，快抓紧时间冲级吧，奖励名额可是有限的哦！\
本级别奖励还有<$STR(G127)>个剩余名额！<离开[url=]/@exit>\[/url]
[@夺魄a]
#if
check [127] 0
#act
goto @夺魄b
#elsesay
等等，我看看。。。\
这位朋友，你好象领取过了吧？\
虽然我眼神不太好使但是你的长相太突出了，\
我一看就看出来是你了。。。\
<离开[url=]/@exit>\[/url]
[@夺魄b]
#if
CHECKGAMEGIRD > 3599
check [127] 0
LARGE G127 0
#act
goto @夺魄c
#elsesay
对不起，此等级冲级奖励已经没有名额了，请关注我们下一个新区吧。\
<离开[url=]/@exit>\[/url]
[@夺魄c]
#if
CHECKGAMEGIRD > 3599
check [127] 0
LARGE G127 0
#act
GAMEGOLD + 20000
DEC G127 1
SET [127] 1
SendCenterMsg 254 0 《%s》泡级一小时领取[20000元宝]，现在奖励名额还剩<$STR(G127)>个！ 1 4
SENDMSG 0 《%s》顺利到达1小时领取[20000元宝]，现在奖励名额还剩<$STR(G127)>个！
goto @main
break