在线充值卡密龙行天下传奇脚本事例

功能： 有这个对GM来说很方便..可以到淘宝上直接出售而且可以设置自动发货
[@ZAIXCZHI]
欢迎使用在线金币充值系统。
你可以通过淘宝，拍拍进行购买充值卡卡号。
面值大的充值卡在优惠时段可获得充值额外赠送。
购卡联系客服QQ：$QQ
请输入你的卡号：/@@InPutString1 $STR(S1)
请输入你的卡密：/@@InPutString2 $STR(S2)
注意：充值成功请到仓库银行里领取。
确定无误进行卡号识别/@QUEDWUCZ 返回/@物品交易
[@QUEDWUCZ]
#IF
CHECKCODELIST $STR(S1)传奇变态私服 $STR(S2) ..QuestDiary充值系统10元卡.txt
#ACT
MUL N1 10 G68
MOV N2 10
SET [009] 1
GOTO @卡号识别
break
#IF
CHECKCODELIST $STR(S1) $STR(S2) ..QuestDiary充值系统50元卡.txt
#ACT
MUL N1 50 G68
MOV N2 50
SET [009] 1
新开传奇sf发布网GOTO @卡号识别
break
#IF
CHECKCODELIST $STR(S1) $STR(S2) ..QuestDiary充值系统100元卡.txt
#ACT
MUL N1 100 G68
MOV N2 100
SET [009] 1
GOTO @卡号识别
break
#IF
CHECKCODELIST $STR(S1) $STR(S2) ..QuestDiary充值系统300元卡.txt
#ACT
MUL N1 300 G68
MOV N2 300
SET [009] 1
GOTO @卡号识别
break
#IF
CHECKCODELIST $STR(S1) $STR(S2) ..QuestDiary充值系统500元卡.txt
#ACT
MUL N1 500 G68
MOV N2 500
SET [009] 1
GOTO @卡号识别
break
#ELSEACT
MESSAGEBOX 无法识别的卡号！
break
[@卡号识别]
#SAY
卡号为： $STR(S1)
卡密为： $STR(S2)
此卡为：《$STR(N2)元》充值卡！
此次充值你可以获得：$STR(N1) 金币！
确认无错/@KAISCZHI
#ELSESAY
您的输入的卡号或密码不对！
请确保是否输入错误，点返回重新输入！
返回/@ZAIXCZHI
[@KAISCZHI]
#IF
check [009] 1
#ACT
SET [009] 0
GAMEGOLD + N1
CLEARCOD传奇私服双挂登陆器ELIST $STR(S1) $STR(S2) ..QuestDiary充值系统10元卡.txt
CLEARCODELIST $STR(S1) $STR(S2) ..QuestDiary充值系统50元卡.txt
CLEARCODELIST $STR(S1) $STR(S2) ..QuestDiary充值系统100元卡.txt
CLEARCODELIST $STR(S1) $STR(S2) ..QuestDiary充值系统300元卡.txt
CLEARCODELIST $STR(S1) $STR(S2) ..QuestDiary充值系统500元卡.txt
break
#SAY
此次充值成功，以将 $STR(N1) 金币转入你的银行存款中！
请查收，如有问题请联系客服QQ：$QQ
注意：充值成功请到仓库银行里领取。
返回/@ZAIXCZHI
#elsesay
你当前的行为已经被系统记录。
如记录超过三次，你将永久被隔离！
返回/@物品交易
[@InPutString2]
#ACT
MOV S2 S2
GOTO @ZAIXCZHI
break
[@InPutString1]
#ACT
MOV S1 S1
GOTO @ZAIXCZHI
Break
说明: 就是一个 checkcodelist 这个是检测TXT里的 数字 (也就是一行为一个卡号和一个密码) clearcodelist 这是删除TXT里刚才检测的那个数字 ..