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

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







[@领取测试区元宝222]
#if
equalG200
#ACT
messagebox当前不是正式开区，无法领取元宝！！
break

#if
checkaccountlist..\Market_Def\测试元宝点兑换\测试区元宝兑换账号.txt
#elseact
messagebox你测试区无元宝记录，无法领取！！
break



#if
#act
movS$次数提取0
movS$次数提取1
movS$次数提取2
movS$次数提取3
movS$次数提取4
movS$次数提取5
movS$次数提取6
movS$次数提取7
movS$次数提取8
movS$次数提取9
movS$次数提取10
movS$次数提取11
movS$次数提取12
movS$次数提取13
movS$次数提取14
movS$次数提取15
movS$次数提取16
movS$次数提取17
movS$次数提取18
movS$次数提取19
movS$次数提取20

GetListString..\Market_Def\测试元宝点兑换\账号文件\<$USERID>.txt0S$次数提取0
GetListString..\Market_Def\测试元宝点兑换\账号文件\<$USERID>.txt1S$次数提取1
GetListString..\Market_Def\测试元宝点兑换\账号文件\<$USERID>.txt2S$次数提取2
GetListString..\Market_Def\测试元宝点兑换\账号文件\<$USERID>.txt3S$次数提取3
GetListString..\Market_Def\测试元宝点兑换\账号文件\<$USERID>.txt4S$次数提取4
GetListString..\Market_Def\测试元宝点兑换\账号文件\<$USERID>.txt5S$次数提取5
GetListString..\Market_Def\测试元宝点兑换\账号文件\<$USERID>.txt6S$次数提取6
GetListString..\Market_Def\测试元宝点兑换\账号文件\<$USERID>.txt7S$次数提取7
GetListString..\Market_Def\测试元宝点兑换\账号文件\<$USERID>.txt8S$次数提取8
GetListString..\Market_Def\测试元宝点兑换\账号文件\<$USERID>.txt9S$次数提取9
GetListString..\Market_Def\测试元宝点兑换\账号文件\<$USERID>.txt10S$次数提取10
GetListString..\Market_Def\测试元宝点兑换\账号文件\<$USERID>.txt11S$次数提取11
GetListString..\Market_Def\测试元宝点兑换\账号文件\<$USERID>.txt12S$次数提取12
GetListString..\Market_Def\测试元宝点兑换\账号文件\<$USERID>.txt13S$次数提取13
GetListString..\Market_Def\测试元宝点兑换\账号文件\<$USERID>.txt14S$次数提取14
GetListString..\Market_Def\测试元宝点兑换\账号文件\<$USERID>.txt15S$次数提取15
GetListString..\Market_Def\测试元宝点兑换\账号文件\<$USERID>.txt16S$次数提取16
GetListString..\Market_Def\测试元宝点兑换\账号文件\<$USERID>.txt17S$次数提取17
GetListString..\Market_Def\测试元宝点兑换\账号文件\<$USERID>.txt18S$次数提取18
GetListString..\Market_Def\测试元宝点兑换\账号文件\<$USERID>.txt19S$次数提取19


#if
CheckStringlength<$STR(S$次数提取0)>>0
#act
movP0<$STR(S$次数提取0)>
MULP1P01
MOVP3<$STR(P0)>
GAMEGOLD+<$STR(P1)>



#if
CheckStringlength<$STR(S$次数提取1)>>0
#act
movP0<$STR(S$次数提取1)>
MULP1P01
MOVP3<$STR(P0)>
GAMEGOLD+<$STR(P1)>




#if
CheckStringlength<$STR(S$次数提取2)>>0
#act
movP0<$STR(S$次数提取2)>
MULP1P01
GAMEGOLD+<$STR(P1)>




#if
CheckStringlength<$STR(S$次数提取3)>>0
#act
movP0<$STR(S$次数提取3)>
MULP1P01
GAMEGOLD+<$STR(P1)>




#if
CheckStringlength<$STR(S$次数提取4)>>0
#act
movP0<$STR(S$次数提取4)>
MULP1P01
GAMEGOLD+<$STR(P1)>




#if
CheckStringlength<$STR(S$次数提取5)>>0
#act
movP0<$STR(S$次数提取5)>
MULP1P01
GAMEGOLD+<$STR(P1)>



