()
%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