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

(@@inputstring @@CreateMercenary)
$ V+ O; m2 r4 ^5 E. ]& [/ [
- I. h6 `8 h' |; a( K
[@main]
#if
ISADMIN
#say
; {. z6 q6 g/ w" i. e<COLOR=#$CEB6F7 角色交易：玩家可以将自己的角色制作成【佣兵契约纸】进行交易！>\ \
<COLOR=clAqua 1、制作为佣兵的人物角色不小于40级。>\
, \/ l2 x! k2 R<COLOR=clAqua 2、每次制作，背包需要放一张空白的【佣兵契约纸】。>\
( z/ q+ d0 A9 b1 H0 Z# P<COLOR=clAqua 3、经验、技能、物品等数据将会保留。>\
<COLOR=clAqua 4、已经签约的【佣兵契约纸】可以用于创建新角色。><COLOR=clFuchsia 需要佣兵令牌>\
0 O( n" p8 Q5 P4 T9 u- {<COLOR=clAqua 5、制作佣兵契约的角色，需要取消金币交易行的所有订单！>\ \
<制作佣兵契约/@MakeMercenarymibao>   <使用契约创建角色/@@CreateMercenary>\
5 [& H9 u$ n4 C. W

1 \* R( x" C" h* {% v& d; ------------------- 制作契约，需密保验证 -------------------
2 ?2 P/ m% l0 F  r6 R' U- O5 A: @
! z) M  h# j2 T
[@MakeMercenarymibao]
请输入以下正确信息进行验证\
输入连续错误3次将30分钟内禁止在次输入\
问题1：【<$STR(S1)>】--------------------<点击输入/@验证1>\
答案1：【<$STR(S2)>】--------------------<点击输入/@验证2>\
问题2：【<$STR(S3)>】--------------------<点击输入/@验证3>\
答案2：【<$STR(S4)>】--------------------<点击输入/@验证4>\
+ ~; g6 K1 `$ {; A+ L+ b' u6 d
0 R; O: R( l: ?' V3 k

0 q* z3 Q7 U0 D

[@验证1]
8 B/ d' i& W" @! P3 T" v#IF
!COMPVAL <$QUIZ> = <$STR(S1)>
5 Y6 W$ r& A, v0 Y! i6 o, s#ACT
QUERYVALUE 1 0 20 ~MMBB1 请输入你的【密保问题1】：
# S2 Z( H! N0 n8 V3 N6 c' ^. f#ELSEACT
* F/ A# l+ z, t* d1 jMESSAGEBOX 错误提示：当前输入的密保是正确的无需在次输入
8 e% e) J1 A& w( V: jBREAK
2 k. a* h, B  v8 A7 m5 a7 \" r/ w( d

" v, y) R& @" {: n3 G
( S$ D7 Z. S' W1 d
) \4 p) s- k0 Q2 R' |  I[~MMBB1]
2 T) X  T/ i1 ~#IF
COMPVAL $INTS2 < 3300
COMPVAL $INTS2 > 1500
( J! J, G" r8 t) H- C#ACT
& j" @5 g& U3 T4 r# |MOV D1 <$UNIXTIME>
INC D1 <$INTS2>
& ~3 o9 P! B5 d! U& j8 R8 i2 _" KINTS 2 = <$STR(D1)>


#IF
- r+ I& H% \) F& K* CCOMPVAL $INTS2 > 3300
COMPVAL $INTS2 > $UNIXTIME
#ACT
CALCVAL $INTS2 - $UNIXTIME
SENDMSG 7 将在<$CALCRESULT>秒后，才可以再次输入
CALCVAL $INTS2 ~ 0
7 D5 U7 k  R* a$ f2 T6 v2 K7 ]SENDMSG 7 将在<$CALCRESULT>过期，才可以再次输入
/ i. R' H! A& M  T. s! BMOV S1
BREAK


# T+ `1 ]4 `9 G3 _#IF
+ O( I& M. R. b6 pCOMPVAL $INTS2 > 3300
8 N9 N- n# k6 YCOMPVAL $INTS2 < $UNIXTIME
& U/ X( f( I: D  b1 O1 M! ~#ACT
INTS 2 = 0
. J# T, {' h8 x$ z$ z% L# v
2 }- t1 [& K' z/ G" ^& F1 |1 q
#IF
$ Y4 \; h' q3 X! K; {* fCOMPVAL <$QUIZ> = <$STR(S1)>
% c0 @4 s9 n, W" w( g0 B#ACT
DELAYGOTO 1 @MAKEMERCENARYMIBAO
" r/ F. s9 y# Y, J6 M* wBREAK
#ELSEACT
MESSAGEBOX 错误提示：你输入的【密保问题1】错误.连续错误3次将30分钟内禁止在次输入
: U3 w2 v. v5 dMOV S1
1 W$ J" t2 S) R+ z& _INTS 2 + 600
! h' w' }+ y; \: T/ `BREAK
! _/ ]7 i) l4 M/ p8 D$ K7 H

[@验证2]
3 _6 z5 [. |1 c5 K) V3 Z#IF
& e( N7 ], I& d) z: Z3 E: n: t& pEQUAL S1
#ACT
MESSAGEBOX 错误提示：请先输入【密保问题1】
BREAK

0 W1 G# S0 i, X+ W5 w) E
: z% f: b5 b' W$ N#IF
!COMPVAL <$ANSWER> = <$STR(S2)>
#ACT
$ ]5 C8 A. ]; y& w9 ^' ~, a' tQUERYVALUE 2 0 20 ~MMBB2 请输入你的【密保答案1】：
#ELSEACT
MESSAGEBOX 错误提示：当前输入的密保是正确的无需在次输入
BREAK
3 N' [# D0 R5 j' `5 s

& R8 X. X) l! W" Z

[~MMBB2]
#IF
COMPVAL $INTS2 < 3300
; C- E; A7 T, R( ]# wCOMPVAL $INTS2 > 1500
) E) ^' {9 [1 x/ j' j#ACT
2 x8 n( V" q# aMOV D1 <$UNIXTIME>
6 D$ K, }" m. m. |INC D1 <$INTS2>
/ n0 o7 r. x- l( v; @$ ?INTS 2 = <$STR(D1)>

6 n: Y* }; Q. B) v  G
#IF
- M+ G" a' c2 {$ |, `5 lCOMPVAL $INTS2 > 3300
: B( b  z! c3 {$ a4 k1 U1 g$ ACOMPVAL $INTS2 > $UNIXTIME
; W- ]* S8 I* p& a7 }1 g. {#ACT
CALCVAL $INTS2 - $UNIXTIME
SENDMSG 7 将在<$CALCRESULT>秒后，才可以再次输入
; }/ d) h; t8 l9 r& \$ V) RCALCVAL $INTS2 ~ 0
SENDMSG 7 将在<$CALCRESULT>过期，才可以再次输入
MOV S2
+ L  G2 p- r% {( w! m3 oBREAK

1 }2 z5 g& p/ `: y- w% V% a- S
/ m/ m& u' N8 j3 F+ C; s( |#IF
COMPVAL $INTS2 > 3300
  X2 R/ g' m3 g# ?COMPVAL $INTS2 < $UNIXTIME
#ACT
INTS 2 = 0


" z6 t5 N, `8 T( C6 Y0 |$ }) C#IF
COMPVAL <$ANSWER> = <$STR(S2)>
#ACT
DELAYGOTO 1 @MAKEMERCENARYMIBAO
BREAK
#ELSEACT
# v" T; i+ M% X' O5 zMESSAGEBOX 错误提示：你输入的【密保答案1】错误.连续错误3次将30分钟内禁止在次输入
+ c# _! |4 R/ c. ~MOV S2
6 m$ {3 I, J$ T+ uINTS 2 + 600
6 C- e8 ]: D. F3 K4 E" P# K7 ?, cBREAK

