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

[@main]
#IF
#ACT
OPENMERCHANTBIGDLG 113 27 1 4 -30 -100 1 435 20
#say
\ \ \ \ \ \
　　　　　　　             {★★★魔域仙踪测试区元宝记录★★★/AUTOCOLOR=253,251,168,191,250,249,245,254}\ \
<>　　　　　　　　　　<测试区记录元宝数量,可以兑换到新区,记录多少领多少/FCOLOR=250>\ \
<>　　　　　　　　　　　　　　<元宝数量：/FCOLOR=146>  <你当前元宝/AUTOCOLOR=254,251,168,191,250,70,245,249,253>：<$GAMEGOLD>\ \
<>　　　　　　　<记录说明：在测试区一定点/FCOLOR=253><【记录测试区元宝】如无记录则无法领取/FCOLOR=249>\
<>　　　　　　　<兑换说明：在新区正式开区之后就可以在这领取你兑换的元宝！！/FCOLOR=70>\
<>　　　　　　　<温馨提示：元宝只能靠打，测试区提前打元宝记录发展快！！/FCOLOR=254>\
<>　　　　　　　<元宝记录不限次数，可以无限记录，但记录完元宝会扣除！/FCOLOR=243>\ \ \
<>　　　　　　　    　　　<记录测试区元宝/@测试区元宝111>　　　　　<领取测试区元宝/@领取测试区元宝222>\ \







