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

[@main]

#IF

#ACT

MOV N$账号金额 0

MOV N$领取金额 0

MOV S$账号信息 未输入

MOV S$领取信息 未输入

GOTO @转账页面

[@转账页面]

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>\

[@领取转区]

OPENMERCHANTBIGDLG 141 286 1 4 0 0 1 400 75

\ \ \ \ \ \

<> <请输入转区的匹配信息/SCOLOR=146>\ \

<> <你即将领取的金额:/SCOLOR=103> [<$STR(N$领取金额)>] 输入转区帐号后显示\ \

<> <你的新区转区帐号:/SCOLOR=103>[<$STR(S$领取信息)>] 输入转区帐号后显示\ \

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

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

[@确定转区]

CheckContainsText <$SERVERNAME> 测试

messagebox 测试区禁止.

BREAK

EQUAL N$账号金额 0

messagebox \请正确输入将要转区的金额！

EQUAL S$账号信息

messagebox \请正确输入将要转区的账号！

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

[@确定转账]

CHECK [65] 1

messagebox \抱歉,你已经转过区了！

CheckContainsTextList ..\..\..\..\..\太墟通区\转区助手\等待领取的账号.txt <$STR(S$账号信息)>

messagebox \抱歉,该转区账号已被使用！

CHECK [65] 0

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

[@InPutString15]

EQUAL S15

SMALL S15 28

messagebox \抱歉,最低输入28！

checkGAMEGOLDEX < <$STR(S15)>

messagebox \抱歉,无法为你提供服务,请检查你的充值是否正确！

MOV N$账号金额 <$STR(S15)>

;=====================================================================================

[@InPutString16]

EQUAL S16

messagebox \请正确输入将要转区的口令！

CheckStringlength <$STR(S16)> < 6

messagebox \安全提示,口令不得低于6位数.！

MOV S$账号信息 <$STR(S16)>

[@InPutString17]

NOT CheckContainsTextList ..\..\..\..\..\太墟通区\转区助手\等待领取的账号.txt <$STR(S17)>

messagebox \抱歉,该转区账号并没有转区记录！

CheckContainsTextList ..\..\..\..\..\太墟通区\转区助手\等待领取的账号.txt <$STR(S17)>

GetStringPos ..\..\..\..\..\太墟通区\转区助手\等待领取的账号.txt <$STR(S17)>

INC N0 1

GetListString ..\..\..\..\..\太墟通区\转区助手\等待领取的账号.txt <$STR(N0)> <$STR(S$领取信息)> <$STR(N$领取金额)>

GetListString ..\..\..\..\..\太墟通区\转区助手\等待领取的账号.txt <$STR(N0)> <$STR(S$转区明细)>

GOTO @领取转区

[@确认领取]

checkGAMEGOLDEX < <$STR(N$领取金额)>

messagebox \抱歉,新区充值要高于或等于老区才能领取！！

#OR

EQUAL S$领取信息

EQUAL N$领取金额 0

messagebox \请检查填写的信息！

CHECK [66] 1

messagebox \无法重复领取！

NOT EQUAL <$USERID> <$STR(S$领取信息)>

messagebox \领取账号和转区账号不同,无法领取！

CHECK [66] 0

EQUAL <$USERID> <$STR(S$领取信息)>

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