传奇佣兵的人物角色制作佣兵契约,角色交易脚本

admin

佣兵示挒脚本
        脚本：
        ---------------------------------------------------------------------------
       
        (@@inputstring @@CreateMercenary)
       
        [@main]
        #say
        佣兵交易向导：
        1、制作为佣兵的人物角色不小于5级。
        2、每次制作，背包需要放一张空白的【佣兵契约纸】。
        3、制作为契约的角色将损失当前等级经验值，但技能、物品、英雄等数据将会保留。
        4、已经签约的【佣兵契约纸】可以用于创建新角色。
        5、制作佣兵契约的角色，需要取消金币交易行的所有订单！
         
       
       
       
        ; ------------------- 制作契约，需密保验证 -------------------
       
        [@MakeMercenarymibao]
        请输入以下正确信息进行验证
        输入连续错误3次将30分钟内禁止在次输入
        问题1：【】--------------------
        答案1：【】--------------------
        问题2：【】--------------------
        答案2：【】--------------------
       
       
       
        [@验证1]
        #if
        !CompVal  =
        #act
        QueryValue 1 0 20 ~MMBB1 请输入你的【密保问题1】：
        #elseact
        MESSAGEBOX 错误提示：当前输入的密保是正确的无需在次输入
        BREAK
       
       
        [~MMBB1]
        #if
        compval $INTS0 < 3300
        compval $INTS0 > 1500
        #act
        MOV D1
        INC D1
        ints 0 =
       
        #if
        compval $INTS0 > 3300
        compval $INTS0 > $UNIXTIME
        #act
        calcval $INTS0 - $UNIXTIME
        sendmsg 7 将在秒后，才可以再次输入
        calcval $INTS0 ~ 0
        sendmsg 7 将在过期，才可以再次输入
        MOV S1
        BREAK
       
        #if
        compval $INTS0 > 3300
        compval $INTS0 < $UNIXTIME
        #act
        ints 0 = 0
       
        #IF
        CompVal  =
        #ACT
        DelayGoto 1 @MakeMercenarymibao
        BREAK
        #elseact
        MESSAGEBOX 错误提示：你输入的【密保问题1】错误.连续错误3次将30分钟内禁止在次输入
        MOV S1
        ints 0 + 600
        BREAK
       
        [@验证2]
        #if
        EQUAL S1
        #act
        MESSAGEBOX 错误提示：请先输入【密保问题1】
        BREAK
       
        #if
        !CompVal  =
        #act
        QueryValue 2 0 20 ~MMBB2 请输入你的【密保答案1】：
        #elseact
        MESSAGEBOX 错误提示：当前输入的密保是正确的无需在次输入
        BREAK
       
       
        [~MMBB2]
        #if
        compval $INTS0 < 3300
        compval $INTS0 > 1500
        #act
        MOV D1
        INC D1
        ints 0 =
       
        #if
        compval $INTS0 > 3300
        compval $INTS0 > $UNIXTIME
        #act
        calcval $INTS0 - $UNIXTIME
        sendmsg 7 将在秒后，才可以再次输入
        calcval $INTS0 ~ 0
        sendmsg 7 将在过期，才可以再次输入
        MOV S2
        BREAK
       
        #if
        compval $INTS0 > 3300
        compval $INTS0 < $UNIXTIME
        #act
        ints 0 = 0
       
        #IF
        CompVal  =
        #ACT
        DelayGoto 1 @MakeMercenarymibao
        BREAK
        #elseact
        MESSAGEBOX 错误提示：你输入的【密保答案1】错误.连续错误3次将30分钟内禁止在次输入
        MOV S2
        ints 0 + 600
        BREAK
       
       
        [@验证3]
        #if
        EQUAL S2
        #act
        MESSAGEBOX 错误提示：请先输入【密保答案1】
        BREAK
       
        #if
        !CompVal  =
        #act
        QueryValue 3 0 20 ~MMBB3 请输入你的【密保问题2】：
        #elseact
        MESSAGEBOX 错误提示：当前输入的密保是正确的无需在次输入
        BREAK
       
       
        [~MMBB3]
        #if
        compval $INTS0 < 3300
        compval $INTS0 > 1500
        #act
        MOV D1
        INC D1
        ints 0 =
       
        #if
        compval $INTS0 > 3300
        compval $INTS0 > $UNIXTIME
        #act
        calcval $INTS0 - $UNIXTIME
        sendmsg 7 将在秒后，才可以再次输入
        calcval $INTS0 ~ 0
        sendmsg 7 将在过期，才可以再次输入
        MOV S3
        BREAK
       
        #if
        compval $INTS0 > 3300
        compval $INTS0 < $UNIXTIME
        #act
        ints 0 = 0
       
        #IF
        CompVal  =
        #ACT
        DelayGoto 1 @MakeMercenarymibao
        BREAK
        #elseact
        MESSAGEBOX 错误提示：你输入的【密保问题2】错误.连续错误3次将30分钟内禁止在次输入
        MOV S3
        ints 0 + 600
        BREAK
       
       
        [@验证4]
        #if
        EQUAL S3
        #act
        MESSAGEBOX 错误提示：请先输入【密保问题2】
        BREAK
        #elseact
        QueryValue 4 0 20 ~MMBB4 请输入你的【密保答案2】：
        BREAK
       
       
        [~MMBB4]
        #if
        compval $INTS0 < 3300
        compval $INTS0 > 1500
        #act
        MOV D1
        INC D1
        ints 0 =
       
        #if
        compval $INTS0 > 3300
        compval $INTS0 > $UNIXTIME
        #act
        calcval $INTS0 - $UNIXTIME
        sendmsg 7 将在秒后，才可以再次输入
        calcval $INTS0 ~ 0
        sendmsg 7 将在过期，才可以再次输入
        MOV S4
        BREAK
       
        #if
        compval $INTS0 > 3300
        compval $INTS0 < $UNIXTIME
        #act
        ints 0 = 0
       
        #IF
        CompVal  =
        CompVal  =
        CompVal  =
        CompVal  =
        #ACT
        DelayGoto 1 @MakeMercenarymibao
        ;参数1表示不小于此等级的角色可以被压卡，
        ;参数2表示制作为佣兵将损失15%的经验值
        ;参数3为1时表示过滤掉隐藏角色
        QUERYMERCENARIES 5 1 0
        #elseact
        MESSAGEBOX 错误提示：你输入的【密保答案2】错误.连续错误3次将30分钟内禁止在次输入
        MOV S4
        ints 0 + 600
        BREAK
       
       
       
       
       
       
       
       
       
        ; ------------------- 制作契约，需两步验证 -------------------
        [@MakeMercenaryWithTotpAuth]
        #if
        true
        #act
        ; 请求两步验证的Key($TOTPKEY)，成功后将回调@OnGetTotpKey标签
        GetTotpKey
       
        [@OnGetTotpKey]
        #if
        CompVal  = ""
        #say
        你的账号未绑定两步验证，暂不能制作佣兵契约！
          
       
        #elseact
        QueryValue 5 1 6 ~VerifyKeyCode 请输入绑定当前账号的两步验证码：
       
        [~VerifyKeyCode]
        #if
        ; 验证两步验证码是否正确
        VerifyKeyCode  
        #act
        QUERYMERCENARIES 5 1 0
        #elsesay
        输入的两步验证码不正确，不能制作佣兵契约！
       
       
        ; ------------------- 制作契约，无需验证 -------------------
        [@MakeMercenary]
        #if
        true
        #act
        ;参数1表示不小于此等级的角色可以被压卡，
        ;参数2表示制作为佣兵将损失15%的经验值
        ;参数3为1时表示过滤掉隐藏角色
        QUERYMERCENARIES 5 1 0
       
       
        ; ------------------- 契约创建角色 -------------------
        [@@CreateMercenary]
        请放上已签约的佣兵契约纸。
         
       
       
        ; ------------------- 压卡成功后执行的字段 -------------------
        [@MakeMercenarySuccess]
        #if
        true
        #act
        sendmsg 7 压卡成功：正在制作契约的玩家：，被制作为契约的原角色名：，佣兵契约上的角色名：
        ;StringsReplace 需要重命名的角色文本.txt   0 HardDisk
       
        ;使用契约纸成功创建角色后执行的字段
        [@NewCharByContractSuccess]
        #if
        true
        #act
        sendmsg 7 创角成功：正在使用契约创角的玩家：，佣兵契约上的角色名：，创建的新角色名：
        ;StringsReplace 需要重命名的角色文本.txt   0 HardDisk