当前位置: 主页 > 传奇信息资讯 > 传奇开服 > 卡号明码充值脚本(强化版)新开传奇网站

卡号明码充值脚本(强化版)新开传奇网站

发布时间:2015-12-22 07:20内容来源:sf999点击:

卡号明码充值脚本

下面是脚本末尾:

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

顶一下
(0)
0%
踩一下
(0)
0%
------分隔线----------------------------
  • 挑错
  • 打印