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

(@@inputstring @@CreateMercenary)
, K1 a8 ^  ~/ q6 G2 n; d

[@main]
& W' G: l0 g; a( y' C- v#if
9 }& e: p. i: w! f2 ^- r% D8 @2 dISADMIN
#say
<COLOR=#$CEB6F7 角色交易：玩家可以将自己的角色制作成【佣兵契约纸】进行交易！>\ \
* F) G' e1 l3 p# ~<COLOR=clAqua 1、制作为佣兵的人物角色不小于40级。>\
<COLOR=clAqua 2、每次制作，背包需要放一张空白的【佣兵契约纸】。>\
<COLOR=clAqua 3、经验、技能、物品等数据将会保留。>\
/ K) x% k0 h1 u4 O0 e: H<COLOR=clAqua 4、已经签约的【佣兵契约纸】可以用于创建新角色。><COLOR=clFuchsia 需要佣兵令牌>\
<COLOR=clAqua 5、制作佣兵契约的角色，需要取消金币交易行的所有订单！>\ \
4 }" T, [& x; U. d, c& {! w4 ^<制作佣兵契约/@MakeMercenarymibao>   <使用契约创建角色/@@CreateMercenary>\


& K8 g9 Y  a. z* `% a( S; ------------------- 制作契约，需密保验证 -------------------
% F8 }: G" D. |2 a# m

[@MakeMercenarymibao]
- ]: G/ t9 k: Q3 D请输入以下正确信息进行验证\
输入连续错误3次将30分钟内禁止在次输入\
问题1：【<$STR(S1)>】--------------------<点击输入/@验证1>\
3 h7 E- x" p: I: J& ^答案1：【<$STR(S2)>】--------------------<点击输入/@验证2>\
问题2：【<$STR(S3)>】--------------------<点击输入/@验证3>\
答案2：【<$STR(S4)>】--------------------<点击输入/@验证4>\
" B8 l& e# F- F# q2 h
- e0 i, d2 p: I- |; j+ G- U) K) t
3 }% _, \' U! Z- \; d1 Q, X8 U
5 }+ u) ]( P. w8 E! y

[@验证1]
#IF
!COMPVAL <$QUIZ> = <$STR(S1)>
" q# [; C9 H+ ~" N' h' Y#ACT
. G) e/ f  l2 v8 D+ d! z) q8 Z/ kQUERYVALUE 1 0 20 ~MMBB1 请输入你的【密保问题1】：
#ELSEACT
$ p4 V" \1 h; A+ Q1 f# AMESSAGEBOX 错误提示：当前输入的密保是正确的无需在次输入
BREAK
. w6 Q, I: M, v$ S
8 `% L$ h5 X# l# g' c4 T
6 }0 [% S5 s/ d$ P
8 g7 H8 T9 {% \
[~MMBB1]
#IF
COMPVAL $INTS2 < 3300
COMPVAL $INTS2 > 1500
! _" c$ I. ?3 n7 a! x4 v6 Z' x#ACT
MOV D1 <$UNIXTIME>
INC D1 <$INTS2>
/ e9 O4 _. e% m& R1 g, Y3 i$ BINTS 2 = <$STR(D1)>
  T3 q. `/ M2 X, W: ]- }

5 j: @* f9 `* u9 F#IF
COMPVAL $INTS2 > 3300
) O$ M3 {- w' dCOMPVAL $INTS2 > $UNIXTIME
2 K1 @$ t* P0 b* P3 T#ACT
CALCVAL $INTS2 - $UNIXTIME
SENDMSG 7 将在<$CALCRESULT>秒后，才可以再次输入
; V! i, L. }0 r6 b6 ]. ]# k* FCALCVAL $INTS2 ~ 0
SENDMSG 7 将在<$CALCRESULT>过期，才可以再次输入
, M  o9 ^9 G- ^0 {' {MOV S1
: i7 F& d2 p, p: ?4 ^BREAK


$ q3 B( i, D; B2 Z8 e; J5 h: G8 D#IF
COMPVAL $INTS2 > 3300
7 `* j# ?- Y: D6 VCOMPVAL $INTS2 < $UNIXTIME
#ACT
, d  O; v( I9 Q, w0 sINTS 2 = 0
# K; ~( g, Q$ `( l8 U, N' R
, s% c" v# P7 u# b' B) t
' {: |$ h4 Z' m* k* }) M9 \# _1 w#IF
. @( S) b4 \9 {5 }1 v0 r" uCOMPVAL <$QUIZ> = <$STR(S1)>
#ACT
; Y5 J9 t5 P7 p$ LDELAYGOTO 1 @MAKEMERCENARYMIBAO
BREAK
0 y$ \1 T7 \& i( s#ELSEACT
MESSAGEBOX 错误提示：你输入的【密保问题1】错误.连续错误3次将30分钟内禁止在次输入
+ e/ w% \1 m  e/ A) \% lMOV S1
  Z; D/ X# l3 m6 ~- lINTS 2 + 600
BREAK

$ ?/ S# \$ M$ y; k" c0 l; I" h
6 H, q8 Q3 z& l7 R+ b[@验证2]
#IF
) d. D( V# r* ?% {# {& w2 T  zEQUAL S1
; t+ `- M. F% a, D$ }#ACT
3 H) P. L' }4 w0 S% [# KMESSAGEBOX 错误提示：请先输入【密保问题1】
BREAK


4 h8 m; V5 _4 x5 C#IF
3 b( o+ J! R2 x  s; E4 J/ X! }- J+ |!COMPVAL <$ANSWER> = <$STR(S2)>
#ACT
* d. O' y4 y) e8 k& A9 r+ RQUERYVALUE 2 0 20 ~MMBB2 请输入你的【密保答案1】：
#ELSEACT
# s3 d! `0 ]: i7 |5 j( EMESSAGEBOX 错误提示：当前输入的密保是正确的无需在次输入
BREAK
" O' ]* L1 n, @  T

* b) D3 e$ k1 s5 T) h* k

