传奇服务端 发表于 2015-4-26 20:25:24

传奇冲元宝脚本 GM可自己卖卡

本帖最后由 传奇服务端 于 2015-4-26 20:27 编辑



(@@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


解释 发表于 2015-4-26 20:54:12

过来看看的

大厦逼 发表于 2015-4-26 23:08:27

:lol很好~~

力度 发表于 2015-4-27 01:09:09

这么强,支持楼主，佩服

小卓卓 发表于 2015-4-27 01:38:33

撸过。支持。。。支持。。。

白仙 发表于 2015-4-27 04:05:42

支持一下:lol

御风 发表于 2015-4-27 06:36:52

我是个凑数的。。。

牧辉 发表于 2015-4-27 06:51:24

无论是不是沙发都得回复下

霸气小子 发表于 2015-4-27 07:53:00

这么强,支持楼主，佩服

潇洒木木 发表于 2015-4-27 11:54:20

锄禾日当午，发帖真辛苦。谁知坛中餐，帖帖皆辛苦！
页: [1] 2 3 4 5 6 7 8 9
查看完整版本: 传奇冲元宝脚本 GM可自己卖卡