antyvfl 发表于 2022-10-9 00:29:50

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

[@宝盒的秘密]

{
#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>

}

zxljake 发表于 2022-10-9 03:45:02

真是难得给力的帖子啊。

lifestyle 发表于 2022-10-11 00:18:57

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

南飘中 发表于 2022-10-11 06:33:39

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

hepalwinter 发表于 2022-10-15 02:25:28

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

calmsolemn 发表于 2022-10-15 15:45:08

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

shaothybe 发表于 2022-10-18 08:57:43

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

w0x0000w0x 发表于 2022-10-19 09:48:12

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

liyunde 发表于 2022-10-21 00:05:18

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

460082723 发表于 2022-10-22 10:26:22

太生气了,无法HOLD啦 >_<......
页: [1] 2
查看完整版本: 传世彩虹引擎最新夺宝奇兵活动完美脚本