(@@inputstring @@CreateMercenary); C+ p# a7 |5 [: u6 \
$ I8 z9 Z6 s& O. q3 f5 f8 s3 R
) U8 U+ S- |" Z9 g: f
[@main]
+ r$ d6 J+ z0 l- z#if
; m/ e1 g0 s" y* aISADMIN
) Y3 V4 o( ]2 L+ _#say! x2 e0 y. v) i u% {
<COLOR=#$CEB6F7 角色交易：玩家可以将自己的角色制作成【佣兵契约纸】进行交易！>\ \* x* w' F. X. [ M
<COLOR=clAqua 1、制作为佣兵的人物角色不小于40级。>\
2 y% o( s" ~! b( ~<COLOR=clAqua 2、每次制作，背包需要放一张空白的【佣兵契约纸】。>\
1 i" F2 t0 Q) o, D" u3 Y- P8 u. `4 E) N<COLOR=clAqua 3、经验、技能、物品等数据将会保留。>\/ @4 }! U: J; e0 @. E
<COLOR=clAqua 4、已经签约的【佣兵契约纸】可以用于创建新角色。><COLOR=clFuchsia 需要佣兵令牌>\
2 h- o6 h. Y& C. D/ Y' p# D" M<COLOR=clAqua 5、制作佣兵契约的角色，需要取消金币交易行的所有订单！>\ \8 o; R9 Y! G2 I p! e* u! H& F
<制作佣兵契约/@MakeMercenarymibao> <使用契约创建角色/@@CreateMercenary>\* `$ ~) c( m) I6 s5 d" c# ]
# [$ }0 _% s% W2 u/ i) ]
$ G$ Y$ i% A6 w+ c+ n+ j9 [; ------------------- 制作契约，需密保验证 -------------------
/ h: V" m. i- E3 V) z \. E0 P& R: b" T. p$ C
/ o. \0 x4 v i G[@MakeMercenarymibao]3 a8 k0 V( y( k1 h% Q# }
请输入以下正确信息进行验证\
, K, x; \& b! S q: J6 k输入连续错误3次将30分钟内禁止在次输入\, d7 |: x0 D* r+ I* _2 u
问题1：【<$STR(S1)>】--------------------<点击输入/@验证1>\
$ _( v) G2 j* f答案1：【<$STR(S2)>】--------------------<点击输入/@验证2>\0 ]- M! m5 a, u4 C& C
问题2：【<$STR(S3)>】--------------------<点击输入/@验证3>\
; ]1 g4 ] T1 A5 |& n9 T: d, _5 a答案2：【<$STR(S4)>】--------------------<点击输入/@验证4>\9 O& E( X( P g( i1 K+ [1 k$ l
/ w) v8 V; T5 k% g
$ G }1 y. ~( y4 p$ D: s6 B
. j3 Y% N+ J( S7 J B$ j% m2 ^
+ l0 d6 @ z; F( q9 c9 m8 U
$ F, H( U, r8 r* E+ j[@验证1]7 I# q5 i* ?5 X+ T
#IF
# u! s1 J) `4 G: b6 o1 T- c9 ]!COMPVAL <$QUIZ> = <$STR(S1)>. y! f# e6 m* E2 L, Y+ ?
#ACT
4 N* D% Z( v6 r$ u. D8 nQUERYVALUE 1 0 20 ~MMBB1 请输入你的【密保问题1】：
7 [ d4 I5 w% n( c: U. u& p#ELSEACT
" Z& v9 b% J3 \; Z; b5 d) x0 V$ LMESSAGEBOX 错误提示：当前输入的密保是正确的无需在次输入
0 |- ]4 c3 n. a7 v! C( I0 x# g! UBREAK
+ T% Q4 t: D4 r2 n3 A8 r( ^4 z" h
. y8 N7 G" K5 y; {" Z' x9 k! F9 @# m' C
* `( o$ G) C" w4 c# |: M: Y: S6 Z2 X) t7 k; ]0 N7 r3 h
[~MMBB1]' Z3 p3 a6 v( H9 C
#IF6 U" ~) @2 M7 s* O# k
COMPVAL $INTS2 < 3300' l( E/ |# k7 b
COMPVAL $INTS2 > 1500; L0 N+ K4 ]+ P6 a* q/ w
#ACT
* C) j5 j4 [- _7 jMOV D1 <$UNIXTIME>$ [( u/ E( w( r: \; Q
INC D1 <$INTS2>
, s0 l3 n% W& u% c! e; ^ u3 jINTS 2 = <$STR(D1)>4 z) ?: D7 I6 Q% m
3 d6 H! h+ p4 K
) a' W2 i/ y5 G* b2 e- d& Y0 U+ K& g! v% T#IF
# p |9 B6 `5 i2 TCOMPVAL $INTS2 > 3300
* c7 c, w0 g8 H3 V0 L4 ^COMPVAL $INTS2 > $UNIXTIME
4 r; S5 S$ P* F) S6 B( H7 Y- @#ACT% n- o9 |0 U& s9 L: `
CALCVAL $INTS2 - $UNIXTIME
+ y2 t3 f$ u3 w( E }+ j0 R% {SENDMSG 7 将在<$CALCRESULT>秒后，才可以再次输入
7 m) H% {6 J$ c0 v! ACALCVAL $INTS2 ~ 0( l7 q; C* X1 U, e1 M
SENDMSG 7 将在<$CALCRESULT>过期，才可以再次输入
( e7 y$ t& U8 ]$ ^: P1 A! DMOV S1
" \: c/ t* L) ]# K; [BREAK
' j o, j" ?+ z% R! z
+ r* M$ c z" W0 w1 W
6 p; }" w: `, ^ i8 J; q#IF; L- F6 _& l: C1 M' O$ u4 W
COMPVAL $INTS2 > 3300
6 e# [- H& q) y% a9 _% Y3 V" qCOMPVAL $INTS2 < $UNIXTIME% n9 P, U; U5 F' ^6 j+ C+ M
#ACT
/ r( j* e$ g! ?- s0 s1 hINTS 2 = 0
! ^ W. |9 Q" v: d5 f* Q" d" k$ A# D+ }1 m0 o. x7 r+ J+ L
4 N& j5 E% s0 k+ g' x# b& X9 L0 q
#IF
, |* G5 M, L! V- l" mCOMPVAL <$QUIZ> = <$STR(S1)>8 ^* g4 o/ G# U! N/ H/ P0 N! c- m
#ACT
) W, z/ K2 f; T% C8 w4 ~3 YDELAYGOTO 1 @MAKEMERCENARYMIBAO1 M. C% ^! W- |$ C
BREAK6 v& H! [8 q( {5 R; {9 K1 E
#ELSEACT
# a, z3 Z' @, i/ ^MESSAGEBOX 错误提示：你输入的【密保问题1】错误.连续错误3次将30分钟内禁止在次输入
0 R& ^3 z+ X1 @9 N/ U, `MOV S1
# ?6 \4 {5 i" s" YINTS 2 + 600; s+ C, U+ \( T& F$ s
BREAK, Y9 X/ _ x8 Q( Q( A/ T
/ d- _$ D$ S/ {' p I M9 M1 N8 }- F7 S3 q3 X4 T
[@验证2]1 n$ g6 y# k- `/ {3 p* o
#IF, ]0 b" Y' W6 I- w9 r, N
EQUAL S1 ; N0 l" v/ q4 L! @; w" c
#ACT
; V+ C! y5 Z1 p) t0 P1 Z. ZMESSAGEBOX 错误提示：请先输入【密保问题1】6 v# B% H& s1 P9 f' j
BREAK
9 D0 I$ q* M8 t3 V9 ], O) D7 i7 ^9 a- G
0 g, |5 C' M+ `; E; c2 K* N6 Q% C5 Y; o
#IF9 W5 p0 \/ k6 Y: Y0 ~$ s
!COMPVAL <$ANSWER> = <$STR(S2)>
* y1 S- I; I3 I" O$ n3 K#ACT
i. w$ ^; {" `# q9 w; u$ aQUERYVALUE 2 0 20 ~MMBB2 请输入你的【密保答案1】：
9 J$ `' @3 ^/ c#ELSEACT
; q0 d' B7 g9 }& O/ L. i5 _MESSAGEBOX 错误提示：当前输入的密保是正确的无需在次输入, O4 a9 o r; s+ P. T0 n1 I* G
BREAK
3 v+ C9 Q1 O: D8 y4 j+ ?; f( O0 B$ C( ~: i( _
; e& w0 Z& W/ a0 J; h9 Y# z& V8 D7 ^( r1 s5 J( B: ?
/ F$ V$ [2 ~, y/ Y[~MMBB2]
6 ^7 X4 {$ M8 K# F#IF) i/ n) r7 A: d* s! r( M3 e
COMPVAL $INTS2 < 3300
u- p8 x9 _, d, iCOMPVAL $INTS2 > 1500
/ a0 E+ }% h+ T4 u. n#ACT
; `' P4 h. y; y$ ~2 {' C' B- M: I% BMOV D1 <$UNIXTIME>. }# w( X: ^7 Z! d
INC D1 <$INTS2>
$ D& k! n9 b3 v( C; H/ p; rINTS 2 = <$STR(D1)>
/ J1 o) @8 N" f: O/ V9 @' ~) [# z
3 @7 A/ u8 [+ i! F8 F( _& k2 P2 t8 \" S
. V7 o9 e) g. t8 }#IF) g' A/ |" q0 H) H e7 N' X
COMPVAL $INTS2 > 3300. O- ~) A8 G/ d4 m; V
COMPVAL $INTS2 > $UNIXTIME
" m6 O: m* {$ w. ~0 b( n" G#ACT' X" `' O% k7 J" o
CALCVAL $INTS2 - $UNIXTIME
9 G' L I3 W; [" q2 sSENDMSG 7 将在<$CALCRESULT>秒后，才可以再次输入# `( E) l1 l& ] w
CALCVAL $INTS2 ~ 0
) Z, I q1 ?6 b' @SENDMSG 7 将在<$CALCRESULT>过期，才可以再次输入
- L, q& I# ~7 ^* u9 {$ zMOV S2 9 X; D& I/ V- f* d$ [
BREAK
' d) `1 J; }* Z
7 C/ S9 x3 u7 s8 g- u7 J- Y& K9 S D5 f8 O+ q
#IF5 q( }8 v6 D9 I* p6 b. `( z) H
COMPVAL $INTS2 > 3300
/ w, o* y6 Q% O* m0 y+ z5 aCOMPVAL $INTS2 < $UNIXTIME& L) U: f8 C% c8 |! y$ l/ V( z
#ACT
4 T' _# Q( K& K: x: E) |+ e0 IINTS 2 = 0 c& L* f y! c/ `/ M
( I9 {/ R1 L" a, |) M6 S0 O# ~' m
3 x5 ` m) t2 z' C' f( N
#IF
6 q* w* n" }' ~/ r# [( kCOMPVAL <$ANSWER> = <$STR(S2)>
# D8 s# }2 `3 Z# C#ACT
0 j) v5 u G+ S) Y8 qDELAYGOTO 1 @MAKEMERCENARYMIBAO' l0 c" \. r0 X2 ?' L
BREAK. B- a6 Y, f5 b1 ^3 _: ?2 `% _
#ELSEACT$ w3 H1 T3 s3 _
MESSAGEBOX 错误提示：你输入的【密保答案1】错误.连续错误3次将30分钟内禁止在次输入) x6 f+ V' x4 P5 D2 u. A2 W
MOV S2
( u8 @) J- n, I5 WINTS 2 + 6002 [" u* c+ {8 j% J# ?4 y
BREAK
T, M, g0 a ?+ V, N E' j: x2 I T0 L; C
# s. v& y6 |6 b8 B M, L
8 L6 B8 e0 `' l+ E/ `
' {/ g. v: X1 H6 I4 o; I[@验证3]
6 l R, p# y; X1 q! T) {#IF6 k! t) @6 i1 ]) [, ?6 c
EQUAL S2 $ ~. M7 ]3 s4 j D7 H. Q5 v
#ACT
$ ~) k. H* P8 L; kMESSAGEBOX 错误提示：请先输入【密保答案1】
9 y! o% b4 K$ }8 M, [* D2 XBREAK
, T+ d( z% A$ `1 g! Z M* C: F5 [, N g8 i# f
6 O* ]+ q' d( T6 S#IF- v$ O& C0 k/ R, D; F: L6 D6 D( O5 v7 E/ G
!COMPVAL <$QUIZ2> = <$STR(S3)>% U: y. Z( [* M
#ACT% L9 y/ J' t3 }0 ^
QUERYVALUE 3 0 20 ~MMBB3 请输入你的【密保问题2】：
5 H4 P+ ]0 }8 b4 k#ELSEACT
) V- b9 Z$ q/ H( YMESSAGEBOX 错误提示：当前输入的密保是正确的无需在次输入
# D0 b9 A+ P) A( a: }BREAK m3 ^8 x2 m5 u
+ b5 G+ P/ p( T4 c7 Q
y* T/ Y( H; k& c/ J! A! ~1 \3 `; I3 ]
3 t0 B" ]; g' l6 t5 L[~MMBB3]
+ p a5 a' M2 U3 ?# c+ T, g: A" I U#IF* c) N, x- q/ k3 [6 v; ]5 O m9 a
COMPVAL $INTS2 < 3300
4 {9 L$ C# j; G9 QCOMPVAL $INTS2 > 1500" X! N& X1 a6 ?7 R
#ACT8 N% S" }) e/ I) }
MOV D1 <$UNIXTIME>. B" W$ t$ P, w# \
INC D1 <$INTS2>2 l) p$ Q1 ]5 M( ]$ v! E
INTS 2 = <$STR(D1)>0 X, E! Q6 Z* e* l% Z
/ j% Y) U) k5 _! u( ]1 ~7 y6 O5 Y9 V; O, j8 _2 \
#IF
2 ^6 ~% k. v3 ?/ L; H& n# [COMPVAL $INTS2 > 3300
5 B& ~) w2 f$ F' Q" o I8 tCOMPVAL $INTS2 > $UNIXTIME1 Z% A+ X/ R( o& \0 |
#ACT
; n9 o# J$ Y8 f; \CALCVAL $INTS2 - $UNIXTIME2 {& g0 s/ Q: J! M/ [
SENDMSG 7 将在<$CALCRESULT>秒后，才可以再次输入% @0 V9 N! K7 L
CALCVAL $INTS2 ~ 01 S) ]1 A* V9 V
SENDMSG 7 将在<$CALCRESULT>过期，才可以再次输入8 f% [- A& ~5 {% X" W" c7 y2 ^
MOV S3
' L4 _* e. S: S4 M! uBREAK
$ w f. w0 P8 G. t. X: a' v: d9 M2 s2 `. a5 K4 i
. ?* j0 V, F2 ~
#IF9 x+ M- d" D0 |. b \6 g
COMPVAL $INTS2 > 3300/ p2 _$ `+ f, n4 I3 Q$ j) W
COMPVAL $INTS2 < $UNIXTIME9 c$ X& E" S8 b+ }
#ACT
! J2 h1 R9 h% ^INTS 2 = 0
* e, t/ B) v4 Q
# A6 L' J" k- c' m. [
6 s, }$ p0 K2 j$ {3 E3 G) g( t; F! | D#IF2 |' J8 K1 a5 s- u
COMPVAL <$QUIZ2> = <$STR(S3)>; T9 E% l7 F5 H1 _: n! R* n* \
#ACT8 W( s2 q( G2 @7 w
DELAYGOTO 1 @MAKEMERCENARYMIBAO
r3 T) E, H- \; N# f0 FBREAK
. h' w4 e! T6 z#ELSEACT
' N% i* K6 X5 b3 j; TMESSAGEBOX 错误提示：你输入的【密保问题2】错误.连续错误3次将30分钟内禁止在次输入
. g, ~3 k' p: pMOV S3 8 }) [0 B/ b. T. j: h# R
INTS 2 + 600* B% n, l9 M" }1 _: ?3 t! B
BREAK
' T" K! C1 t: D% w: N% x: ^
! r- \- \, D8 e% [9 b2 F! V2 D4 H# }( f4 g
) a ?/ u: g6 _% X* j( D2 j/ Z3 Z2 p4 y5 X* |
[@验证4]
; i$ j& O/ c: n5 F#IF
6 V: y1 F. `5 DEQUAL S3 * o. C; i- Z! ^, C5 Z
#ACT
$ Z6 W1 W7 d) b* g; A' L# c4 pMESSAGEBOX 错误提示：请先输入【密保问题2】7 F% Z% N& ~5 T) z. n' H1 U% d
BREAK0 j- l; N$ j, C
#ELSEACT
3 w" u* I3 v4 f& \* ZQUERYVALUE 4 0 20 ~MMBB4 请输入你的【密保答案2】：
/ ~8 @# G5 d Z* O! UBREAK% ~! e t8 I9 _+ {) U M
7 E2 O1 _! D4 @# N. I3 o
6 G, x$ }5 A9 A T5 _6 x
8 L' r6 x! _! O+ B2 r3 t! c6 o5 R! Q0 [- X5 D+ X
[~MMBB4]$ X# U9 _( M, y' r7 Y% A
#IF' n" A9 Y6 U/ K, n
COMPVAL $INTS2 < 3300
2 d; Z( ^/ N+ P9 y& ?" `COMPVAL $INTS2 > 1500
& @, Y i% l. a2 X#ACT6 s# a3 O: F9 Z9 i6 Z# b7 w& i( x
MOV D1 <$UNIXTIME>8 F+ A$ G, _0 l
INC D1 <$INTS2>, k: A# p9 s6 Q& \
INTS 2 = <$STR(D1)>* U" ?- j0 q4 N! Z
5 W; i' c8 F W, B0 V, d2 E- ~4 s; Z- _4 Q5 Z
#IF4 _2 q4 ]3 `% ^9 \
COMPVAL $INTS2 > 33003 U( U8 L; M3 f2 M/ z% L
COMPVAL $INTS2 > $UNIXTIME, j# x& k0 P# I( M5 {6 m
#ACT% z3 x8 S# k* ]$ ]+ V! o( v4 L6 k
CALCVAL $INTS2 - $UNIXTIME% c# c. Y3 p5 b2 A* @
SENDMSG 7 将在<$CALCRESULT>秒后，才可以再次输入
4 O W' M8 F. CCALCVAL $INTS2 ~ 0/ ?0 h) S Q! Y% H
SENDMSG 7 将在<$CALCRESULT>过期，才可以再次输入
! _3 T; A/ h! ^! n, C D1 @MOV S4 6 J$ c' H' Y6 x/ z# v% m
BREAK, I, K) u( M( I
& R% @; P7 t' i3 A9 d
) M0 q6 A, V( T5 Y" m# ~/ d* U& Q#IF9 h* M8 Y( }# g. t
COMPVAL $INTS2 > 3300* d5 E7 B8 P1 J; T
COMPVAL $INTS2 < $UNIXTIME
) S% p4 u/ f* v. M#ACT
* N. a6 x- ]+ O3 {5 [INTS 2 = 0
$ L6 g3 f d) @8 @ a% @2 v0 ^5 x; [5 J+ I3 x
4 |7 D* ^, t3 Z- P0 f9 V8 M" p
#IF. [, j! q( c+ r1 i6 @6 K5 q
COMPVAL <$QUIZ> = <$STR(S1)>
( D" D- y( O' {; T1 xCOMPVAL <$ANSWER> = <$STR(S2)>% d3 p4 Q0 f3 s, M
COMPVAL <$QUIZ2> = <$STR(S3)>
; s5 `& z8 u2 [0 P. y$ C8 Q xCOMPVAL <$ANSWER2> = <$STR(S4)>3 b# l8 S( m! E5 _) y
#ACT# `# U* x% `! ?1 ~+ s
DELAYGOTO 1 @MAKEMERCENARYMIBAO
2 c, x% h; s6 C$ W: t;参数1表示不小于此等级的角色可以被压卡，. S( e# | v& e: m% O0 m
;参数2表示制作为佣兵将损失15%的经验值
) g5 M( y ^; l: m# l( n& s;参数3为1时表示过滤掉隐藏角色
) `$ h( A4 ~; N9 y# H1 D# J" `QUERYMERCENARIES 5 1 0: w, c: i8 @" T# j3 ?9 H' q
#ELSEACT$ M$ P7 K) `& f$ P2 L2 x
MESSAGEBOX 错误提示：你输入的【密保答案2】错误.连续错误3次将30分钟内禁止在次输入
: \7 k Y0 y9 c5 w/ Y1 jMOV S4 # C" ]! q1 E; q7 R- K* b
INTS 2 + 600/ x$ N" a+ v" r; H* [, H
BREAK( r m5 K! Y# N2 O3 Z! {
" ]$ ~ d3 j# q1 ]
: ~6 x$ r' F& Y4 m) t. H9 u6 [7 z D: J
+ |! ?2 q! ^! U8 o, r
; ------------------- 契约创建角色 -------------------7 a: D& K" B. P" V3 o! {: _
[@@CreateMercenary]
1 D `2 c& e0 {) m左边空框内放入<COLOR=clFuchsia 已签约的佣兵契约纸>\# ^1 e: m; B0 B Z( a( a5 p
右边空框内放入<COLOR=clFuchsia 佣兵令牌>\ \2 l7 }* g0 H* ~3 S* {
<返回/@main> <关闭/@exit>; G! G& h8 n$ h1 {8 z) v* U0 r2 }
: p. {2 q) \. F- F5 \" @
; u* o2 l+ Q) q" @) b: @
; ------------------- 压卡成功后执行的字段 -------------------" h4 I& y3 w% n
[@MakeMercenarySuccess]) d# ]. ~+ O M% ]3 {; I6 j" Q2 E! ^1 [
#if
$ d K9 z& x& p( N5 G1 \0 Btrue
' e6 |+ F2 J4 T! | ^#act7 L2 b: U# z& x
sendmsg 7 压卡成功：正在制作契约的玩家：<$PARAMSTR(0)>，被制作为契约的原角色名：<$PARAMSTR(1)>，佣兵契约上的角色名：<$PARAMSTR(2)>1 h8 h7 a# f) E$ N4 \3 x; c2 c
ADDLINELIST ..\QuestDiary\账号交易记录.txt 原角色名：<$PARAMSTR(1)>---佣兵契约上的角色名：<$PARAMSTR(2)>
6 @) K' h* _( e6 u- v+ L" o8 i/ |, i8 X' F, Q
S" Y1 k. }# E+ r4 q
;使用契约纸成功创建角色后执行的字段8 L6 y( g% z7 @2 b. _& j
[@NewCharByContractSuccess]
, }' @) j6 A% e, M. {) R. j8 X1 m#if/ ?1 f! Y& L U
true$ T7 r/ o0 i$ g8 i
#act
8 w8 { |* |. G msendmsg 7 创角成功：正在使用契约创角的玩家：<$PARAMSTR(0)>，佣兵契约上的角色名：<$PARAMSTR(1)>，创建的新角色名：<$PARAMSTR(2)>
9 ?- z( n4 g( p7 M; P5 y9 Z6 @ADDLINELIST ..\QuestDiary\账号交易记录.txt 佣兵契约上的角色名：<$PARAMSTR(1)>---创建的新角色名：<$PARAMSTR(2)>
7 T$ O/ t8 b: j6 L7 \9 \4 m; J3 w9 }( [* d4 O0 C
* K; T# H# L: Q" P# F |
发表于 2023-12-1 20:47:35
皖公网安备:34112402000394号 0.195240 second(s), 24 queries
.