[~MMBB2]
#IF
COMPVAL $INTS2 < 3300
COMPVAL $INTS2 > 1500
5 A! {; e1 D& W$ @2 y#ACT
' M) h# R' x. @4 Y, B" fMOV D1 <$UNIXTIME>
INC D1 <$INTS2>
INTS 2 = <$STR(D1)>

' V5 ^4 A) Q- n% t" s& H
#IF
3 Y% f" }: c3 k; L( K: }8 L) pCOMPVAL $INTS2 > 3300
COMPVAL $INTS2 > $UNIXTIME
#ACT
CALCVAL $INTS2 - $UNIXTIME
SENDMSG 7 将在<$CALCRESULT>秒后，才可以再次输入
0 X- }+ k8 x$ |" o. [& C4 @CALCVAL $INTS2 ~ 0
% U+ H+ m* o) ?, d. ]/ H  eSENDMSG 7 将在<$CALCRESULT>过期，才可以再次输入
* g; }8 C) ^" ?1 I% g) S. k, XMOV S2
) E: Y# }2 L- QBREAK
. B  ]$ O/ d: |1 Q4 d/ p

2 e+ i9 I# y! u9 O8 O$ o7 u#IF
& }: H6 j% A; Z/ E1 L: _* V0 MCOMPVAL $INTS2 > 3300
COMPVAL $INTS2 < $UNIXTIME
#ACT
INTS 2 = 0


#IF
COMPVAL <$ANSWER> = <$STR(S2)>
3 P5 D: Y/ O% L#ACT
DELAYGOTO 1 @MAKEMERCENARYMIBAO
BREAK
6 G; ~) Z8 Y! N- l#ELSEACT
* v, j  ^4 H& ~& N# }4 h5 \MESSAGEBOX 错误提示：你输入的【密保答案1】错误.连续错误3次将30分钟内禁止在次输入
MOV S2
INTS 2 + 600
BREAK

