GOM引擎跨区自动转区的脚本制作教程

[@main]


#IF
#ACT
MOV N$账号金额 0
MOV N$领取金额 0
MOV S$账号信息 未输入
MOV S$领取信息 未输入
GOTO @转账页面


[@转账页面]
#IF
#ACT
OPENMERCHANTBIGDLG 0 607 1 0 0 0 1 455 20
#SAY
\
< >      <本服提供充值转区服务.即便老区没有发展起来.也可转移到新区!/SCOLOR=103>\
< >      <例如:你当前有100真实充值.那么提交信息后.在新区充值100元./SCOLOR=103>\
< >      <即可把老区的真实充值转到新区.你将获得200元充值额度./SCOLOR=103>\
< > ------------------------------------------------------------------\
< >                       <您的帐号真实充值:/SCOLOR=146>[<$GAMEGOLDEX>]<元/SCOLOR=146>\
< >       <请先输入转区金额.然后输入新区领取帐号..登录新区即可领取./SCOLOR=146>\
< >       <确定转区后本区帐号将被封停无法登录.请认真考虑后进行操作./SCOLOR=146>\
< > ------------------------------------------------------------------\
< >                   <【转区输入转区金额】/@@InPutString15(请输入您需要转区的金额:)> <转区:/SCOLOR=103>[<$STR(N$账号金额)>]<充值/SCOLOR=146>\
< >                   <【本区输入新区帐号】/@@InPutString16(请输入您新区领取的帐号:)> <领取帐号:/SCOLOR=103>[<$STR(S$账号信息)>]\ \


< >                   <【点我老区确定转区】|254#确定后本账号无法登录游戏.尽量一次全部转区/@确定转区> <此处直接点击确定:/SCOLOR=103>\   
< >                   <【此处新区领取点击】|254#此处请在新区领取充值/@领取转区> <此处为新区输入领取:/SCOLOR=103>\




[@领取转区]
#IF
#ACT
OPENMERCHANTBIGDLG 141 286 1 4 0 0 1 400 75
#SAY
\ \ \ \ \ \
<>                        <请输入转区的匹配信息/SCOLOR=146>\ \
<>                <你即将领取的金额:/SCOLOR=103> [<$STR(N$领取金额)>] 输入转区帐号后显示\ \
<>                <你的新区转区帐号:/SCOLOR=103>[<$STR(S$领取信息)>] 输入转区帐号后显示\ \


<>                          <请你输入领取帐号:/@@InPutString17(请正确输入领取转区账号:)> \ \


<>                            <【确认领取】/@确认领取>




[@确定转区]
#IF
CheckContainsText <$SERVERNAME> 测试
#ACT
messagebox 测试区禁止.
BREAK


#IF
EQUAL N$账号金额 0
#ACT
messagebox \请正确输入将要转区的金额！
BREAK


#IF
EQUAL S$账号信息
#ACT
messagebox \请正确输入将要转区的账号！
BREAK


#IF
#ACT
MessageBox 检测到你已填写完转账信息,是否确认转账？ @确定转账 @取消
BREAK


[@确定转账]
#IF
CHECK [65] 1
#ACT
messagebox \抱歉,你已经转过区了！
BREAK


#IF
CheckContainsTextList ..\..\..\..\..\太墟通区\转区助手\等待领取的账号.txt <$STR(S$账号信息)>
#ACT
messagebox \抱歉,该转区账号已被使用！
BREAK


#IF
CHECK [65] 0
#ACT
SET [65] 1
GAMEGOLDEX - <$STR(N$账号金额)>
AddTextListEx ..\..\..\..\..\太墟通区\转区助手\等待领取的账号.txt <$STR(S$账号信息)> 0
AddTextListEx ..\..\..\..\..\太墟通区\转区助手\等待领取的账号.txt <$STR(S$账号信息)>:<$STR(N$账号金额)> 1
MOV S$转区明细 转区区名：<$SERVERNAME>----账号：<$USERID>----名称：<$USERNAME>
AddTextListEx ..\..\..\..\..\太墟通区\转区助手\等待领取的账号.txt <$STR(S$转区明细)> 2
MOV S$转区明细
MOV U36 1
GOTO @main
messagebox \你已成功进行转区,可在新区凭借输入的账号信息领取\　\此帐号永久冻结
KICK
BREAK




[@InPutString15]
#IF
CheckContainsText <$SERVERNAME> 测试
#ACT
messagebox 测试区禁止.
BREAK


#IF
EQUAL S15
#ACT
messagebox \请正确输入将要转区的金额！
BREAK


#IF
SMALL S15 28
#ACT
messagebox \抱歉,最低输入28！
BREAK


