元宝兑换人民币(RMB)脚本展示
时间:2011-05-05 01:05来源: 作者: 点击:
次
(@@InPutInteger@@InPutString)[@main];需增加每日机器人定时清理“元宝兑现.txt”里面的名单;以及清空“G100”变量值为0(G100统计每日的申请数量,不清空也没关系);“MOVN48
(@@InPutInteger @@InPutString)
[@main]
;需增加每日机器人定时清理“元宝兑现.txt”里面的名单;以及清空“G100”变量值为 0 (G100统计每日的申请数量,不清空也没关系)
;“MOV N48 1500”表示元宝兑换比例为 1500元宝=1RMB或者1Q币。请自行修改该比例。其它代码基本不用修改了
;变量列表
;A100 开关
;G100 今日申请数量
;G101 全部申请数量
;N48 兑换比例
;N47
;S60
;S61
;S62
;N63
;N64
;N65
;N66
;S70
;S71
;S72
;N73
;N74
;N75
;N76
;S30
;S31
;S32
;N33
;N34
;N35
;N36
;S40
;S41
;S42
;N43
;N44
;N45
;N46
;S50
;S51
;N53
;N54
;N55
;N56
;S17
#IF
ISADMIN
#SAY
<服务状态/@开关>:<$STR(A100)>
今日申请数量:<$STR(G100)>
全部申请数量:<$STR(G101)>
#ACT
break
#IF
equal A100 关闭
#ACT
close
MESSAGEBOX 元宝兑现服务暂时关闭!
break
#IF
CHECKNAMELIST ..QuestDiary数据文件每日数据元宝兑现.txt
#SAY
你今日已经提交过元宝兑现申请!
如果你还想继续兑现!请明日再来!
<关闭/@exit>
#ELSEACT
;元宝兑换比例N48变量:1RMB=?
MOV N48 1500
MOV N65 <$GAMEGOLD>
MOV N66 N65
MOV N75 <$GAMEGOLD>
MOV N76 N75
MOV N35 <$GAMEGOLD>
MOV N36 N35
MOV N45 <$GAMEGOLD>
MOV N46 N45
MOV N55 <$GAMEGOLD>
MOV N56 N55
;清空变量
MOV N63 0
MOV N64 0
MOV N47 0
#ELSESAY
我们接受任何人的元宝兑换RMB申请,
最低兑换额为<$STR(N48)>元宝。
<兑换人民币/@兑换人民币> <兑换QQ币/@兑换Q币>
<关闭/@exit>
[@开关]
#IF
equal A100 关闭
#ACT
mov A100 开启
GOTO @MAIN
BREAK
#ELSEACT
mov A100 关闭
GOTO @MAIN
BREAK
[@兑换人民币]
兑换须知:
1、<$STR(N48)>元宝兑换1元RMB
2、你必须持有工行、建行、支付宝、财付通中的任意一个帐号
<申请兑换人民币/@兑换RMB>
<返回/@main>
[@兑换Q币]
兑换须知:
1、<$STR(N48)>元宝兑换1个Q币
2、你必须持有QQ号
<申请兑换Q币/@QQ币>
<返回/@main>
[@兑换RMB]
请选择你的收款银行:
<工行/@工行> <建行/@建行>
<支付宝/@支付宝>
<财付通/@财付通>
<返回/@main>
;==================================================工行开始
[@工行]
#IF
#ACT
MOV S60 工商银行
DelayGoto 1 @工行-2
break
[@工行-2]
#IF
SMALL N65 N48
#ACT
MESSAGEBOX 元宝数量不足兑换最低金额!
close
break
#ELSESAY
工行卡号:<$STR(S61)> <输入卡号/@@InPutString11>
收款人:<$STR(S62)> <输入收款人/@@InPutString12>
兑换金额:<$STR(N63)>元 <选择兑换金额/@兑换金额G>
所需元宝:<$STR(N64)>个 预计兑换后余额:<$STR(N66)>
<提交兑换申请/@提交申请G> <返回重新选择银行/@兑换RMB>
[@InPutString11]
#If
CheckStringlength <$STR(S61)> = 19
#ACT
GOTO @工行
break
#ELSEACT
MOV S61 请重新输入!
MESSAGEBOX <$STR(S60)>卡号输入错误! 正确的<$STR(S60)>卡号应为19位!请仔细核对!
GOTO @工行
break
[@InPutString12]
#If
CheckStringlength <$STR(S62)> < 9
CheckStringlength <$STR(S62)> > 3
#ACT
GOTO @工行
break
#ELSEACT
MOV S62 请重新输入!
MESSAGEBOX 收款人输入错误! 收款人姓名最多4个汉字!
GOTO @工行
break
[@兑换金额G]
兑换金额:<$STR(N63)>元 <清空/@清空G>
所需元宝:<$STR(N64)>个 预计兑换后余额:<$STR(N66)>
<选好返回/@工行>
=========================================
<1元RMB/@1YG> <5元RMB/@5YG> <10元RMB/@10YG>
<20元RMB/@20YG> <50元RMB/@50YG> <100元RMB/@100YG>
<选好返回/@工行>
[@清空G]
#IF
#ACT
MOV N63 0
MOV N64 0
MOV N66 N65
goto @兑换金额G
break
[@1YG]
#IF
#ACT
MUL N47 N48 1
DEC N47 1
DelayGoto 1 @1YG-2
[@1YG-2]
#IF
LARGE N66 N47
#ACT
INC N47 1
DEC N66 N47
INC N64 N47
INC N63 1
MOV N47 0
GOTO @兑换金额G
break
#ELSEACT
MESSAGEBOX 没那么多元宝兑换该面值! 请尝试选择其它面额!
GOTO @兑换金额G
break
[@5YG]
#IF
#ACT
MUL N47 N48 5
DEC N47 1
DelayGoto 1 @5YG-2
[@5YG-2]
#IF
LARGE N66 N47
#ACT
INC N47 1
DEC N66 N47
INC N64 N47
INC N63 5
MOV N47 0
GOTO @兑换金额G
break
#ELSEACT
MESSAGEBOX 没那么多元宝兑换该面值! 请尝试选择其它面额!
GOTO @兑换金额G
break
[@10YG]
#IF
#ACT
MUL N47 N48 10
DEC N47 1
DelayGoto 1 @10YG-2
[@10YG-2]
#IF
LARGE N66 N47
#ACT
INC N47 1
DEC N66 N47
INC N64 N47
INC N63 10
MOV N47 0
GOTO @兑换金额G
break
#ELSEACT
MESSAGEBOX 没那么多元宝兑换该面值! 请尝试选择其它面额!
GOTO @兑换金额G
break
[@20YG]
#IF
#ACT
MUL N47 N48 20
DEC N47 1
DelayGoto 1 @20YG-2
[@20YG-2]
#IF
LARGE N66 N47
#ACT
INC N47 1
DEC N66 N47
INC N64 N47
INC N63 20
MOV N47 0
GOTO @兑换金额G
break
#ELSEACT
MESSAGEBOX 没那么多元宝兑换该面值! 请尝试选择其它面额!
GOTO @兑换金额G
break
[@50YG]
#IF
#ACT
MUL N47 N48 50
DEC N47 1
DelayGoto 1 @50YG-2
[@50YG-2]
#IF
LARGE N66 N47
#ACT
INC N47 1
DEC N66 N47
INC N64 N47
INC N63 50
MOV N47 0
GOTO @兑换金额G
break
#ELSEACT
MESSAGEBOX 没那么多元宝兑换该面值! 请尝试选择其它面额!
GOTO @兑换金额G
break
[@100YG]
#IF
#ACT
MUL N47 N48 100
DEC N47 1
DelayGoto 1 @100YG-2
[@100YG-2]
#IF
LARGE N66 N47
#ACT
INC N47 1
DEC N66 N47
INC N64 N47
INC N63 100
MOV N47 0
GOTO @兑换金额G
break
#ELSEACT
MESSAGEBOX 没那么多元宝兑换该面值! 请尝试选择其它面额!
GOTO @兑换金额G
break
[@提交申请G]
#IF
CheckStringlength <$STR(S61)> < 19
#ACT
goto @工行
MESSAGEBOX 收款卡号不正确! 请重新输入!
break
#IF
CheckStringlength <$STR(S62)> < 4
#ACT
goto @工行
MESSAGEBOX 收款人姓名不正确! 请重新输入!
break
#IF
SMALL N63 1
#ACT
goto @工行
MESSAGEBOX 兑换金额不正确! 请重新选择! 最低可兑换1元!
break
#IF
#SAY
===================兑现申请单确认=================
收款银行:<$STR(S60)>
收款账号:<$STR(S61)>
收款人:<$STR(S62)>
兑换金额:<$STR(N63)>元
扣除元宝:<$STR(N64)>个
==================================================
<请仔细确认申请单,一旦确认,我们将按照申请单信息打款!/fcolor=253>
<确认提交兑换申请/@确认申请G> <返回修改/@工行>
[@确认申请G]
#IF
CHECKNAMELIST ..QuestDiary数据文件每日数据元宝兑现.txt
#ACT
close
MESSAGEBOX 你今日已经提交过元宝兑现申请! 如果你还想继续兑现!请明日再来!
break
#IF
#ACT
DEC N64 1
DelayGoto 1 @确认申请G-2
break
[@确认申请G-2]
#IF
CHECKGAMEGOLD > <$STR(N64)>
#ACT
GAMEGOLD - <$STR(N64)>
inc G100 1
inc G101 1
inc N64 1
mov S17 <$DATE>
CreateFile ..QuestDiary数据文件永久数据元宝兑现申请<$STR(S62)>-<$STR(N63)>元-<$STR(S17)>.txt
AddTextList 收款银行:<$STR(S60)> ..QuestDiary数据文件永久数据元宝兑现申请<$STR(S62)>-<$STR(N63)>元-<$STR(S17)>.txt
AddTextList 收款账号:<$STR(S61)> ..QuestDiary数据文件永久数据元宝兑现申请<$STR(S62)>-<$STR(N63)>元-<$STR(S17)>.txt
AddTextList 收款人:<$STR(S62)> ..QuestDiary数据文件永久数据元宝兑现申请<$STR(S62)>-<$STR(N63)>元-<$STR(S17)>.txt
AddTextList 兑换金额:<$STR(N63)>元 ..QuestDiary数据文件永久数据元宝兑现申请<$STR(S62)>-<$STR(N63)>元-<$STR(S17)>.txt
AddTextList 扣除元宝:<$STR(N64)>个 ..QuestDiary数据文件永久数据元宝兑现申请<$STR(S62)>-<$STR(N63)>元-<$STR(S17)>.txt
AddTextList 角色名:<$USERNAME> ..QuestDiary数据文件永久数据元宝兑现申请<$STR(S62)>-<$STR(N63)>元-<$STR(S17)>.txt
AddTextList 提交时间:<$DATETIME> ..QuestDiary数据文件永久数据元宝兑现申请<$STR(S62)>-<$STR(N63)>元-<$STR(S17)>.txt
ADDNAMELIST ..QuestDiary数据文件每日数据元宝兑现.txt
SENDMSG 6 当前元宝余额为:<$GAMEGOLD>
SENDMSG 4 %s提交申请:将<$STR(N64)>元宝兑换成<$STR(N63)>元人民币!
close
MESSAGEBOX 提交申请成功!我们将在48小时内处理你的兑换申请!
break
#ELSEACT
close
MESSAGEBOX 对不起!你的元宝数量不足! 请保证你的帐号有<$STR(N64)>个元宝!
break
;==================================================工行结束
;==================================================建行开始
[@建行]
#IF
#ACT
MOV S70 建设银行
DelayGoto 1 @建行-2
break
[@建行-2]
#IF
SMALL N75 N48
#ACT
MESSAGEBOX 元宝数量不足兑换最低金额!
close
break
#ELSESAY
建行卡号:<$STR(S71)> <输入卡号/@@InPutString21>
收款人:<$STR(S72)> <输入收款人/@@InPutString22>
兑换金额:<$STR(N73)>元 <选择兑换金额/@兑换金额J>
所需元宝:<$STR(N74)>个 预计兑换后余额:<$STR(N76)>
<提交兑换申请/@提交申请J> <返回重新选择银行/@兑换RMB>
[@InPutString21]
#If
CheckStringlength <$STR(S71)> = 19
#ACT
GOTO @建行
break
#ELSEACT
MOV S71 请重新输入!
MESSAGEBOX <$STR(S70)>卡号输入错误! 正确的<$STR(S70)>卡号应为19位!请仔细核对!
GOTO @建行
break
[@InPutString22]
#If
CheckStringlength <$STR(S72)> < 9
CheckStringlength <$STR(S72)> > 3
#ACT
GOTO @建行
break
#ELSEACT
MOV S72 请重新输入!
MESSAGEBOX 收款人输入错误! 收款人姓名最多4个汉字!
GOTO @建行
break
[@兑换金额J]
兑换金额:<$STR(N73)>元 <清空/@清空J>
所需元宝:<$STR(N74)>个 预计兑换后余额:<$STR(N76)>
<选好返回/@建行>
=========================================
<1元RMB/@1YJ> <5元RMB/@5YJ> <10元RMB/@10YJ>
<20元RMB/@20YJ> <50元RMB/@50YJ> <100元RMB/@100YJ>
<选好返回/@建行>
[@清空J]
#IF
#ACT
MOV N73 0
MOV N74 0
MOV N76 N75
goto @兑换金额J
break
[@1YJ]
#IF
#ACT
MUL N47 N48 1
DEC N47 1
DelayGoto 1 @1YJ-2
[@1YJ-2]
#IF
LARGE N76 N47
#ACT
INC N47 1
DEC N76 N47
INC N74 N47
INC N73 1
MOV N47 0
GOTO @兑换金额J
break
#ELSEACT
MESSAGEBOX 没那么多元宝兑换该面值! 请尝试选择其它面额!
GOTO @兑换金额J
break
[@5YJ]
#IF
#ACT
MUL N47 N48 5
DEC N47 1
DelayGoto 1 @5YJ-2
[@5YJ-2]
#IF
LARGE N76 N47
#ACT
INC N47 1
DEC N76 N47
INC N74 N47
INC N73 5
MOV N47 0
GOTO @兑换金额J
break
#ELSEACT
MESSAGEBOX 没那么多元宝兑换该面值! 请尝试选择其它面额!
GOTO @兑换金额J
break
[@10YJ]
#IF
#ACT
MUL N47 N48 10
DEC N47 1
DelayGoto 1 @10YJ-2
[@10YJ-2]
#IF
LARGE N76 N47
#ACT
INC N47 1
DEC N76 N47
INC N74 N47
INC N73 10
MOV N47 0
GOTO @兑换金额J
break
#ELSEACT
MESSAGEBOX 没那么多元宝兑换该面值! 请尝试选择其它面额!
GOTO @兑换金额J
break
[@20YJ]
#IF
#ACT
MUL N47 N48 20
DEC N47 1
DelayGoto 1 @20YJ-2
[@20YJ-2]
#IF
LARGE N76 N47
#ACT
INC N47 1
DEC N76 N47
INC N74 N47
INC N73 20
MOV N47 0
GOTO @兑换金额J
break
#ELSEACT
MESSAGEBOX 没那么多元宝兑换该面值! 请尝试选择其它面额!
GOTO @兑换金额J
break
[@50YJ]
#IF
#ACT
MUL N47 N48 50
DEC N47 1
DelayGoto 1 @50YJ-2
[@50YJ-2]
#IF
LARGE N76 N47
#ACT
INC N47 1
DEC N76 N47
INC N74 N47
INC N73 50
MOV N47 0
GOTO @兑换金额J
break
#ELSEACT
MESSAGEBOX 没那么多元宝兑换该面值! 请尝试选择其它面额!
GOTO @兑换金额J
break
[@100YJ]
#IF
#ACT
MUL N47 N48 100
DEC N47 1
DelayGoto 1 @100YJ-2
[@100YJ-2]
#IF
LARGE N76 N47
#ACT
INC N47 1
DEC N76 N47
INC N74 N47
INC N73 100
MOV N47 0
GOTO @兑换金额J
break
#ELSEACT
MESSAGEBOX 没那么多元宝兑换该面值! 请尝试选择其它面额!
GOTO @兑换金额J
break
[@提交申请J]
#IF
CheckStringlength <$STR(S71)> < 19
#ACT
goto @建行
MESSAGEBOX 收款卡号不正确! 请重新输入!
break
#IF
CheckStringlength <$STR(S72)> < 4
#ACT
goto @建行
MESSAGEBOX 收款人姓名不正确! 请重新输入!
break
#IF
SMALL N73 1
#ACT
goto @建行
MESSAGEBOX 兑换金额不正确! 请重新选择! 最低可兑换1元!
break
#IF
#SAY
===================兑现申请单确认=================
收款银行:<$STR(S70)>
收款账号:<$STR(S71)>
收款人:<$STR(S72)>
兑换金额:<$STR(N73)>元
扣除元宝:<$STR(N74)>个
==================================================
<请仔细确认申请单,一旦确认,我们将按照申请单信息打款!/fcolor=253>
<确认提交兑换申请/@确认申请J> <返回修改/@建行>
[NextPage]
(责任编辑:admin)
|
织梦二维码生成器
------分隔线----------------------------