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

(@@inputstring @@CreateMercenary)


& U* Q) d1 B; O$ P[@main]
! ?9 ~. T9 Y+ ~#if
ISADMIN
# l; w; o. |: t( ~! @$ B# V) x#say
" Z& L- S4 ^: G5 M7 `" ^<COLOR=#$CEB6F7 角色交易：玩家可以将自己的角色制作成【佣兵契约纸】进行交易！>\ \
  j) P' @% B" g) ?' F7 |& F<COLOR=clAqua 1、制作为佣兵的人物角色不小于40级。>\
- n# F8 ?. t4 S  G: w, U+ H<COLOR=clAqua 2、每次制作，背包需要放一张空白的【佣兵契约纸】。>\
<COLOR=clAqua 3、经验、技能、物品等数据将会保留。>\
* k6 W5 Z/ O9 }<COLOR=clAqua 4、已经签约的【佣兵契约纸】可以用于创建新角色。><COLOR=clFuchsia 需要佣兵令牌>\
  X  L# t4 n# f( |& N) G0 y<COLOR=clAqua 5、制作佣兵契约的角色，需要取消金币交易行的所有订单！>\ \
. Y3 e( i( }7 }! z<制作佣兵契约/@MakeMercenarymibao>   <使用契约创建角色/@@CreateMercenary>\
. Y# V( C5 Q3 ], o2 a* l# l
' m$ X0 c& X; P, Q# a% w6 a
; ------------------- 制作契约，需密保验证 -------------------
4 {# Z  v* B. q7 a/ v) X

5 H- P3 o+ d$ f& m6 ^[@MakeMercenarymibao]
请输入以下正确信息进行验证\
# O2 a( c& [- I' v9 q输入连续错误3次将30分钟内禁止在次输入\
; n! @# {- A, b4 ?% @) c( m问题1：【<$STR(S1)>】--------------------<点击输入/@验证1>\
答案1：【<$STR(S2)>】--------------------<点击输入/@验证2>\
; E4 h0 y5 h8 T4 @) y3 o, L) g7 q问题2：【<$STR(S3)>】--------------------<点击输入/@验证3>\
答案2：【<$STR(S4)>】--------------------<点击输入/@验证4>\

) N! R6 O7 h! Y1 i9 X9 h- J

7 T. J. b' L5 c( I' ]0 q
$ |8 V) O2 \+ \0 L: }$ w; N
[@验证1]
1 z* y/ ]+ k; L( d& ^5 r#IF
!COMPVAL <$QUIZ> = <$STR(S1)>
  g/ i' l! U' i8 j# h+ m#ACT
6 D8 V1 y; |% m; r+ E# P/ eQUERYVALUE 1 0 20 ~MMBB1 请输入你的【密保问题1】：
#ELSEACT
MESSAGEBOX 错误提示：当前输入的密保是正确的无需在次输入
BREAK
. g+ m0 j1 S9 ?

) _! L5 Z; L: b, g  w. e" i
4 z! n6 w! [) b5 W* X* K
2 H9 b7 k9 E  U: N[~MMBB1]
#IF
7 {; S5 ?& D' [- P) A6 T' k/ C: mCOMPVAL $INTS2 < 3300
COMPVAL $INTS2 > 1500
#ACT
MOV D1 <$UNIXTIME>
% ]# u4 M' X, U& e% sINC D1 <$INTS2>
INTS 2 = <$STR(D1)>
% z6 k  J" M/ ^) D9 c