[@领取测试区元宝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\测试元宝点兑换\账号文件\<$USERID>.txt 0 S$次数提取0
GetListString ..\Market_Def\测试元宝点兑换\账号文件\<$USERID>.txt 1 S$次数提取1
GetListString ..\Market_Def\测试元宝点兑换\账号文件\<$USERID>.txt 2 S$次数提取2
GetListString ..\Market_Def\测试元宝点兑换\账号文件\<$USERID>.txt 3 S$次数提取3
GetListString ..\Market_Def\测试元宝点兑换\账号文件\<$USERID>.txt 4 S$次数提取4
GetListString ..\Market_Def\测试元宝点兑换\账号文件\<$USERID>.txt 5 S$次数提取5
GetListString ..\Market_Def\测试元宝点兑换\账号文件\<$USERID>.txt 6 S$次数提取6
GetListString ..\Market_Def\测试元宝点兑换\账号文件\<$USERID>.txt 7 S$次数提取7
GetListString ..\Market_Def\测试元宝点兑换\账号文件\<$USERID>.txt 8 S$次数提取8
GetListString ..\Market_Def\测试元宝点兑换\账号文件\<$USERID>.txt 9 S$次数提取9
GetListString ..\Market_Def\测试元宝点兑换\账号文件\<$USERID>.txt 10 S$次数提取10
GetListString ..\Market_Def\测试元宝点兑换\账号文件\<$USERID>.txt 11 S$次数提取11
GetListString ..\Market_Def\测试元宝点兑换\账号文件\<$USERID>.txt 12 S$次数提取12
GetListString ..\Market_Def\测试元宝点兑换\账号文件\<$USERID>.txt 13 S$次数提取13
GetListString ..\Market_Def\测试元宝点兑换\账号文件\<$USERID>.txt 14 S$次数提取14
GetListString ..\Market_Def\测试元宝点兑换\账号文件\<$USERID>.txt 15 S$次数提取15
GetListString ..\Market_Def\测试元宝点兑换\账号文件\<$USERID>.txt 16 S$次数提取16
GetListString ..\Market_Def\测试元宝点兑换\账号文件\<$USERID>.txt 17 S$次数提取17
GetListString ..\Market_Def\测试元宝点兑换\账号文件\<$USERID>.txt 18 S$次数提取18
GetListString ..\Market_Def\测试元宝点兑换\账号文件\<$USERID>.txt 19 S$次数提取19


#if
CheckStringlength <$STR(S$次数提取0)> > 0
#act
mov P0 <$STR(S$次数提取0)>
MUL P1 P0 1
MOV P3 <$STR(P0)>
GAMEGOLD + <$STR(P1)>



#if
CheckStringlength <$STR(S$次数提取1)> > 0
#act
mov P0 <$STR(S$次数提取1)>
MUL P1 P0 1
MOV P3 <$STR(P0)>
GAMEGOLD + <$STR(P1)>




#if
CheckStringlength <$STR(S$次数提取2)> > 0
#act
mov P0 <$STR(S$次数提取2)>
MUL P1 P0 1
GAMEGOLD + <$STR(P1)>




#if
CheckStringlength <$STR(S$次数提取3)> > 0
#act
mov P0 <$STR(S$次数提取3)>
MUL P1 P0 1
GAMEGOLD + <$STR(P1)>




#if
CheckStringlength <$STR(S$次数提取4)> > 0
#act
mov P0 <$STR(S$次数提取4)>
MUL P1 P0 1
GAMEGOLD + <$STR(P1)>




#if
CheckStringlength <$STR(S$次数提取5)> > 0
#act
mov P0 <$STR(S$次数提取5)>
MUL P1 P0 1
GAMEGOLD + <$STR(P1)>



#if
CheckStringlength <$STR(S$次数提取6)> > 0
#act
mov P0 <$STR(S$次数提取6)>
MUL P1 P0 1
GAMEGOLD + <$STR(P1)>




#if
CheckStringlength <$STR(S$次数提取7)> > 0
#act
mov P0 <$STR(S$次数提取7)>
MUL P1 P0 1
GAMEGOLD + <$STR(P1)>




#if
CheckStringlength <$STR(S$次数提取8)> > 0
#act
mov P0 <$STR(S$次数提取8)>
MUL P1 P0 1
GAMEGOLD + <$STR(P1)>




#if
CheckStringlength <$STR(S$次数提取9)> > 0
#act
mov P0 <$STR(S$次数提取9)>
MUL P1 P0 1
GAMEGOLD + <$STR(P1)>




#if
CheckStringlength <$STR(S$次数提取10)> > 0
#act
mov P0 <$STR(S$次数提取10)>
MUL P1 P0 1
GAMEGOLD + <$STR(P1)>




#if
CheckStringlength <$STR(S$次数提取11)> > 0
#act
mov P0 <$STR(S$次数提取11)>
MUL P1 P0 1
GAMEGOLD + <$STR(P1)>




#if
CheckStringlength <$STR(S$次数提取12)> > 0
#act
mov P0 <$STR(S$次数提取12)>
MUL P1 P0 1
GAMEGOLD + <$STR(P1)>



#if
CheckStringlength <$STR(S$次数提取13)> > 0
#act
mov P0 <$STR(S$次数提取13)>
MUL P1 P0 1
GAMEGOLD + <$STR(P1)>




#if
CheckStringlength <$STR(S$次数提取14)> > 0
#act
mov P0 <$STR(S$次数提取14)>
MUL P1 P0 1
GAMEGOLD + <$STR(P1)>




#if
CheckStringlength <$STR(S$次数提取15)> > 0
#act
mov P0 <$STR(S$次数提取15)>
MUL P1 P0 1
GAMEGOLD + <$STR(P1)>




#if
CheckStringlength <$STR(S$次数提取16)> > 0
#act
mov P0 <$STR(S$次数提取16)>
MUL P1 P0 1
GAMEGOLD + <$STR(P1)>




#if
CheckStringlength <$STR(S$次数提取17)> > 0
#act
mov P0 <$STR(S$次数提取17)>
MUL P1 P0 1
GAMEGOLD + <$STR(P1)>




#if
CheckStringlength <$STR(S$次数提取18)> > 0
#act
mov P0 <$STR(S$次数提取18)>
MUL P1 P0 1
GAMEGOLD + <$STR(P1)>




#if
CheckStringlength <$STR(S$次数提取19)> > 0
#act
mov P0 <$STR(S$次数提取19)>
MUL P1 P0 1
GAMEGOLD + <$STR(P1)>




#if
#act
delaccountlist ..\Market_Def\测试元宝点兑换\测试区元宝兑换账号.txt
CLEARNAMELIST ..\Market_Def\测试元宝点兑换\账号文件\<$USERID>.txt
SENDMSG 1 250 0 恭喜玩家[<$USERNAME>]成功领取测试区记录的元宝！崛起了！
SENDMSG 1 250 0 恭喜玩家[<$USERNAME>]成功领取测试区记录的元宝！崛起了！
SENDMSG 1 250 0 恭喜玩家[<$USERNAME>]成功领取测试区记录的元宝！崛起了！
SENDMSG 1 250 0 恭喜玩家[<$USERNAME>]成功领取测试区记录的元宝！崛起了！
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\测试元宝点兑换\账号文件\<$USERID>.txt

#if
CHECKGAMEGOLD > 0
#ACT
;WriteConfigFileItem ..\Market_Def\功能配置\测试区元宝兑换账号.txt 账号兑换充值 <$USERID> <$GAMEGOLD>
AddTextListEx  ..\Market_Def\测试元宝点兑换\账号文件\<$USERID>.txt <$GAMEGOLD>
addaccountlist ..\Market_Def\测试元宝点兑换\测试区元宝兑换账号.txt
GAMEGOLD = 0
SENDMSG 1 250 0 恭喜玩家[<$USERNAME>]成功记录测试区元宝，正式开区就可以领取！
SENDMSG 1 250 0 恭喜玩家[<$USERNAME>]成功记录测试区元宝，正式开区就可以领取！
SENDMSG 1 250 0 恭喜玩家[<$USERNAME>]成功记录测试区元宝，正式开区就可以领取！
SENDMSG 1 250 0 恭喜玩家[<$USERNAME>]成功记录测试区元宝，正式开区就可以领取！
goto @main
MESSAGEBOX 　记录元宝成功，\　\　请在新区开区之后在这领取！！！！
#elseact
MESSAGEBOX 你当前元宝为0，无法记录！！！！
break