GOM引擎自定义转区密码元宝转区脚本「完整版」

[@main]
#IF
#ACT
CloseBigDialogBox
MOV S$转区金额
MOV S$转区数据
MOV S$转区密码
MOV S$显示金额1 <$GAMEGOLD>
MOV S$显示金额2 0
MOV S38
MOV S36
MOV N34 0
GOTO @显示转区
break

[@显示转区]
#if
CHECKTEXTLIST ..\..\..\..\转区充值\帐号记录.txt [<$USERID>]
#act
GetStringPos ..\..\..\..\转区充值\帐号记录.txt [<$USERID>]
INC N0 1
GetListString ..\..\..\..\转区充值\帐号记录.txt <$STR(N0)> S$转区数据
EXTRACTSTRING ; <$STR(S$转区数据)> S$转区密码 S$转区金额 S$转区玩家名 S$来源区 S$转区时间
MOV S$显示金额2 <$STR(S$转区金额)>
#if
#act
SetStringBlank <$STR(S$显示金额1)> 15 1
#SAY
\ \
<                >      <元宝自助转区系统/FCOLOR=253>\ \  
<转区免手续费！/FCOLOR=250><转区免手续费！/FCOLOR=250>\

<请认真填写转区密码建议6-10位字母+数字，复杂些！如遗忘，概不负责/AUTOCOLOR=254,251,168,191,250,70,245,249,253>\
<目标区必须与本区账号相同账号！转完之后立刻领取！合区后概不负责/AUTOCOLOR=254,251,168,191,250,70,245,249,253>\
<当前元宝数量:/FCOLOR=250>{<$STR(S$显示金额1)>/FCOLOR=250}  <可领取转区元宝数量:>{<$STR(S$显示金额2)>/FCOLOR=70}\ \

<请填写需要转区的元宝数量:/@@InPutInteger34> <$STR(N34)>             <确认资料,开始转区/@确认转区>\ \
<请填写转区密码:|250#此密码为自定义数字,作为转区凭证/@@InPutString38(此密码为自定义数字,作为转区凭证)> <$STR(S38)>                        <领取转区元宝/@领取转区>\ \
<新区先建帐号，然后转区，转区尽快领取，合区数据丢失概不负责！/AUTOCOLOR=254,251,168,191,250,70,245,249,253>\  
<新区先建帐号，然后转区，转区尽快领取，合区数据丢失概不负责！/AUTOCOLOR=254,251,168,191,250,70,245,249,253>\  
<新区先建帐号，然后转区，转区尽快领取，合区数据丢失概不负责！/AUTOCOLOR=254,251,168,191,250,70,245,249,253>\  
<新区先建帐号，然后转区，转区尽快领取，合区数据丢失概不负责！/AUTOCOLOR=254,251,168,191,250,70,245,249,253>\  
<新区先建帐号，然后转区，转区尽快领取，合区数据丢失概不负责！/AUTOCOLOR=254,251,168,191,250,70,245,249,253>\  
#IF
#act
OPENMERCHANTBIGDLG 3 402 1 0 1 1 1

[@InPutInteger34]
#if
CheckContainsText <$SERVERNAME> 测试
#act
MESSAGEBOX 当前是测试模式,不能进行元宝转区!
break
#IF
SMALL N34 1
#ACT
MESSAGEBOX 请输入大于1元宝数量!
BREAK
#IF
LARGE N34 100000000
#ACT
MESSAGEBOX 请输入的元宝数量不能大于100000000个!
BREAK
#IF
CHECKGAMEGOLD ? <$STR(N34)>
#ACT
GOTO @显示转区
BREAK
#ELSEACT
MOV N34 0
MESSAGEBOX 你没有这么多元宝!
GOTO @显示转区
BREAK

[@InPutString38]
#if
CheckContainsText <$SERVERNAME> 测试
#act
MESSAGEBOX 当前是测试模式,不能进行元宝转区!
break

#IF
CheckStringlength <$STR(S38)> > 0
#ACT
BREAK
#say
\ \ \
\  <请认真填写转区密码,如密码遗忘导致无法领取,概不负责找回!/FCOLOR=250>\ \
\   <请再次确认转区密码:|250#此密码为自定义数字,作为转区凭证/@@InPutString36(此密码为自定义数字,作为转区凭证)>
#ELSEACT
MOV S38
MESSAGEBOX 输入错误!
GOTO @显示转区
BREAK

[@InPutString36]
#IF
CheckStringlength <$STR(S36)> > 0
#ACT
#ELSEACT
MOV S36
MESSAGEBOX 输入错误!
break
#if
EQUAL S36 <$STR(S38)>
#act
MESSAGEBOX 设置成功,请牢记转区密码:<$STR(S36)>,以免影响提取!
GOTO @显示转区
break
#elseact
MOV S36
MESSAGEBOX 两次密码输入不一致,请重新输入!
break