, ~8 t- H0 [( b: @
3 N4 d( s" G$ X' H: Z

1 }4 Z+ I6 {2 q* g[@验证3]
  X; U& E* n8 w: Z1 x#IF
8 O3 E3 R2 Z2 LEQUAL S2
#ACT
$ y! l. P" [0 f: \* EMESSAGEBOX 错误提示：请先输入【密保答案1】
  B+ T; S5 N, U: h4 u& kBREAK
  X  [7 n! [+ V9 r( V1 |

  G# I- l% q$ l4 X# L; a#IF
!COMPVAL <$QUIZ2> = <$STR(S3)>
#ACT
1 ^/ n' p6 r6 ~# V+ o, p" aQUERYVALUE 3 0 20 ~MMBB3 请输入你的【密保问题2】：
#ELSEACT
MESSAGEBOX 错误提示：当前输入的密保是正确的无需在次输入
BREAK
' F+ Z- Y. S- i; r! @2 y. [/ E

8 b8 ?# ?" A6 K8 ~9 M; l
9 J7 e7 H" J1 R- x, D& U
[~MMBB3]
. J) _) R' p7 S0 g" I9 \. j#IF
4 M/ u! i  l- [; X2 A  p! i7 XCOMPVAL $INTS2 < 3300
8 W4 x; N6 P  U5 F# z6 _! QCOMPVAL $INTS2 > 1500
#ACT
MOV D1 <$UNIXTIME>
INC D1 <$INTS2>
INTS 2 = <$STR(D1)>
5 ?) F" X# f2 n3 H
/ H+ u! f1 c1 z- j' C
! S+ x. P: `/ [! @9 N  _#IF
COMPVAL $INTS2 > 3300
COMPVAL $INTS2 > $UNIXTIME
4 d8 f+ |* r, E, C- C) b( D#ACT
CALCVAL $INTS2 - $UNIXTIME
SENDMSG 7 将在<$CALCRESULT>秒后，才可以再次输入
CALCVAL $INTS2 ~ 0
SENDMSG 7 将在<$CALCRESULT>过期，才可以再次输入
MOV S3
2 Y( r6 `4 Q& }/ V) ?; FBREAK
8 ^) l9 y% y+ L+ P7 b0 [
/ u$ O" I6 W& \8 V5 C4 e
1 i% ], A6 X" [4 z1 b9 X# N#IF
  v, k/ E( N7 j. M7 ZCOMPVAL $INTS2 > 3300
5 W( V( t7 \- Q6 ?; t/ e9 _COMPVAL $INTS2 < $UNIXTIME
#ACT
  M) l; J, ?2 q" b$ N0 ^: SINTS 2 = 0


# E% S  r: o# x: t#IF
COMPVAL <$QUIZ2> = <$STR(S3)>
5 J8 b2 L. k! R2 r5 E5 s#ACT
DELAYGOTO 1 @MAKEMERCENARYMIBAO
2 Z+ R9 y8 o1 @: T# sBREAK
$ L* h- D# c$ A/ L#ELSEACT
MESSAGEBOX 错误提示：你输入的【密保问题2】错误.连续错误3次将30分钟内禁止在次输入
MOV S3
& w, K8 ?( M6 C1 RINTS 2 + 600
! r4 W3 P3 c: ]9 [7 d4 s' W! dBREAK
! a+ b$ k& n3 N2 ]8 R

2 D* _/ B6 P* O* o+ G- \1 M6 Q) M5 T

  c6 }0 y. d) q- ^[@验证4]
#IF
5 o* C6 C# h( G" ?" R8 N" LEQUAL S3
- s7 d: A( }  J6 t' J#ACT
( L6 }4 }6 B+ _8 U0 U, p# v& {9 E0 jMESSAGEBOX 错误提示：请先输入【密保问题2】
  n( X$ B# A5 R* l* I) FBREAK
#ELSEACT
+ S! B6 `, ], j1 J0 WQUERYVALUE 4 0 20 ~MMBB4 请输入你的【密保答案2】：
BREAK
6 @( P7 a; K+ L7 R
0 @$ a) E* x6 Z! o, T8 y: _: ~


[~MMBB4]
#IF
COMPVAL $INTS2 < 3300
COMPVAL $INTS2 > 1500
) r4 d7 T" V7 z& g. R( C2 @1 W) u#ACT
' }0 z/ y" o, [9 T7 ?MOV D1 <$UNIXTIME>
INC D1 <$INTS2>
; Q& c; g6 Q0 k8 O( Y# TINTS 2 = <$STR(D1)>
  L: Z* L/ |' Q! p; y

#IF
COMPVAL $INTS2 > 3300
) f, [4 V' Y! |. }+ q! O; VCOMPVAL $INTS2 > $UNIXTIME
* k  G3 X2 |1 R7 J) H; {#ACT
CALCVAL $INTS2 - $UNIXTIME
SENDMSG 7 将在<$CALCRESULT>秒后，才可以再次输入
% ~8 r8 t- \% a0 C% nCALCVAL $INTS2 ~ 0
SENDMSG 7 将在<$CALCRESULT>过期，才可以再次输入
MOV S4
BREAK
+ C: W& v8 f1 \: P( t
; V1 `2 r4 S9 }  X9 k# [  b8 g) E
#IF
COMPVAL $INTS2 > 3300
COMPVAL $INTS2 < $UNIXTIME
#ACT
+ Q4 I# w* f4 Z0 nINTS 2 = 0


