传奇测试区预存元宝脚本

　　() %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 １.测试区可以将身上的元宝预存在这里,开区后可以在我这里领取\ \ COLOR=clRed ２.您当前在测试区预存的元宝数量为：$STR(M17)COLOR=clAqua 【我要预存元宝/@预存元宝COLOR=clAqua 】\ \ COLOR=clFuchsia ３.正式开区后可取回 (取回比例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