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 当前帐号已有转区记录,请先领取过之后再来申请!
