传奇佣兵系统-佣兵契约制作与角色交易脚本详解

佣兵契约制作与角色交易脚本

脚本：

(@@inputstring@@CreateMercenary)

[@main]#say佣兵交易向导：1、制作为佣兵的人物角色等级需达到5级。2、每次制作，背包中需放置一张空白的【佣兵契约纸】。3、制作为契约的角色将损失当前等级经验值，但技能、物品、英雄等数据将会保留。4、已签约的【佣兵契约纸】可用于创建新角色。5、制作佣兵契约的角色，需取消金币交易行的大部分订单！

<制作佣兵契约/@MakeMercenary><使用契约创建角色/@@CreateMercenary><制作佣兵契约(需两步验证)/@MakeMercenaryWithTotpAuth><制作佣兵契约(需密保验证)/@MakeMercenarymibao>

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

[@MakeMercenarymibao]请输入以下正确信息进行验证输入连续错误3次将30分钟内禁止再次输入问题1：【<】前往输入验证答案：【
STR(S2)>】--------------------<前往输入/@验证2>问题2：【<】前往输入验证答案：【
STR(S4)>】--------------------<前往输入/@验证4>

;-------------------制作契约，需两步验证-------------------

[@MakeMercenaryWithTotpAuth]#iftrue#act;请求两步验证的Key($TOTPKEY)，成功后将回调@OnGetTotpKey标签GetTotpKey

[@OnGetTotpKey]#ifCompVal<$TOTPKEY>=""#say你的账号未绑定两步验证，暂不能制作佣兵契约！<绑定两步验证/@@totp><返回/@main><关闭/@exit>#elseactQueryValue516~VerifyKeyCode请输入绑定当前账号的两步验证码：

[~VerifyKeyCode]#if;验证两步验证码是否正确VerifyKeyCode<
STR(M5)>#actQUERYMERCENARIES510#elsesay输入的两步验证码不正确，不能制作佣兵契约！<关闭/@exit>

;-------------------制作契约，无需验证-------------------

[@MakeMercenary]#iftrue#act;参数1表示不小于此等级的角色可以被压卡，;参数2表示制作为佣兵将损失15%的经验值;参数3为1时表示过滤掉隐藏角色QUERYMERCENARIES510

;-------------------契约创建角色-------------------

[@@CreateMercenary]请放置已签约的佣兵契约纸。<返回/@main><关闭/@exit>

;-------------------压卡成功后执行的字段-------------------

[@MakeMercenarySuccess]#iftrue#actsendmsg7压卡成功：正在制作契约的玩家：<，被制作为契约的原角色名：
PARAMSTR(1)>，佣兵契约上的角色名：<需要重命名的角色文本
PARAMSTR(1)><$PARAMSTR(2)>0HardDisk

;使用契约纸成功创建角色后执行的字段

[@NewCharByContractSuccess]#iftrue#actsendmsg7创角成功：正在使用契约创角的玩家：<，佣兵契约上的角色名：
PARAMSTR(1)>，创建的新角色名：<需要重命名的角色文本
PARAMSTR(1)><$PARAMSTR(2)>0HardDisk

完整脚本： 

佣兵示挒脚本
脚本：
---------------------------------------------------------------------------