# w7 P; @, Z$ t# a# c7 n) g2 y
8 Z7 B  |" Y/ ~; X4 ^
) h2 g( v2 v* @3 I9 X" z
; ]2 s6 j. V9 l- t. S2 l6 z; C[@验证3]
#IF
. t9 b( J* {" `5 W' K% o( L$ SEQUAL S2
* n: o6 \! J, q7 `3 J) s% f#ACT
MESSAGEBOX 错误提示：请先输入【密保答案1】
BREAK


#IF
!COMPVAL <$QUIZ2> = <$STR(S3)>
; C% W& h  c6 [8 n" @; ]6 ~#ACT
0 S$ L0 p' L% Z9 d" z: H2 ?  }QUERYVALUE 3 0 20 ~MMBB3 请输入你的【密保问题2】：
#ELSEACT
" c5 R/ @6 v; {6 UMESSAGEBOX 错误提示：当前输入的密保是正确的无需在次输入
& l7 U. b% ^" o8 |BREAK
: _3 \$ r) ?" X3 C
8 T! H) {$ @) P6 o# H

# _: \8 o( u/ o5 `% ~8 Z
/ |$ |! \5 b" q3 r[~MMBB3]
#IF
+ I! i/ j" a+ e' B) W5 l) C5 f. RCOMPVAL $INTS2 < 3300
) m, f1 @/ i1 F, N5 kCOMPVAL $INTS2 > 1500
2 B- X! w! I% k) s' @* d#ACT
MOV D1 <$UNIXTIME>
, p$ n/ K' @; h8 x2 [INC D1 <$INTS2>
INTS 2 = <$STR(D1)>

