游戏伴随我引擎在线充值卡密脚本事例
功能：有这个对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里刚才检测的那个数字 ..
众里寻他千百度，蓦然回首在这里！ 呵呵，低调，低调！ 我是个凑数的。。。 LZ帖子不给力，勉强给回复下吧 我也是坐沙发的 众里寻他千百度，蓦然回首在这里！ 支持你哈................................... 是爷们的娘们的都帮顶！大力支持 发发呆，回回帖，工作结束~