[@领取转区]
#if
CheckContainsText <$SERVERNAME> 测试
#act
MESSAGEBOX 当前是测试模式,不能提取转区元宝!
break
#if
CHECKTEXTLIST ..\..\..\..\转区充值\帐号记录.txt [<$USERID>]
#act
GetStringPos ..\..\..\..\转区充值\帐号记录.txt [<$USERID>]
INC N0 1
GetListString ..\..\..\..\转区充值\帐号记录.txt <$STR(N0)> S$转区数据
EXTRACTSTRING ; <$STR(S$转区数据)> S$转区密码 S$转区金额 S$转区玩家名 S$来源区 S$转区时间
DEC S$转区密码 转区密码:
DEC S$转区金额 转区金额:
MOV S$显示金额2 <$STR(S$转区金额)>
#ELSEACT
MESSAGEBOX 你并没有转区充值可领取!
BREAK
#if
#act
SetStringBlank <$STR(S$显示金额1)> 15 0
break
#SAY

\ \ \
\  <当前元宝数量:/FCOLOR=250>{<$STR(S$显示金额1)>/FCOLOR=250}<可领取转区元宝数量:>{<$STR(S$显示金额2)>/FCOLOR=70}\ \
\  <请认真填写转区密码,如密码遗忘导致无法领取,概不负责找回!/FCOLOR=250>\ \
\         <输入转区密码:/@@InPutString51(输入转区时设置的密码>\


[@InPutString51]
#if
EQUAL S51 <$STR(S$转区密码)>
#act
MOV N$转区检测 1
GOTO @提取转区
break
#elseact
MESSAGEBOX 密码错误,请重新输入!
break

[@提取转区]
#if
EQUAL N$转区检测 1
#act
#elseact
break
#IF
CHECKTEXTLIST ..\..\..\..\转区充值\帐号记录.txt [<$USERID>]
#ACT
GetStringPos ..\..\..\..\转区充值\帐号记录.txt [<$USERID>]
INC N0 1
GetListString ..\..\..\..\转区充值\帐号记录.txt <$STR(N0)> S$读取转区
EXTRACTSTRING ; <$STR(S$读取转区)> S$转区密码 S$转区金额 S$转区玩家名 S$来源区 S$转区时间
DEC S$转区密码 转区密码:
DEC S$转区金额 转区金额:
MOV N$读取金额 <$STR(S$转区金额)>
#ELSEACT
MOV N$转区检测 0
MESSAGEBOX 你并没有转区充值可领取!
BREAK
#IF
LARGE N$读取金额 0
#ACT
GAMEGOLD + <$STR(N$读取金额)>
DelTextList ..\..\..\..\转区充值\帐号记录.txt [<$USERID>]
DelTextList ..\..\..\..\转区充值\帐号记录.txt <$STR(S$读取转区)>
MOV N$读取金额 0
MOV N$转区检测 0
MOV S$读取转区
MESSAGEBOX 恭喜你成功领取转区元宝!
GOTO @main
BREAK
#ELSEACT
MOV N$转区检测 0
MESSAGEBOX 未知错误,请联系GM!
BREAK

[@确认转区]
#if
CheckContainsText <$SERVERNAME> 测试
#act
MESSAGEBOX 当前是测试模式,不能进行元宝转区!
break
#IF
SMALL N34 1
#ACT
MESSAGEBOX 请先输入转区的元宝数量!
BREAK
#IF
LARGE N34 100000000
#ACT
MESSAGEBOX 请输入的元宝数量不能大于100000000个!
BREAK
#OR
EQUAL S38
EQUAL S36
#ACT
MESSAGEBOX 请设置转区密码!
BREAK
#IF
CHECKGAMEGOLD ? <$STR(N34)>
#ACT
#ELSEACT
MESSAGEBOX 你没有这么多元宝可以转!
BREAK
#IF
NOT CHECKTEXTLIST ..\..\..\..\转区充值\帐号记录.txt [<$USERID>]
#ACT
GAMEGOLD - <$STR(N34)>
MOV N$记录金额 <$STR(N34)>
MUL N$记录金额 100
DIV N$记录金额 100
MOV S$记录转区 转区密码:<$STR(S36)>
INC S$记录转区 ;转区金额:<$STR(N$记录金额)>
INC S$记录转区 ;玩家名称:<$USERNAME>
INC S$记录转区 ;来源区:<$SERVERNAME>
INC S$记录转区 ;提现时间:<$YEAR>年<$MONTH>月<$DAY>日,<$HOUR>:<$MINUTE>:<$SECOND>
AddTextList ..\..\..\..\转区充值\帐号记录.txt [<$USERID>]
GetStringPos ..\..\..\..\转区充值\帐号记录.txt [<$USERID>]
INC N0 1
AddTextListEx ..\..\..\..\转区充值\帐号记录.txt <$STR(S$记录转区)> <$STR(N0)>
MOV N34 0
MOV S38
MOV S36
MESSAGEBOX 元宝转区成功!
SENDMOVEMSG 0 250 0 80 1 【系统】:恭喜玩家[<$USERNAME>]成功将[<$STR(N$记录金额)>]元宝进行转区!!!

GOTO @main
BREAK
#ELSEACT
MESSAGEBOX 当前帐号已有转区记录,请先领取过之后再来申请!
GOTO @main
BREAK

111111111111111111111111111111111111

8888888888888888888888