传世彩虹引擎最新夺宝奇兵活动完美脚本

[@宝盒的秘密]

{
#IF
TRUE
#SAy
　　夺宝奇兵活动举行时间为<color=green 每天14:30、19:30、23:30>，每次\
夺得宝盒后需{COLOR=red 保护<$GLOBAL(BHTIME1)>分钟}为胜。\
　　每次参与夺宝活动均会增加夺宝次数，<COLOR=GREEN 夺宝次数越高，每次>\
<COLOR=GREEN 夺宝成功后获得的奖品就越好。>\
　　{COLOR=red 现在起每周夺宝奇兵成功次数排名第一且达到10次必获}<COLOR=GREEN 50>\
<COLOR=GREEN 00>{COLOR=red 元宝}\\
　　<查看夺宝排行榜/@夺宝排行榜>　　<查看上次夺宝奖励/@上次结果>　　<领取奖励/@领取奖励>\
　　<离开/@exit>

[@上次结果]
　　<color=green 每天14:30、19:30、23:30>都会定时举行《夺宝奇兵》\
活动,成功守护宝盒<$GLOBAL(BHTIME1)>分钟，就可以获得奖品。\\
　　<COLOR=red 最近一次夺宝奇兵开出的宝盒的奖品。>\
　　<color=green 开宝时间>：<$STR(A88)>\
　　<color=green 持宝人>：<$STR(A89)>\
　　<color=green 获得奖品>：<$STR(A90)>\
　　<color=green 获得元宝>：300个\
　　<离开/@exit>

[@领取奖励]
#IF
EQUAL G0 0
#ACT
GOTO @可以开启
break
#ELSESAY
领取失败，原因如下：\\
1、您没有参加夺宝排行活动或已领取奖励。\
2、夺宝排行活动每星期一重新计算积分。\
3、领取时间为正式开区后每星期一。\\
<没事/@exit>

[@可以开启]
#IF
checknamelist ..\QuestDiary\数据文件\夺宝排行第一名.txt
#ACT
GAMEGOLD + 5000
FORMATSTR S10 每周夺宝奖励元宝增加%S个,元宝总数量%S，时间：%S 5000|<$GAMEGOLD>|<$DATETIME>
ADDVARLIST $STR(S10) ..\QuestDiary\日志文件\元宝操作\<$USERNAME>.txt
CLEARNAMELIST ..\QuestDiary\数据文件\夺宝排行第一名.txt
SENDMSG 10 恭喜%s夺宝奇兵排名获得第一，获得了5000元宝的奖励！想要获得终极武器只要夺宝奇兵每周排名第一皆可获得5000元宝！
break
#ELSESAY
　　你不是第1名，无法领取奖励。\\
　　<离开/@exit>\

[@检测开奖]
#IF
random 1
#ACT
mov P0 $STR(S2)
#IF
large P0 9
#ACT
MOV S3 <Color=orange#325000元宝>
[@夺宝排行榜]
#ACT
mov S10
mov S11
mov S12
mov S13
mov S14
#IF
random 1
#ACT
ReadRandomStr ..\QuestDiary\无限排行\夺宝排行.txt S0 0
#IF
!equal S0
#ACT
GETVALIDSTR $STR(S0) | S1 S2
MOV S3 　
GOTO @检测开奖
FORMATSTR S10 %-10s%-18s%-12s%s\ 第#321名|<$STR(S1)>|<$STR(S2)>|<$STR(S3)>
#IF
random 1
#ACT
ReadRandomStr ..\QuestDiary\无限排行\夺宝排行.txt S0 1
#IF
!equal S0
#ACT
GETVALIDSTR $STR(S0) | S1 S2
FORMATSTR S11 %-10s%-18s%s\ 第#322名|<$STR(S1)>|<$STR(S2)>
#IF
random 1
#ACT
ReadRandomStr ..\QuestDiary\无限排行\夺宝排行.txt S0 2
#IF
!equal S0
#ACT
GETVALIDSTR $STR(S0) | S1 S2
FORMATSTR S12 %-10s%-18s%s\ 第#323名|<$STR(S1)>|<$STR(S2)>
#IF
random 1
#ACT
ReadRandomStr ..\QuestDiary\无限排行\夺宝排行.txt S0 3
#IF
!equal S0
#ACT
GETVALIDSTR $STR(S0) | S1 S2
FORMATSTR S13 %-10s%-18s%s\ 第#324名|<$STR(S1)>|<$STR(S2)>
#IF
random 1
#ACT
ReadRandomStr ..\QuestDiary\无限排行\夺宝排行.txt S0 4
#IF
!equal S0
#ACT
GETVALIDSTR $STR(S0) | S1 S2
FORMATSTR S14 %-10s%-18s%s\ 第#325名|<$STR(S1)>|<$STR(S2)>
#IF
#SAY
你目前夺宝次数：{Color=Green <$HUMAN(夺宝次数)>}次。\
　　            <Color=Green 本服夺宝排行榜>\
<Color=Green 名次      角色名            夺宝次数        当前奖励>\
<$STR(S10)>
<$STR(S11)>
<$STR(S12)>
<$STR(S13)>
<$STR(S14)>
#IF
random 1
#ACT
ReadRandomStr ..\QuestDiary\无限排行\夺宝排行.txt S0 5
#IF
!equal S0
#SAY
<下一页/@paihang2>　　
#IF
random 1
#SAY
<关闭/@exit>
[@paihang2]
#ACT
mov S10
mov S11
mov S12
mov S13
mov S14
#IF
random 1
#ACT
ReadRandomStr ..\QuestDiary\无限排行\夺宝排行.txt S0 5
#IF
!equal S0
#ACT
GETVALIDSTR $STR(S0) | S1 S2
FORMATSTR S10 %-10s%-18s%s\ 第#326名|<$STR(S1)>|<$STR(S2)>
#IF
random 1
#ACT
ReadRandomStr ..\QuestDiary\无限排行\夺宝排行.txt S0 6
#IF
!equal S0
#ACT
GETVALIDSTR $STR(S0) | S1 S2
FORMATSTR S11 %-10s%-18s%s\ 第#327名|<$STR(S1)>|<$STR(S2)>
#IF
random 1
#ACT
ReadRandomStr ..\QuestDiary\无限排行\夺宝排行.txt S0 7
#IF
!equal S0
#ACT
GETVALIDSTR $STR(S0) | S1 S2
FORMATSTR S12 %-10s%-18s%s\ 第#328名|<$STR(S1)>|<$STR(S2)>
#IF
random 1
#ACT
ReadRandomStr ..\QuestDiary\无限排行\夺宝排行.txt S0 8
#IF
!equal S0
#ACT
GETVALIDSTR $STR(S0) | S1 S2
FORMATSTR S13 %-10s%-18s%s\ 第#329名|<$STR(S1)>|<$STR(S2)>
#IF
random 1
#ACT
ReadRandomStr ..\QuestDiary\无限排行\夺宝排行.txt S0 9
#IF
!equal S0
#ACT
GETVALIDSTR $STR(S0) | S1 S2
FORMATSTR S14 %-10s%-18s%s\ 第10名|<$STR(S1)>|<$STR(S2)>
#IF
#SAY
　　            <Color=Green 本服夺宝排行榜>\
<Color=Green 名次      角色名            夺宝次数        当前奖励>\
<$STR(S10)>
<$STR(S11)>
<$STR(S12)>
<$STR(S13)>
<$STR(S14)>
<关闭/@exit>

}

真是难得给力的帖子啊。

太生气了，无法HOLD啦 >_<......

太生气了，无法HOLD啦 >_<......

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

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

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

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

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

太生气了，无法HOLD啦 >_<......