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

[@main]

#IF

#ACT

CloseBigDialogBox

MOV S$转区金币

MOV S$转区数据

MOV S$转区密码

MOV S$显示金额1 <$goldcount>

MOV S$显示金额2 0

MOV S38

MOV S44

MOV N14 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$转区金币)>

SetStringBlank <$STR(S$显示金额1)> 18 1

#SAY

\<转区只需扣除10%的手续费，例：转100扣除10金币，转300扣除30金币！/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=253><请填写需要转区的金额:/@@InPutInteger14> <$STR(N14)> <③/FCOLOR=253><确认资料,开始转区/@确认转区>\ \

\<②/FCOLOR=253><请填写转区密码:|250#此密码为自定义数字,作为转区凭证/@@InPutString38(此密码为自定义数字,作为转区凭证)> <领取转区/@领取转区>\ \

\ \ \

\

[@InPutInteger14]

CheckContainsText <$SERVERNAME> 测试

MESSAGEBOX 当前是测试模式,不能进行金币转区!

SMALL N14 300

MESSAGEBOX 请输入大于300的金币!

BREAK

LARGE N14 100000

MESSAGEBOX 请输入不大于100000的金币!

checkgold <$STR(N14)>

#ELSEACT

MESSAGEBOX 你没有这么多金币!

[@InPutString38]

CheckStringlength <$STR(S38)> > 0

#say

\<请再次确认转区密码:|250#此密码为自定义数字,作为转区凭证/@@InPutString44(此密码为自定义数字,作为转区凭证)>

MESSAGEBOX 输入错误!

[@InPutString44]

CheckStringlength <$STR(S44)> > 0

EQUAL S44 <$STR(S38)>

MESSAGEBOX 设置成功,请牢记转区密码:<$STR(S44)>,以免影响提取!

#elseact

MESSAGEBOX 两次密码输入不一致,请重新输入!

[@领取转区]

MESSAGEBOX 当前是测试模式,不能提取转区金币!

DEC S$转区密码 转区密码:

DEC S$转区金币 转区金币:

MESSAGEBOX 你并没有转区充值可领取!

SetStringBlank <$STR(S$显示金额1)> 18 0

\ \ \

\ <输入转区密码:/@@InPutString50(输入转区时设置的密码:)>\

[@InPutString50]

EQUAL S50 <$STR(S$转区密码)>

MOV N$转区检测 1

GOTO @提取转区

MESSAGEBOX 密码错误,请重新输入!

[@提取转区]

EQUAL N$转区检测 1

GetListString ..\..\..\..\金币转区\转区数据.txt <$STR(N0)> S$读取转区

EXTRACTSTRING ; <$STR(S$读取转区)> S$转区密码 S$转区金币 S$转区玩家名 S$来源区 S$转区时间

MOV N$读取金额 <$STR(S$转区金币)>

MOV N$转区检测 0

LARGE N$读取金额 0

give 金币<$STR(N$读取金额)>

DelTextList ..\..\..\..\金币转区\转区数据.txt [<$USERID>]

DelTextList ..\..\..\..\金币转区\转区数据.txt <$STR(S$读取转区)>

MOV N$读取金额 0

MOV S$读取转区

MESSAGEBOX 恭喜你成功领取转区金币!

GOTO @main

MESSAGEBOX 未知错误,请联系GM!

[@确认转区]

MESSAGEBOX 请输入不大于100000的金额!

#OR

EQUAL S38

EQUAL S44

MESSAGEBOX 请设置转区密码!

MESSAGEBOX 你没有这么多金币可以转!

NOT CHECKTEXTLIST ..\..\..\..\金币转区\转区数据.txt [<$USERID>]

Take 金币<$STR(N14)>

MOV N$记录金额 <$STR(N14)>

MUL N$记录金额 90

DIV N$记录金额 100

MOV S$记录转区 转区密码:<$STR(S44)>

INC S$记录转区 ;转区金币:<$STR(N$记录金额)>

INC S$记录转区 ;玩家名称:<$USERNAME>

INC S$记录转区 ;来源区:<$SERVERNAME>

INC S$记录转区 ;提现时间:<$YEAR>年<$MONTH>月<$DAY>日,<$HOUR>:<$MINUTE>:<$SECOND>

AddTextList ..\..\..\..\金币转区\转区数据.txt [<$USERID>]

AddTextListEx ..\..\..\..\金币转区\转区数据.txt <$STR(S$记录转区)> <$STR(N0)>

MESSAGEBOX 金币转区成功!

MESSAGEBOX 当前帐号已有转区记录,请先领取过之后再来申请!