游戏伴随我引擎在线充值卡密脚本事例
功能：有这个对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 1
GOTO @卡号识别
break
#IF
CHECKCODELIST <$STR(S1)> <$STR(S2)> ..QuestDiary充值系统50元卡.txt
#ACT
MUL N1 50 G68
MOV N2 50
SET 1
GOTO @卡号识别
break
#IF
CHECKCODELIST <$STR(S1)> <$STR(S2)> ..QuestDiary充值系统100元卡.txt
#ACT
MUL N1 100 G68
MOV N2 100
SET 1
GOTO @卡号识别
break
#IF
CHECKCODELIST <$STR(S1)> <$STR(S2)> ..QuestDiary充值系统300元卡.txt
#ACT
MUL N1 300 G68
MOV N2 300
SET 1
GOTO @卡号识别
break
#IF
CHECKCODELIST <$STR(S1)> <$STR(S2)> ..QuestDiary充值系统500元卡.txt
#ACT
MUL N1 500 G68
MOV N2 500
SET 1
GOTO @卡号识别
break
#ELSEACT
MESSAGEBOX 无法识别的卡号！
break
[@卡号识别]
#SAY
卡号为： <$STR(S1)>
卡密为： <$STR(S2)>
此卡为：《<$STR(N2)>元》充值卡！
此次充值你可以获得：<$STR(N1)> 金币！
<确认无错/@KAISCZHI>
#ELSESAY
您的输入的卡号或密码不对！
请确保是否输入错误，点返回重新输入！
<返回/@ZAIXCZHI>
[@KAISCZHI]
#IF
check 1
#ACT
SET 0
GAMEGOLD + N1
CLEARCODELIST <$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里刚才检测的那个数字 ..
楼主加油，我们都看好你哦。 楼主加油，我们都看好你哦。 真是难得给力的帖子啊。 淡定，淡定，淡定…… 无回帖，不论坛，这才是人道。 太生气了，无法HOLD啦 >_<...... 真是难得给力的帖子啊。 强烈支持楼主ing…… 感恩无私的分享与奉献 :)