GOM引擎增加经典传奇地图脚本，需要三转、赞助、元宝进入教程

[@main]
<自助领取/SCOLOR=146>\
<-----------------------------------------------------------/SCOLOR=13>\
<服务器奖励玩家开放自助领取功能/SCOLOR=22> \
<-----------------------------------------------------------/SCOLOR=13>\
<选择验证码类型:/SCOLOR=245>   <测试与宣传奖励领取/@礼包>   \  \
;<选择验证码类型:/SCOLOR=245>   <测试奖励领取/@礼包2>   \
<宣传奖励:天书大礼包X1 会员证X1/SCOLOR=250> \


[@礼包]
<礼包领取/SCOLOR=146>\
<-----------------------------------------------------------/SCOLOR=13>\
<服务器奖励玩家开放自助领取功能/SCOLOR=22> \
<-----------------------------------------------------------/SCOLOR=13>\
<输入兑换码领取礼品/SCOLOR=245>\
<-----------------------------------------------------------/SCOLOR=13>\
<友情提示：如需帮助或有疑问请联系客服/SCOLOR=250>\\
<-----------------------------------------------------------/SCOLOR=13>\
<输入兑换码：/SCOLOR=250>     <输入领取/@@InPutString27>\ 


[@礼包2]
<测试礼包领取/SCOLOR=146>\
<-----------------------------------------------------------/SCOLOR=13>\
<服务器奖励玩家开放自助领取功能/SCOLOR=22> \
<-----------------------------------------------------------/SCOLOR=13>\
<输入兑换码领取礼品/SCOLOR=245>\
<-----------------------------------------------------------/SCOLOR=13>\
<友情提示：如需帮助或有疑问请联系客服/SCOLOR=250>\\
<-----------------------------------------------------------/SCOLOR=13>\
<输入兑换码：/SCOLOR=250>     <输入领取/@@InPutString28>\ 


[@InPutString27] 
#say
\ \
\ \
正在验证.
#ACT
DelayGoto 500 @qw1
[@qw1]
#say
\ \
\ \
正在验证..
#ACT
DelayGoto 500 @qw2
[@qw2]
#say
\ \
\ \
正在验证...
#ACT
DelayGoto 500 @qw3


[@qw3]
#say
\ \
\ \
正在验证....
#ACT
DelayGoto 500 @qw4

[@qw4]
#say
\ \
\ \
完成验证！！！
#ACT
DelayGoto 500 @kl

[@kl]
#IF 
CHECKTEXTLIST  ..\QuestDiary\新功能\卡密充值\兑换码.txt <$STR(s27)> 
#act 
DelTextList  ..\QuestDiary\新功能\卡密充值\兑换码.txt <$STR(s27)>  
AddTextListEx ..\QuestDiary\新功能\卡密充值\兑换码记录.txt <$USERNAME>于<$DATETIME>在:<$IPLOCAL>为IP:<$IPADDR>电脑上使用兑换码<$STR(S27)>进行领取 
give 天书大礼包 1
give 会员证 1
MESSAGEBOX 恭喜:领取完成，您成功领取一个天书大礼包X1 会员证X1
SendCenterMsg 254 252 玩家『<$USERNAME>』使用兑换码在土城NPC处成功领取一个天书大礼包+会员证 1 5
GOTO @MAIN
Break
;#ELSEACT
;MESSAGEBOX 兑换码错误,无法领取，请联系客服获得兑换码。
;BREAK


#IF 
CHECKTEXTLIST  ..\QuestDiary\新功能\卡密充值\坐骑兑换码.txt <$STR(s27)> 
#act 
DelTextList  ..\QuestDiary\新功能\卡密充值\坐骑兑换码.txt <$STR(s27)>  
AddTextListEx ..\QuestDiary\新功能\卡密充值\坐骑兑换码记录.txt <$USERNAME>于<$DATETIME>在:<$IPLOCAL>为IP:<$IPADDR>电脑上使用兑换码<$STR(S27)>进行领取
give 坐骑礼包 1
MESSAGEBOX 恭喜:领取完成，您成功领取一个坐骑礼包
;SendCenterMsg 254 252 玩家『<$USERNAME>』使用兑换码在土城NPC处成功领取一个坐骑礼包 1 5
GOTO @MAIN
Break
#ELSEACT
MESSAGEBOX 兑换码错误,无法领取，请联系客服获得兑换码。
BREAK

[@InPutString28] 
#say
\ \
\ \
正在验证.
#ACT
DelayGoto 500 @qw1
[@qw1]
#say
\ \
\ \
正在验证..
#ACT
DelayGoto 500 @qw2
[@qw2]
#say
\ \
\ \
正在验证...
#ACT
DelayGoto 500 @qw3


