织梦CMS - 轻松建站从此开始!

天堂系列-新天堂II殿堂级|新开天堂2发布网站 WWW.TT2SF.NET

当前位置: 主页 > 天堂2私服 >

元宝兑换人民币(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)
织梦二维码生成器
顶一下
(0)
0%
踩一下
(0)
0%
------分隔线----------------------------
发表评论
请自觉遵守互联网相关的政策法规,严禁发布色情、暴力、反动的言论。
评价:
验证码: 点击我更换图片
栏目列表
推荐内容