设为首页收藏本站元宝充值购买会员传奇QQ群支付宝元宝充值

一休论坛

网络广告风险自担
 找回密码
 立即注册
查看: 1166|回复: 1

[常用脚本] 传奇冲元宝脚本 GM可自己卖卡脚本

[复制链接]
  • TA的每日心情
    慵懒
    2018-8-5 17:14
  • 签到天数: 49 天

    [LV.5]常住居民I

    发表于 2018-6-18 23:10:52 | 显示全部楼层 |阅读模式
    网络广告风险自担
    网络广告风险自担
    传奇冲元宝脚本 GM可自己卖卡脚本

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




    上一篇:传奇私服被CC攻击了怎么办
    下一篇:Hero引擎常见43个问题解答
    回复

    举报

    网络广告风险自担
  • TA的每日心情
    奋斗
    2018-7-15 00:26
  • 签到天数: 11 天

    [LV.3]偶尔看看II

    发表于 2018-7-5 13:02:24 | 显示全部楼层
    感谢分享传奇版本库
    您需要登录后才可以回帖 登录 | 立即注册

    本版积分规则

    网络广告风险自担

    网络广告风险自担
    一休论坛在线客服
    收 起 客 服

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

    GMT+8, 2018-9-22 19:12 , Processed in 0.421201 second(s), 85 queries , Gzip On.

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

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

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