[@qw3]
#say
\ \
\ \
正在验证....
#ACT
DelayGoto 500 @qw4

[@qw4]
#say
\ \
\ \
完成验证！！！
#ACT
DelayGoto 500 @kl1

[@kl1]
#IF 
CHECKTEXTLIST  ..\QuestDiary\新功能\卡密充值\兑换码2.txt <$STR(s28)> 
#act 
DelTextList  ..\QuestDiary\新功能\卡密充值\兑换码2.txt <$STR(s28)>  
AddTextListEx ..\QuestDiary\新功能\卡密充值\兑换码记录2.txt <$USERNAME>于<$DATETIME>在:<$IPLOCAL>为IP:<$IPADDR>电脑上使用兑换码<$STR(S28)>进行领取 
give 天书大礼包 1
MESSAGEBOX 恭喜:领取完成，您成功领取一个天书大礼包
SendCenterMsg 254 252 玩家『<$USERNAME>』使用兑换码在土城NPC处成功领取一个天书大礼包 1 5
GOTO @MAIN
Break

[@充值]
<卡密领取  输入正确卡密即可领取相应的元宝/SCOLOR=146>\
<-----------------------------------------------------------/SCOLOR=13>\
<卡密面值：10元=200元宝 30元=630元宝 50元=1100元宝 100元=2400元宝/SCOLOR=22> <(比例:1元:20元宝)/SCOLOR=250> \
<-----------------------------------------------------------/SCOLOR=13>\
<卡密获得：活动奖励 赞助赠送 其他内容/SCOLOR=245>\
<-----------------------------------------------------------/SCOLOR=13>\
<友情提示：如需帮助或有疑问请联系客服/SCOLOR=250>\\
<-----------------------------------------------------------/SCOLOR=13>\
<输入卡密：/SCOLOR=250>     <输入领取/@@InPutString14>\ 



[@InPutString14] 
#say
\ \
\ \
┏━━━━━━━━━━━━━━━━━━━━━━━━━━┓\
┃<正在检验卡密中■>□□□□□□□□□□□□□□□□ <10%>┃\
┗━━━━━━━━━━━━━━━━━━━━━━━━━━┛\
#ACT
DelayGoto 500 @a1
[@a1]
#say
\ \
\ \
┏━━━━━━━━━━━━━━━━━━━━━━━━━━┓\
┃<正在检验卡密中■■>□□□□□□□□□□□□□□□ <20%>┃\
┗━━━━━━━━━━━━━━━━━━━━━━━━━━┛\
#ACT
DelayGoto 500 @a2
[@a2]
#say
\ \
\ \
┏━━━━━━━━━━━━━━━━━━━━━━━━━━┓\
┃<正在检验卡密中■■■■>□□□□□□□□□□□□□ <30%>┃\
┗━━━━━━━━━━━━━━━━━━━━━━━━━━┛\
#ACT
DelayGoto 500 @a3


[@a3]
#say
\ \
\ \
┏━━━━━━━━━━━━━━━━━━━━━━━━━━┓\
┃<正在检验卡密中■■■■■■■■>□□□□□□□□□ <50%>┃\
┗━━━━━━━━━━━━━━━━━━━━━━━━━━┛\
#ACT
DelayGoto 500 @a4

[@a4]
#say
\ \
\ \
┏━━━━━━━━━━━━━━━━━━━━━━━━━━┓\
┃<正在检验卡密中■■■■■■■■■■■>□□□□□□ <80%>┃\
┗━━━━━━━━━━━━━━━━━━━━━━━━━━┛\

#ACT
DelayGoto 500 @chek1

[@chek1]
#say
\ \
\ \
┏━━━━━━━━━━━━━━━━━━━━━━━━━━┓\
┃<正在检验卡密中■■■■■■■■■■■■■■>□□□ <90%>┃\
┗━━━━━━━━━━━━━━━━━━━━━━━━━━┛\

#ACT
DelayGoto 500 @chek2

[@chek2]
#say
\ \
\ \
┏━━━━━━━━━━━━━━━━━━━━━━━━━━┓\
┃<正在检验卡密中■■■■■■■■■■■■■■■■■100%>┃\
┗━━━━━━━━━━━━━━━━━━━━━━━━━━┛\

#ACT
DelayGoto 500 ~InPutInteger50

