新BLUE引擎角色交易脚本教程

(@@inputstring @@CreateMercenary)


[@main]
#if
ISADMIN
#say
<COLOR=#$CEB6F7 角色交易：玩家可以将自己的角色制作成【佣兵契约纸】进行交易！>\ \
<COLOR=clAqua 1、制作为佣兵的人物角色不小于40级。>\
<COLOR=clAqua 2、每次制作，背包需要放一张空白的【佣兵契约纸】。>\
<COLOR=clAqua 3、经验、技能、物品等数据将会保留。>\
<COLOR=clAqua 4、已经签约的【佣兵契约纸】可以用于创建新角色。><COLOR=clFuchsia 需要佣兵令牌>\
<COLOR=clAqua 5、制作佣兵契约的角色，需要取消金币交易行的所有订单！>\ \
<制作佣兵契约/@MakeMercenarymibao>   <使用契约创建角色/@@CreateMercenary>\


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


[@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 $INTS2 < 3300
COMPVAL $INTS2 > 1500
#ACT
MOV D1 <$UNIXTIME>
INC D1 <$INTS2>
INTS 2 = <$STR(D1)>


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


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


#IF
COMPVAL <$QUIZ> = <$STR(S1)>
#ACT
DELAYGOTO 1 @MAKEMERCENARYMIBAO
BREAK
#ELSEACT
MESSAGEBOX 错误提示：你输入的【密保问题1】错误.连续错误3次将30分钟内禁止在次输入
MOV S1
INTS 2 + 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 $INTS2 < 3300
COMPVAL $INTS2 > 1500
#ACT
MOV D1 <$UNIXTIME>
INC D1 <$INTS2>
INTS 2 = <$STR(D1)>


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


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


#IF
COMPVAL <$ANSWER> = <$STR(S2)>
#ACT
DELAYGOTO 1 @MAKEMERCENARYMIBAO
BREAK
#ELSEACT
MESSAGEBOX 错误提示：你输入的【密保答案1】错误.连续错误3次将30分钟内禁止在次输入
MOV S2
INTS 2 + 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 $INTS2 < 3300
COMPVAL $INTS2 > 1500
#ACT
MOV D1 <$UNIXTIME>
INC D1 <$INTS2>
INTS 2 = <$STR(D1)>


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


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


#IF
COMPVAL <$QUIZ2> = <$STR(S3)>
#ACT
DELAYGOTO 1 @MAKEMERCENARYMIBAO
BREAK
#ELSEACT
MESSAGEBOX 错误提示：你输入的【密保问题2】错误.连续错误3次将30分钟内禁止在次输入
MOV S3
INTS 2 + 600
BREAK




[@验证4]
#IF
EQUAL S3
#ACT
MESSAGEBOX 错误提示：请先输入【密保问题2】
BREAK
#ELSEACT
QUERYVALUE 4 0 20 ~MMBB4 请输入你的【密保答案2】：
BREAK




[~MMBB4]
#IF
COMPVAL $INTS2 < 3300
COMPVAL $INTS2 > 1500
#ACT
MOV D1 <$UNIXTIME>
INC D1 <$INTS2>
INTS 2 = <$STR(D1)>


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


#IF
COMPVAL $INTS2 > 3300
COMPVAL $INTS2 < $UNIXTIME
#ACT
INTS 2 = 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 2 + 600
BREAK




; ------------------- 契约创建角色 -------------------
[@@CreateMercenary]
左边空框内放入<COLOR=clFuchsia 已签约的佣兵契约纸>\
右边空框内放入<COLOR=clFuchsia 佣兵令牌>\ \
<返回/@main>   <关闭/@exit>


; ------------------- 压卡成功后执行的字段 -------------------
[@MakeMercenarySuccess]
#if
true
#act
sendmsg 7 压卡成功：正在制作契约的玩家：<$PARAMSTR(0)>，被制作为契约的原角色名：<$PARAMSTR(1)>，佣兵契约上的角色名：<$PARAMSTR(2)>
ADDLINELIST ..\QuestDiary\账号交易记录.txt 原角色名：<$PARAMSTR(1)>---佣兵契约上的角色名：<$PARAMSTR(2)>


;使用契约纸成功创建角色后执行的字段
[@NewCharByContractSuccess]
#if
true
#act
sendmsg 7 创角成功：正在使用契约创角的玩家：<$PARAMSTR(0)>，佣兵契约上的角色名：<$PARAMSTR(1)>，创建的新角色名：<$PARAMSTR(2)>
ADDLINELIST ..\QuestDiary\账号交易记录.txt 佣兵契约上的角色名：<$PARAMSTR(1)>---创建的新角色名：<$PARAMSTR(2)>