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

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

666666666666666666666

GOM引擎测试区返还元宝脚本（亲

66666666666666

666666

123123123123121231231

dasd阿萨德按时大多数

这个脚本用什么语言写的？

q'q'q'q

凄凄切切群

222222222222

请你当我手心里的宝

11111111111

测试区测试区测试区测试区测试区

感谢分享,辛苦

测试区返还元宝脚本（亲测可用） [修改]

每次每次每次每次每次