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

\ <提示：提交转区后扣除此账号充值积分并锁定账号，注意贵重物品请提前转移/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