[BLUE引擎]传奇版本佣兵脚本完整版示例

佣兵脚本：
(@@INPUTSTRING @@CREATEMERCENARY)

[@MAIN]
#SAY
佣兵交易向导：\
1、制作为佣兵的人物角色不小于5级。\
2、每次制作，背包需要放一张空白的[佣兵契约纸]。\
3、制作为契约的角色将损失当前等级经验值，但技能、物品、英雄等数据将会保留。\
4、已经签约的[佣兵契约纸]可以用于创建新角色。\
5、制作佣兵契约的角色，需要取消金币交易行的所有订单！\ \
<制作佣兵契约/@MAKEMERCENARY>   <使用契约创建角色/@@CREATEMERCENARY>\
<制作佣兵契约(需两步验证)/@MAKEMERCENARYWITHTOTPAUTH>\
<制作佣兵契约(需密保验证)/@MAKEMERCENARYMIBAO>\

; ------------------- 制作契约，需密保验证 -------------------

[@MAKEMERCENARYMIBAO]
请输入以下正确信息进行验证\
输入连续错误3次将30分钟内禁止在次输入\
问题1：[<$STR(S1)>]--------------------<点击输入/@验证1>\
答案1：[<$STR(S2)>]--------------------<点击输入/@验证2>\
问题2：[<$STR(S3)>]--------------------<点击输入/@验证3>\
答案2：[<$STR(S4)>]--------------------<点击输入/@验证4>\



[@验证1]
#IF
!COMPVAL <$QUIZ> = <$STR(S1)>
#ACT
QUERYVALUE 1 0 20 ~MMBB1 请输入你的[密保问题1]：
#ELSEACT
MESSAGEBOX 错误提示：当前输入的密保是正确的无需在次输入
BREAK


[~MMBB1]
#IF
COMPVAL $INTS0 < 3300
COMPVAL $INTS0 > 1500
#ACT
MOV D1 <$UNIXTIME>
INC D1 <$INTS0>
INTS 0 = <$STR(D1)>

#IF
COMPVAL $INTS0 > 3300
COMPVAL $INTS0 > $UNIXTIME
#ACT
CALCVAL $INTS0 - $UNIXTIME
SENDMSG 7 将在<$CALCRESULT>秒后，才可以再次输入
CALCVAL $INTS0 ~ 0
SENDMSG 7 将在<$CALCRESULT>过期，才可以再次输入
MOV S1
BREAK

#IF
COMPVAL $INTS0 > 3300
COMPVAL $INTS0 < $UNIXTIME
#ACT
INTS 0 = 0

#IF
COMPVAL <$QUIZ> = <$STR(S1)>
#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 <$ANSWER> = <$STR(S2)>
#ACT
QUERYVALUE 2 0 20 ~MMBB2 请输入你的[密保答案1]：
#ELSEACT
MESSAGEBOX 错误提示：当前输入的密保是正确的无需在次输入
BREAK


[~MMBB2]
#IF
COMPVAL $INTS0 < 3300
COMPVAL $INTS0 > 1500
#ACT
MOV D1 <$UNIXTIME>
INC D1 <$INTS0>
INTS 0 = <$STR(D1)>

#IF
COMPVAL $INTS0 > 3300
COMPVAL $INTS0 > $UNIXTIME
#ACT
CALCVAL $INTS0 - $UNIXTIME
SENDMSG 7 将在<$CALCRESULT>秒后，才可以再次输入
CALCVAL $INTS0 ~ 0
SENDMSG 7 将在<$CALCRESULT>过期，才可以再次输入
MOV S2
BREAK

#IF
COMPVAL $INTS0 > 3300
COMPVAL $INTS0 < $UNIXTIME
#ACT
INTS 0 = 0

#IF
COMPVAL <$ANSWER> = <$STR(S2)>
#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 <$QUIZ2> = <$STR(S3)>
#ACT
QUERYVALUE 3 0 20 ~MMBB3 请输入你的[密保问题2]：
#ELSEACT
MESSAGEBOX 错误提示：当前输入的密保是正确的无需在次输入
BREAK


