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

(@@inputstring @@CreateMercenary)
! U& L  |0 V: `4 b5 O: `: u
) E% d3 y- v; d
[@main]
#if
/ }3 F5 S5 x3 U& O6 E; e/ NISADMIN
5 K3 C& p, {( |5 R; C#say
, Q! O! Q: i, j% }9 H+ X<COLOR=#$CEB6F7 角色交易：玩家可以将自己的角色制作成【佣兵契约纸】进行交易！>\ \
9 y3 V5 l) A/ j! D* g<COLOR=clAqua 1、制作为佣兵的人物角色不小于40级。>\
<COLOR=clAqua 2、每次制作，背包需要放一张空白的【佣兵契约纸】。>\
: `2 f( Y! w; \' c( n& x<COLOR=clAqua 3、经验、技能、物品等数据将会保留。>\
<COLOR=clAqua 4、已经签约的【佣兵契约纸】可以用于创建新角色。><COLOR=clFuchsia 需要佣兵令牌>\
& h) a, j) i* V: h" N<COLOR=clAqua 5、制作佣兵契约的角色，需要取消金币交易行的所有订单！>\ \
+ \3 e* \3 k7 Y0 J( q3 o3 t<制作佣兵契约/@MakeMercenarymibao>   <使用契约创建角色/@@CreateMercenary>\

; z6 c+ Y0 \1 B6 g. i
+ f' A7 G' p/ v1 g- W; ------------------- 制作契约，需密保验证 -------------------
  K/ d# ^5 i" G: @9 n  U% J# c
$ ~, J6 I+ ~1 X7 f' }/ k" p
; J1 J7 G/ s, m$ z% O- e6 g# P[@MakeMercenarymibao]
请输入以下正确信息进行验证\
输入连续错误3次将30分钟内禁止在次输入\
问题1：【<$STR(S1)>】--------------------<点击输入/@验证1>\
0 X3 F# W& {1 G答案1：【<$STR(S2)>】--------------------<点击输入/@验证2>\
问题2：【<$STR(S3)>】--------------------<点击输入/@验证3>\
答案2：【<$STR(S4)>】--------------------<点击输入/@验证4>\
. @5 L" d$ ]6 Y9 {& N

9 G  t# ~( R- b
9 ~3 i. l9 V! W# w! [

, L( G6 Z6 g# ~- C0 A# W, a[@验证1]
* d8 w2 }; E' g! v7 s- |#IF
!COMPVAL <$QUIZ> = <$STR(S1)>
#ACT
- _9 [) y+ C; ~) g6 HQUERYVALUE 1 0 20 ~MMBB1 请输入你的【密保问题1】：
#ELSEACT
MESSAGEBOX 错误提示：当前输入的密保是正确的无需在次输入
" k- [+ @# R  ]( vBREAK
1 d; c3 f4 l% K' A0 S8 o+ L' Z
$ X- u8 A# R6 p
: I% w: S6 n/ {4 D$ y+ A7 c& T$ m
0 d2 h5 ]9 O( g3 ]$ q5 r9 G' A
7 V, A3 s, W8 ?# K[~MMBB1]
* N4 [( a( c3 ?; Z) h5 v#IF
3 b7 V: s- d7 @/ E9 yCOMPVAL $INTS2 < 3300
COMPVAL $INTS2 > 1500
! w+ E: e7 w5 U; V. l) A: h; L#ACT
MOV D1 <$UNIXTIME>
INC D1 <$INTS2>
INTS 2 = <$STR(D1)>
( z2 g: `- s# I+ E: A& C0 x
8 q: [7 O. K1 b. Z, v
#IF
COMPVAL $INTS2 > 3300
COMPVAL $INTS2 > $UNIXTIME
& u+ \' k# O8 {. m+ j1 K#ACT
9 n+ {  V- |7 c0 qCALCVAL $INTS2 - $UNIXTIME
SENDMSG 7 将在<$CALCRESULT>秒后，才可以再次输入
; Y7 p, u  F. U' [5 p0 O0 T, PCALCVAL $INTS2 ~ 0
* L! H$ O. P! e1 E& w4 sSENDMSG 7 将在<$CALCRESULT>过期，才可以再次输入
; Z$ g- s- e7 iMOV S1
" `1 |1 \& J9 V( U9 U2 JBREAK
$ T) e. l0 ~$ T7 H" e0 }8 U* w# ^
% o9 h0 `; z. V/ |. r- U' U
#IF
4 k' Q* ~8 f# eCOMPVAL $INTS2 > 3300
0 m2 Q0 H5 V  b: \$ A  ~COMPVAL $INTS2 < $UNIXTIME
#ACT
- h" ^- h% M  [6 G( \" f! m% j: LINTS 2 = 0


#IF
COMPVAL <$QUIZ> = <$STR(S1)>
6 U% K( O. t3 H3 R#ACT
. d. K- R) ^  \8 eDELAYGOTO 1 @MAKEMERCENARYMIBAO
8 O& h9 Z4 e6 ABREAK
#ELSEACT
, }% N0 \; s4 {/ B2 q# vMESSAGEBOX 错误提示：你输入的【密保问题1】错误.连续错误3次将30分钟内禁止在次输入
3 N; y8 u! p4 p( i) mMOV S1
6 R/ e: U! `3 W% W  x8 H; [4 zINTS 2 + 600
BREAK
6 q# H' A* U( I; d% a, m
6 T; C% n( \& u' Z
[@验证2]
#IF
EQUAL S1
- j  s6 }2 G  W$ J#ACT
MESSAGEBOX 错误提示：请先输入【密保问题1】
BREAK
* B4 h5 Y) a" _; K
+ p- ^7 o0 C3 n' Z4 i" c
+ O) C9 h- n3 G  t% z#IF
% J) p9 s% p$ K* ]/ Y* ?- d8 c!COMPVAL <$ANSWER> = <$STR(S2)>
  v3 l4 d, v- c# j) a8 C/ F  F#ACT
