GOM传奇服务端测试记录元宝，传奇GM版本库测试区记录元宝数量教程司徒

admin

[@main]　　#IF
　　#ACT
　　OPENMERCHANTBIGDLG 113 27 1 4 -30 -100 1 435 20
　　#say
　　\ \ \ \ \ \
　　{★★★魔域仙踪测试区元宝记录★★★/AUTOCOLOR=253,251,168,191,250,249,245,254}\ \
　　　　　　　　　　　　\ \
　　　　　　　　　　　　　　　　  ：\ \
　　　　　　　　　\
　　　　　　　　　\
　　　　　　　　　\
　　　　　　　　　\ \ \
　　　　　　　　　    　　　　　　　　\ \
　　[@领取测试区元宝222]
　　#if
　　equal G20 0
　　#ACT
　　messagebox 当前不是正式开区，无法领取元宝！！
　　break
　　#if
　　checkaccountlist ..\Market_Def\测试元宝点兑换\测试区元宝兑换账号.txt
　　#elseact
　　messagebox 你测试区无元宝记录，无法领取！！
　　break
　　#if
　　#act
　　mov S$次数提取0
　　mov S$次数提取1
　　mov S$次数提取2
　　mov S$次数提取3
　　mov S$次数提取4
　　mov S$次数提取5
　　mov S$次数提取6
　　mov S$次数提取7
　　mov S$次数提取8
　　mov S$次数提取9
　　mov S$次数提取10
　　mov S$次数提取11
　　mov S$次数提取12
　　mov S$次数提取13
　　mov S$次数提取14
　　mov S$次数提取15
　　mov S$次数提取16
　　mov S$次数提取17
　　mov S$次数提取18
　　mov S$次数提取19
　　mov S$次数提取20
　　GetListString ..\Market_Def\测试元宝点兑换\账号文件\.txt 0 S$次数提取0
　　GetListString ..\Market_Def\测试元宝点兑换\账号文件\.txt 1 S$次数提取1
　　GetListString ..\Market_Def\测试元宝点兑换\账号文件\.txt 2 S$次数提取2
　　GetListString ..\Market_Def\测试元宝点兑换\账号文件\.txt 3 S$次数提取3
　　GetListString ..\Market_Def\测试元宝点兑换\账号文件\.txt 4 S$次数提取4
　　GetListString ..\Market_Def\测试元宝点兑换\账号文件\.txt 5 S$次数提取5
　　GetListString ..\Market_Def\测试元宝点兑换\账号文件\.txt 6 S$次数提取6
　　GetListString ..\Market_Def\测试元宝点兑换\账号文件\.txt 7 S$次数提取7
　　GetListString ..\Market_Def\测试元宝点兑换\账号文件\.txt 8 S$次数提取8
　　GetListString ..\Market_Def\测试元宝点兑换\账号文件\.txt 9 S$次数提取9
　　GetListString ..\Market_Def\测试元宝点兑换\账号文件\.txt 10 S$次数提取10
　　GetListString ..\Market_Def\测试元宝点兑换\账号文件\.txt 11 S$次数提取11
　　GetListString ..\Market_Def\测试元宝点兑换\账号文件\.txt 12 S$次数提取12
　　GetListString ..\Market_Def\测试元宝点兑换\账号文件\.txt 13 S$次数提取13
　　GetListString ..\Market_Def\测试元宝点兑换\账号文件\.txt 14 S$次数提取14
　　GetListString ..\Market_Def\测试元宝点兑换\账号文件\.txt 15 S$次数提取15
　　GetListString ..\Market_Def\测试元宝点兑换\账号文件\.txt 16 S$次数提取16
　　GetListString ..\Market_Def\测试元宝点兑换\账号文件\.txt 17 S$次数提取17
　　GetListString ..\Market_Def\测试元宝点兑换\账号文件\.txt 18 S$次数提取18
　　GetListString ..\Market_Def\测试元宝点兑换\账号文件\.txt 19 S$次数提取19
　　#if
　　CheckStringlength  > 0
　　#act
　　mov P0
　　MUL P1 P0 1
　　MOV P3
　　GAMEGOLD +
　　#if
　　CheckStringlength  > 0
　　#act
　　mov P0
　　MUL P1 P0 1
　　MOV P3
　　GAMEGOLD +
　　#if
　　CheckStringlength  > 0
　　#act
　　mov P0
　　MUL P1 P0 1
　　GAMEGOLD +
　　#if
　　CheckStringlength  > 0
　　#act
　　mov P0
　　MUL P1 P0 1
　　GAMEGOLD +
　　#if
　　CheckStringlength  > 0
　　#act
　　mov P0
　　MUL P1 P0 1
　　GAMEGOLD +
　　#if
　　CheckStringlength  > 0
　　#act
　　mov P0
　　MUL P1 P0 1
　　GAMEGOLD +
　　#if
　　CheckStringlength  > 0
　　#act
　　mov P0
　　MUL P1 P0 1
　　GAMEGOLD +
　　#if
　　CheckStringlength  > 0
　　#act
　　mov P0
　　MUL P1 P0 1
　　GAMEGOLD +
　　#if
　　CheckStringlength  > 0
　　#act
　　mov P0
　　MUL P1 P0 1
　　GAMEGOLD +
　　#if
　　CheckStringlength  > 0
　　#act
　　mov P0
　　MUL P1 P0 1
　　GAMEGOLD +
　　#if
　　CheckStringlength  > 0
　　#act
　　mov P0
　　MUL P1 P0 1
　　GAMEGOLD +
　　#if
　　CheckStringlength  > 0
　　#act
　　mov P0
　　MUL P1 P0 1
　　GAMEGOLD +
　　#if
　　CheckStringlength  > 0
　　#act
　　mov P0
　　MUL P1 P0 1
　　GAMEGOLD +
　　#if
　　CheckStringlength  > 0
　　#act
　　mov P0
　　MUL P1 P0 1
　　GAMEGOLD +
　　#if
　　CheckStringlength  > 0
　　#act
　　mov P0
　　MUL P1 P0 1
　　GAMEGOLD +
　　#if
　　CheckStringlength  > 0
　　#act
　　mov P0
　　MUL P1 P0 1
　　GAMEGOLD +
　　#if
　　CheckStringlength  > 0
　　#act
　　mov P0
　　MUL P1 P0 1
　　GAMEGOLD +
　　#if
　　CheckStringlength  > 0
　　#act
　　mov P0
　　MUL P1 P0 1
　　GAMEGOLD +
　　#if
　　CheckStringlength  > 0
　　#act
　　mov P0
　　MUL P1 P0 1
　　GAMEGOLD +
　　#if
　　CheckStringlength  > 0
　　#act
　　mov P0
　　MUL P1 P0 1
　　GAMEGOLD +
　　#if
　　#act
　　delaccountlist ..\Market_Def\测试元宝点兑换\测试区元宝兑换账号.txt
　　CLEARNAMELIST ..\Market_Def\测试元宝点兑换\账号文件\.txt
　　SENDMSG 1 250 0 恭喜玩家[]成功领取测试区记录的元宝！崛起了！
　　SENDMSG 1 250 0 恭喜玩家[]成功领取测试区记录的元宝！崛起了！
　　SENDMSG 1 250 0 恭喜玩家[]成功领取测试区记录的元宝！崛起了！
　　SENDMSG 1 250 0 恭喜玩家[]成功领取测试区记录的元宝！崛起了！
　　messagebox 测试区元宝领取成功，请查看元宝数量！！
　　break
　　[@测试区元宝111]
　　#if
　　equal G20 1
　　#ACT
　　messagebox 当前已经正式开区！！
　　break
　　#if
　　CHECKGAMEGOLD > 0
　　#elseact
　　MESSAGEBOX 你当前元宝为0，无法记录！！！！
　　break
　　#if
　　NOT checkaccountlist ..\Market_Def\测试元宝点兑换\测试区元宝兑换账号.txt
　　#ACT
　　CreateFile ..\Market_Def\测试元宝点兑换\账号文件\.txt
　　#if
　　CHECKGAMEGOLD > 0
　　#ACT
　　;WriteConfigFileItem ..\Market_Def\功能配置\测试区元宝兑换账号.txt 账号兑换充值  
　　AddTextListEx  ..\Market_Def\测试元宝点兑换\账号文件\.txt
　　addaccountlist ..\Market_Def\测试元宝点兑换\测试区元宝兑换账号.txt
　　GAMEGOLD = 0
　　SENDMSG 1 250 0 恭喜玩家[]成功记录测试区元宝，正式开区就可以领取！
　　SENDMSG 1 250 0 恭喜玩家[]成功记录测试区元宝，正式开区就可以领取！
　　SENDMSG 1 250 0 恭喜玩家[]成功记录测试区元宝，正式开区就可以领取！
　　SENDMSG 1 250 0 恭喜玩家[]成功记录测试区元宝，正式开区就可以领取！
　　goto @main
　　MESSAGEBOX 　记录元宝成功，\　\　请在新区开区之后在这领取！！！！
　　#elseact
　　MESSAGEBOX 你当前元宝为0，无法记录！！！！
　　break