; Q+ c+ r# ~/ H/ A  F! F7 z
  A- m* K2 @& D: l. k6 t$ L" M#IF
$ ]/ j: k6 ~5 m, Z6 T. Z3 i3 KCOMPVAL $INTS2 > 3300
COMPVAL $INTS2 > $UNIXTIME
& P! @$ X' j0 ?) E# ]#ACT
CALCVAL $INTS2 - $UNIXTIME
SENDMSG 7 将在<$CALCRESULT>秒后，才可以再次输入
CALCVAL $INTS2 ~ 0
. D$ A0 X7 h: CSENDMSG 7 将在<$CALCRESULT>过期，才可以再次输入
$ C) I5 ^" j( mMOV S3
BREAK


3 ?5 g4 n5 P9 L#IF
COMPVAL $INTS2 > 3300
COMPVAL $INTS2 < $UNIXTIME
#ACT
0 E4 J( I8 O" u! r( y, kINTS 2 = 0
) f1 N: Y8 E1 m( `# Y
9 J& x( f8 c7 w: N0 j6 w
#IF
COMPVAL <$QUIZ2> = <$STR(S3)>
#ACT
DELAYGOTO 1 @MAKEMERCENARYMIBAO
. t5 b7 v* H4 \+ eBREAK
#ELSEACT
9 V2 n6 t+ y# x2 c* B% zMESSAGEBOX 错误提示：你输入的【密保问题2】错误.连续错误3次将30分钟内禁止在次输入
MOV S3
/ ^% l( J/ t' i& v9 yINTS 2 + 600
BREAK


: g, t% P1 D; N( @! Y

2 ^) \9 C0 W5 u7 a[@验证4]
7 U& [* I0 p( \8 O  ]0 V4 a- m5 c0 Q4 h#IF
EQUAL S3
#ACT
& W! m3 x# E3 b( o, i0 C- RMESSAGEBOX 错误提示：请先输入【密保问题2】
) I! B/ ~2 n# ], GBREAK
. a* E7 J4 h) l2 B" E#ELSEACT
8 U* g3 B9 u; c7 o" l6 GQUERYVALUE 4 0 20 ~MMBB4 请输入你的【密保答案2】：
1 N# r* J# F' W0 nBREAK

' I- s: ~, B6 `7 ^/ C

/ _5 C3 m0 b3 \7 `+ i
[~MMBB4]
2 T; T% j8 l' ~" b, s/ H: ]#IF
COMPVAL $INTS2 < 3300
' p8 w" J- y/ r2 T9 p3 j9 OCOMPVAL $INTS2 > 1500
0 x- {; K* C. O5 m; A7 c8 ^( Z#ACT
5 j* P0 i: i6 G# w+ P0 }6 s/ VMOV D1 <$UNIXTIME>
INC D1 <$INTS2>
( y( y) q$ T: o+ gINTS 2 = <$STR(D1)>

( x- ?/ T, t: O, c% h5 v
* q+ w5 I$ _7 v+ m8 t#IF
/ f1 U( W5 H, KCOMPVAL $INTS2 > 3300
; w4 ~+ w0 F; V: L* d& p; R! ZCOMPVAL $INTS2 > $UNIXTIME
#ACT
  U3 o) Q+ K. i' O& l+ dCALCVAL $INTS2 - $UNIXTIME
. `" N' P9 H$ ]2 I( @SENDMSG 7 将在<$CALCRESULT>秒后，才可以再次输入
CALCVAL $INTS2 ~ 0
SENDMSG 7 将在<$CALCRESULT>过期，才可以再次输入
MOV S4
5 `( i# G# n' MBREAK
  O2 p6 o: h& A: W. k

#IF
COMPVAL $INTS2 > 3300
COMPVAL $INTS2 < $UNIXTIME
& @$ q' `4 N* c$ L' i$ F3 t  _#ACT
, p. _; v+ O0 ^' K. f7 AINTS 2 = 0


# J* m+ h% D, P# p) F; T#IF
3 x3 ^  f8 n) M( J) VCOMPVAL <$QUIZ> = <$STR(S1)>
COMPVAL <$ANSWER> = <$STR(S2)>
$ P5 s! L+ K, S  cCOMPVAL <$QUIZ2> = <$STR(S3)>
COMPVAL <$ANSWER2> = <$STR(S4)>
#ACT
DELAYGOTO 1 @MAKEMERCENARYMIBAO
;参数1表示不小于此等级的角色可以被压卡，
% p% W1 i' K. B6 t8 e, N8 v; d: j;参数2表示制作为佣兵将损失15%的经验值
  a- i% `" L, E4 I' X( Z;参数3为1时表示过滤掉隐藏角色
3 e6 R) ^. o, M# F* MQUERYMERCENARIES 5 1 0
+ J% x' {1 {$ w' B* _& }#ELSEACT
) t8 S+ H/ h! Z/ WMESSAGEBOX 错误提示：你输入的【密保答案2】错误.连续错误3次将30分钟内禁止在次输入
MOV S4
3 A- \* N% k$ H( DINTS 2 + 600
* F5 a& k* s+ P) K, q" X. cBREAK

, f. Y: q/ @1 x$ k1 U/ i! D% o% |0 x/ M
6 j; h( U: {9 t1 H4 e+ g& E

; ------------------- 契约创建角色 -------------------
5 n7 F4 j, z: _7 D$ N[@@CreateMercenary]
左边空框内放入<COLOR=clFuchsia 已签约的佣兵契约纸>\
% ]+ t# ?5 n& N# t# w右边空框内放入<COLOR=clFuchsia 佣兵令牌>\ \
<返回/@main>   <关闭/@exit>
8 S! x7 y6 G, _! J% g# X- Y
& k- J# B( x* `9 _1 D
5 j/ ~% G3 d+ `9 O; ------------------- 压卡成功后执行的字段 -------------------
9 k7 X5 a- H6 e, s& ~. ?" o% p3 M[@MakeMercenarySuccess]
#if
true
) ?3 d$ ^( z7 x2 ^8 E2 @9 q#act
sendmsg 7 压卡成功：正在制作契约的玩家：<$PARAMSTR(0)>，被制作为契约的原角色名：<$PARAMSTR(1)>，佣兵契约上的角色名：<$PARAMSTR(2)>
3 e5 M5 e. N) YADDLINELIST ..\QuestDiary\账号交易记录.txt 原角色名：<$PARAMSTR(1)>---佣兵契约上的角色名：<$PARAMSTR(2)>


5 N1 Z" V* \( Q9 z4 B;使用契约纸成功创建角色后执行的字段
9 j5 K9 N1 g: K3 I3 z7 }& f[@NewCharByContractSuccess]
#if
  E) Z& [- K% d; ztrue
- A( d4 C6 a% X! A/ _. l+ O6 U#act
8 Q; t$ K9 i( Q2 l' I& Z% ssendmsg 7 创角成功：正在使用契约创角的玩家：<$PARAMSTR(0)>，佣兵契约上的角色名：<$PARAMSTR(1)>，创建的新角色名：<$PARAMSTR(2)>
ADDLINELIST ..\QuestDiary\账号交易记录.txt 佣兵契约上的角色名：<$PARAMSTR(1)>---创建的新角色名：<$PARAMSTR(2)>
$ x- k; z3 h2 B4 w
2 ^3 X: b# j% |2 F. n& |
" H6 y1 N- Y0 z1 s4 [