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