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

[@main]
#if
CheckContainsText <$SERVERNAME> 测
#act
MESSAGEBOX 测试区暂不开放！
close
break

#if
#act
Mov S$转区的金额 <$Str(N$转区的金额)>
#SAY
\ \ \


<><本服太荒币可以自助转区，收取30%手续费！/SCOLOR=150>   <您当前拥有：/SCOLOR=250><$gamepoint><太荒币/SCOLOR=250>\  \
<><输入您要转账的太荒币，然后点击/SCOLOR=242><【确定太荒币转区】/SCOLOR=254><按钮，系统会提示您：/SCOLOR=242>\  
<><转区成功！/SCOLOR=242><系统会随机生成一个6位密令/SCOLOR=254>。<凭借密令可以到任意区进行提取！/SCOLOR=250>\  
<>         [<查询最后一次密令/@查询转>]      [<复制我的密令/@复制文件(<$STR(T23)>)>]\
<><-----------------------------------------------------------/SCOLOR=7>\
<><输入转区金额/@@inputinteger17(请输入转区的金额:)>　{<$Str(S$转区的金额)>/SCOLOR=7}太荒币  <确定转区/@确定转区>  <输入密令领取转区货币/@@inputstring10>\
<><-----------------------------------------------------------/SCOLOR=7>\
<><注意:请不要同时用多个账号，或多次，向同一个账号转入太荒币，/SCOLOR=249>\
<><会导致金额被覆盖，如需多次请领取后再进行！！！/SCOLOR=249>\


[@复制文件]
#if
EQUAL T23
#act
MESSAGEBOX 您最近没有转过区！
BREAK


#IF
#ACT
SETCLIPBOARDTEXT <$STR(T23)>
Messagebox 复制兑换码：<$STR(T23)>，到剪粘版中成功！
#ELSEACT
MESSAGEBOX 没有兑换密码，不能复制！
break


[@查询转]
#if
EQUAL T23
#act
MESSAGEBOX 您最近没有转过区！
BREAK

#if
#act
MESSAGEBOX 您的最后一次转区码为【<$STR(T23)>】


[@inputstring10]
#if
EQUAL S10
#act
MESSAGEBOX 密令内容不能为空！！！！
BREAK


#IF
Checktextlist ..\..\..\..\转区使者文件\02太荒币转区\转区账号.txt <$STR(S10)>
#Act
GetStringPos  ..\..\..\..\转区使者文件\02太荒币转区\转区账号.txt <$STR(S10)>
GetListString ..\..\..\..\转区使者文件\02太荒币转区\转区金额.txt <$STR(N0)> S$转区领取账号0 S$转区领取金额0
;SENDMSG 6 ====<$STR(S28)>:<$Str(S$转区领取账号0)>:<$Str(S$转区领取金额0)>
#ELSEAct
Messagebox 密令错误,[错误3次以上]，直接封机器以及IP！！！！
Break


#IF
Checktextlist ..\..\..\..\转区使者文件\02太荒币转区\转区金额.txt <$STR(S10)>:<$Str(S$转区领取金额0)>
#ACT
gamepoint + <$Str(S$转区领取金额0)>
INC U185 <$Str(S$转区领取金额0)>
INC G185 <$Str(S$转区领取金额0)>
MESSAGEBOX 成功领取了转区金额<$Str(S$转区领取金额0)>!!!!
addtextlistEX ..\..\..\..\转区使者文件\02太荒币转区\02领取日志.txt 领取转区[<$USERID>-<$USERNAME>-充值：<$gamepoint>][机器码<$MACHINEID>]　区：<$SERVERNAME>　领取密令【<$STR(S10)>】　【本次金额：<$Str(S$转区领取金额0)>_背包<$gamepoint>/个人共领：<$Str(U185)>/本区共领：<$Str(G185)>】　<$DATETIME>  0
DelTextList ..\..\..\..\转区使者文件\02太荒币转区\转区金额.txt <$STR(S10)>:<$Str(S$转区领取金额0)>
DelTextList ..\..\..\..\转区使者文件\02太荒币转区\转区账号.txt <$STR(S10)>
SENDMSG 1  ★:玩家『<$username>』通过转区，领取了[<$Str(S$转区领取金额0)>]太荒币。。。
CloseBigDialogBox
Close
Break

[@确定转区]
#or
Equal S$转区的金额
#Act
Messagebox [转区失败]：\　\请先填写完整的转区信息！
Break


#OR
Large <$Str(N$转区的金额)> 100000
Equal <$Str(N$转区的金额)> 0
#Act
Messagebox [转区失败]：\　\请输入正确的转区金额！
Break


#IF
Small <$Str(N$转区的金额)> 100
#Act
Messagebox [转区失败]：\　\至少转区"100"太荒币！
Break


#IF
Checkgamepoint < <$Str(N$转区的金额)>
#Act
Messagebox [转区失败]：\　\你没有足够的太荒币！
Break


#if
#act
MOVR N$转区验证码 100000 999999
MOV S$转区验证码 <$STR(N$转区验证码)>


#if
Checktextlist ..\..\..\..\转区使者文件\02太荒币转区\转区账号.txt <$str(S$转区验证码)>
#act
MESSAGEBOX 转区异常,请重新点击转区!
break


#IF
not Checktextlist ..\..\..\..\转区使者文件\02太荒币转区\转区账号.txt <$str(S$转区验证码)>
#Act
MOV T23 <$str(S$转区验证码)>
gamepoint - <$Str(N$转区的金额)>


Mov N$实际金额 <$Str(N$转区的金额)>
Mul N$实际金额 70
Div N$实际金额 100
INC U184 <$Str(N$实际金额)>
INC G184 <$Str(N$实际金额)>
addtextlistEx ..\..\..\..\转区使者文件\02太荒币转区\01转区日志.txt 转区信息[<$USERID>-<$USERNAME>-充值：<$gamepoint>][机器码<$MACHINEID>]　区：<$SERVERNAME>　转区码：【<$str(S$转区验证码)>】　【本次金额：<$Str(N$实际金额)>_背包<$gamepoint>/个人共转：<$Str(U184)>/本区共转：<$Str(G184)>】　<$DATETIME> 0
AddTextListEx ..\..\..\..\转区使者文件\02太荒币转区\转区账号.txt <$str(S$转区验证码)> 0
AddTextListEx ..\..\..\..\转区使者文件\02太荒币转区\转区金额.txt <$str(S$转区验证码)>:<$Str(N$实际金额)> 0
Mov N$转区的金额 0
Mov S$新区的账号
Messagebox [转区成功]：\　\转区密令【<$str(S$转区验证码)>】\　\扣除30%手续费后实际领取金额<$Str(N$实际金额)>！！
Goto @main_自助转区
#Elseact
Messagebox [转区失败]：\　\转区已有账号请领取后再次转区！！
Break


[@inputstring12]
#Act
Mov S$新区的账号 <$Str(s12)>
Goto @main_自助转区


[@inputinteger17]
#OR
Large N17 200000
Equal N17 0
#Act
Messagebox [转区失败]：\　\请输入正确的转区金额！
Break


#IF
Small N17 100
#Act
Messagebox [转区失败]：\　\至少转区“100”太荒币！
Break


#IF
Checkgamepoint < <$Str(N17)>
#Act
Messagebox [转区失败]：\　\你没有足够的太荒币！
#Elseact
Mov N$转区的金额 <$Str(N17)>
Goto @main_自助转区
Goto @main