#if
CheckStringlength<$STR(S$次数提取6)>>0
#act
movP0<$STR(S$次数提取6)>
MULP1P01
GAMEGOLD+<$STR(P1)>




#if
CheckStringlength<$STR(S$次数提取7)>>0
#act
movP0<$STR(S$次数提取7)>
MULP1P01
GAMEGOLD+<$STR(P1)>




#if
CheckStringlength<$STR(S$次数提取8)>>0
#act
movP0<$STR(S$次数提取8)>
MULP1P01
GAMEGOLD+<$STR(P1)>




#if
CheckStringlength<$STR(S$次数提取9)>>0
#act
movP0<$STR(S$次数提取9)>
MULP1P01
GAMEGOLD+<$STR(P1)>




#if
CheckStringlength<$STR(S$次数提取10)>>0
#act
movP0<$STR(S$次数提取10)>
MULP1P01
GAMEGOLD+<$STR(P1)>




#if
CheckStringlength<$STR(S$次数提取11)>>0
#act
movP0<$STR(S$次数提取11)>
MULP1P01
GAMEGOLD+<$STR(P1)>




#if
CheckStringlength<$STR(S$次数提取12)>>0
#act
movP0<$STR(S$次数提取12)>
MULP1P01
GAMEGOLD+<$STR(P1)>



#if
CheckStringlength<$STR(S$次数提取13)>>0
#act
movP0<$STR(S$次数提取13)>
MULP1P01
GAMEGOLD+<$STR(P1)>




#if
CheckStringlength<$STR(S$次数提取14)>>0
#act
movP0<$STR(S$次数提取14)>
MULP1P01
GAMEGOLD+<$STR(P1)>




#if
CheckStringlength<$STR(S$次数提取15)>>0
#act
movP0<$STR(S$次数提取15)>
MULP1P01
GAMEGOLD+<$STR(P1)>




#if
CheckStringlength<$STR(S$次数提取16)>>0
#act
movP0<$STR(S$次数提取16)>
MULP1P01
GAMEGOLD+<$STR(P1)>




#if
CheckStringlength<$STR(S$次数提取17)>>0
#act
movP0<$STR(S$次数提取17)>
MULP1P01
GAMEGOLD+<$STR(P1)>




#if
CheckStringlength<$STR(S$次数提取18)>>0
#act
movP0<$STR(S$次数提取18)>
MULP1P01
GAMEGOLD+<$STR(P1)>




#if
CheckStringlength<$STR(S$次数提取19)>>0
#act
movP0<$STR(S$次数提取19)>
MULP1P01
GAMEGOLD+<$STR(P1)>




#if
#act
delaccountlist..\Market_Def\测试元宝点兑换\测试区元宝兑换账号.txt
CLEARNAMELIST..\Market_Def\测试元宝点兑换\账号文件\<$USERID>.txt
SENDMSG12500恭喜玩家[<$USERNAME>]成功领取测试区记录的元宝！崛起了！
SENDMSG12500恭喜玩家[<$USERNAME>]成功领取测试区记录的元宝！崛起了！
SENDMSG12500恭喜玩家[<$USERNAME>]成功领取测试区记录的元宝！崛起了！
SENDMSG12500恭喜玩家[<$USERNAME>]成功领取测试区记录的元宝！崛起了！
messagebox测试区元宝领取成功，请查看元宝数量！！
break


[@测试区元宝111]
#if
equalG201
#ACT
messagebox当前已经正式开区！！
break

#if
CHECKGAMEGOLD>0
#elseact
MESSAGEBOX你当前元宝为0，无法记录！！！！
break

#if
NOTcheckaccountlist..\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
SENDMSG12500恭喜玩家[<$USERNAME>]成功记录测试区元宝，正式开区就可以领取！
SENDMSG12500恭喜玩家[<$USERNAME>]成功记录测试区元宝，正式开区就可以领取！
SENDMSG12500恭喜玩家[<$USERNAME>]成功记录测试区元宝，正式开区就可以领取！
SENDMSG12500恭喜玩家[<$USERNAME>]成功记录测试区元宝，正式开区就可以领取！
goto@main
MESSAGEBOX　记录元宝成功，\　\　请在新区开区之后在这领取！！！！
#elseact
MESSAGEBOX你当前元宝为0，无法记录！！！！
break