#IF
checkGAMEGOLDEX < <$STR(S15)>
#ACT
messagebox \抱歉,无法为你提供服务,请检查你的充值是否正确！
BREAK


#IF
#ACT
MOV N$账号金额 <$STR(S15)>
GOTO @转账页面
BREAK
;=====================================================================================
[@InPutString16]
#IF
CheckContainsText <$SERVERNAME> 测试
#ACT
messagebox 测试区禁止.
BREAK
#IF
EQUAL S16
#ACT
messagebox \请正确输入将要转区的口令！
BREAK


#IF
CheckStringlength <$STR(S16)> < 6
#ACT
messagebox \安全提示,口令不得低于6位数.！
BREAK


#IF
#ACT
MOV S$账号信息 <$STR(S16)>
GOTO @转账页面
BREAK
;=====================================================================================
[@InPutString17]
#IF
CheckContainsText <$SERVERNAME> 测试
#ACT
messagebox 测试区禁止.
BREAK


#IF
NOT CheckContainsTextList ..\..\..\..\..\太墟通区\转区助手\等待领取的账号.txt <$STR(S17)>
#ACT
messagebox \抱歉,该转区账号并没有转区记录！
BREAK


#IF
CheckContainsTextList ..\..\..\..\..\太墟通区\转区助手\等待领取的账号.txt <$STR(S17)>
#ACT
GetStringPos ..\..\..\..\..\太墟通区\转区助手\等待领取的账号.txt <$STR(S17)>
INC N0 1
GetListString ..\..\..\..\..\太墟通区\转区助手\等待领取的账号.txt <$STR(N0)> <$STR(S$领取信息)> <$STR(N$领取金额)>
INC N0 1
GetListString ..\..\..\..\..\太墟通区\转区助手\等待领取的账号.txt <$STR(N0)> <$STR(S$转区明细)>
GOTO @领取转区
BREAK
;=====================================================================================
[@确认领取]
#IF
CheckContainsText <$SERVERNAME> 测试
#ACT
messagebox 测试区禁止.
BREAK


#IF
checkGAMEGOLDEX < <$STR(N$领取金额)>
#ACT
messagebox \抱歉,新区充值要高于或等于老区才能领取！！
BREAK




#OR
EQUAL S$领取信息
EQUAL N$领取金额 0
#ACT
messagebox \请检查填写的信息！
BREAK


#IF
CHECK [66] 1
#ACT
messagebox \无法重复领取！
BREAK


#IF
NOT EQUAL <$USERID> <$STR(S$领取信息)>
#ACT
messagebox \领取账号和转区账号不同,无法领取！
BREAK


#IF
CHECK [66] 0
EQUAL <$USERID> <$STR(S$领取信息)>
#ACT
MOV N$大米数 <$STR(N$领取金额)>
MUL <$STR(N$大米数)> 10
SET [66] 1
GAMEGOLDEX + <$STR(N$领取金额)>
GAMEGLORY + <$STR(N$大米数)>
DelTextList ..\..\..\..\..\太墟通区\转区助手\等待领取的账号.txt <$STR(S17)>
DelTextList ..\..\..\..\..\太墟通区\转区助手\等待领取的账号.txt <$STR(S$领取信息)>:<$STR(N$领取金额)>
DelTextList ..\..\..\..\..\太墟通区\转区助手\等待领取的账号.txt <$STR(S$转区明细)>
AddTextListEx ..\..\..\..\..\太墟通区\转区助手\成功转区的账号.txt <$STR(S$转区明细)>　　领取转区账号:<$STR(S17)>　　金额:<$STR(N$领取金额)>　　领取区服:<$SERVERNAME>　　领取人物:<$USERNAME>
messagebox \恭喜你成功领取转区的充值\　\<$STR(N$领取金额)>充值数量\　\
GOTO @MAIN
BREAK

版权声明

1、本站所有内容均由互联网收集整理、网友上传，仅供大家参考、学习研究使用，不存在任何商业目的与商业用途。

2、论坛的所有内容都不保证其准确性，完整性，有效性，因本站内容因误导等因素而造成的损失本站不承担连带责任。

3、本站以《2013 中华人民共和国计算机软件保护条例》第二章 “软件著作权” 第十七条为原则：为了学习和研究软件内含的设计思想和原理，通过安装、显示、传输或者存储软件等方式使用软件的，可以不经软件著作权人许可，若有用户需要商用本站资源，请务必联系版权方购买正版授权！

下次在来看脚本

很专业的很全面的gm论坛

感谢站长分享传奇脚本，让我学习到很多知识。

谢谢楼主！

喜欢这里的东西，方便又好用！

这个帖子不回对不起自己！

楼主发贴辛苦了，谢谢楼主分享！感谢楼主提供这么好的论坛！

谢谢.脚本收到.很好用

谢谢楼主！