游戏伴随我引擎在线充值卡密脚本事例

功能：
有这个对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
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
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里刚才检测的那个数字 ..