[@main]
#IF
CheckContainsText <$SERVERNAME> 测试区
#SAY
亲爱的玩家你好，现在你处于：<测试区>\ \
测试期间你可以将你多余的元宝寄存到我这里\
正式开区后<使用同一账号>可以到我这里来领取你寄存的元宝。\
目前你已经寄存了：<$HUMAN(元宝寄存)>个元宝\ \
<>                            <我要寄存元宝/@@InPutInteger22(输入你要寄存的元宝，寄存后扣除，测试区不可取回)>\
#ELSEact
GetListString ..\QuestDiary\QQ135888793制作\测试区奖励\数据记录\<$USERID>.txt 0 N$寄存元宝
#ELSESAY
亲爱的玩家你好，现在你处于：<正式区>\ \
你可以将你测试期间寄存到我这里的元宝取回\
<使用同一账号>即可领取你寄存的元宝。\
目前你已经寄存了：<$STR(N$寄存元宝)>个元宝\ \
<>                            <我要取回寄存元宝/@领取测试元宝>\

[@领取测试元宝]
#IF
#ACT
GAMEGOLD + <$STR(N$寄存元宝)>
clearnamelist ..\QuestDiary\QQ135888793制作\测试区奖励\数据记录\<$USERID>.txt
MESSAGEBOX 成功领取测试区寄存的：<$STR(N$寄存元宝)>元宝
GOTO @MAIN

[@InPutInteger22]
#IF
LARGE N22 0
CHECKGAMEGOLD ? <$STR(N22)>
#ACT
CALCVAR HUMAN 元宝寄存 + <$STR(N22)>
SAVEVAR HUMAN 元宝寄存 ..\QuestDiary\QQ135888793制作\测试区奖励\变量保存.txt
clearnamelist ..\QuestDiary\QQ135888793制作\测试区奖励\数据记录\<$USERID>.txt
CreateFile ..\QuestDiary\QQ135888793制作\测试区奖励\数据记录\<$USERID>.txt
AddTextListEx ..\QuestDiary\QQ135888793制作\测试区奖励\数据记录\<$USERID>.txt <$HUMAN(元宝寄存)>
GAMEGOLD - <$STR(N22)>
SENDMSG 7 本次你成功寄存了<$STR(N22)>个元宝！
GOTO @MAIN
#elseact
MESSAGEBOX 请输入大于0的元宝寄存数值且不可超过你拥有的元宝数量！
break