GOM非常简单的提现脚本

[@main]

#if
#ACT
MOV N99 0
MOV N$提现金额 0

#if
#act
goto @查询提现记录

[@查询提现记录]
#IF
EQUAL N$提现记录行数1-1 0
#ACT
Mov N$提现记录行数1-1 0
Mov N$提现记录行数1-2 1
Mov N$提现记录行数1-3 2
Mov N$提现记录行数1-4 3
Mov N$提现记录行数1-5 4
Mov N$提现记录行数1-6 5
Mov N$提现记录行数1-7 6

#IF
#ACT
Mov S$提现记录行数1-1 No.<$str(N$提现记录行数1-1)>
Mov S$提现记录行数1-2 No.<$str(N$提现记录行数1-2)>
Mov S$提现记录行数1-3 No.<$str(N$提现记录行数1-3)>
Mov S$提现记录行数1-4 No.<$str(N$提现记录行数1-4)>
Mov S$提现记录行数1-5 No.<$str(N$提现记录行数1-5)>
Mov S$提现记录行数1-6 No.<$str(N$提现记录行数1-6)>
Mov S$提现记录行数1-7 No.<$str(N$提现记录行数1-7)>

GetListString ..\..\..\..\提现记录\提现记录表.txt <$str(N$提现记录行数1-1)> <$str(S$提现数据显示1)>
GetListString ..\..\..\..\提现记录\提现记录表.txt <$str(N$提现记录行数1-2)> <$str(S$提现数据显示2)>
GetListString ..\..\..\..\提现记录\提现记录表.txt <$str(N$提现记录行数1-3)> <$str(S$提现数据显示3)>
GetListString ..\..\..\..\提现记录\提现记录表.txt <$str(N$提现记录行数1-4)> <$str(S$提现数据显示4)>
GetListString ..\..\..\..\提现记录\提现记录表.txt <$str(N$提现记录行数1-5)> <$str(S$提现数据显示5)>
GetListString ..\..\..\..\提现记录\提现记录表.txt <$str(N$提现记录行数1-6)> <$str(S$提现数据显示6)>
GetListString ..\..\..\..\提现记录\提现记录表.txt <$str(N$提现记录行数1-7)> <$str(S$提现数据显示7)>

