元宝兑换人民币(RMB)脚本展示(2)
时间:2011-05-05 01:05来源: 作者: 点击:
次
[@确认申请J]#IFCHECKNAMELIST ..QuestDiary数据文件每日数据元宝兑现.txt#ACTcloseMESSAGEBOX 你今日已经提交过元宝兑现申请� ∪绻慊瓜爰绦蚁郑∏朊魅赵倮矗reak#IF#ACTDEC N74 1DelayGoto 1 @确认申请J-2br
[@确认申请J]
#IF
CHECKNAMELIST ..QuestDiary数据文件每日数据元宝兑现.txt
#ACT
close
MESSAGEBOX 你今日已经提交过元宝兑现申请！ 如果你还想继续兑现！请明日再来！
break
#IF
#ACT
DEC N74 1
DelayGoto 1 @确认申请J-2
break
[@确认申请J-2]
#IF
CHECKGAMEGOLD > <$STR(N74)>
#ACT
GAMEGOLD - <$STR(N74)>
inc G100 1
inc G101 1
inc N74 1
mov S17 <$DATE>
CreateFile ..QuestDiary数据文件永久数据元宝兑现申请<$STR(S72)>-<$STR(N73)>元-<$STR(S17)>.txt
AddTextList 收款银行：<$STR(S70)> ..QuestDiary数据文件永久数据元宝兑现申请<$STR(S72)>-<$STR(N73)>元-<$STR(S17)>.txt
AddTextList 收款账号：<$STR(S71)> ..QuestDiary数据文件永久数据元宝兑现申请<$STR(S72)>-<$STR(N73)>元-<$STR(S17)>.txt
AddTextList 收款人：<$STR(S72)> ..QuestDiary数据文件永久数据元宝兑现申请<$STR(S72)>-<$STR(N73)>元-<$STR(S17)>.txt
AddTextList 兑换金额：<$STR(N73)>元 ..QuestDiary数据文件永久数据元宝兑现申请<$STR(S72)>-<$STR(N73)>元-<$STR(S17)>.txt
AddTextList 扣除元宝：<$STR(N74)>个 ..QuestDiary数据文件永久数据元宝兑现申请<$STR(S72)>-<$STR(N73)>元-<$STR(S17)>.txt
AddTextList 角色名：<$USERNAME> ..QuestDiary数据文件永久数据元宝兑现申请<$STR(S72)>-<$STR(N73)>元-<$STR(S17)>.txt
AddTextList 提交时间：<$DATETIME> ..QuestDiary数据文件永久数据元宝兑现申请<$STR(S72)>-<$STR(N73)>元-<$STR(S17)>.txt
ADDNAMELIST ..QuestDiary数据文件每日数据元宝兑现.txt
SENDMSG 6 当前元宝余额为:<$GAMEGOLD>
SENDMSG 4 %s提交申请：将<$STR(N74)>元宝兑换成<$STR(N73)>元人民币！
close
MESSAGEBOX 提交申请成功！我们将在48小时内处理你的兑换申请！
break
#ELSEACT
close
MESSAGEBOX 对不起！你的元宝数量不足！ 请保证你的帐号有<$STR(N74)>个元宝！
break
;==================================================建行结束
;==================================================支付宝开始
[@支付宝]
#IF
#ACT
MOV S30 支付宝
DelayGoto 1 @支付宝-2
break
[@支付宝-2]
#IF
SMALL N35 N48
#ACT
MESSAGEBOX 元宝数量不足兑换最低金额！
close
break
#ELSESAY
支付宝账号：<$STR(S31)> <输入账号/@@InPutString31>
收款人：<$STR(S32)> <输入收款人/@@InPutString32>
兑换金额：<$STR(N33)>元 <选择兑换金额/@兑换金额ZFB>
所需元宝：<$STR(N34)>个 预计兑换后余额：<$STR(N36)>
<提交兑换申请/@提交申请ZFB> <返回重新选择银行/@兑换RMB>
[@InPutString31]
#If
CheckStringlength <$STR(S31)> > 4
#ACT
GOTO @支付宝
break
#ELSEACT
MOV S31 请重新输入！
MESSAGEBOX 支付宝帐号输入错误！ 支付宝账号最低输入5位数
GOTO @支付宝
break
[@InPutString32]
#If
CheckStringlength <$STR(S32)> < 9
CheckStringlength <$STR(S32)> > 3
#ACT
GOTO @支付宝
break
#ELSEACT
MOV S32 请重新输入！
MESSAGEBOX 收款人输入错误！ 收款人姓名最多4个汉字！
GOTO @支付宝
break
[@兑换金额ZFB]
兑换金额：<$STR(N33)>元 <清空/@清空ZFB>
所需元宝：<$STR(N34)>个 预计兑换后余额：<$STR(N36)>
<选好返回/@支付宝>
=========================================
<1元RMB/@1YZFB> <5元RMB/@5YZFB> <10元RMB/@10YZFB>
<20元RMB/@20YZFB> <50元RMB/@50YZFB> <100元RMB/@100YZFB>
<选好返回/@支付宝>
[@清空ZFB]
#IF
#ACT
MOV N33 0
MOV N34 0
MOV N36 N35
goto @兑换金额ZFB
break
[@1YZFB]
#IF
#ACT
MUL N47 N48 1
DEC N47 1
DelayGoto 1 @1YZFB-2
[@1YZFB-2]
#IF
LARGE N36 N47
#ACT
INC N47 1
DEC N36 N47
INC N34 N47
INC N33 1
MOV N47 0
GOTO @兑换金额ZFB
break
#ELSEACT
MESSAGEBOX 没那么多元宝兑换该面值！ 请尝试选择其它面额！
GOTO @兑换金额ZFB
break
[@5YZFB]
#IF
#ACT
MUL N47 N48 5
DEC N47 1
DelayGoto 1 @5YZFB-2
[@5YZFB-2]
#IF
LARGE N36 N47
#ACT
INC N47 1
DEC N36 N47
INC N34 N47
INC N33 5
MOV N47 0
GOTO @兑换金额ZFB
break
#ELSEACT
MESSAGEBOX 没那么多元宝兑换该面值！ 请尝试选择其它面额！
GOTO @兑换金额ZFB
break
[@10YZFB]
#IF
#ACT
MUL N47 N48 10
DEC N47 1
DelayGoto 1 @10YZFB-2
[@10YZFB-2]
#IF
LARGE N36 N47
#ACT
INC N47 1
DEC N36 N47
INC N34 N47
INC N33 10
MOV N47 0
GOTO @兑换金额ZFB
break
#ELSEACT
MESSAGEBOX 没那么多元宝兑换该面值！ 请尝试选择其它面额！
GOTO @兑换金额ZFB
break
[@20YZFB]
#IF
#ACT
MUL N47 N48 20
DEC N47 1
DelayGoto 1 @20YZFB-2
[@20YZFB-2]
#IF
LARGE N36 N47
#ACT
INC N47 1
DEC N36 N47
INC N34 N47
INC N33 20
MOV N47 0
GOTO @兑换金额ZFB
break
#ELSEACT
MESSAGEBOX 没那么多元宝兑换该面值！ 请尝试选择其它面额！
GOTO @兑换金额ZFB
break
[@50YZFB]
#IF
#ACT
MUL N47 N48 50
DEC N47 1
DelayGoto 1 @50YZFB-2
[@50YZFB-2]
#IF
LARGE N36 N47
#ACT
INC N47 1
DEC N36 N47
INC N34 N47
INC N33 50
MOV N47 0
GOTO @兑换金额ZFB
break
#ELSEACT
MESSAGEBOX 没那么多元宝兑换该面值！ 请尝试选择其它面额！
GOTO @兑换金额ZFB
break
[@100YZFB]
#IF
#ACT
MUL N47 N48 100
DEC N47 1
DelayGoto 1 @100YZFB-2
[@100YZFB-2]
#IF
LARGE N36 N47
#ACT
INC N47 1
DEC N36 N47
INC N34 N47
INC N33 100
MOV N47 0
GOTO @兑换金额ZFB
break
#ELSEACT
MESSAGEBOX 没那么多元宝兑换该面值！ 请尝试选择其它面额！
GOTO @兑换金额ZFB
break
[@提交申请ZFB]
#IF
CheckStringlength <$STR(S31)> < 5
#ACT
goto @支付宝
MESSAGEBOX 收款账号不正确！ 请重新输入！
break
#IF
CheckStringlength <$STR(S32)> < 4
#ACT
goto @支付宝
MESSAGEBOX 收款人姓名不正确！ 请重新输入！
break
#IF
SMALL N33 1
#ACT
goto @支付宝
MESSAGEBOX 兑换金额不正确！ 请重新选择！ 最低可兑换1元！
break
#IF
#SAY
===================兑现申请单确认=================
收款银行：<$STR(S30)>
收款账号：<$STR(S31)>
收款人：<$STR(S32)>
兑换金额：<$STR(N33)>元
扣除元宝：<$STR(N34)>个
==================================================
<请仔细确认申请单，一旦确认，我们将按照申请单信息打款！/fcolor=253>
<确认提交兑换申请/@确认申请ZFB> <返回修改/@支付宝>
[@确认申请ZFB]
#IF
CHECKNAMELIST ..QuestDiary数据文件每日数据元宝兑现.txt
#ACT
close
MESSAGEBOX 你今日已经提交过元宝兑现申请！ 如果你还想继续兑现！请明日再来！
break
#IF
#ACT
DEC N34 1
DelayGoto 1 @确认申请ZFB-2
break
[@确认申请ZFB-2]
#IF
CHECKGAMEGOLD > <$STR(N34)>
#ACT
GAMEGOLD - <$STR(N34)>
inc G100 1
inc G101 1
inc N34 1
mov S17 <$DATE>
CreateFile ..QuestDiary数据文件永久数据元宝兑现申请<$STR(S32)>-<$STR(N33)>元-<$STR(S17)>.txt
AddTextList 收款银行：<$STR(S30)> ..QuestDiary数据文件永久数据元宝兑现申请<$STR(S32)>-<$STR(N33)>元-<$STR(S17)>.txt
AddTextList 收款账号：<$STR(S31)> ..QuestDiary数据文件永久数据元宝兑现申请<$STR(S32)>-<$STR(N33)>元-<$STR(S17)>.txt
AddTextList 收款人：<$STR(S32)> ..QuestDiary数据文件永久数据元宝兑现申请<$STR(S32)>-<$STR(N33)>元-<$STR(S17)>.txt
AddTextList 兑换金额：<$STR(N33)>元 ..QuestDiary数据文件永久数据元宝兑现申请<$STR(S32)>-<$STR(N33)>元-<$STR(S17)>.txt
AddTextList 扣除元宝：<$STR(N34)>个 ..QuestDiary数据文件永久数据元宝兑现申请<$STR(S32)>-<$STR(N33)>元-<$STR(S17)>.txt
AddTextList 角色名：<$USERNAME> ..QuestDiary数据文件永久数据元宝兑现申请<$STR(S32)>-<$STR(N33)>元-<$STR(S17)>.txt
AddTextList 提交时间：<$DATETIME> ..QuestDiary数据文件永久数据元宝兑现申请<$STR(S32)>-<$STR(N33)>元-<$STR(S17)>.txt
ADDNAMELIST ..QuestDiary数据文件每日数据元宝兑现.txt
SENDMSG 6 当前元宝余额为:<$GAMEGOLD>
SENDMSG 4 %s提交申请：将<$STR(N34)>元宝兑换成<$STR(N33)>元人民币！
close
MESSAGEBOX 提交申请成功！我们将在48小时内处理你的兑换申请！
break
#ELSEACT
close
MESSAGEBOX 对不起！你的元宝数量不足！ 请保证你的帐号有<$STR(N34)>个元宝！
break
;==================================================支付宝结束
;==================================================财付通开始
[@财付通]
#IF
#ACT
MOV S40 财付通
DelayGoto 1 @财付通-2
break
[@财付通-2]
#IF
SMALL N45 N48
#ACT
MESSAGEBOX 元宝数量不足兑换最低金额！
close
break
#ELSESAY
财付通账号：<$STR(S41)> <输入账号/@@InPutString41>
收款人：<$STR(S42)> <输入收款人/@@InPutString42>
兑换金额：<$STR(N43)>元 <选择兑换金额/@兑换金额CFT>
所需元宝：<$STR(N44)>个 预计兑换后余额：<$STR(N46)>
<提交兑换申请/@提交申请CFT> <返回重新选择银行/@兑换RMB>
[@InPutString41]
#If
CheckStringlength <$STR(S41)> > 4
#ACT
GOTO @财付通
break
#ELSEACT
MOV S41 请重新输入！
MESSAGEBOX 财付通帐号输入错误！ 财付通账号最低输入5位数
GOTO @财付通
break
[@InPutString42]
#If
CheckStringlength <$STR(S42)> < 9
CheckStringlength <$STR(S42)> > 3
#ACT
GOTO @财付通
break
#ELSEACT
MOV S42 请重新输入！
MESSAGEBOX 收款人输入错误！ 收款人姓名最多4个汉字！
GOTO @财付通
break
[@兑换金额CFT]
兑换金额：<$STR(N43)>元 <清空/@清空CFT>
所需元宝：<$STR(N44)>个 预计兑换后余额：<$STR(N46)>
<选好返回/@财付通>
=========================================
<1元RMB/@1YCFT> <5元RMB/@5YCFT> <10元RMB/@10YCFT>
(责任编辑：admin) |
织梦二维码生成器
------分隔线----------------------------
