[@main]
#IF
checkCreditPoint > 499
#ACT
MOV N$转区金额11 <$CreditPoint>
DIV <$STR(N$转区金额)> <$STR(N$转区金额11)> 3
#ELSEACT
MOV N$转区金额 0
#if
#act
MOV S5
MOV S6
OPENMERCHANTBIGDLG 22 1198 1 4 0 -50 0
#say
<ImgEx:5:45:46:47:480:21/@exit>\ \ \ <当前充值积分数量/SCOLOR=250><【/SCOLOR=253><$CreditPoint><】/SCOLOR=253> <可转新区/SCOLOR=250><【/SCOLOR=253><$STR(N$转区金额)><】/SCOLOR=253><元充值/SCOLOR=250> \
\ <………………………………………………………………………/FCOLOR=90>\
\ <拥有500充值积分以上可免费转新区30%！,无需手续费/AUTOCOLOR=58,70,251,250,252,254,241,253>\
;\ <拥有500充值积分以上+620级免费可转新区100%！,请联系客服转区/AUTOCOLOR=58,70,251,250,252,254,241,253>\
\ <提示：新区仅凭【转区充值密令】领取转区充值，请勿设置太简单，丢失无法找回/SCOLOR=242>\
\ <提示：提交转区后扣除此账号充值积分并锁定账号，注意贵重物品请提前转移/SCOLOR=242>\
\ <转区设置说明：/SCOLOR=249><转区充值密令设置为【四位汉字】/SCOLOR=250>\
\ <转区设置说明：/SCOLOR=249><新区凭【转区充值密令】，领取转区充值/SCOLOR=250>\ \
<> <开始设置：/SCOLOR=253><转区充值密令|250#提示：提交转区后此账号扣除充值积分^-^254#系统将踢您下线并锁定该账号/@@InputString30(请设置输入四个汉字：)>\
\ <新区直接--→领取转区充值--→/SCOLOR=254><新区领取充值|250#提示：每个角色只能领取一次^-^254#提示：领取之后【转区充值密令】清空/@@InputString29(请输入转区码四个汉字：)>\
\ <提示：每个账号只能领取一次转区充值，请确认无误再领取，领取后无法修改！！！/SCOLOR=242>\
;\ <………………………………………………………………………/FCOLOR=90>\
\ <提示：提交转区后扣除此账号充值积分，系统将踢您下线并锁定该账号！！！/SCOLOR=242>\
;=====================================================================================================
[@InputString29]
CHECK [70] 1
MessageBox 每个游戏角色只能领取一次！！！
break
CHECKTEXTLIST ..\..\..\..\随性通区\自助转区随性制作QQ137919001\转区充值密令.txt <$STR(S29)>
GetListString ..\..\..\..\随性通区\自助转区随性制作QQ137919001\转区充值密令\<$STR(S29)>.txt0 S$转区领取
MOV N$转区领取 <$STR(S$转区领取)>
MOV N$新区充值 <$CreditPoint>
#elseact
MESSAGEBOX 未查询到转区充值密令，请重新输入！
CheckContainsText <$SERVERNAME> 测试
MessageBox \ \测试区不能领取!!!
not CheckContainsText <$SERVERNAME> 测试
SET [70] 1
CreditPoint + <$STR(N$转区领取)>
MOV N$转区领取1 <$STR(N$转区领取)>
mul <$STR(N$转区领取1)> 100
GameDiamond + <$STR(N$转区领取1)>
MessageBox 领取成功，\ \当前充值积分为：【<$CreditPoint>】\当前金子为：【<$GameDiamond>】
AddTextListEx ..\..\..\..\随性通区\自助转区随性制作QQ137919001\转区充值密令记录.txt <$SERVERNAME> 玩家姓名:<$USERNAME> <$YEAR>年<$MONTH>月<$DAY>日<$HOUR>:<$MINUTE>:<$SECOND> 转区充值密令：【<$STR(S29)>】 领取22
goto @MAIN
DelTextList ..\..\..\..\随性通区\自助转区随性制作QQ137919001\转区充值密令.txt <$STR(S29)>
CLEARNAMELIST ..\..\..\..\随性通区\自助转区随性制作QQ137919001\转区充值密令\<$STR(S29)>.txt
;============================================================================
[@InputString30]
;#if
;CHECKLEVELEX < 620
;#act
;MessageBox 等级不足620，不能进行转区！！！
;break
MessageBox 测试区不能进行转区！！！
CHECKCreditPoint < 500
MessageBox 充值积分低于500，不能进行转区！！！
Equal <$STR(S30)>
MessageBox 输入失败:请正确输入.
NOT Equal T0
MESSAGEBOX 提示:\ \禁止修改转区充值密令！！
CheckContainsText <$STR(S30)> -
MessageBox 输入失败:不能输入此字符.
CheckContainsText <$STR(S30)> \
CheckContainsText <$STR(S30)> /
CHECKTEXTLIST ..\..\..\..\随性通区\自助转区随性制作QQ137919001\转区充值密令.txt <$STR(S30)>
MessageBox 输入失败:此转区充值密令已经被占用.
CheckStringlength <$STR(S30)> = 8
MOV T0 <$STR(S30)>
SET [75] 1
CreditPoint - <$STR(N$转区金额11)>
AddTextListEx ..\..\..\..\随性通区\自助转区随性制作QQ137919001\转区充值密令.txt <$STR(T0)>
AddTextListEx ..\..\..\..\随性通区\自助转区随性制作QQ137919001\转区充值密令\<$STR(T0)>.txt <$STR(N$转区金额)>
AddTextListEx ..\..\..\..\随性通区\自助转区随性制作QQ137919001\转区充值密令记录.txt <$SERVERNAME> 玩家姓名:<$USERNAME> <$YEAR>年<$MONTH>月<$DAY>日<$HOUR>:<$MINUTE>:<$SECOND> 安全码：【<$STR(T0)>:<$STR(N$转区金额)>】 设置11
SET [76] 1
RestRenewLevel
CHANGELEVEL = 1
ChangeModeEx 1 65535
ChangeModeEx 2 65535
ChangeModeEx 10 65535
MESSAGEBOX \ \设置成功，转区充值密令设置为：【<$STR(T0)>】\ \充值积分已扣除，系统将踢您下线！！
Kick
MESSAGEBOX 输入错误，请重新输入！注意：只能输入4个汉字！
BREAK