[~MMBB3]
#IF
COMPVAL $INTS0 < 3300
COMPVAL $INTS0 > 1500
#ACT
MOV D1 <$UNIXTIME>
INC D1 <$INTS0>
INTS 0 = <$STR(D1)>

#IF
COMPVAL $INTS0 > 3300
COMPVAL $INTS0 > $UNIXTIME
#ACT
CALCVAL $INTS0 - $UNIXTIME
SENDMSG 7 将在<$CALCRESULT>秒后，才可以再次输入
CALCVAL $INTS0 ~ 0
SENDMSG 7 将在<$CALCRESULT>过期，才可以再次输入
MOV S3
BREAK

#IF
COMPVAL $INTS0 > 3300
COMPVAL $INTS0 < $UNIXTIME
#ACT
INTS 0 = 0

#IF
COMPVAL <$QUIZ2> = <$STR(S3)>
#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 <$UNIXTIME>
INC D1 <$INTS0>
INTS 0 = <$STR(D1)>

#IF
COMPVAL $INTS0 > 3300
COMPVAL $INTS0 > $UNIXTIME
#ACT
CALCVAL $INTS0 - $UNIXTIME
SENDMSG 7 将在<$CALCRESULT>秒后，才可以再次输入
CALCVAL $INTS0 ~ 0
SENDMSG 7 将在<$CALCRESULT>过期，才可以再次输入
MOV S4
BREAK

#IF
COMPVAL $INTS0 > 3300
COMPVAL $INTS0 < $UNIXTIME
#ACT
INTS 0 = 0

#IF
COMPVAL <$QUIZ> = <$STR(S1)>
COMPVAL <$ANSWER> = <$STR(S2)>
COMPVAL <$QUIZ2> = <$STR(S3)>
COMPVAL <$ANSWER2> = <$STR(S4)>
#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 <$TOTPKEY>  = ""
#SAY
你的账号未绑定两步验证，暂不能制作佣兵契约！\ \
<绑定两步验证/@@TOTP>   <返回/@MAIN>\ \
<关闭/@EXIT>
#ELSEACT
QUERYVALUE 5 1 6 ~VERIFYKEYCODE 请输入绑定当前账号的两步验证码：

[~VERIFYKEYCODE]
#IF
; 验证两步验证码是否正确
VERIFYKEYCODE <$TOTPKEY> <$STR(M5)>
#ACT
QUERYMERCENARIES 5 1 0
#ELSESAY
输入的两步验证码不正确，不能制作佣兵契约！\ \
<关闭/@EXIT>

; ------------------- 制作契约，无需验证 -------------------
[@MAKEMERCENARY]
#IF
TRUE
#ACT
;参数1表示不小于此等级的角色可以被压卡，
;参数2表示制作为佣兵将损失15%的经验值
;参数3为1时表示过滤掉隐藏角色
QUERYMERCENARIES 5 1 0


; ------------------- 契约创建角色 -------------------
[@@CREATEMERCENARY]
请放上已签约的佣兵契约纸。\ \
<返回/@MAIN>   <关闭/@EXIT>


; ------------------- 压卡成功后执行的字段 -------------------
[@MAKEMERCENARYSUCCESS]
#IF
TRUE
#ACT
SENDMSG 7 压卡成功：正在制作契约的玩家：<$PARAMSTR(0)>，被制作为契约的原角色名：<$PARAMSTR(1)>，佣兵契约上的角色名：<$PARAMSTR(2)>
;STRINGSREPLACE 需要重命名的角色文本.TXT <$PARAMSTR(1)> <$PARAMSTR(2)> 0 HARDDISK

;使用契约纸成功创建角色后执行的字段
[@NEWCHARBYCONTRACTSUCCESS]
#IF
TRUE
#ACT
SENDMSG 7 创角成功：正在使用契约创角的玩家：<$PARAMSTR(0)>，佣兵契约上的角色名：<$PARAMSTR(1)>，创建的新角色名：<$PARAMSTR(2)>
;STRINGSREPLACE 需要重命名的角色文本.TXT <$PARAMSTR(1)> <$PARAMSTR(2)> 0 HARDDISK