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