传奇服务器架设教程卡号密码充值脚本(强化版)

下面是脚本开始：

(@@InPutString)
[@main]
欢迎使用点卡充值系统\\
卡号：\
密码：\\
状态：<请输入卡号。。。/AUTOCOLOR=25425116819125070245249253>\\
<输入卡号/@@InPutString2(请输入充值卡卡号:)><在线购卡/@zaixiangk><关闭/@exit>
[@InPutString2]
#IF
#ACT
DELAYGOTO2000@yanzhengkh
#SAY
欢迎使用点卡充值系统\\
卡号：<$STR(S2)>\
密码：\\
状态：<正在验证卡号。。。/AUTOCOLOR=25425116819125070245249253>\\
<输入密码/FCOLOR=7><在线购卡/@zaixiangk><关闭/@exit>
[@yanzhengkh]
#IF
CHECKTEXTLIST..\QuestDiary\充值系统\10元卡号.txt<$STR(S2)>
#ACT
MULN51010
MOVN410
GOTO@kahaozq
break
#IF
CHECKTEXTLIST..\QuestDiary\充值系统\50元卡号.txt<$STR(S2)>
#ACT
MULN55010
MOVN450
GOTO@kahaozq
break
#IF
CHECKTEXTLIST..\QuestDiary\充值系统\100元卡号.txt<$STR(S2)>
#ACT
MULN510010
MOVN4100
GOTO@kahaozq
break
#IF
CHECKTEXTLIST..\QuestDiary\充值系统\300元卡号.txt<$STR(S2)>
#ACT
MULN530010
MOVN4300
GOTO@kahaozq
break
#IF
CHECKTEXTLIST..\QuestDiary\充值系统\500元卡号.txt<$STR(S2)>
#ACT
MULN550010
MOVN4500
GOTO@kahaozq
break
#ELSESAY
欢迎使用点卡充值系统\\
卡号：<$STR(S2)><×/FCOLOR=249>\
密码：\\
状态：<无法识别该卡号。。。/AUTOCOLOR=25425116819125070245249253>\\
<返回/@main><在线购卡/@zaixiangk><关闭/@exit>
[@kahaozq]
#ACT
CLEARDELAYGOTO
#SAY
欢迎使用点卡充值系统\\
卡号：<$STR(S2)><√/FCOLOR=250>\
密码：\\
状态：<请输入密码。。。/AUTOCOLOR=25425116819125070245249253>\\
<输入密码/@@InPutString3(请输入充值卡密码:)><在线购卡/@zaixiangk><关闭/@exit>
[@InPutString3]
#IF
#ACT
DELAYGOTO2000@yanzhengmm
#SAY
欢迎使用点卡充值系统\\
卡号：<$STR(S2)><√/FCOLOR=250>\
密码：<$STR(S3)>\\
状态：<正在验证密码。。。/AUTOCOLOR=25425116819125070245249253>\\
<确定充值/FCOLOR=7><在线购卡/@zaixiangk><关闭/@exit>
[@yanzhengmm]
#IF
CHECKTEXTLIST..\QuestDiary\充值系统\10元密码.txt<$STR(S3)>
#ACT
GOTO@mimazq
break
#IF
CHECKTEXTLIST..\QuestDiary\充值系统\50元密码.txt<$STR(S3)>
#ACT
GOTO@mimazq
break
#IF
CHECKTEXTLIST..\QuestDiary\充值系统\100元密码.txt<$STR(S3)>
#ACT
GOTO@mimazq
break
#IF
CHECKTEXTLIST..\QuestDiary\充值系统\300元密码.txt<$STR(S3)>
#ACT
GOTO@mimazq
break
#IF
CHECKTEXTLIST..\QuestDiary\充值系统\500元密码.txt<$STR(S3)>
#ACT
GOTO@mimazq
break
#ELSESAY
欢迎使用点卡充值系统\\
卡号：<$STR(S2)><√/FCOLOR=250>\
密码：<$STR(S3)><×/FCOLOR=249>\\
状态：<无法识别密码。。。/AUTOCOLOR=25425116819125070245249253>\\
<返回/@main><在线购卡/@zaixiangk><关闭/@exit>
[@mimazq]
欢迎使用点卡充值系统\\
卡号：<$STR(S2)><√/FCOLOR=250>\
密码：<$STR(S3)><√/FCOLOR=250>\\
状态：此卡为<$STR(N4)>元充值卡，此次充值你可以获得：<$STR(N5)>元宝。\\
<确定充值/@quedingcz><在线购卡/@zaixiangk><关闭/@exit>
[@quedingcz]
#IF
CHECKTEXTLIST..\QuestDiary\充值系统\10元卡号.txt<$STR(S2)>
CHECKTEXTLIST..\QuestDiary\充值系统\10元密码.txt<$STR(S3)>
#ACT
DELTEXTLIST..\QuestDiary\充值系统\10元卡号.txt<$STR(S2)>
DELTEXTLIST..\QuestDiary\充值系统\10元密码.txt<$STR(S3)>
GOTO@kaishicz
break
#IF
CHECKTEXTLIST..\QuestDiary\充值系统\50元卡号.txt<$STR(S2)>
CHECKTEXTLIST..\QuestDiary\充值系统\50元密码.txt<$STR(S3)>
#ACT
DELTEXTLIST..\QuestDiary\充值系统\50元卡号.txt<$STR(S2)>
DELTEXTLIST..\QuestDiary\充值系统\50元密码.txt<$STR(S3)>
GOTO@kaishicz
break
#if
CHECKTEXTLIST..\QuestDiary\充值系统\100元卡号.txt<$STR(S2)>
CHECKTEXTLIST..\QuestDiary\充值系统\100元密码.txt<$STR(S3)>
#ACT
DELTEXTLIST..\QuestDiary\充值系统\100元卡号.txt<$STR(S2)>
DELTEXTLIST..\QuestDiary\充值系统\100元密码.txt<$STR(S3)>
GOTO@kaishicz
break
#if
CHECKTEXTLIST..\QuestDiary\充值系统\300元卡号.txt<$STR(S2)>
CHECKTEXTLIST..\QuestDiary\充值系统\300元密码.txt<$STR(S3)>
#ACT
DELTEXTLIST..\QuestDiary\充值系统\300元卡号.txt<$STR(S2)>
DELTEXTLIST..\QuestDiary\充值系统\300元密码.txt<$STR(S3)>
GOTO@kaishicz
break
#if
CHECKTEXTLIST..\QuestDiary\充值系统\500元卡号.txt<$STR(S2)>
CHECKTEXTLIST..\QuestDiary\充值系统\500元密码.txt<$STR(S3)>
#ACT
DELTEXTLIST..\QuestDiary\充值系统\500元卡号.txt<$STR(S2)>
DELTEXTLIST..\QuestDiary\充值系统\500元密码.txt<$STR(S3)>
GOTO@kaishicz
break
#ELSEACT
GOTO@zuobijc
[@kaishicz]
#act
CLEARDELAYGOTO
GAMEGOLD+<$STR(N5)>
SENDMSG5充值成功：增加<$STR(N5)>元宝，你当前帐户里元宝数为：<$GAMEGOLD>
SENDMOVEMSG02512493501%s使用在线充值卡--充值成功：增加<$STR(N5)>元宝。
break
#say
欢迎使用点卡充值系统\\
卡号：<$STR(S2)><√/FCOLOR=250>\
密码：<$STR(S3)><√/FCOLOR=250>\\
状态：<充值成功.../AUTOCOLOR=25425116819125070245249253>\\\\\\
<关闭/@exit>
[@zuobijc]
#act
CLEARDELAYGOTO
AddTextList..\QuestDiary\充值系统\非法充值名单.txt<$USERNAME>
#say
你的作弊行为已被系统记录...\\\\\
<关闭/@exit>
[@zaixiangk]
#IF
#ACT
WebBrowserhttp://www.wuduz.com