GOM引擎测试区返还元宝开区领取一半的脚本

[@MAIN]
#IF
CheckContainsText <$SERVERNAME> 测试
#act
GOTO @测试
BREAK

#IF
#act
CreateFile ..\QuestDiary\数据文件\测试区元宝\<$USERID>.txt
mov S$次数提取0
GetListString ..\QuestDiary\数据文件\测试区元宝\<$USERID>.txt 0 S$次数提取0
mov U49 <$STR(S$次数提取0)>
GOTO @开区
BREAK

[@测试]
#IF
#act
#SAY
\ \
　　<测试区回收元宝可回收换新区元宝，正式开区之后可在此处！/SCOLOR=151>\ \

　　<领取规则:/AUTOCOLOR=56><开区 账号以测试区账号相同，才可以领取！/AUTOCOLOR=250>\ \

　　<测试区我已经回收了：/AUTOCOLOR=242><$STR(U49)>  \ \

　　<测试区回收回收元宝,开区以后可以领取测试区回收元宝的50%！/AUTOCOLOR=168>\ \　　　　　　　　　
#ELSEACT

[@开区]
#IF
#act
#SAY
\ \
　　<测试区回收元宝可回收换新区元宝，正式开区之后可在此处！/SCOLOR=151>\ \

　　<领取规则:/AUTOCOLOR=56><开区 账号以测试区账号相同，才可以领取！/AUTOCOLOR=250>\ \

　　<测试区我已经回收了：/AUTOCOLOR=242><$STR(U49)>   　　　<我需要领取我记录元宝/@2>\ \

　　<测试区回收回收元宝,开区以后可以领取测试区回收元宝的50%！/AUTOCOLOR=168>\ \

[@2]
#if
checkaccountlist ..\QuestDiary\数据文件\测试区元宝帐号.txt
#ACT
mov S$次数提取0
GetListString ..\QuestDiary\数据文件\测试区元宝\<$USERID>.txt 0 S$次数提取0
mov U49 <$STR(S$次数提取0)>
DIV <$STR(U49)> 2
GAMEGOLD + <$STR(U49)>
CLEARNAMELIST ..\QuestDiary\数据文件\测试区元宝\<$USERID>.txt
delaccountlist ..\QuestDiary\数据文件\测试区元宝帐号.txt
MESSAGEBOX 　\　\　\　\取回的元宝数量:<$STR(U49)>
mov U49 0
#ELSEACT
MESSAGEBOX 对不起你测试区没有记录,或者已经领取元宝!
BREAK

游客，如果您要查看本帖隐藏内容请回复

6666666666666666666找了好久了！！

11111111111111111111111111111

顶顶顶顶顶顶顶顶顶顶顶顶顶顶