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 1
#ACT
messagebox \抱歉,你已经转过区了！
BREAK
#IF
CheckContainsTextList ..\..\..\..\..\太墟通区\转区助手\等待领取的账号.txt <$STR(S$账号信息)>
#ACT
messagebox \抱歉,该转区账号已被使用！
BREAK
#IF
CHECK 0
#ACT
SET 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 1
#ACT
messagebox \无法重复领取！
BREAK
#IF
NOT EQUAL <$USERID> <$STR(S$领取信息)>
#ACT
messagebox \领取账号和转区账号不同,无法领取！
BREAK
#IF
CHECK 0
EQUAL <$USERID> <$STR(S$领取信息)>
#ACT
MOV N$大米数 <$STR(N$领取金额)>
MUL <$STR(N$大米数)> 10
SET 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 下次在来看脚本 很专业的很全面的gm论坛 感谢站长分享传奇脚本，让我学习到很多知识。 谢谢楼主！ 喜欢这里的东西，方便又好用！ 这个帖子不回对不起自己！ 楼主发贴辛苦了，谢谢楼主分享！感谢楼主提供这么好的论坛！ 谢谢.脚本收到.很好用 谢谢楼主！