#If
#ACT
OPENMERCHANTBIGDLG 7 1176 1 4  60 -160 1 620 0
#say
<> \ \ \ 
<>       {<$STR(S$提现记录行数1-1)>/FCOLOR=253}  <$str(S$提现数据显示1)> \ \
<>       {<$STR(S$提现记录行数1-2)>/FCOLOR=253}  <$str(S$提现数据显示2)>\ \
<>       {<$STR(S$提现记录行数1-3)>/FCOLOR=253}  <$str(S$提现数据显示3)>\ \
<>       {<$STR(S$提现记录行数1-4)>/FCOLOR=253}  <$str(S$提现数据显示4)>\ \
<>       {<$STR(S$提现记录行数1-5)>/FCOLOR=253}  <$str(S$提现数据显示5)>\ \
<>       {<$STR(S$提现记录行数1-6)>/FCOLOR=253}  <$str(S$提现数据显示6)>\ \
<>       {<$STR(S$提现记录行数1-7)>/FCOLOR=253}  <$str(S$提现数据显示7)>\ \
<>         <上一页/@已出款_上一页>     <下一页/@已出款_下一页>\
<>         每单笔提现最低<6000点(100元)/FCOLOR=249>起.收取10%手续费！\
<>         目前仅支持支付宝方式,且需要认真填写提现信息“@”请用“_号代替”(尽量填写手机号.)\
<>         <当前可提现Rmb点:/FCOLOR=250><[<$GAMEPOINT>]/FCOLOR=228> <提现比例：1:60/FCOLOR=249>\
<>         <设置您的支付宝帐号/@@InPutString22(请输入您的支付宝帐号,@以#号代替)>:  <$STR(T49)>\ 
<>         <设置您的支付宝姓名/@@InPutString23>:  <$STR(T2)>   <IMGEX:7:1170:1171:1172:200:-20|250#特别说明:^251#提现Rmb点将会收取10%手续费/@@inputinteger99>\ 
<>         <设置您的联系方式/@@InPutString24>　:  <$STR(T4)>\ 

[@InPutInteger99]

#IF
CheckContainsText <$SERVERNAME> 测试
#ACT
messagebox [提示]测试区无法提现..
BREAK

#if
SMALL N99 6000
#act
MESSAGEBOX [错误]:最低提现6000点数!
break
#if
EQUAL T49
#ACT
MESSAGEBOX [错误]:支付宝帐号不能为空!
break
#if
EQUAL T2
#ACT
MESSAGEBOX [错误]:支付宝姓名不能为空!
break
#if
EQUAL T4
#ACT
MESSAGEBOX [错误]:联系方式不能为空!
break

;货币类型自己修改

#If
NOT CHECKGAMEPOINT < <$STR(N99)>
;CHECKGOLD <$STR(N99)>
#ACT
GAMEPOINT - <$STR(N99)>
;TAKE 金币 <$STR(N99)>

MUL N99 90
div N99 100

MOV <$STR(N$提现金额)> <$STR(N99)>
;---这里是除以三，3货币=1元
DIV <$STR(N$提现金额)> 60

;时间|分区名称|角色名称|玩家帐号|金额|支付宝帐号|支付宝姓名|联系QQ|备注
;<$DATETIME>|<$SERVERNAME>|<$USERNAME>|<$USERID>|提现金额|支付宝帐号|支付宝姓名|联系QQ|备注

;*********************重点在下面两行*********************第一条是提交的数据写入文本格式,提交后,会清空!
mov S$提现状态 <审核中/FCOLOR=250>
mov S$实际金额 <$STR(N$提现金额)>元
mov S$提现名称 <$USERNAME>
mov S$提现时间 <$MONTH>月<$DAY>日<$HOUR>点<$MINUTE>分<$SECOND>秒
mov S$提现区号 <$SERVERNAME>

SetStringBlank <$str(S$提现区号)> 20 1
SetStringBlank <$str(S$提现时间)> 25 1
SetStringBlank <$str(S$实际金额)> 10 1
SetStringBlank <$str(S$提现名称)> 17 1
mov S$提现记录1 <$str(S$提现区号)><$str(S$提现名称)><$str(S$实际金额)><$str(S$提现时间)><$str(S$提现状态)>
MOV N$已兑换折合人民币 <$STR(U46)>
div N$已兑换折合人民币 50
AddTextListEx ..\..\..\..\提现记录\提现记录表.txt <$str(S$提现记录1)>
AddTextList ..\..\..\..\提现记录\自动提交.txt <$DATETIME>|<$SERVERNAME>|<$USERNAME>|<$USERID>|<$STR(N$提现金额)>|<$STR(T49)>|<$STR(T2)>|<$STR(T4)>|<$STR(N99)>RMB|充值元宝:<$STR(u39)>元|充值人民币:<$STR(u49)>元|兑换人民币:<$STR(N$已兑换折合人民币)>元
AddTextList ..\..\..\..\提现记录\提现数据_备份.txt <$DATETIME>|<$SERVERNAME>|<$USERNAME>|<$USERID>|<$STR(N$提现金额)>|<$STR(T49)>|<$STR(T2)>|<$STR(T4)>|<$STR(N99)>RMB|充值元宝:<$STR(u39)>元|充值人民币:<$STR(u49)>元|兑换人民币:<$STR(N$已兑换折合人民币)>元
;*********************重点在上面两行*********************第二条是备份用的,如服务器网络中断没有发送成功,方便你自己查询记录用!因为上面那条会清空

MESSAGEBOX 恭喜您成功提现<$STR(N$提现金额)>元
MOV N99 0
MOV N$提现金额 0
goto @main
#ELSEACT
MESSAGEBOX [错误]:您当前的RMB点不足!
break

    
[@InPutString22]
#act
MOV T49 <$STR(S22)>
GOTO @MAIN

[@InPutString23]
#act
MOV T2 <$STR(S23)>
GOTO @MAIN

[@InPutString24]
#act
MOV T4 <$STR(S24)>
GOTO @MAIN

[@已出款_上一页]
#IF
LARGE N$提现记录行数1-1 1
#ACT

DEC N$提现记录行数1-1 7
DEC N$提现记录行数1-2 7
DEC N$提现记录行数1-3 7
DEC N$提现记录行数1-4 7
DEC N$提现记录行数1-5 7
DEC N$提现记录行数1-6 7
DEC N$提现记录行数1-7 7
goto @查询提现记录
BREAk

#elseact
messagebox 已经是第1页了!
BREAk

[@已出款_下一页]
#if
#act
INC N$提现记录行数1-1 7
INC N$提现记录行数1-2 7
INC N$提现记录行数1-3 7
INC N$提现记录行数1-4 7
INC N$提现记录行数1-5 7
INC N$提现记录行数1-6 7
INC N$提现记录行数1-7 7

goto @查询提现记录
BREAk