[~InPutInteger50]
#IF 
CHECKTEXTLIST  ..\QuestDiary\新功能\卡密充值\5元.txt <$STR(s14)> 
#act 
DelTextList  ..\QuestDiary\新功能\卡密充值\5元.txt <$STR(s14)>  
AddTextListEx ..\QuestDiary\新功能\卡密充值\充值记录.txt <$USERNAME>于<$DATETIME>在:<$IPLOCAL>为IP:<$IPADDR>电脑上使用5元卡密<$STR(S14)>充值 
GIVE 万能晶石 1
GIVE 战士铭文石 1
GIVE 法师铭文石 1
GIVE 道士铭文石 1
MESSAGEBOX 恭喜:首冲礼包领取完成，获得以下奖励:\万能晶石\三职业铭文石头
SENDMSG 5 提示：首冲礼包领取完成
GOTO @MAIN
Break

#IF 
CHECKTEXTLIST  ..\QuestDiary\新功能\卡密充值\10元.txt <$STR(s14)>
#act 
DelTextList  ..\QuestDiary\新功能\卡密充值\10元.txt <$STR(s14)>
AddTextListEx ..\QuestDiary\新功能\卡密充值\充值记录.txt <$USERNAME>于<$DATETIME>在:<$IPLOCAL>为IP:<$IPADDR>电脑上使用10元卡密<$STR(S14)>充值 
GAMEGOLD + 200
MESSAGEBOX 恭喜:充值完成，已成功充值了200元宝\\您的当前元宝数量为:<$GAMEGOLD>
SENDMSG 5 提示：你成功充值了面值10元的RMB,200元宝！当前的元宝数量为:<$GAMEGOLD>
GOTO @MAIN
Break


#IF 
CHECKTEXTLIST  ..\QuestDiary\新功能\卡密充值\30元.txt <$STR(s14)>
#act 
DelTextList  ..\QuestDiary\新功能\卡密充值\30元.txt <$STR(s14)>
AddTextListEx ..\QuestDiary\新功能\卡密充值\充值记录.txt <$USERNAME>于<$DATETIME>在:<$IPLOCAL>为IP:<$IPADDR>电脑上使用30元卡密<$STR(S14)>充值 
GAMEGOLD + 630
MESSAGEBOX 恭喜:充值完成，已成功充值了630元宝\\您的当前元宝数量为:<$GAMEGOLD>
SENDMSG 5 提示：你成功充值了面值30元的RMB,630元宝！当前的元宝数量为:<$GAMEGOLD>
GOTO @MAIN
Break

#IF 
CHECKTEXTLIST  ..\QuestDiary\新功能\卡密充值\50元.txt <$STR(s14)>
#act 
DelTextList  ..\QuestDiary\新功能\卡密充值\50元.txt <$STR(s14)>
AddTextListEx ..\QuestDiary\新功能\卡密充值\充值记录.txt <$USERNAME>于<$DATETIME>在:<$IPLOCAL>为IP:<$IPADDR>电脑上使用50元卡密<$STR(S14)>充值 
GAMEGOLD + 1100
MESSAGEBOX 恭喜:充值完成，已成功充值了1100元宝\\您的当前元宝数量为:<$GAMEGOLD>
SENDMSG 5 提示：你成功充值了面值50元的RMB,1100元宝！当前的元宝数量为:<$GAMEGOLD>
GOTO @MAIN
Break


#IF 
CHECKTEXTLIST  ..\QuestDiary\新功能\卡密充值\100元.txt <$STR(s14)>
#act 
DelTextList  ..\QuestDiary\新功能\卡密充值\100元.txt <$STR(s14)>
AddTextListEx ..\QuestDiary\新功能\卡密充值\充值记录.txt <$USERNAME>于<$DATETIME>在:<$IPLOCAL>为IP:<$IPADDR>电脑上使用100元卡密<$STR(S14)>充值 
GAMEGOLD + 2400
MESSAGEBOX 恭喜:充值完成，已成功充值了2400元宝\\您的当前元宝数量为:<$GAMEGOLD>
SENDMSG 5 提示：你成功充值了面值100元的RMB,2400元宝！当前的元宝数量为:<$GAMEGOLD>
GOTO @MAIN
Break
#ELSEACT
inc N6 1
goto @断线处理
MESSAGEBOX 充值卡密错误,请重新输入.错误将会记录\\如果连续10次您的账户信息继续错误将会<断线处理>
BREAK

[@断线处理]
#if
LARGE N6 10
#act
kick
SENDMSG 5 %s，不正常登录游戏
SENDMSG 5 %s，不正常登录游戏
SENDMSG 5 %s，不正常登录游戏
SENDMSG 5 %s，不正常登录游戏