% ^' L$ }3 q- g8 o% Y9 }+ ~9 C' MQUERYVALUE 2 0 20 ~MMBB2 请输入你的【密保答案1】：
2 G* M9 l; ^1 P: O  s) e6 }2 j#ELSEACT
$ w8 z2 \% v& e: C% ZMESSAGEBOX 错误提示：当前输入的密保是正确的无需在次输入
BREAK
$ n. j. S( U) c0 Y( E* B  Y
! c" T. P$ n% \* a+ q


[~MMBB2]
#IF
+ ]# A+ Z" l& M! ACOMPVAL $INTS2 < 3300
COMPVAL $INTS2 > 1500
#ACT
MOV D1 <$UNIXTIME>
9 R3 L* C7 N% `8 |" d" W' m/ BINC D1 <$INTS2>
INTS 2 = <$STR(D1)>

0 @. e' {1 b/ k4 }! E$ Y
1 t; _! |% }$ ]1 P2 `; C8 F#IF
COMPVAL $INTS2 > 3300
. a; S3 t- u2 S- `0 QCOMPVAL $INTS2 > $UNIXTIME
9 l( ]8 i4 F; r, W- \2 [#ACT
CALCVAL $INTS2 - $UNIXTIME
SENDMSG 7 将在<$CALCRESULT>秒后，才可以再次输入
CALCVAL $INTS2 ~ 0
SENDMSG 7 将在<$CALCRESULT>过期，才可以再次输入
# E9 C. A! p6 x" XMOV S2
$ ?# K! b, G3 f2 tBREAK
  U# d8 F* h. E# t* s/ K) s
( {: b6 u: U# Y! s
#IF
COMPVAL $INTS2 > 3300
COMPVAL $INTS2 < $UNIXTIME
5 O# W. x, e' B0 G. P  Y$ y#ACT
1 P& \  J7 F3 A' L& P! x/ o$ JINTS 2 = 0


#IF
' A: ~$ y' ~0 L) }5 q" ICOMPVAL <$ANSWER> = <$STR(S2)>
. U" Y& p2 s8 s# a1 v#ACT
DELAYGOTO 1 @MAKEMERCENARYMIBAO
: J( Y& v/ u0 Q7 R6 k4 BBREAK
#ELSEACT
MESSAGEBOX 错误提示：你输入的【密保答案1】错误.连续错误3次将30分钟内禁止在次输入
MOV S2
INTS 2 + 600
: J+ L) }& {3 k5 O8 @0 t+ wBREAK


5 C9 B: P$ j# S/ S
$ M; C( @" ?2 d, z/ @) m; M& P
( a' N# I% z" R% i1 n( E$ w[@验证3]
#IF
5 i+ U6 m- x9 B9 F7 J0 Q8 oEQUAL S2
; m2 M# \. e, c9 s/ Q& p; s4 \$ h#ACT
. Q# B0 e/ R, j2 e# }MESSAGEBOX 错误提示：请先输入【密保答案1】
: M; E) P# i: |8 `/ [BREAK
6 T8 ~3 g( @+ b: Q& S
1 e# E. O5 T1 N  D( }& p
' r* d) `% K5 f& ?1 C#IF
( w( s1 Q$ h: z$ y6 x!COMPVAL <$QUIZ2> = <$STR(S3)>
$ b( t) |& r5 F#ACT
QUERYVALUE 3 0 20 ~MMBB3 请输入你的【密保问题2】：
. W. V. V3 F. a4 ]#ELSEACT
MESSAGEBOX 错误提示：当前输入的密保是正确的无需在次输入
& _% J% {/ D4 h* L- b. sBREAK

; T7 c5 X# t  }3 t/ q1 J3 Z

4 _: C1 ^! h' r/ J
[~MMBB3]
#IF
, V" |6 f4 {  W6 C$ y7 ]  FCOMPVAL $INTS2 < 3300
$ y. p: a& _0 kCOMPVAL $INTS2 > 1500
, ~: i( n) W% k* I7 n" P#ACT
MOV D1 <$UNIXTIME>
INC D1 <$INTS2>
( ~; L, l# a4 J+ y* W* F( b& p0 a3 _. eINTS 2 = <$STR(D1)>


4 d; I6 [) V7 \( t' i#IF
COMPVAL $INTS2 > 3300
/ \$ D3 ?7 t; P1 P, d6 u+ m9 W5 W! jCOMPVAL $INTS2 > $UNIXTIME
#ACT
CALCVAL $INTS2 - $UNIXTIME
SENDMSG 7 将在<$CALCRESULT>秒后，才可以再次输入
CALCVAL $INTS2 ~ 0
2 A7 z8 p* P" O3 ISENDMSG 7 将在<$CALCRESULT>过期，才可以再次输入
# n* v6 j7 I4 tMOV S3
1 [( g6 p+ \2 B1 }BREAK

! o1 a; Z, ^3 f2 L& c( Q
' p" _3 k( p7 D( R#IF
" P) }( m3 I% ~5 s! p: @COMPVAL $INTS2 > 3300
COMPVAL $INTS2 < $UNIXTIME
#ACT
INTS 2 = 0
8 t3 Y& h/ l; L6 s/ e) }

#IF
& @1 ]% V$ s6 R5 ]& pCOMPVAL <$QUIZ2> = <$STR(S3)>
% N7 J, o: H5 c( ?! \) C7 b7 k#ACT
DELAYGOTO 1 @MAKEMERCENARYMIBAO
% C% m8 g! X0 F6 |+ n" NBREAK
) B( I* i5 `7 L" z#ELSEACT
+ J6 i' S5 z8 n% d7 f8 u5 e' VMESSAGEBOX 错误提示：你输入的【密保问题2】错误.连续错误3次将30分钟内禁止在次输入
# b: M1 k: [- G7 x* {% S$ Q/ TMOV S3
5 ?& f" F' K5 n6 gINTS 2 + 600
" J1 i0 F7 I$ {BREAK
) t' Y2 b" Y. y5 `/ n+ L( q9 v. g" k/ ]
* H3 z* d: t' b/ q6 [3 G4 k( P. r; m
" p/ K! B# c& \/ J8 g: y0 X  Q; Z

2 p  a3 L/ U. L( M3 J* o* V0 S[@验证4]
#IF
EQUAL S3
) X8 c; P& j; f* M& O#ACT
/ ^( ~( s; L1 B& y% n2 iMESSAGEBOX 错误提示：请先输入【密保问题2】
BREAK
! `7 o8 W+ u  A8 L! v2 M#ELSEACT
QUERYVALUE 4 0 20 ~MMBB4 请输入你的【密保答案2】：
BREAK
) |& E0 _/ g7 C- T( Q


( f1 j7 n2 y& {7 i) X
9 k5 N* D6 K& G" e' l6 k[~MMBB4]
# `/ u* _8 T5 H: J" E#IF
9 A+ N6 y5 X- H' P$ D) w  |COMPVAL $INTS2 < 3300
COMPVAL $INTS2 > 1500
& `' B, Y  @/ ~& r3 F#ACT
  {! B9 k5 x" z# w+ ?- `: r* xMOV D1 <$UNIXTIME>
INC D1 <$INTS2>
INTS 2 = <$STR(D1)>
! {8 f. H6 n# b# i% C
) f; \5 t% v0 u  J; Z" r6 J  Y& A
9 ^2 g5 f" N3 ]- n9 G4 B#IF
COMPVAL $INTS2 > 3300
COMPVAL $INTS2 > $UNIXTIME
#ACT
' L1 H, @, y6 i4 _+ zCALCVAL $INTS2 - $UNIXTIME
3 a3 u, d1 g8 v4 s# GSENDMSG 7 将在<$CALCRESULT>秒后，才可以再次输入
CALCVAL $INTS2 ~ 0
SENDMSG 7 将在<$CALCRESULT>过期，才可以再次输入
MOV S4
1 T) Z4 k/ q" ~BREAK


#IF
COMPVAL $INTS2 > 3300
COMPVAL $INTS2 < $UNIXTIME
#ACT
INTS 2 = 0
  K1 T" X* o/ b' \/ E9 \8 o1 n
1 f' ^& \6 u/ |4 M* \
#IF
+ L/ U) M5 }$ M& z( G" r; LCOMPVAL <$QUIZ> = <$STR(S1)>
COMPVAL <$ANSWER> = <$STR(S2)>
1 H2 l$ g/ J3 d- u- D; FCOMPVAL <$QUIZ2> = <$STR(S3)>
COMPVAL <$ANSWER2> = <$STR(S4)>
& E" A2 e2 X& E#ACT
* k" D( t% Q% a( _5 }DELAYGOTO 1 @MAKEMERCENARYMIBAO
;参数1表示不小于此等级的角色可以被压卡，
4 P! d9 Q( \: n( K8 e* ?;参数2表示制作为佣兵将损失15%的经验值
;参数3为1时表示过滤掉隐藏角色
QUERYMERCENARIES 5 1 0
#ELSEACT
, D& `% Z/ `) x' e7 K/ `) PMESSAGEBOX 错误提示：你输入的【密保答案2】错误.连续错误3次将30分钟内禁止在次输入
9 x8 L: B; [8 p* ~, _! Y7 oMOV S4
INTS 2 + 600
BREAK
8 h, M; i) }% k5 k5 V0 o. B
. r$ H+ Q: @5 i


; m/ t( z" I3 b# |: M$ A; ------------------- 契约创建角色 -------------------
! D7 u" p# ^, V& \& N/ K5 M[@@CreateMercenary]
左边空框内放入<COLOR=clFuchsia 已签约的佣兵契约纸>\
+ p/ I) g6 I" Q! \+ Y右边空框内放入<COLOR=clFuchsia 佣兵令牌>\ \
<返回/@main>   <关闭/@exit>
  x0 T' J4 A% }8 m8 k

; ------------------- 压卡成功后执行的字段 -------------------
[@MakeMercenarySuccess]
$ M! C0 a0 v; [/ H+ ]6 n+ Q0 W#if
true
' d# L- \5 V$ ]# n) @% P# K#act
7 d0 x" y; g0 l5 B0 Msendmsg 7 压卡成功：正在制作契约的玩家：<$PARAMSTR(0)>，被制作为契约的原角色名：<$PARAMSTR(1)>，佣兵契约上的角色名：<$PARAMSTR(2)>
ADDLINELIST ..\QuestDiary\账号交易记录.txt 原角色名：<$PARAMSTR(1)>---佣兵契约上的角色名：<$PARAMSTR(2)>
+ V3 f% }. g, H( r1 M
2 W+ h+ m" w- \0 s. }
; X8 ]" E, a; s; I6 [# p9 g;使用契约纸成功创建角色后执行的字段
7 N/ }& m+ {) n* Y[@NewCharByContractSuccess]
#if
true
#act
+ R7 c  q0 `. c! hsendmsg 7 创角成功：正在使用契约创角的玩家：<$PARAMSTR(0)>，佣兵契约上的角色名：<$PARAMSTR(1)>，创建的新角色名：<$PARAMSTR(2)>
ADDLINELIST ..\QuestDiary\账号交易记录.txt 佣兵契约上的角色名：<$PARAMSTR(1)>---创建的新角色名：<$PARAMSTR(2)>
! C9 l" s8 ]$ ~& ^; M% v