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

功能：
有这个对GM来说很方便..可以到淘宝上直接出售而且可以设置自动发货

[@ZAIXCZHI]
欢迎使用在线金币充值系统。
你可以通过<淘宝>，<拍拍>进行购买充值卡卡号。
面值大的充值卡在优惠时段可获得充值额外赠送。
购卡联系客服QQ：<$QQ>

<请输入你的卡号：/@@InPutString1><$STR(S1)>
<请输入你的卡密：/@@InPutString2><$STR(S2)>
<注意：充值成功请到仓库银行里领取。>
<确定无误进行卡号识别/@QUEDWUCZ><返回/@物品交易>

[@QUEDWUCZ]
#IF
CHECKCODELIST<$STR(S1)><$STR(S2)>..QuestDiary充值系统10元卡.txt
#ACT
MULN110G68
MOVN210
SET[009]1
GOTO@卡号识别
break
#IF
CHECKCODELIST<$STR(S1)><$STR(S2)>..QuestDiary充值系统50元卡.txt
#ACT
MULN150G68
MOVN250
SET[009]1
GOTO@卡号识别
break
#IF
CHECKCODELIST<$STR(S1)><$STR(S2)>..QuestDiary充值系统100元卡.txt
#ACT
MULN1100G68
MOVN2100
SET[009]1
GOTO@卡号识别
break
#IF
CHECKCODELIST<$STR(S1)><$STR(S2)>..QuestDiary充值系统300元卡.txt
#ACT
MULN1300G68
MOVN2300
SET[009]1
GOTO@卡号识别
break
#IF
CHECKCODELIST<$STR(S1)><$STR(S2)>..QuestDiary充值系统500元卡.txt
#ACT
MULN1500G68
MOVN2500
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
MOVS2S2
GOTO@ZAIXCZHI
break

[@InPutString1]
#ACT
MOVS1S1
GOTO@ZAIXCZHI
Break

说明:
就是一个checkcodelist这个是检测TXT里的数字(也就是一行为一个卡号和一个密码)
clearcodelist这是删除TXT里刚才检测的那个数字..