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

功能：


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