传奇部落

传奇开测试区玩家预存元宝脚本

[复制链接]
发表于 2022-12-16 23:15:58 | 显示全部楼层 |阅读模式
()
%100
[@main]
#IF
CHECKSTRINGLIST ..\QuestDiary\传奇部落\测试区状态.txt 测试区
#ACT
MOV S20 测试区
#ELSEACT
MOV S20 正式区
#IF
CHECKLEVELEX > 0
#ACT
ReadRandomLine .\QuestDiary\传奇部落\测试区预存\测试\测试数据.txt S0
ReadRandomLine ..\QuestDiary\传奇部落\测试区预存\测试记录\<$STR(S0)>.txt S1
MOV M17 <$STR(S1)>
MOV M18 <$STR(M17)>
DIV M18 5
#SAY
<COLOR=clFuchsia ▁▂▃▄▅▆▇█>  <COLOR=clAqua 【↓↓测试预存返还↓↓】>  <COLOR=clFuchsia █▇▆▅▄▃▂▁>\
<COLOR=clYellow ------------------------------------------------------------>\
<COLOR=clLime 1.测试区可以将身上的元宝预存在这里,开区后可以在我这里领取>\ \
<COLOR=clRed 2.您当前在测试区预存的元宝数量为:><$STR(M17)><COLOR=clAqua 【><我要预存元宝/@预存元宝><COLOR=clAqua 】>\ \
<COLOR=clFuchsia 3.正式开区后可取回 (取回比例20%):><$STR(M18)><COLOR=clAqua 【最高预存:2000万】>\
<COLOR=clYellow ------------------------------------------------------------>\
<COLOR=clRed 本区状态>:<$STR(S20)>                   <取回测试区预存的元宝/@取回元宝>

[@预存元宝]
#IF
CHECKSTRINGLIST ..\QuestDiary\传奇部落\测试区状态.txt 正式区
#ACT
MESSAGEBOX 对不起,本区当前为〖正式区〗!\ \请在测试区预存!
break
#IF
CHECKSTRINGLIST ..\QuestDiary\传奇部落\测试区状态.txt 测试区
#ACT
QUERYVALUE 89 1 9 @预存开始了 请输入您要预存的元宝数量(每次最多预存99W元宝):

[@预存开始了]
#IF
CHECKVAR HUMAN 测试区预存 > 19999999
#ACT
CALCVAR HUMAN 测试区预存 = 20000000
SAVEVAR HUMAN 测试区预存 ..\QuestDiary\传奇部落\测试区预存.txt
CLEARNAMELIST ..\QuestDiary\传奇部落\测试区预存\测试\测试数据.txt
ADDACCOUNTLIST ..\QuestDiary\传奇部落\测试区预存\测试\测试数据.txt
ADDACCOUNTLIST ..\QuestDiary\传奇部落\测试区预存\测试记录\测试账号.txt
ReadRandomLine .\QuestDiary\传奇部落\测试区预存\测试\测试数据.txt S0
DELACCOUNTLIST ..\QuestDiary\传奇部落\测试区预存\测试\测试数据.txt
ADDLINELIST ..\QuestDiary\传奇部落\测试区预存\测试记录\<$STR(S0)>.txt 0
CLEARNAMELIST ..\QuestDiary\传奇部落\测试区预存\测试记录\<$STR(S0)>.txt
ADDLINELIST ..\QuestDiary\传奇部落\测试区预存\测试记录\<$STR(S0)>.txt <$HUMAN(测试区预存)>
MESSAGEBOX 你在测试区预存元宝超过系统设定数量!!!
goto @main
break
#IF
CHECKGAMEGOLD < <$STR(M89)>
#ACT
MESSAGEBOX 对不起,您身上的元宝数量不够【<$STR(M89)>】!
BREAK
#IF
large M89 999999
#ACT
MESSAGEBOX 对不起,每次预存数量最高为【99万元宝】!
BREAK
#IF
#ACT
CALCVAR HUMAN 测试区预存 + <$STR(M89)>
SAVEVAR HUMAN 测试区预存 ..\QuestDiary\传奇部落\测试区预存.txt
GAMEGOLD - <$STR(M89)>
CLEARNAMELIST ..\QuestDiary\传奇部落\测试区预存\测试\测试数据.txt
ADDACCOUNTLIST ..\QuestDiary\传奇部落\测试区预存\测试\测试数据.txt
ADDACCOUNTLIST ..\QuestDiary\传奇部落\测试区预存\测试记录\测试账号.txt
ReadRandomLine .\QuestDiary\传奇部落\测试区预存\测试\测试数据.txt S0
DELACCOUNTLIST ..\QuestDiary\传奇部落\测试区预存\测试\测试数据.txt
ADDLINELIST ..\QuestDiary\传奇部落\测试区预存\测试记录\<$STR(S0)>.txt 0
CLEARNAMELIST ..\QuestDiary\传奇部落\测试区预存\测试记录\<$STR(S0)>.txt
ADDLINELIST ..\QuestDiary\传奇部落\测试区预存\测试记录\<$STR(S0)>.txt <$HUMAN(测试区预存)>
SENDMSG 1  ★[%s]:玩家<$USERNAME>使用测试区预存系统,预存【<$STR(M89)>】个元宝,正式开启即可领取
SENDMSG 1  ★[%s]:玩家<$USERNAME>使用测试区预存系统,预存【<$STR(M89)>】个元宝,正式开启即可领取
SENDMSG 1  ★[%s]:玩家<$USERNAME>使用测试区预存系统,预存【<$STR(M89)>】个元宝,正式开启即可领取 218 191 15
SENDMSG 1  ★[%s]:玩家<$USERNAME>使用测试区预存系统,预存【<$STR(M89)>】个元宝,正式开启即可领取 218 191 15
goto @main
break