. a2 n1 _0 |* `#IF
9 U' ^/ S( p% H7 FCOMPVAL <$QUIZ> = <$STR(S1)>
/ g3 S4 ?3 ?" ECOMPVAL <$ANSWER> = <$STR(S2)>
2 Y. _2 w* Y9 E$ qCOMPVAL <$QUIZ2> = <$STR(S3)>
COMPVAL <$ANSWER2> = <$STR(S4)>
#ACT
& D; W0 O9 }0 j% kDELAYGOTO 1 @MAKEMERCENARYMIBAO
- d/ E* O# F& W5 x' E;参数1表示不小于此等级的角色可以被压卡，
;参数2表示制作为佣兵将损失15%的经验值
8 v: a3 K  S- U4 m5 v: y/ g0 Z;参数3为1时表示过滤掉隐藏角色
* T# @' F. H: N; i; X1 v) dQUERYMERCENARIES 5 1 0
+ w$ h7 K9 V9 X8 ?6 _#ELSEACT
MESSAGEBOX 错误提示：你输入的【密保答案2】错误.连续错误3次将30分钟内禁止在次输入
MOV S4
- a( Y! @& o* FINTS 2 + 600
7 Y' B. n; C! U$ Q' O+ G9 J# ~$ E( {BREAK
8 G1 E# C7 h3 l% v2 x( W

& E- d5 U, `( [( F6 H
8 ?, M1 N+ P$ h$ B$ g
2 S# s: e1 z* d: F$ Q" u; ------------------- 契约创建角色 -------------------
" q' i/ A5 l* O' c. m& h, E5 t[@@CreateMercenary]
. I; l+ C& K3 t2 O左边空框内放入<COLOR=clFuchsia 已签约的佣兵契约纸>\
& ~* s) j$ L- d3 y3 \右边空框内放入<COLOR=clFuchsia 佣兵令牌>\ \
<返回/@main>   <关闭/@exit>

) H' f5 Q/ M5 N* W
) ~/ Q0 y% ~) N( d8 T' h# D. i- Z; ------------------- 压卡成功后执行的字段 -------------------
[@MakeMercenarySuccess]
# s- m# d  c& l9 H# q( h#if
true
/ e2 o7 c5 C* E& v, L  ?#act
( o) H0 H0 z* M( s( isendmsg 7 压卡成功：正在制作契约的玩家：<$PARAMSTR(0)>，被制作为契约的原角色名：<$PARAMSTR(1)>，佣兵契约上的角色名：<$PARAMSTR(2)>
. p9 S. g( R, {1 nADDLINELIST ..\QuestDiary\账号交易记录.txt 原角色名：<$PARAMSTR(1)>---佣兵契约上的角色名：<$PARAMSTR(2)>
. V, Y( B9 [9 ?( X4 z

;使用契约纸成功创建角色后执行的字段
[@NewCharByContractSuccess]
9 c9 m- Y' ?9 E* c- y#if
true
#act
/ A" {; u7 v) V, Z; T* Gsendmsg 7 创角成功：正在使用契约创角的玩家：<$PARAMSTR(0)>，佣兵契约上的角色名：<$PARAMSTR(1)>，创建的新角色名：<$PARAMSTR(2)>
ADDLINELIST ..\QuestDiary\账号交易记录.txt 佣兵契约上的角色名：<$PARAMSTR(1)>---创建的新角色名：<$PARAMSTR(2)>
% b% n& O0 U- g" j( [+ H- V

" A7 n6 V1 t2 L. q2 W