一休论坛

 找回密码
 立即注册

QQ登录

只需一步,快速开始

查看: 180|回复: 0

[常用脚本] 传奇元宝存取脚本-亲测可用

[复制链接]
  • TA的每日心情
    慵懒
    2015-7-29 13:47
  • 签到天数: 2 天

    [LV.1]初来乍到

    发表于 2015-3-17 23:00:38 | 显示全部楼层 |阅读模式
    网络广告风险自担 网络广告风险自担
    网络广告风险自担
    传奇元宝存取脚本-亲测可用
    前面发的元宝存取脚本测试后还有些微的BUG,现在已经修复,发完整版的上来,亲测可用。
    一般我发的都是自己做的,所以难免有些BUG没有发现的,如有发现问题,请各位帮忙纠正
    一个元宝存取脚本,和设置个人密码脚本。元宝存取可以代换成金刚石啊,声望啊神马,改下代码就能通用。
    个人密码的话更不用说了,所有脚本都能用,只要自定义变量设好,直接#CALL一下就可以实现了。
    密码功能很强大,可以做GM后台密码,当然这个后台密码就太复杂了,哈哈。也可以设定,不同的口令打开不同的功能,当然这个还要自己加



    登录脚本
    放在[@login]下


    VAR Integer HUMAN 元宝仓库
    VAR String HUMAN 密码
    VAR Integer HUMAN 密码错误
    LOADVAR  HUMAN 元宝仓库 ..\QuestDiary\元宝\元宝.txt
    LOADVAR  HUMAN 密码 ..\QuestDiary\元宝\元宝.txt
    LOADVAR  HUMAN 密码错误 ..\QuestDiary\元宝\密码错误.txt
    在QuestDiary下创建一个元宝文件夹,再建一个元宝和密码错误文本文档。
    这里的密码你可以参照脚本,可以所有都通用
    ————————————————————————————————————
    机器人配置及脚本,主要是清理密码输错3次用的,这样才能实现第二天恢复输错次数
    文件在\Envir\Robot_def\下
    ;AutoRunRobot.txt文档内
    #AutoRun NPC DAY 00:00 @清变量


    RobotManage.txt内容(内容即普通脚本内容)
    [@清变量]
    #IF
    #ACT
    clearnamelist ..\QuestDiary\元宝\密码错误.txt




    ————————————————————————————————————
    NPC
    (@@InPutString @@InPutInteger )


    [@main]
    #IF
    CHECKVAR HUMAN 密码错误 = 3
    #say
    密码输入错误三次,请明日重试\
    或者联系在线客服处理\
    #elseact
    goto @正常


    [@正常]
    我这里提供元宝存取服务,请先设置密码。
    设置密码可以中文、英文、数字\
    若无密码请直接设置,如要修改,请先输入密码,再输入新密码\
    如果点设置密码NPC提示“密码错误,请重新输入”\
    请小退后,重新点击NPC\
    忘记密码请联系客服\
    <设置密码/@@InPutString0>\ \


    请先输入密码开启\
    <输入密码/@@InPutString4>\




    [@@InPutString0]
    #IF
    CheckLevelEx > 0
    #ACT
    DELAYCALL 100 @下一步


    [@下一步]
    #IF
    CHECKVAR HUMAN 密码 =
    #ACT
    GOTO @新密码
    break


    #IF
    CHECKVAR HUMAN 密码 = <$STR(S0)>
    #ACT
    CALCVAR HUMAN 密码错误 = 0
    SAVEVAR HUMAN 密码错误 ..\QuestDiary\元宝\密码错误.txt
    GOTO @设密码
    break
    #ELSEACT
    CALCVAR HUMAN 密码错误 + 1
    SAVEVAR HUMAN 密码错误 ..\QuestDiary\元宝\密码错误.txt
    MOV S0
    #elsesay
    原密码错误,请重新输入\  \
    <返回/@main>


    [@设密码]
    #IF
    #say
    请输入新密码\
    <新密码/@@InPutString1>\ \


    [@@InPutString1]
    #IF
    CheckLevelEx > 0
    #ACT
    DELAYCALL 100 @重设下一步


    [@重设下一步]
    #IF
    #ACT
    ;CALCVAR HUMAN 密码 = <$STR(S1)>
    #SAY
    请再输入一遍\
    <新密码/@@InPutString2>\ \


    [@@InPutString2]
    #IF
    #ACT
    DELAYCALL 100 @重设下二步


    [@重设下二步]
    #IF
    EQUAL S2 <$STR(S1)>
    ;<$HUMAN(密码)>
    #act
    CALCVAR HUMAN 密码 = <$STR(S1)>
    SAVEVAR HUMAN 密码 ..\QuestDiary\元宝\元宝.txt
    MOV S0  
    MOV S1  
    MOV S2
    close  
    messagebox 设置成功。
    #ELSESACT
    ;CALCVAR HUMAN 密码 = <$STR(S0)>
    MOV S0  
    MOV S1  
    MOV S2  
    #ELSESAY
    前后密码不一致,请重新输入\
    <设置密码/@@InPutString0>\ \






    [@新密码]
    #if
    #ACT
    ;CALCVAR HUMAN 密码 = <$STR(S0)>
    #SAY
    请再输入一遍\
    <新密码/@@InPutString3>\ \


    [@@InPutString3]
    #IF
    #act
    DELAYCALL 100 @新设下二步


    [@新设下二步]
    #IF
    EQUAL S3 <$STR(S0)>
    ;<$HUMAN(密码)>
    #act
    CALCVAR HUMAN 密码 = <$STR(S0)>
    SAVEVAR HUMAN 密码 ..\QuestDiary\元宝\元宝.txt
    MOV S0  
    MOV S3
    close
    messagebox 设置成功。
    #ELSESACT
    ;CALCVAR HUMAN 密码 =
    MOV S0  
    MOV S3  
    #ELSESAY
    前后密码不一致,请重新输入\
    <设置密码/@@InPutString0>\ \




    [@@InPutString4]
    #IF
    CheckLevelEx > 0
    #ACT
    DELAYCALL 100 @下一步开


    [@下一步开]
    #IF
    CHECKVAR HUMAN 密码 =
    #ACT
    MOV S4
    GOTO @开启
    break


    #IF
    EQUAL S4 <$HUMAN(密码)>
    #ACT
    MOV S4
    CALCVAR HUMAN 密码错误 = 0
    SAVEVAR HUMAN 密码错误 ..\QuestDiary\元宝\密码错误.txt
    GOTO @开启
    #elseact
    MOV S4
    CALCVAR HUMAN 密码错误 + 1
    SAVEVAR HUMAN 密码错误 ..\QuestDiary\元宝\密码错误.txt
    #elsesay
    密码错误,请重新输入\  \
    <返回/@main>




    [@开启]
    当前元宝数量:<$GAMEGOLD>\
    当前寄存数量:<$HUMAN(元宝仓库)>\
    请选择功能\  \
    <存元宝/@存>  <取元宝/@取>\


    [@存]
    请输入需要存放的元宝数量
    当前元宝数量:<$GAMEGOLD>\
    当前寄存数量:<$HUMAN(元宝仓库)>\
    <点击输入寄存数量/@@InPutInteger0>\
    <返回/@开启>\


    [@@InPutInteger0]
    #IF
    #ACT
    delayCALL 100 @cun


    [@cun]
    #IF
    large N0 0
    #act
    goto @cun1
    #elseact
    MOV N0
    #elsesay
    输入错误请重新输入\
    <存/@存>


    [@cun1]
    #IF
    CheckGameGold < <$STR(N0)>
    #say
    你没有那么多元宝,请重新输入\
    <点击输入数量/@@InPutInteger0>\
    <返回/@开启>
    #elseact
    GAMEGOLD - <$STR(N0)>
    CALCVAR HUMAN 元宝仓库 + <$STR(N0)>
    SAVEVAR HUMAN 元宝仓库 ..\QuestDiary\元宝\元宝.txt
    MOV N0
    goto @开启
    sendmsg 7 寄存成功,当前元宝数量:<$GAMEGOLD>/当前寄存数量:<$HUMAN(元宝仓库)>




    [@取]
    请输入需要取出的元宝数量\
    当前元宝数量:<$GAMEGOLD>\
    当前寄存数量:<$HUMAN(元宝仓库)>\
    <点击输入取出数量/@@InPutInteger1>\
    <返回/@开启>\


    [@@InPutInteger1]
    #IF
    CheckLevelEx > 0
    #ACT
    DELAYCALL 100 @QU


    [@QU]
    #IF
    large N1 0
    #act
    goto @qu1
    #elseact
    MOV N1
    #elsesay
    输入错误请重新输入\
    <取/@取>


    [@qu1]
    #IF
    CHECKVAR HUMAN 元宝仓库 < <$STR(N1)>
    #say
    你没有寄存那么多元宝,请重新输入\
    <点击输入数量/@@InPutInteger1>\
    <返回/@开启>
    #elseact
    GAMEGOLD + <$STR(N1)>
    CALCVAR HUMAN 元宝仓库 - <$STR(N1)>
    SAVEVAR HUMAN 元宝仓库 ..\QuestDiary\元宝\元宝.txt
    MOV N1
    goto @开启
    sendmsg 7 取出成功,当前元宝数量:<$GAMEGOLD>/当前寄存数量:<$HUMAN(元宝仓库)>








    上一篇:[Hero引擎] 开挂抓监牢贿赂脚本
    下一篇:传奇密码脚本-免费下载

    本帖子中包含更多资源

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

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

    本版积分规则

    网络广告风险自担

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

    GMT+8, 2016-12-6 10:56 , Processed in 0.686401 second(s), 86 queries , Gzip On.

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

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

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