(@@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