GOM引擎转区充值脚本「完整版」

[@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>\
\            <………………………………………………………………………/FCOLOR=90>\
\      <提示：提交转区后扣除此账号充值积分并锁定账号，注意贵重物品请提前转移/SCOLOR=242>\
\            <………………………………………………………………………/FCOLOR=90>\
\              <转区设置说明：/SCOLOR=249><转区充值密令设置为【四位汉字】/SCOLOR=250>\
\              <转区设置说明：/SCOLOR=249><新区凭【转区充值密令】，领取转区充值/SCOLOR=250>\ \
<>                           <开始设置：/SCOLOR=253><转区充值密令|250#提示：提交转区后此账号扣除充值积分^-^254#系统将踢您下线并锁定该账号/@@InputString30(请设置输入四个汉字：)>\
\                  <新区直接--→领取转区充值--→/SCOLOR=254>  <新区领取充值|250#提示：每个角色只能领取一次^-^254#提示：领取之后【转区充值密令】清空/@@InputString29(请输入转区码四个汉字：)>\
\            <………………………………………………………………………/FCOLOR=90>\
\      <提示：每个账号只能领取一次转区充值，请确认无误再领取，领取后无法修改！！！/SCOLOR=242>\
;\            <………………………………………………………………………/FCOLOR=90>\
\      <提示：提交转区后扣除此账号充值积分，系统将踢您下线并锁定该账号！！！/SCOLOR=242>\

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

[@InputString29]
#if
CHECK [70] 1
#act
MessageBox 每个游戏角色只能领取一次！！！
break


#IF
CHECKTEXTLIST ..\..\..\..\随性通区\自助转区随性制作QQ137919001\转区充值密令.txt <$STR(S29)>
#ACT
GetListString ..\..\..\..\随性通区\自助转区随性制作QQ137919001\转区充值密令\<$STR(S29)>.txt  0 S$转区领取
MOV N$转区领取 <$STR(S$转区领取)>
MOV N$新区充值 <$CreditPoint>
#elseact
MESSAGEBOX 未查询到转区充值密令，请重新输入！
break


#if
CheckContainsText <$SERVERNAME> 测试
#act
MessageBox \　\测试区不能领取!!!
break


#IF
not CheckContainsText <$SERVERNAME> 测试
#ACT
SET [70] 1
CreditPoint    + <$STR(N$转区领取)>
MOV N$转区领取1 <$STR(N$转区领取)>  
mul <$STR(N$转区领取1)> 100   
GameDiamond    + <$STR(N$转区领取1)>
MessageBox 领取成功，\　\当前充值积分为：【<$CreditPoint>】\当前金子为：【<$GameDiamond>】
SENDMSG 1 恭喜：玩家【{%s|215:0}】使用本服自助充值系统获得<$STR(N$转区领取)>充值积分
SENDMSG 1 恭喜：玩家【{%s|215:0}】使用本服自助充值系统获得<$STR(N$转区领取1)>金子
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
break

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

[@InputString30]
;#if
;CHECKLEVELEX < 620
;#act
;MessageBox 等级不足620，不能进行转区！！！
;break


#if
CheckContainsText <$SERVERNAME> 测试
#act
MessageBox 测试区不能进行转区！！！
break


#if
CHECKCreditPoint < 500
#act
MessageBox 充值积分低于500，不能进行转区！！！
break


#IF
Equal <$STR(S30)>
#ACT
MessageBox 输入失败:请正确输入.
break


#IF
NOT Equal T0
#ACT
MESSAGEBOX 提示:\　\禁止修改转区充值密令！！
break


#if
CheckContainsText <$STR(S30)> -
#ACT
MessageBox 输入失败:不能输入此字符.
break
#if
CheckContainsText <$STR(S30)> \
#ACT
MessageBox 输入失败:不能输入此字符.
break
#if
CheckContainsText <$STR(S30)> /
#ACT
MessageBox 输入失败:不能输入此字符.
break
#if
CheckContainsText <$STR(S30)> {
#ACT
MessageBox 输入失败:不能输入此字符.
break
#if
CheckContainsText <$STR(S30)> }
#ACT
MessageBox 输入失败:不能输入此字符.
break

#IF
CHECKTEXTLIST ..\..\..\..\随性通区\自助转区随性制作QQ137919001\转区充值密令.txt <$STR(S30)>
#ACT
MessageBox 输入失败:此转区充值密令已经被占用.
break

#IF
CheckStringlength <$STR(S30)> = 8
#ACT
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
#ELSEACT
MESSAGEBOX 输入错误，请重新输入！注意：只能输入4个汉字！
BREAK