#IF
COMPVAL $INTS2 > 3300
COMPVAL $INTS2 > $UNIXTIME
#ACT
, z. ^' L5 @& x) Q9 fCALCVAL $INTS2 - $UNIXTIME
SENDMSG 7 将在<$CALCRESULT>秒后，才可以再次输入
1 B4 n" I0 v' Z9 H# Q8 zCALCVAL $INTS2 ~ 0
SENDMSG 7 将在<$CALCRESULT>过期，才可以再次输入
MOV S1
BREAK
7 E$ _8 p1 U: |$ }9 k+ j# c8 R" h
( p7 o: d; ~  W
' E) h" t2 T" @: g0 }! a5 R#IF
COMPVAL $INTS2 > 3300
COMPVAL $INTS2 < $UNIXTIME
#ACT
INTS 2 = 0


+ B% W5 h  J7 ~/ E+ C7 d#IF
COMPVAL <$QUIZ> = <$STR(S1)>
#ACT
DELAYGOTO 1 @MAKEMERCENARYMIBAO
BREAK
#ELSEACT
3 @8 Z, Q/ ]; ~MESSAGEBOX 错误提示：你输入的【密保问题1】错误.连续错误3次将30分钟内禁止在次输入
+ n- `, i0 E# t* h7 }5 U2 w, h! nMOV S1
+ ~) [6 w# x: \: |+ rINTS 2 + 600
8 T  p0 ]4 G0 [( C, PBREAK
- f- d  L  M9 B/ w4 ^2 I5 ?; `) ^

2 U+ }5 U. U) m" s# c! o4 n[@验证2]
#IF
EQUAL S1
: Z4 r( U# L+ h( W; c+ S#ACT
MESSAGEBOX 错误提示：请先输入【密保问题1】
BREAK
. i# b6 M1 n) \5 i
! c' X+ e, u( V  ^$ b& ^# k
#IF
9 a# k  _% A2 P# k!COMPVAL <$ANSWER> = <$STR(S2)>
#ACT
QUERYVALUE 2 0 20 ~MMBB2 请输入你的【密保答案1】：
#ELSEACT
MESSAGEBOX 错误提示：当前输入的密保是正确的无需在次输入
! y: n  M2 g8 c1 b) H/ \# k' yBREAK



1 o0 h( {- I6 u" `4 T( N+ ^
[~MMBB2]
* O  U- C2 _. o8 q% ^, `#IF
COMPVAL $INTS2 < 3300
9 M, l- o" i/ p. Z: ^8 y  oCOMPVAL $INTS2 > 1500
) h" r; u3 D, L# k, Y: N, V* S#ACT
MOV D1 <$UNIXTIME>
INC D1 <$INTS2>
INTS 2 = <$STR(D1)>
4 C5 F. {% U5 q: q0 X7 h

* v; f4 K- U' C" a+ M1 U1 _#IF
; s9 `. C8 u- ]6 E# j; v. QCOMPVAL $INTS2 > 3300
. D$ M1 B! b, y/ G  k& bCOMPVAL $INTS2 > $UNIXTIME
#ACT
CALCVAL $INTS2 - $UNIXTIME
2 Z1 P* N9 Z, ~4 w5 }3 eSENDMSG 7 将在<$CALCRESULT>秒后，才可以再次输入
CALCVAL $INTS2 ~ 0
SENDMSG 7 将在<$CALCRESULT>过期，才可以再次输入
MOV S2
BREAK


#IF
! ]! ~& i* Z1 W. xCOMPVAL $INTS2 > 3300
+ b, }! g- ^$ O8 e& t' yCOMPVAL $INTS2 < $UNIXTIME
& b+ G$ x! h0 A( R6 D) _2 `#ACT
, q: Y. J% Y5 q# K! }# fINTS 2 = 0
* X/ S0 ~- \. J2 g  e, Z2 ~

#IF
% H! R& I* y& s7 kCOMPVAL <$ANSWER> = <$STR(S2)>
#ACT
4 k: m: }* P: h( FDELAYGOTO 1 @MAKEMERCENARYMIBAO
4 i" }$ C" ]* fBREAK
7 T  b. T- X( M3 b, ^#ELSEACT
MESSAGEBOX 错误提示：你输入的【密保答案1】错误.连续错误3次将30分钟内禁止在次输入
MOV S2
INTS 2 + 600
' h" l. b# p% h; YBREAK
0 c) N" a4 L2 v7 `' ~$ l7 G