[@取回元宝]

#IF
CHECKSTRINGLIST ..\QuestDiary\传奇部落\测试区状态.txt 测试区
#ACT
MESSAGEBOX 对不起,本区当前为〖测试区〗!\ \请正式开区后再取回
break
#IF
EQUAL M18 0
#ACT
MESSAGEBOX 你在测试区没有预存过元宝!\ \或者已经领取过,请等待下个测试区!
break
#IF
CHECKSTRINGLIST ..\QuestDiary\传奇部落\测试区状态.txt 正式区
CHECKACCOUNTLIST ..\QuestDiary\传奇部落\测试区预存\测试记录\测试账号.txt
#ACT
CLEARNAMELIST ..\QuestDiary\传奇部落\测试区预存\测试\测试数据.txt
ADDACCOUNTLIST ..\QuestDiary\传奇部落\测试区预存\测试\测试数据.txt
ReadRandomLine .\QuestDiary\传奇部落\测试区预存\测试\测试数据.txt S0
DELACCOUNTLIST ..\QuestDiary\传奇部落\测试区预存\测试\测试数据.txt
DELACCOUNTLIST ..\QuestDiary\传奇部落\测试区预存\测试记录\测试账号.txt
ReadRandomLine ..\QuestDiary\传奇部落\测试区预存\测试记录\<$STR(S0)>.txt S1
CLEARNAMELIST ..\QuestDiary\传奇部落\测试区预存\测试记录\<$STR(S0)>.txt
MOV M17 <$STR(S1)>
DIV M17 5
GAMEGOLD + <$STR(M17)>
CALCVAR HUMAN 测试区预存 = 0
SAVEVAR HUMAN 测试区预存 ..\QuestDiary\传奇部落\测试区预存.txt
SENDMSG 1  ★[%s]:玩家<$USERNAME>使用测试区预存系统,领取预存元宝<$STR(M17)>个
SENDMSG 1  ★[%s]:玩家<$USERNAME>使用测试区预存系统,领取预存元宝<$STR(M17)>个
SENDMSG 1  ★[%s]:玩家<$USERNAME>使用测试区预存系统,领取预存元宝<$STR(M17)>个 218 191 15
SENDMSG 1  ★[%s]:玩家<$USERNAME>使用测试区预存系统,领取预存元宝<$STR(M17)>个 218 191 15
MESSAGEBOX 恭喜你领取测试区<$STR(M17)>个元宝的返还奖励.
goto @main
break

回复

使用道具 举报

发表于 2023-1-17 19:07:48 | 显示全部楼层
支持支持支持
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

展开

Archiver|小黑屋|网站地图|皖ICP备18020244号-7|传奇部落

GMT+8, 2024-3-29 00:21 , Processed in 皖公网安备:34112402000394号 0.080615 second(s), 26 queries , Gzip On.