GOM引擎自助转区功能脚本，传奇怎么添加自助转区？
[@main]
#IF
CheckContainsText <$SERVERNAME> 测试
#act
MESSAGEBOX \ \ 对不起，当前为测试区\ 不能自助转区！！
break
#IF
CHECKACCOUNTLIST ..\..\..\..\..\自助转区\转区数据\转区帐号.txt
#ACT
GetListString..\..\..\..\..\自助转区\转区数据\转区领取\<$USERID>.txt 0 N$读取转区数据
#ELSEACT
MOV N$读取转区数据 0
;-----------------这里控制转区金额，可减去平台附增
#IF
CHECKLEVELEX > 0
#ACT
MOV N$账号充值回收 <$GAMEGIRD>
#IF
SMALL N$账号充值回收 0
#ACT
MOV N$账号充值回收 0
#IF
CheckContainsText <$SERVERNAME> 测试
#act
MOV S$开区状态 测试区
#ELSEACT
MOV S$开区状态 正式区
#IF
CHECKLEVELEX > 0
#ACT
OPENMERCHANTBIGDLG 0 882 1 4 0 0 1 478 5
#SAY
\ \ \
<自助转区系统/AUTOCOLOR=168,250,70,253>\ \
< ><开区状态：/SCOLOR=249><$STR(S$开区状态)> <当前可转新区充值：/SCOLOR=249><$STR(N$账号充值回收)> \ \
<> \
< ><友情提示：/SCOLOR=249><申请转区后当前角色将永久禁止登陆.不可逆转请考虑好在进行转区/SCOLOR=254> \ \
< ><转区规则：/SCOLOR=251><新区充值币满100的玩家.在此申请转区.可在任意新区领取10%网银充值！/SCOLOR=250> \ \
< ><转区规则：/SCOLOR=251><新区充值币满100的玩家.在此申请转区.可在任意新区领取10%网银充值！/SCOLOR=250> \ \
< ><转区必看：/SCOLOR=251><该系统24小时可用，申请转区后.进入任意分区可用申请账号领取网银充值！/SCOLOR=250>\ \ \ \ \
< > <转区操作--→验证本区帐号--→/SCOLOR=254><我要自助转区/@要自助转区>\ \ \
< > <新区直接--→领取转区充值--→/SCOLOR=254><新区领取充值|^250#当前角色只可领取一次转区新区充值币/@区领取充值>\
[@区领取充值]
#IF
CHECK 1
#ACT
MESSAGEBOX \ \ 对不起，您已经领取过转区奖励了\ 不能重复领取
break
#IF
NOT CHECKACCOUNTLIST ..\..\..\..\..\自助转区\转区数据\转区帐号.txt
#ACT
MESSAGEBOX \ \ 对不起，您未进行转区\ \ 不能领取充值
break
#IF
CHECKACCOUNTLIST ..\..\..\..\..\自助转区\转区数据\转区帐号.txt
#ACT
GetListString..\..\..\..\..\自助转区\转区数据\转区领取\<$USERID>.txt 0 N$读取转区数据
#ELSEACT
MOV N$读取转区数据 0
#IF
large <$STR(N$读取转区数据)> 0
#ELSEACT
MESSAGEBOX \ \ 对不起，您未进行转区\ \ 不能领取充值！
break
#IF
CHECK 0
large <$STR(N$读取转区数据)> 0
CHECKACCOUNTLIST ..\..\..\..\..\自助转区\转区数据\转区帐号.txt
#ACT
SET 1
GetListString..\..\..\..\..\自助转区\转区数据\转区领取\<$USERID>.txt 0 N$读取转区数据
GAMEDIAMOND + <$STR(N$读取转区数据)>
CLEARNAMELIST ..\..\..\..\..\自助转区\转区数据\转区领取\<$USERID>.txt
DELACCOUNTLIST ..\..\..\..\..\自助转区\转区数据\转区帐号.txt
MESSAGEBOX \ \领取转区充值成功\ \获得<$STR(N$读取转区数据)>元真实充值
SENDMOVEMSG 0 249 0 180 1 恭喜【{%s/FCOLOR=254}】领取转区充值成功,获得<$STR(N$读取转区数据)>元真实充值...
MOV S$领取结算
MOV S$领取区号 <$SERVERNAME>
SetStringBlank S$领取区号 100 1
MOV S$领取账号 领取帐号:<$USERID>
SetStringBlank S$领取账号 100 1
MOV S$领取名字 领取角色:<$USERNAME>
SetStringBlank S$领取名字 100 1
MOV S$领取充值 领取充值:<$STR(N$读取转区数据)>
SetStringBlank S$领取充值 100 1
DEC S$领取区号 30 255
DEC S$领取账号 15 255
DEC S$领取名字 20 255
DEC S$领取充值 20 255
INC S$领取结算 <$STR(S$领取区号)>
INC S$领取结算 <$STR(S$领取名字)>
INC S$领取结算 <$STR(S$领取账号)>
INC S$领取结算 <$STR(S$领取充值)>
AddTextListEx ..\..\..\..\..\自助转区\转区领取记录不删除.txt <$STR(S$领取结算)> 领取时间:<$YEAR>-<$MONTH>-<$DAY>|<$HOUR>:<$MINUTE>:<$SECOND> 领取机器码:<$MACHINEID> 0
GOTO @MAIN
break
[@要自助转区]
#IF
CHECKGAMEGIRD > 99
#ACT
OPENMERCHANTBIGDLG 0 882 1 4 0 0 1 478 5
#SAY
\ \ \
<帐号验证/SCOLOR=251>\ \
< > <验证帐号所属权，不是帐号本人请不要验证，以免带来不必要的麻烦>\
< > <验证帐号所属权，不是帐号本人请不要验证，以免带来不必要的麻烦>\
< > <验证帐号所属权，不是帐号本人请不要验证，以免带来不必要的麻烦>\ \
< > <密保问题1:/@@InPutString41><$STR(S$密保问题1)>\\
< > <密保答案1:/@@InPutString42><$STR(S$密保答案1)>\\
< > <密保问题2:/@@InPutString43><$STR(S$密保问题2)>\\
< > <密保答案2:/@@InPutString44><$STR(S$密保答案2)>\ \\
< > {验证状态 :/SCOLOR=103}<$STR(S$验证结果)>\ \\
< > <输入完毕验证帐号/@毕验证帐号> \
#ELSEACT
MESSAGEBOX \ \对不起，当前区新区充值币大于等于100元才可转区！！！\
break
[@毕验证帐号]
#IF
equal <$QUIZ1> <$STR(S$密保问题1)>
#ELSEACT
MOV S$验证结果 {验证失败/SCOLOR=249}
MESSAGEBOX \ \对不起，你所验证的密保是错误的
GOTO @要自助转区
BREAK
#IF
equal <$ANSWER1> <$STR(S$密保答案1)>
#ELSEACT
MOV S$验证结果 {验证失败/SCOLOR=249}
MESSAGEBOX \ \对不起，你所验证的密保是错误的
GOTO @要自助转区
BREAK
#IF
equal <$QUIZ2> <$STR(S$密保问题2)>
#ELSEACT
MOV S$验证结果 {验证失败/SCOLOR=249}
MESSAGEBOX \ \对不起，你所验证的密保是错误的
GOTO @要自助转区
BREAK
#IF
equal <$ANSWER2> <$STR(S$密保答案2)>
#ELSEACT
MOV S$验证结果 {验证失败/SCOLOR=249}
MESSAGEBOX \ \对不起，你所验证的密保是错误的
GOTO @要自助转区
BREAK
#IF
#ACT
MOV S$验证结果 {验证成功/SCOLOR=250}
GOTO @账号回收
BREAK
[@账号回收]
#IF
equal S$验证结果 {验证成功/SCOLOR=250}
#ACT
MessageBox 账号验证成功！！！\ \是否确认回收账号,回收后将不可登录\ \点击确定后即将跳转到自助充值页面 @确认回收充值账号 @取消
break
[@InPutString41]
#IF
equal S$验证结果 {验证成功/SCOLOR=250}
#ACT
MESSAGEBOX \ \对不起，你已经验证成功了，禁止再次修改\
break
#IF
#ACT
MOV S$密保问题1 <$STR(S41)>
GOTO @要自助转区
BREAK
[@InPutString42]
#IF
equal S$验证结果 {验证成功/SCOLOR=250}
#ACT
MESSAGEBOX \ \对不起，你已经验证成功了，禁止再次修改\
break
#IF
#ACT
MOV S$密保答案1 <$STR(S42)>
GOTO @要自助转区
BREAK
[@InPutString43]
#IF
equal S$验证结果 {验证成功/SCOLOR=250}
#ACT
MESSAGEBOX \ \对不起，你已经验证成功了，禁止再次修改\
break
#IF
#ACT
MOV S$密保问题2 <$STR(S43)>
GOTO @要自助转区
BREAK
[@InPutString44]
#IF
equal S$验证结果 {验证成功/SCOLOR=250}
#ACT
MESSAGEBOX \ \对不起，你已经验证成功了，禁止再次修改\
break
#IF
#ACT
MOV S$密保答案2 <$STR(S44)>
GOTO @要自助转区
BREAK
[@InPutString46]
#IF
CheckStringlength S46 > 10
#ACT
MOV S46
GOTO @确认回收充值账号
MESSAGEBOX \ \对不起，帐号最多10位,且不能是汉字
BREAK
#IF
#ACT
MOV S$充值账号 <$STR(S46)>
GOTO @确认回收充值账号
BREAK
[@确认回收充值账号]
#IF
equal S$验证结果 {验证成功/SCOLOR=250}
#ACT
#ELSEACT
MESSAGEBOX \ \对不起，你所验证的密保是错误的\
break
#IF
#ACT
OPENMERCHANTBIGDLG 0 882 1 4 0 0 1 478 5
#SAY
\ \ \
<新区帐号充值/SCOLOR=251>\ \
<> \
< > <请输入要充值的账号(注意不要输入错误,不然会出现掉单现象)>\
< > <请输入要充值的账号(注意不要输入错误,不然会出现掉单现象)>\
< > <请输入要充值的账号(注意不要输入错误,不然会出现掉单现象)>\\
<> \
<> \
<> \
< > <↓↓↓此处输入新区充值帐号↓↓↓/SCOLOR=253>\ \
< > <游戏账号:/@@InPutString46(输入新区需要充值的账号:)><$STR(S$充值账号)> <『确认转区』|251#充值账号不要出错,不然会出现掉单现象^^250#充值的金额只有当区正式开区后才能领取^/@最后一步账号回收>\ \
< > <↑↑↑此处输入新区充值帐号↑↑↑/SCOLOR=253>\ \
[@最后一步账号回收]
#IF
equal S$充值账号
#ACT
MESSAGEBOX \ \转区的账号您还没输入！！
break
#IF
CHECKGAMEGIRD < 100
#ACT
MESSAGEBOX \ \对不起，当前区新区充值币大于等于100元才可转区！！！\
break
#IF
EQUAL U45 0
equal S$验证结果 {验证成功/SCOLOR=250}
CHECKGAMEGIRD > 99
#ACT
MOV S$成功结算
MOV N$账号充值回收 <$GAMEGIRD>
GAMEGIRD - <$STR(N$账号充值回收)>
MUL N$账号充值回收 10
DIV N$账号充值回收 100
MessageBox \ 新区充值账号:<$STR(S$充值账号)>\ \ 充值金额:<$STR(N$账号充值回收)>元\ \ 充值状态:成功
CreateFile ..\..\..\..\..\自助转区\转区数据\转区领取\<$STR(S$充值账号)>.txt
GetListString..\..\..\..\..\自助转区\转区数据\转区领取\<$STR(S$充值账号)>.txt 0 N$账号充值总额
INC N$账号充值总额 <$STR(N$账号充值回收)>
AddTextList ..\..\..\..\..\自助转区\转区数据\转区帐号.txt <$STR(S$充值账号)>
AddTextListEx ..\..\..\..\..\自助转区\转区数据\转区领取\<$STR(S$充值账号)>.txt <$STR(N$账号充值总额)> 0
MOV S$成功区号 <$SERVERNAME>
SetStringBlank S$成功区号 100 1
MOV S$成功账号 转区帐号:<$USERID>
SetStringBlank S$成功账号 100 1
MOV S$成功名字 转区角色:<$USERNAME>
SetStringBlank S$成功名字 100 1
SetStringBlank S$充值账号 100 1
DEC S$充值账号 15 255
DEC S$成功区号 30 255
DEC S$成功账号 30 255
DEC S$成功名字 30 255
INC S$成功结算 <$STR(S$成功区号)>
INC S$成功结算 <$STR(S$成功名字)>
INC S$成功结算 <$STR(S$成功账号)>
INC S$成功结算 →<$STR(S$充值账号)>
INC S$成功结算 |<$STR(N$账号充值回收)>|
AddTextListEx ..\..\..\..\..\自助转区\账号转区记录不删除.txt <$STR(S$成功结算)> 操作时间:<$YEAR>-<$MONTH>-<$DAY>|<$HOUR>:<$MINUTE>:<$SECOND> 操作机器码:<$MACHINEID> 0
mov U45 5
;KICK
;SENDMSG 7 〖提示〗该帐号已被封停！
break
#ELSEACT
MESSAGEBOX 出错，为了您的账户安全，请联系客服处理！！！
页:
[1]