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

下面是脚本开始：

(@@InPutString)

[@main]

欢迎使用点卡充值系统 \ \

卡号：\

密码：\ \

状态：<请输入卡号。。。/AUTOCOLOR=254,251,168,191,250,70,245,249,253>\ \

<输入卡号/@@InPutString2(请输入充值卡卡号:)> <在线购卡/@zaixiangk> <关闭/@exit>

[@InPutString2]

#IF

#ACT

DELAYGOTO 2000 @yanzhengkh

#SAY

欢迎使用点卡充值系统 \ \

卡号：<$STR(S2)> \

密码：\ \

状态：<正在验证卡号。。。/AUTOCOLOR=254,251,168,191,250,70,245,249,253>\ \

<输入密码/FCOLOR=7> <在线购卡/@zaixiangk> <关闭/@exit>

[@yanzhengkh]

#IF

CHECKTEXTLIST ..\QuestDiary\充值系统\10元卡号.txt <$STR(S2)>

#ACT

MUL N5 10 10

MOV N4 10

GOTO @kahaozq

break

#IF

CHECKTEXTLIST ..\QuestDiary\充值系统\50元卡号.txt <$STR(S2)>

#ACT

MUL N5 50 10

MOV N4 50

GOTO @kahaozq

break

#IF

CHECKTEXTLIST ..\QuestDiary\充值系统\100元卡号.txt <$STR(S2)>

#ACT

MUL N5 100 10

MOV N4 100

GOTO @kahaozq

break

#IF

CHECKTEXTLIST ..\QuestDiary\充值系统\300元卡号.txt <$STR(S2)>

#ACT

MUL N5 300 10

MOV N4 300

GOTO @kahaozq

break

#IF

CHECKTEXTLIST ..\QuestDiary\充值系统\500元卡号.txt <$STR(S2)>

#ACT

MUL N5 500 10

MOV N4 500

GOTO @kahaozq

break

#ELSESAY

欢迎使用点卡充值系统 \ \

卡号：<$STR(S2)> <×/FCOLOR=249>\

密码：\ \

状态：<无法识别该卡号。。。/AUTOCOLOR=254,251,168,191,250,70,245,249,253>\ \

<返回/@main> <在线购卡/@zaixiangk> <关闭/@exit>

[@kahaozq]

#ACT

CLEARDELAYGOTO

#SAY

欢迎使用点卡充值系统 \ \

卡号：<$STR(S2)> <√/FCOLOR=250>\

密码：\ \

状态：<请输入密码。。。/AUTOCOLOR=254,251,168,191,250,70,245,249,253>\ \

<输入密码/@@InPutString3(请输入充值卡密码:)> <在线购卡/@zaixiangk> <关闭/@exit>

[@InPutString3]

#IF

#ACT

DELAYGOTO 2000 @yanzhengmm

#SAY

欢迎使用点卡充值系统 \ \

卡号：<$STR(S2)> <√/FCOLOR=250> \

密码：<$STR(S3)>\ \

状态：<正在验证密码。。。/AUTOCOLOR=254,251,168,191,250,70,245,249,253>\ \

<确定充值/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=254,251,168,191,250,70,245,249,253>\ \

<返回/@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)>

SENDMSG 5 充值成功：增加<$STR(N5)>元宝，你当前帐户里元宝数为：<$GAMEGOLD>

SENDMOVEMSG 0 251 249 350 1 %s使用在线充值卡–充值成功：增加<$STR(N5)>元宝。

break

#say

欢迎使用点卡充值系统 \ \

卡号：<$STR(S2)> <√/FCOLOR=250> \

密码：<$STR(S3)> <√/FCOLOR=250>\ \

状态：<充值成功…/AUTOCOLOR=254,251,168,191,250,70,245,249,253>\ \ \ \ \ \

<关闭/@exit>

[@zuobijc]

#act

CLEARDELAYGOTO

AddTextList ..\QuestDiary\充值系统\非法充值名单.txt <$USERNAME>

#say

你的作弊行为已被系统记录…\ \ \ \ \

<关闭/@exit>

[@zaixiangk]

#IF

#ACT

WebBrowser http://www.wuduz.com