|
功能：
有这个对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里刚才检测的那个数字 ..
| 
发表于 2023-4-16 00:14:32