7 S: G. c. y. y, F4 C) J[@验证3]
+ y  E; {# q2 n' ?  k#IF
* {: p/ q. W' t+ l  dEQUAL S2
% T6 M6 b( l/ Q5 f. J: [. g#ACT
MESSAGEBOX 错误提示：请先输入【密保答案1】
* j! e2 l% L8 D2 y5 o1 KBREAK
6 t4 B. A9 z! L# x7 I' N, e! l
' t4 r3 e8 O* G# s0 g$ p. Q. M
; a; ~0 W/ \  r$ P; j* A" W) T#IF
4 D/ X& m# {: x# c+ \!COMPVAL <$QUIZ2> = <$STR(S3)>
( e' c# |# I5 W/ J! P8 X# [( `#ACT
! o; J* h7 {4 J: }5 uQUERYVALUE 3 0 20 ~MMBB3 请输入你的【密保问题2】：
#ELSEACT
MESSAGEBOX 错误提示：当前输入的密保是正确的无需在次输入
( Z  d# K/ \; N  J2 HBREAK
$ `9 o4 }! ^- J! Y$ N

$ Q& N  |. H$ D9 I& F* E
8 j; X  W; @/ _4 b
& i" ~5 _3 U1 C+ ^7 _! K[~MMBB3]
#IF
COMPVAL $INTS2 < 3300
: }2 k4 @; K- b+ n9 t" x2 l& K8 PCOMPVAL $INTS2 > 1500
/ y! s8 t1 X7 t, \6 E9 r#ACT
MOV D1 <$UNIXTIME>
- i& q: M& @; }4 }INC D1 <$INTS2>
, N+ z" N, t1 ]! w" jINTS 2 = <$STR(D1)>
- W  R+ G/ c* O5 Q$ Y- u/ `4 g

#IF
5 K6 p6 }+ t0 ^% bCOMPVAL $INTS2 > 3300
  a; w/ ^" K% J% _0 I5 X$ |# b: TCOMPVAL $INTS2 > $UNIXTIME
  X/ f! C) t, `#ACT
2 c  l0 ~9 K; p: }- XCALCVAL $INTS2 - $UNIXTIME
SENDMSG 7 将在<$CALCRESULT>秒后，才可以再次输入
/ `: G3 J4 H4 hCALCVAL $INTS2 ~ 0
% F$ J* N0 Y+ W3 oSENDMSG 7 将在<$CALCRESULT>过期，才可以再次输入
MOV S3
5 R. h: U3 e, CBREAK
0 W" G6 {- P6 L. J. o0 i; U7 _( F

#IF
7 j# G* U) m- o' E, O3 HCOMPVAL $INTS2 > 3300
) R, K5 m- @1 i8 hCOMPVAL $INTS2 < $UNIXTIME
#ACT
INTS 2 = 0


5 F$ r# h, @( _) ]#IF
$ y$ }, ^& ^1 q$ b- s1 Q/ CCOMPVAL <$QUIZ2> = <$STR(S3)>
#ACT
& w( ~5 S2 [; m$ EDELAYGOTO 1 @MAKEMERCENARYMIBAO
, u* G  ]: L7 \% pBREAK
#ELSEACT
MESSAGEBOX 错误提示：你输入的【密保问题2】错误.连续错误3次将30分钟内禁止在次输入
+ \6 t% r  f; Y! a6 X, VMOV S3
. k- T4 f; b5 i6 q$ b, {INTS 2 + 600
BREAK
  _% g; p( }0 o

# P  J3 Z2 D; Y( b2 Z1 \! ?
- }* G: a; Q8 }" L3 U- R# @
[@验证4]
#IF
EQUAL S3
#ACT
3 Z) H) Q' z  v7 ?& B( QMESSAGEBOX 错误提示：请先输入【密保问题2】
, A5 x, \1 ]! H( @& E  qBREAK
#ELSEACT
6 J/ T4 `( V8 E' w9 h; UQUERYVALUE 4 0 20 ~MMBB4 请输入你的【密保答案2】：
BREAK




! i& H) v" ?! }0 D: r[~MMBB4]
#IF
COMPVAL $INTS2 < 3300
COMPVAL $INTS2 > 1500
6 F! k4 Q  }) X" c#ACT
MOV D1 <$UNIXTIME>
INC D1 <$INTS2>
* ^4 Y* W% S4 I* m. w- m9 CINTS 2 = <$STR(D1)>
9 t" F* {, ?5 N5 c$ F  e3 S
" L  B+ f5 l" q& S
  h$ s1 E$ s6 l7 ~; ~& a#IF
COMPVAL $INTS2 > 3300
COMPVAL $INTS2 > $UNIXTIME
#ACT
CALCVAL $INTS2 - $UNIXTIME
SENDMSG 7 将在<$CALCRESULT>秒后，才可以再次输入
CALCVAL $INTS2 ~ 0
SENDMSG 7 将在<$CALCRESULT>过期，才可以再次输入
. @  \0 J- i" ^# p9 ^; f# VMOV S4
; [/ U% l8 @% W: P- N" I1 V9 kBREAK
9 L  L- v. c3 V, M0 q

7 @* f6 o( q2 X! d/ d7 {* T/ q#IF
! Q  j# j1 s( H3 ]COMPVAL $INTS2 > 3300
COMPVAL $INTS2 < $UNIXTIME
#ACT
5 T, H4 q# }- @, ]# ]8 d6 E+ E7 CINTS 2 = 0
7 R( s, M) w: {

#IF
COMPVAL <$QUIZ> = <$STR(S1)>
COMPVAL <$ANSWER> = <$STR(S2)>
4 O1 s( l  |. b) z3 L( i9 [; U" WCOMPVAL <$QUIZ2> = <$STR(S3)>
7 O; y* G3 Q0 r0 e2 ICOMPVAL <$ANSWER2> = <$STR(S4)>
#ACT
DELAYGOTO 1 @MAKEMERCENARYMIBAO
- o$ ]& q+ @  {6 O;参数1表示不小于此等级的角色可以被压卡，
3 R. x- x: r3 D+ _4 v;参数2表示制作为佣兵将损失15%的经验值
$ L5 w9 w* [) E% p4 W;参数3为1时表示过滤掉隐藏角色
QUERYMERCENARIES 5 1 0
/ l) U5 O& l5 C8 G#ELSEACT
# i1 o7 }) e7 G- ?MESSAGEBOX 错误提示：你输入的【密保答案2】错误.连续错误3次将30分钟内禁止在次输入
MOV S4
- @/ J+ M' P# m3 Z* H, Y* \INTS 2 + 600
6 U. j- w1 D. l' |. h4 z6 cBREAK


5 x$ U8 I5 M+ P3 B$ n  l7 I; \
4 i$ m" T1 W- s' |1 l
; ------------------- 契约创建角色 -------------------
8 L6 |( h( K. u% ^) y[@@CreateMercenary]
左边空框内放入<COLOR=clFuchsia 已签约的佣兵契约纸>\
( {0 r( p# x+ f1 B2 {* d/ U右边空框内放入<COLOR=clFuchsia 佣兵令牌>\ \
<返回/@main>   <关闭/@exit>

; s& u3 g0 T: i
; ------------------- 压卡成功后执行的字段 -------------------
[@MakeMercenarySuccess]
& a2 u. C$ Y. z# J#if
$ ^1 \! G4 ]$ v/ |4 Mtrue
#act
4 c: G) \9 R4 Z  K6 x- h8 b, B1 xsendmsg 7 压卡成功：正在制作契约的玩家：<$PARAMSTR(0)>，被制作为契约的原角色名：<$PARAMSTR(1)>，佣兵契约上的角色名：<$PARAMSTR(2)>
ADDLINELIST ..\QuestDiary\账号交易记录.txt 原角色名：<$PARAMSTR(1)>---佣兵契约上的角色名：<$PARAMSTR(2)>

& o& Z& D# x8 V0 o" W! ?
;使用契约纸成功创建角色后执行的字段
[@NewCharByContractSuccess]
" ^: T% B% i1 a% K. y1 @#if
true
#act
6 N) t4 ]: `" qsendmsg 7 创角成功：正在使用契约创角的玩家：<$PARAMSTR(0)>，佣兵契约上的角色名：<$PARAMSTR(1)>，创建的新角色名：<$PARAMSTR(2)>
# I  g& f* o4 S, H6 v0 O* pADDLINELIST ..\QuestDiary\账号交易记录.txt 佣兵契约上的角色名：<$PARAMSTR(1)>---创建的新角色名：<$PARAMSTR(2)>


+ ?5 H  T3 D$ j9 D