一休论坛

 找回密码
 立即注册

QQ登录

只需一步,快速开始

查看: 362|回复: 2

[常用脚本] 卡号密码充值脚本(强化版)

[复制链接]
  • TA的每日心情
    开心
    2015-2-10 22:09
  • 签到天数: 1 天

    [LV.1]初来乍到

    发表于 2014-10-6 14:45:05 | 显示全部楼层 |阅读模式
    网络广告风险自担 网络广告风险自担
    网络广告风险自担

    下面是脚本开始:

    (@@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.D3dm2.com











    上一篇:常用功能脚本大集合
    下一篇:捍卫钓鱼岛NPC编写使用

    本帖子中包含更多资源

    您需要 登录 才可以下载或查看,没有帐号?立即注册

    x
    网络广告风险自担
  • TA的每日心情
    郁闷
    2016-8-30 08:15
  • 签到天数: 69 天

    [LV.6]常住居民II

    发表于 2015-2-13 23:39:11 | 显示全部楼层
    网络广告风险自担
    白扯 根本用不了 就这一个脚本根本完不成好吧
    回复 支持 反对

    使用道具 举报

  • TA的每日心情
    开心
    2016-2-12 14:12
  • 签到天数: 2 天

    [LV.1]初来乍到

    发表于 2016-1-29 16:03:50 来自手机 | 显示全部楼层
    网络广告风险自担
    做个记号!以后备用
    回复 支持 反对

    使用道具 举报

    您需要登录后才可以回帖 登录 | 立即注册

    本版积分规则

    网络广告风险自担

    小黑屋|传奇一条龙|GM基地|GM版本库|一休论坛

    GMT+8, 2016-12-9 09:51 , Processed in 0.733201 second(s), 81 queries , Gzip On.

    传奇一条龙 GM基地 版本库 传奇论坛 传奇漏洞论坛 传奇服务端下载 传奇版本

    站长QQ:1921249589 一休论坛资料来自网络仅供学习交流之用,用于商业后果自负

    快速回复 返回顶部 返回列表