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 [399] 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 [399] 0
large <$STR(N$读取转区数据)> 0
CHECKACCOUNTLIST ..\..\..\..\..\自助转区\转区数据\转区帐号.txt
#ACT
SET [399] 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 出错，为了您的账户安全，请联系客服处理！！！