传奇开测试区游戏元宝补偿领取NPC功能脚本(Gom引擎)
传奇开测试区游戏元宝补偿领取NPC功能脚本(Gom引擎)[@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 楼主发贴辛苦了，谢谢楼主分享！感谢楼主提供这么好的论坛！ 感谢站长分享传奇脚本，让我学习到很多知识。 这东西我收了！ 比较全的传奇脚本分享网站，站长辛苦了。 这东西我收了！ 很专业的很全面的gm论坛 下次在来看脚本 这个帖子不回对不起自己！ 这东西我收了！