(@@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
QueryValue1020~MMBB1请输入你的【密保问题1】：
#elseact
MESSAGEBOX错误提示：当前输入的密保是正确的无需在次输入
BREAK


[~MMBB1]
#if
compval$INTS0<3300
compval$INTS0>1500
#act
MOVD1<$UNIXTIME>
INCD1<$INTS0>
ints0=<$STR(D1)>

#if
compval$INTS0>3300
compval$INTS0>$UNIXTIME
#act
calcval$INTS0-$UNIXTIME
sendmsg7将在<$CALCRESULT>秒后，才可以再次输入
calcval$INTS0~0
sendmsg7将在<$CALCRESULT>过期，才可以再次输入
MOVS1
BREAK

#if
compval$INTS0>3300
compval$INTS0<$UNIXTIME
#act
ints0=0

#IF
CompVal<$QUIZ>=<$STR(S1)>
#ACT
DelayGoto1@MakeMercenarymibao
BREAK
#elseact
MESSAGEBOX错误提示：你输入的【密保问题1】错误.连续错误3次将30分钟内禁止在次输入
MOVS1
ints0+600
BREAK

[@验证2]
#if
EQUALS1
#act
MESSAGEBOX错误提示：请先输入【密保问题1】
BREAK

#if
!CompVal<$ANSWER>=<$STR(S2)>
#act
QueryValue2020~MMBB2请输入你的【密保答案1】：
#elseact
MESSAGEBOX错误提示：当前输入的密保是正确的无需在次输入
BREAK

[~MMBB2]
#if
compval$INTS0<3300
compval$INTS0>1500
#act
MOVD1<$UNIXTIME>
INCD1<$INTS0>
ints0=<$STR(D1)>

#if
compval$INTS0>3300
compval$INTS0>$UNIXTIME
#act
calcval$INTS0-$UNIXTIME
sendmsg7将在<$CALCRESULT>秒后，才可以再次输入
calcval$INTS0~0
sendmsg7将在<$CALCRESULT>过期，才可以再次输入
MOVS2
BREAK

#if
compval$INTS0>3300
compval$INTS0<$UNIXTIME
#act
ints0=0

#IF
CompVal<$ANSWER>=<$STR(S2)>
#ACT
DelayGoto1@MakeMercenarymibao
BREAK
#elseact
MESSAGEBOX错误提示：你输入的【密保答案1】错误.连续错误3次将30分钟内禁止在次输入
MOVS2
ints0+600
BREAK

[@验证3]
#if
EQUALS2
#act
MESSAGEBOX错误提示：请先输入【密保答案1】
BREAK

#if
!CompVal<$QUIZ2>=<$STR(S3)>
#act
QueryValue3020~MMBB3请输入你的【密保问题2】：
#elseact
MESSAGEBOX错误提示：当前输入的密保是正确的无需在次输入
BREAK

[~MMBB3]
#if
compval$INTS0<3300
compval$INTS0>1500
#act
MOVD1<$UNIXTIME>
INCD1<$INTS0>
ints0=<$STR(D1)>

#if
compval$INTS0>3300
compval$INTS0>$UNIXTIME
#act
calcval$INTS0-$UNIXTIME
sendmsg7将在<$CALCRESULT>秒后，才可以再次输入
calcval$INTS0~0
sendmsg7将在<$CALCRESULT>过期，才可以再次输入
MOVS3
BREAK

#if
compval$INTS0>3300
compval$INTS0<$UNIXTIME
#act
ints0=0

#IF
CompVal<$QUIZ2>=<$STR(S3)>
#ACT
DelayGoto1@MakeMercenarymibao
BREAK
#elseact
MESSAGEBOX错误提示：你输入的【密保问题2】错误.连续错误3次将30分钟内禁止在次输入
MOVS3
ints0+600
BREAK

[@验证4]
#if
EQUALS3
#act
MESSAGEBOX错误提示：请先输入【密保问题2】
BREAK
#elseact
QueryValue4020~MMBB4请输入你的【密保答案2】：
BREAK

[~MMBB4]
#if
compval$INTS0<3300
compval$INTS0>1500
#act
MOVD1<$UNIXTIME>
INCD1<$INTS0>
ints0=<$STR(D1)>

#if
compval$INTS0>3300
compval$INTS0>$UNIXTIME
#act
calcval$INTS0-$UNIXTIME
sendmsg7将在<$CALCRESULT>秒后，才可以再次输入
calcval$INTS0~0
sendmsg7将在<$CALCRESULT>过期，才可以再次输入
MOVS4
BREAK

#if
compval$INTS0>3300
compval$INTS0<$UNIXTIME
#act
ints0=0

#IF
CompVal<$QUIZ>=<$STR(S1)>
CompVal<$ANSWER>=<$STR(S2)>
CompVal<$QUIZ2>=<$STR(S3)>
CompVal<$ANSWER2>=<$STR(S4)>
#ACT
DelayGoto1@MakeMercenarymibao
;参数1表示不小于此等级的角色可以被压卡，
;参数2表示制作为佣兵将损失15%的经验值
;参数3为1时表示过滤掉隐藏角色
QUERYMERCENARIES510
#elseact
MESSAGEBOX错误提示：你输入的【密保答案2】错误.连续错误3次将30分钟内禁止在次输入
MOVS4
ints0+600
BREAK

;-------------------制作契约，需两步验证-------------------
[@MakeMercenaryWithTotpAuth]
#if
true
#act
;请求两步验证的Key($TOTPKEY)，成功后将回调@OnGetTotpKey标签
GetTotpKey

[@OnGetTotpKey]
#if
CompVal<$TOTPKEY>=""
#say
你的账号未绑定两步验证，暂不能制作佣兵契约！\\
<绑定两步验证/@@totp><返回/@main>\\
<关闭/@exit>
#elseact
QueryValue516~VerifyKeyCode请输入绑定当前账号的两步验证码：

[~VerifyKeyCode]
#if
;验证两步验证码是否正确
VerifyKeyCode<$TOTPKEY><$STR(M5)>
#act
QUERYMERCENARIES510
#elsesay
输入的两步验证码不正确，不能制作佣兵契约！\\
<关闭/@exit>

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

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

;-------------------压卡成功后执行的字段-------------------
[@MakeMercenarySuccess]
#if
true
#act
sendmsg7压卡成功：正在制作契约的玩家：<$PARAMSTR(0)>，被制作为契约的原角色名：<$PARAMSTR(1)>，佣兵契约上的角色名：<$PARAMSTR(2)>
;StringsReplace需要重命名的角色文本.txt<$PARAMSTR(1)><$PARAMSTR(2)>0HardDisk

;使用契约纸成功创建角色后执行的字段
[@NewCharByContractSuccess]
#if
true
#act
sendmsg7创角成功：正在使用契约创角的玩家：<$PARAMSTR(0)>，佣兵契约上的角色名：<$PARAMSTR(1)>，创建的新角色名：<$PARAMSTR(2)>
;StringsReplace需要重命名的角色文本.txt<$PARAMSTR(1)><$PARAMSTR(2)>0HardDisk