传奇部落

传奇服务端NPC脚本中行会竞价收人脚本是怎么制作的?

[复制链接]
发表于 2023-6-16 22:31:28 | 显示全部楼层 |阅读模式
QQ截图20230616222105.jpg ! [3 K% m& ~. ]& U+ h$ M

- L$ t) B( ?) t9 h' H$ p% g9 v: H3 }- x
; V) W) d! I  }
9 A  s0 ^% X; N$ l5 D9 ^
[@main]
+ }) l$ p2 r# J7 r2 ]#IF9 s3 S- l- ?* C/ j% k
#ACT
9 z' D( F8 L, b+ q/ p2 LMOV S$第一行会竞标 <加入行会/@加入1>
) }2 P" T2 M$ E1 o4 {) uMOV S$第二行会竞标 <加入行会/@加入2>2 q/ I$ d3 W/ J. \% L+ E
MOV S$第三行会竞标 <加入行会/@加入3>
: A' _* |- W$ ]& |$ c; ~. uMOV S$等级要求1 <$STR(G304)>! S+ ~7 A) K( F; c) x
MOV S$等级要求2 <$STR(G305)>
& U# Z4 v) [7 F' a9 r- QMOV S$等级要求3 <$STR(G306)>
! S' }+ |2 Q- U+ {
8 n" j3 @! M1 {' q# \# J1 l. L. G

1 F* Y; p  H. r0 h#IF" v1 u& l. {; K) h- J2 s1 {
equal A304 允许收人: `4 {  E& N' z  m2 I5 l& H
#ACT+ ~% a# S8 {4 V7 i0 f
MOV S$收人状态1 <允许加入/SCOLOR=250>* {: O9 i# w1 O

4 z* t( j! Q2 m  @' X# i; I
  U( ~5 |7 y5 z1 J! x
#IF
' a" Q. R3 S1 u7 hequal A305 允许收人
( S4 x+ v& v2 N& f#ACT% `4 V/ m$ v' Y
MOV S$收人状态2 <允许加入/SCOLOR=250>
8 c2 p8 Z+ v/ X: \4 T3 e; r; i: l, L) m+ k. I' j: A
/ I7 [' \* W. \  J) a# L" e( n! r
#IF( y4 p7 g. Q% H" q
equal A306 允许收人" u8 V6 s3 p6 U# c. A
#ACT
, P$ q4 E0 ^7 }8 K, N- cMOV S$收人状态3 <允许加入/SCOLOR=250>7 u) `% \. R5 E$ j+ R2 o/ l
. j! _. j2 B1 L) D5 e
( J; C( j3 e1 U( d3 ]6 u, E, r: z
#IF! v) U; ^/ P& z4 f' i  ^2 D
equal A304
( H1 S6 d* }1 ^0 \#ACT
) n& g* K  q% Z, F: y0 Q) \MOV S$收人状态1 <禁止加入/SCOLOR=249>
( l7 N. n0 L/ r8 w4 N) I2 L0 J5 C, @
) g  L) m1 F  Z; N
6 K( g- d( u9 P
#IF, V0 I: N) ^5 O+ j% H: X% W2 l/ e
equal A305
4 G$ I  q' [) ~% |) G, b#ACT" V7 g8 B6 M, V# [! ?
MOV S$收人状态2 <禁止加入/SCOLOR=249>
; I8 V) w0 M3 ~6 K0 o3 b7 `' c, _2 x. J5 L" I0 @. h
& F4 o0 E0 Z  C2 H% m3 h2 q
#IF
, _# [1 v! o. q* {. Lequal A306: ^' u' D* P. z
#ACT
5 ]0 F( q0 m/ dMOV S$收人状态3 <禁止加入/SCOLOR=249>
; A3 U) ?$ k$ v, D2 o: c1 @( D9 D. m1 S% ?4 G, n* z8 S

3 |4 E1 }5 f7 p7 _5 r2 ^#IF1 B4 U  j! _0 a( c% r
#ACT0 D+ M( Q/ o5 G' v$ h0 `
;为了加空格才转换
' l) O2 p! U5 p+ rMOV S$行会名字1 <$STR(A300)>
, @% M' r7 Y; n8 V% j  r$ BMOV S$行会名字2 <$STR(A301)>
; x* e6 i3 T+ W' v  o6 fMOV S$行会名字3 <$STR(A302)>9 }, K. A( m: N" ?. L* ]$ x+ L. I$ W

- Z6 u+ }5 A" _1 `# {
+ I9 j, V; y% x  c5 v
SetStringBlank S$行会名字1 20 1
2 U1 d5 n7 b* E0 u/ ]& kSetStringBlank S$行会名字2 20 1
* R  l: l3 ~# t+ d9 Z& |
2 d0 A7 S- m$ {( y; B# g

/ J+ \; x/ `3 N# f3 v+ pMOV S$竞标价格1 <$STR(G300)>6 Q, I/ m8 [( @1 V8 P; q
MOV S$竞标价格2 <$STR(G301)>
' U' P7 @; J: h2 R  W) AMOV S$竞标价格3 <$STR(G302)>
0 f& N8 s- M7 }  G, `' ~+ f6 q! w* m. }3 z

; U& }5 X) D; P$ ySetStringBlank S$竞标价格1 16 1, q. E( U" a2 Y) v- Z
SetStringBlank S$竞标价格2 16 1
, \! E- o! J/ r& O& h: a: e) |7 L3 K4 [
+ ~/ q" K2 O# Q' Z6 Q7 c
#IF
* P# x2 w2 u9 v( h2 P+ bISGUILDMASTER) L7 f$ m$ C+ w" n( E$ ]# I# D" P. D
#ACT
2 G, P4 R3 {- d6 O1 U6 ~MOV S$第一行会竞标 <出价竞标/@竞标1>, V+ f, E( }' ?9 W0 c  v
MOV S$第二行会竞标 <出价竞标/@竞标2>
) l+ h) j7 |$ t0 FMOV S$第三行会竞标 <出价竞标/@竞标3>
/ G+ Y8 s' D* d8 H' K# G
- _9 d! U+ _# c. d
- T, G  u% |% }6 T+ X
;为了加空格才转换
8 B' c* u) R8 \  Q2 |MOV S$行会名字1 <$STR(A300)>: D2 b+ d+ i) D' T
MOV S$行会名字2 <$STR(A301)>) C& ]: _7 S! h3 N
MOV S$行会名字3 <$STR(A302)>/ e6 u2 w5 ^3 f
1 P5 U: m5 t8 ]4 e" q

8 r  U: ?* C8 R+ G! x& Q8 TSetStringBlank S$行会名字1 20 1
0 _: l4 O9 T" A; v2 B0 P: w5 [1 m/ aSetStringBlank S$行会名字2 20 1" z( _2 S& d* J: C  k

+ M) T, _* o+ ^/ k! X" w4 [; B0 F
  [( |* G0 s% A- x$ K" x  |2 b
# j& m: i0 N1 o" `3 ~( r
, Z5 C* X0 b" W* f% u" J
MOV S$竞标价格1 <$STR(G300)>) q! y1 q' Z& x: e9 L+ R; B
MOV S$竞标价格2 <$STR(G301)>
/ I9 D# H" V2 `MOV S$竞标价格3 <$STR(G302)>
* U# e; {. I3 f" m  \7 ]" [% M4 H" f# L

5 K  ]: T3 v/ b" dSetStringBlank S$竞标价格1 16 1
. O% M7 E( x' e8 @# uSetStringBlank S$竞标价格2 16 1
7 p3 g1 O% w' G2 n* ^% x0 K
$ P+ x9 o1 S8 a5 y4 n8 ^
1 y0 ]: c- n3 b8 a! P1 F
#IF
2 ^( f6 ?* S' s. p! kISGUILDMASTER
% g/ l+ S& U2 p4 L% g: H* r  ]equal <$GUILDNAME> <$STR(A300)>
4 N) M' V& ^6 Q7 j% b5 ?#ACT$ _. r. b" N3 i( {: q! V0 A' `
MOV S$等级要求1 <$STR(G304)><设置/@@InPutInteger85>5 i) h0 O# ?1 C- _

: E( y) ^1 M+ u& G& d/ y: P' I

3 [, g& Z1 d) r5 q! ~+ n7 H#IF: ^( T% {# P; C9 @
ISGUILDMASTER4 N0 a' D2 K' X5 Z5 H
equal <$GUILDNAME> <$STR(A301)>* C: C4 \: n+ D- |" z# n! j
#ACT* t% |. }8 k6 {5 k- @; k
MOV S$等级要求2 <$STR(G305)><设置/@@InPutInteger86>8 [5 q: D; u5 Q5 @5 r4 @
5 F  R, R0 a9 U, d- v% w

0 P1 L7 ]( {8 A2 Y#IF8 \* _/ C8 g3 H( C+ G: \" [; Y; G) q
ISGUILDMASTER( j# i) |. X1 ~( }
equal <$GUILDNAME> <$STR(A302)>7 ^2 ~: Q. b8 j% q& x6 I$ K
#ACT
3 Z" j& |! B% }, O) lMOV S$等级要求3 <$STR(G306)><设置/@@InPutInteger87>  s/ S& y$ N: I

5 p2 G- p' e" x9 W

5 m8 v* a+ T2 J6 Y#IF3 I. E, e3 V2 O% z4 ~' U
ISGUILDMASTER
6 J4 y5 a1 Y! H' gequal A304 允许收人
+ t4 |* M) V# h) n5 D8 O. Aequal <$GUILDNAME> <$STR(A300)>) A$ D" W5 t/ B1 c9 b
#ACT7 x# M- f3 i6 x2 s  S
MOV S$收人状态1 <允许/SCOLOR=250><设置/@收人1># t3 k' Y; G0 U: ]6 Z6 `

2 k1 t' W+ h& r) ?! V
" T. b" A6 T" U
#IF
, d7 J1 L0 ]3 V' ?1 m  R) ^ISGUILDMASTER
- k$ a' ^2 C, n: |3 r5 ~! fequal A305 允许收人
+ j2 L- `5 J* qequal <$GUILDNAME> <$STR(A301)>, j! h3 i: ~% t9 Q* j
#ACT
& M1 f8 B+ j# V+ `MOV S$收人状态2 <允许/SCOLOR=250><设置/@收人2>
1 [  r$ j2 D7 g8 y
) q" M1 Z% k  x5 i8 e
6 O' u, ~0 K: q+ r# g
#IF: e. K% C* ~; `
ISGUILDMASTER' V9 o9 r) P# O7 _3 s& Z$ j
equal A306 允许收人
. m# k+ N( p7 v6 _( o. G) fequal <$GUILDNAME> <$STR(A302)>
  \/ p( j/ u% s3 [#ACT
; H+ v/ D% A2 S' N1 X) kMOV S$收人状态3 <允许/SCOLOR=250><设置/@收人3>2 [, u6 ~4 C# i0 s% V4 w; d. x

1 c" J/ i& z' d" }, z
; E- p- W3 _' Y
#IF
' j# C5 J$ O7 r& ~" M! s4 @ISGUILDMASTER# q* t! i/ c$ z# V
equal A304
* t) t3 }- Z% B! w  i& V. A! F( w% zequal <$GUILDNAME> <$STR(A300)>$ J. p  Z9 A* x( I
#ACT) h  h" ~) n+ o! D  J
MOV S$收人状态1 <禁止/SCOLOR=249><设置/@收人1>* ?+ H" l2 S9 Z) l' m, c

/ }" x6 J6 S: u
* R: z* M$ S% O. X4 @
#IF
# t: ]: W4 E& j$ JISGUILDMASTER
: M' _! c) P2 T0 r2 s& ~+ h2 P7 pequal A305
8 L  E# k; l6 ^0 E6 O3 [0 Yequal <$GUILDNAME> <$STR(A301)>$ {5 ]9 U% e; ^% w8 I
#ACT
2 a* D2 u, @2 Y& h( ~; b9 X, t. I5 PMOV S$收人状态2 <禁止/SCOLOR=249><设置/@收人2>
2 P6 S6 Q4 X( f/ _
  ^( D' X4 R1 S3 z$ T; U
* `  v4 O( k! ^8 W2 I* i, j
#IF
6 x$ o$ x% N7 g2 h2 J& P$ s) kISGUILDMASTER+ R3 y' }9 C# G
equal A306
4 q0 `2 k  N+ g' s9 }/ ]5 x$ Fequal <$GUILDNAME> <$STR(A302)>/ @! y8 e! `6 h* W3 m( D. W0 f
#ACT; [' }/ B/ O' \
MOV S$收人状态3 <禁止/SCOLOR=249><设置/@收人3>( d8 D$ D# N! v- ~0 j+ ?4 O( Y

: X' W6 {" Z8 H
# M- d- Q8 v( A9 v* I; _' E3 Q. B
#IF
8 S! W: y0 f" l4 |7 f) k% ^#ACT0 \* s  {) D# }: P5 G
goto @字符1
4 W1 B( ]/ x9 {- N$ X- X5 {0 }, B' d& Y9 o" Y7 N
$ i+ r# t! @9 r8 f8 e
#IF: {* [# e& y0 u0 V6 G3 B4 K5 M. |( h
#ACT* w6 B) V3 h6 W7 I  l
OPENMERCHANTBIGDLG 10 48 1 0 0 16 1 523 11
- e/ I' B* U" e  M% M7 p$ M- G( O#SAY
+ d/ K  {+ U: m8 d- j6 W* ]2 r
6 }+ A1 v8 ]6 ?% Q

/ r' A' b# c  J9 J+ t5 C. a     {<$STR(S$行会名字1)>/SCOLOR=251}    {<$STR(S$行会名字2)>/SCOLOR=254}    <$STR(S$行会名字3)> \
) |, P0 a- Z2 j \
2 Z0 B9 E, P4 z; W  C4 U. z+ d. J  S  <[竞价元宝]/SCOLOR=116> <$STR(S$竞标价格1)><[竞价元宝]/SCOLOR=116> <$STR(S$竞标价格2)> <[竞价元宝]/SCOLOR=116> <$STR(S$竞标价格3)>\
. e' }5 ^6 p) @0 {$ g( w9 L3 ?
8 z) z6 j1 z# L" r. s0 q% s
8 k% G3 ^7 V( N  c' e- J
 \  X" L1 Y4 w" n0 c! N
  <[需要等级]/SCOLOR=116> <$STR(S$等级要求1)><[需要等级]/SCOLOR=116> <$STR(S$等级要求2)><[需要等级]/SCOLOR=116> <$STR(S$等级要求3)>\+ K( y$ I- J! q# l- ?
 \
+ E7 y+ |8 o3 M9 Y# P* X! a9 J  <[收人状态]/SCOLOR=116> <$STR(S$收人状态1)>    <[收人状态]/SCOLOR=116> <$STR(S$收人状态2)>     <[收人状态]/SCOLOR=116> <$STR(S$收人状态3)>\
. ?! a# W2 o. W& W, I' m0 x3 |+ @4 L \
' |4 _6 P2 c2 B5 D& x. ~9 Q7 o9 G     <$STR(S$第一行会竞标)>          <$STR(S$第二行会竞标)>          <$STR(S$第三行会竞标)> \- @$ y; I* d$ o: ^" ~# ~/ t$ N0 ]
 \
1 i7 ^( t, a7 U* B" | <行会掌门可竞拍以上3个选项,每次需在当前竞价上加1000元宝!(每个位置分别竞拍)/SCOLOR=7>
8 E- C* K0 h- t& q0 d6 l8 ]. M, I5 d
# c- w  ^4 N7 ]+ i( `3 C% b: l
/ I  D8 y& M9 j1 w
[@字符1]- n0 t9 j( ?/ M
#IF
+ i6 V/ ~/ O: C! Z0 _2 v1 dISGUILDMASTER
2 Z, k" H; S3 C+ A6 L# Zequal <$GUILDNAME> <$STR(A300)>
( q" k7 M3 \6 I) iequal <$GUILDNAME> <$STR(A301)>
- l: h9 f5 t$ ]: A  v#ACT
. @. u5 F% \1 r1 _% FSetStringBlank S$收人状态1 20 18 @3 Q( X+ M7 r8 K/ q
SetStringBlank S$收人状态2 20 1
, l6 C6 v7 U% S, N8 KSetStringBlank S$等级要求1 35 1+ u9 @. Y1 E" r
SetStringBlank S$等级要求2 36 1
4 h; B8 r5 n6 iBREAK
& H" U& Y( `5 b! A, M; ]6 P8 H  y. T. p: z3 ~& Z
1 R4 c. z- C& d$ |
#IF
8 G  a; ^# }+ d0 q$ c1 ?ISGUILDMASTER+ n1 Y5 y# J. G
equal <$GUILDNAME> <$STR(A300)>
: Q4 S3 @2 z  S+ ?#ACT
7 {/ ?$ |8 ]% g6 eSetStringBlank S$收人状态1 20 1
. r" K; Q0 I' a' j, k4 Q; D- l- q7 BSetStringBlank S$收人状态2 20 1
* F1 c7 V; n% ~1 A4 u4 w& ?+ W9 USetStringBlank S$等级要求1 35 13 t- Z, d: M$ {: S$ I/ l
SetStringBlank S$等级要求2 17 1! [7 G: d8 w: W. U$ H2 k
BREAK. r) A, V& ^" ]; }" c! M

3 I5 i) a; Z: U1 V! f( m

( @+ S- f6 r8 Q! i4 ^% Q#IF
" K  X/ k- _. h) T/ KISGUILDMASTER8 Y5 t" Z- c& @
equal <$GUILDNAME> <$STR(A301)>
9 [4 g& j& J$ d7 F2 f) @#ACT; S% a% T) x8 m5 h3 a1 V% m$ h+ C
SetStringBlank S$收人状态1 20 14 P" t/ g5 g4 H9 [. K1 o7 C3 L
SetStringBlank S$收人状态2 20 13 z/ c1 x1 L  K5 ^7 g# D9 `1 K! `
SetStringBlank S$等级要求1 16 1
+ M& Z2 {: T4 B0 H; |! ]! `SetStringBlank S$等级要求2 36 17 j6 H2 Z5 l# k2 C
BREAK
7 |2 e; }8 X6 O* q" @/ F) f7 K% t4 z
# ^; Y& a0 o; D: \& G) ]3 a
#IF
: U0 c; q4 O) b- \$ l4 K! r' h3 o#ACT
6 t' o# c' J- i) \! }, OSetStringBlank S$收人状态1 20 1
( ^+ S2 ]0 x; T% ^9 @, p' HSetStringBlank S$收人状态2 20 1
4 ~" s# V4 @; f. I) KSetStringBlank S$等级要求1 16 1
8 ~! @2 }- b7 p+ L2 _$ z* o+ ]: ?SetStringBlank S$等级要求2 17 1
9 J# y7 n$ k# c* H' Z! MBREAK) T) U4 N( v7 D1 B/ Q+ F" P% o" Q
* l& }  H& Q1 `+ K' D6 i/ {# l

" q) {4 S. n, `4 O, R9 D[@收人3]1 @; `! r% @% [7 u6 o
#if$ ^$ _9 F5 ?0 X  Z! M/ F
equal A306 允许收人" q. f/ G0 o# Q" C& x) P/ l: e
#act- F( @$ J. V$ F+ l3 K- c9 P) K
messagebox \\\您将关闭行会招募状态.确定关闭么?  @禁止3 @取消
1 @& v( g% |5 E9 \4 g#elseact& K  s' J6 l, n3 z' Y
messagebox \\\您将开启行会招募状态.确定开启么?  @允许3 @取消
$ m3 o1 C/ D6 h9 o/ S9 h& }( ]  b; A" z; J
/ r) x; [/ R! b  u' m, Y
[@允许3]
! c/ _9 W5 T' H: L#act
( r) H! n& @( o! K& x0 G. x8 PMOV A306 允许收人7 N' y5 G; L& h0 T  ^
Messagebox  当前收人设置为允许收人4 E' L' O! _( ^
goto @main% |( Q, F7 o% ^

8 ~+ n  t) O/ W& p/ U& e9 c

2 g+ A- w* r4 P' q( _# _$ o' @[@禁止3]
" r9 I) d( a, q8 `* c8 Y2 J#act
6 w( r" Q* i3 B0 f+ rMOV A3067 F/ c* T3 r: Z* I6 q
Messagebox  当前收人设置为禁止收人) S3 D& C% q  ^* G5 h0 k
goto @main1 ?6 p7 U0 `# t) S; o, e# F

# c" P& d7 w: s7 Q

6 o& K0 D+ Z% ^# A/ b0 T, e[@收人2], J2 T( l, f3 c
#if; [/ m+ N2 l; r! i$ j6 }: f% X
equal A305 允许收人
+ w* G; e) e# n1 R#act. \! G5 Q  L5 Y: |1 q
messagebox \\\您将关闭行会招募状态.确定关闭么?  @禁止2 @取消$ Y; l. v* f: `+ D* [( S
#elseact! Q& \6 F8 y0 V
messagebox \\\您将开启行会招募状态.确定开启么?  @允许2 @取消4 X: L  |  Z# y" ?$ s
; p- l3 b8 ~9 J' t( o  |* S0 Y0 |

/ {+ `' a" Y# A1 y9 P6 x[@允许2]/ z- N( e1 o' p& Z4 V4 P
#act0 [: A" W" r+ Y) E, `+ ^& n! v
MOV A305 允许收人
0 }: @0 F; @- a3 e' @Messagebox  当前收人设置为允许收人; t5 Q5 f2 I$ Y7 X( A9 J5 k, I' V
goto @main8 C2 [9 g+ m" D$ W; m! s8 [
4 Z6 P3 a) b- Q
0 x" @5 }  c: F! M+ S- g/ k
[@禁止2]
4 o' v! `8 Y/ ~#act9 E7 w" W8 K9 C) l: p
MOV A305
% H6 k$ K4 G% _7 Q' ~$ x5 ^) c: L" SMessagebox  当前收人设置为禁止收人* O1 J, k; r9 H' B) B) o5 n
goto @main/ R, w8 t8 |& f% e

3 F# Z1 r+ a; ^5 E1 V0 i6 n4 i

, p* X/ I& R  {# @& a[@收人1]
3 q; B5 N# }2 w' O. m, y3 `7 {#if% a0 `' O" s, K4 }
equal A304 允许收人
# C& s$ |" n' m/ S; \7 F& s3 P1 J#act
2 @# U$ p5 s% p* rmessagebox \\\您将关闭行会招募状态.确定关闭么?  @禁止1 @取消4 }' h# X: W; z5 U7 f" F' Q
#elseact$ O' M+ F2 t0 G" X. z
messagebox \\\您将开启行会招募状态.确定开启么?  @允许1 @取消
% v; e) d# u; d4 G9 S* k  d& P+ x8 u" i+ B) _
# P7 g, Z' E! u' J$ n
[@允许1]4 h3 p" I5 _7 m* [5 x
#act
2 F* ]; B% C  H, M- u  `MOV A304 允许收人
/ \) z7 @+ K2 Y! I/ b9 I2 zMessagebox  当前收人设置为允许收人
- e5 v6 C* t# F, s7 {9 tgoto @main% P. ]" I3 `2 h/ G

7 q' T6 t! Z9 t$ A- r
- x' r) G7 F9 b$ j! Q# ?
[@禁止1]
, X6 p! R. L: N" d# I- @, ]# J#act% ~  f4 W1 l1 d6 [) a
MOV A304# b8 j4 Z5 t3 L+ Z: ]  m/ Q# T
Messagebox  当前收人设置为禁止收人
6 K1 o' Q3 X: U3 a- A6 qgoto @main
5 {! B% j' @! f' V8 K7 i" B* z+ X% w
% ^- f1 E1 ?) t0 r
[@InPutInteger85]
3 c5 M2 `  `' r. a$ R#if' K! H3 R- F2 b: W6 j# T
large N85 0) n& e( f. W% B% X7 M* F$ T
CheckStringlength <$STR(N85)> < 4
: u  w; ^( ?9 \* {+ x8 RCheckStringlength <$STR(N85)> > 00 O/ b1 C3 M# j! _: r/ Z# k
#ACT% k1 V7 {; N* M7 Y0 P& g9 n
MOV <$STR(G304)> <$STR(N85)>
$ [% g6 X) X! j1 XMessagebox  当前收人设置为<$STR(N85)>级
( l8 l! V$ B. z7 g; f# g7 ]7 yGOTO @main 7 N$ u1 }  Z: N  d. k6 d, ]; w5 ?
BREAK# {( q! v1 Z# }% {8 F
#ELSEACT( J3 ]1 g- H0 J, ~
Messagebox  请输入正确的等级
# |" H- b1 u2 |/ ]
* `- F9 w0 d  L" X: V( I) X- `9 [7 \

: \' p+ d  L: q  Z" P1 [. d[@InPutInteger86]
* p$ h7 N1 M3 p' }4 L#if$ t& j+ R& _5 |8 `; F& U
large N86 02 m1 C& y% f' I3 x
CheckStringlength <$STR(N86)> < 4- i( y5 l; j& L9 C( [# a# t
CheckStringlength <$STR(N86)> > 0
! e( t# _5 o6 Q7 r. J9 O/ u#ACT
! s4 U! D: {( `! }( E' KMOV <$STR(G305)> <$STR(N86)>
7 f# d( q$ u- X+ C2 LMessagebox  当前收人设置为<$STR(N86)>级
- J' [( c+ Y3 P( j$ I9 V! cGOTO @main ; I* b; _/ C( o8 X' U/ O
BREAK$ \1 P/ b2 P( T; b
#ELSEACT/ b/ I7 R' W/ u3 b3 C( ?
Messagebox  请输入正确的等级! x  e5 t) u. A8 S: Z" {

) q( u+ [  P, T/ R

2 B, v4 e, ]. K1 C! h! K; Q[@InPutInteger87]
: a5 d* c' \6 b$ G( x) C' o#if1 ?/ @3 u; x4 m" q* R
large N87 0
; i6 `5 [4 K, ^2 P, z2 PCheckStringlength <$STR(N87)> < 4
3 {  B, T1 K; V5 |; J% k8 l% tCheckStringlength <$STR(N87)> > 0
% |% v- c8 l5 v9 i& X+ E9 E' E#ACT& N* E! o! Y) g' H$ E
MOV <$STR(G306)> <$STR(N87)>
0 |8 ^2 d: `; D. P! gMessagebox  当前收人设置为<$STR(N87)>级
$ B7 h& }/ ^% [7 ^) v6 V' G9 G+ LGOTO @main : p& ?) s/ ~: g. C. P
BREAK
: M; M; I) {! |% N" h) H#ELSEACT) F5 ?* @% x8 P4 [
Messagebox  请输入正确的等级+ [) a4 S: M( j) d6 Q" x; m

% i0 t6 ^& \! F( D3 \; ?& z
7 C, U  L, o3 I( x( q) \
[@竞标1]/ |) H, X1 D7 l* d
#if
* }$ z5 o3 b2 c$ ?: ~0 ~equal <$GUILDNAME> <$STR(A300)>- v5 L1 @4 |1 y7 }& e* d
#act" k8 {1 ~( L# W. _3 Q' p8 _+ U
messagebox  您已竞标了第一行会竞标版.无需再次竞标.
0 A0 t! a; d  Pbreak3 d. W; E* {- u7 i, }0 {1 f" D* X
  U3 i6 I  o* c1 B7 L
/ a4 g. x+ j! y4 ^4 i
#IF " \$ J& G( m5 g, E# t) i
CheckGameGold > <$STR(G300)>
$ s5 y* ^. _' g& u& p#ACT! Y3 f7 _% \% c  P1 g( J
INC G300 1000
2 p, o3 K8 `2 k6 JGameGold - <$STR(G300)>
3 e9 D6 V: y: V) N7 p! u: NINC G445 1000
. I! E6 m. n2 D9 {8 ^mov A300 <$GUILDNAME>
# X/ w. t$ U8 e  Z* e4 O+ xGuildNoticeMsg 249 251 恭喜【<$USERNAME>】统治的行会【<$STR(A300)>】荣登【第一行会竞拍版】6 T, p+ D9 \( b* ^0 A. K
mov A304 允许收人- k  u. R0 n5 G) o) R' H: D, d
GOTO @main
1 X. G- z: d8 hBREAK 4 M( @5 q3 D  Z; U% ^9 C
#ELSEACT. r& z$ q3 |# m6 t5 Z. x
MOV N$第一行会价格 <$STR(G300)>
7 `0 t, [& p* D. O! [inc N$第一行会价格 1000" c) E1 L" j4 ?' K
Messagebox  抱歉,本次竞拍需要<$STR(N$第一行会价格)>元宝,您的元宝不足1 I( ]: R& o% V. R! N2 u

$ }; W3 f8 B# V7 [

/ Y8 t, ?/ |& L/ T[@加入1]
0 B/ X: C/ t' n6 Q: g' u0 s#IF
3 H2 Z. G) b- L9 j; Z9 SHAVEGUILD6 ^$ ~$ V" R& T! W" C; B
#ACT. [( X: b1 l: r1 J( n6 D
Messagebox  您当前已经加入行会.请退出后在加入.& l. ?& E# d8 H' P
break3 G$ C6 V! V9 \3 ^5 I! U

- Q: n- l3 t) C) q& r$ r9 I2 x
: e9 j$ V7 _4 {5 l/ h; `+ ~
#if' B# z  w6 q; a; h8 A5 W2 P! L
equal <$STR(A300)> 6 e, V4 S$ L% x6 k4 I. e. d
#act+ u* A; Z- d) _( c  u% e  T+ ]. g
messagebox  当前天下第一行会竞标版会无人竞标0 H: i- |2 M" d* K0 f, X
break
1 C" Z( k4 L/ m! b: z  _7 N! n. u0 V+ F( @, E

. N: s9 F  X5 L! A$ B; r#if
* h  C/ B: F3 Y9 y+ T) K( Zequal A304
* F2 p1 W9 _$ S5 C  l+ r! P3 l#act6 I* J$ c; M0 H# x' Y' \
messagebox  当前<$STR(A300)>行会禁止收人% v( r6 o1 m4 y' R- J
break
% ^: w# y# ?( t# a0 {
! K. i% ^1 k/ P5 }* c& K3 G4 I
. B; R' q; p4 f! ~
#if7 n2 K# f$ @0 W
CHECKLEVELEX < <$STR(G304)>' c' d. t6 c* ]+ l& r+ U' b8 ^
#act
( q( t# q7 x. Rmessagebox  <$STR(A300)>行会禁止收人需要人物达到<$STR(G304)>级
" c! F; j% t1 `' Pbreak
, v) x; W: [3 X- |" `/ L' X0 G2 w5 V  A3 X' M6 h* w7 z

1 e# b- ]0 {7 f% N5 ~# A: [4 P' b6 O#if
) @  n) T& P7 Z$ C8 t  P6 ~#act
* J3 g* b7 @6 |" P& K, gADDGUILDMEMBER <$STR(A300)>
! d! P( c; j2 H' sGuildNoticeMsg 249 251 恭喜【<$USERNAME>】通过【行会竞标版】加入了【<$STR(A300)>】7 G$ c3 @6 r2 V$ [- \7 s. O  U
break+ ]( e$ [. S# r) J* s  P

8 {: ?' c% p: ^1 B/ O0 b) G

7 x3 l% [3 x( U( f% j[@竞标2]
- T7 B* s5 `; Y) n& H#if
" t5 i) y+ `( Q, k' Vequal <$GUILDNAME> <$STR(A301)>
; v9 n% C; ^. ~* u1 v#act
# {5 h, X7 l2 H$ p' I; C' x( mmessagebox  您已竞标了第二行会竞标版.无需再次竞标.6 k+ A2 X. p6 k, {8 c
break
7 q1 J( p2 W0 c( `8 \) t# c- O) `/ t+ b/ h  Z
2 s0 t/ ~2 N5 G) E! L9 R6 [6 J
#IF
2 [. K( A7 ?0 E$ p: G6 G0 SCheckGameGold > <$STR(G301)>7 m, v) e4 I: B' @
#ACT
1 r8 f' L/ Z* t1 CINC G301 1000" m+ @0 b8 l( q  ?* a
GameGold - <$STR(G301)>
! K/ X: A" K* B: |7 _INC G445 1000% f$ g2 A6 j' E0 ^, t0 z
mov A301 <$GUILDNAME>, j9 c! \3 U9 ?+ P0 z2 M
GuildNoticeMsg 249 251 恭喜【<$USERNAME>】统治的行会【<$STR(A301)>】荣登【第二行会竞拍版】
; V; T* U0 r" fmov A305 允许收人
2 N1 ]" d# H$ B' WGOTO @main   K: A$ y6 o2 [
BREAK & B0 H9 r: g4 X9 e- z  A# n. q. |
#ELSEACT
, C9 \9 o5 w" g" U) Z' T1 gMOV N$第二行会价格 <$STR(G301)># i! V6 Y  I5 {3 F- c
inc N$第二行会价格 1000
3 Y' N  R  T% O1 V! IMessagebox  抱歉,本次竞拍需要<$STR(N$第二行会价格)>元宝,您的元宝不足
: |  L/ A$ z; u) H: T; ^% @/ t, L: ?) P: Z; h5 c) _

0 a+ W4 M; ^! i" B. ^2 W* y# A[@加入2]
( V+ n$ G2 @2 t/ s9 H# K2 J9 ^5 ?#IF
4 l& L; Y5 R: wHAVEGUILD6 w# O6 b' X' Z6 M/ c
#ACT! v9 K4 y" x# ]* @/ r: Z" l
Messagebox  您当前已经加入行会.请退出后在加入.& z6 T# V/ y( D% v; e, G
break8 p" ?, q; p" a

7 Y$ |, r- _$ ~$ i

! m" K" z1 _1 Z! ]/ h#if( L3 U2 |  `1 v7 q6 R+ u
equal <$STR(A301)>
# n/ j  V5 [- |. U#act
; S: p) V3 A  d! z1 H! n. imessagebox  当前天下第二行会竞标版会无人竞标0 b. H$ g. Y: e3 h& d: b
break
* Y3 e+ s7 b  {1 K* i  Z: k8 h% t* l  [$ z7 }* S- A
7 u- U; a. E8 p
#if
! D  y6 A) L6 b1 Q1 Eequal A305
( P$ L3 m  D0 S  k+ W2 F; a#act
. a. I0 ^* J4 J; e" r: \messagebox  当前<$STR(A301)>行会禁止收人
3 U  @8 v8 e0 B) Dbreak
/ V+ @% V/ G( j) p2 n0 K% N2 S4 m9 O* I: p' Y
# c' }: R- f$ m$ }8 F" D
#if! F- x, F- y  G/ S$ ^: G; L
CHECKLEVELEX < <$STR(G305)>% }! {( }2 X5 u( o
#act4 z" E# q2 w! U+ \
messagebox  <$STR(A301)>行会禁止收人需要人物达到<$STR(G305)>级
5 r, A7 h7 h; J. g+ n3 a. o" rbreak
  y2 `5 `/ R; b' R2 F0 b6 y' c& U
) _: E7 ]  ?7 M8 u6 j, o

+ Y+ K. l, A! P#if' p- b# d4 I# |  f- t% h" k: Z
#act
3 e% Q9 u% p) @2 R9 g4 JADDGUILDMEMBER <$STR(A301)>2 g7 N: X4 c" v6 H# M. D2 M
GuildNoticeMsg 249 251 恭喜【<$USERNAME>】通过【第二行会竞标版】加入了【<$STR(A301)>】6 \, F3 ]! O- t
break
8 h9 e8 r) ^0 }, {, F0 y; Q4 B: r; i! H, n! t

8 q# w% v! S. F! D; S9 t% A5 ][@竞标3]) e2 A+ K# D' P! l7 b( z
#if
$ Y+ d1 w- b$ o3 v1 K/ _$ Lequal <$GUILDNAME> <$STR(A302)>
: l+ P& u. U2 n1 o" n#act
/ }$ d  n+ a+ m( {4 nmessagebox  您已竞标了第三行会竞标版.无需再次竞标.
5 m) ~/ Y5 p2 c0 ?break
( s, G% p/ v" k" C+ B3 d4 E$ ^7 d7 M3 b% B: G

+ Q2 [; ]' t7 k0 b5 S' m#IF
! s3 p1 v6 P! t& X) z% a, GCheckGameGold > <$STR(G302)>( D5 v7 T* s' z* t. |+ m
#ACT, H( I6 I+ ?# Q, {( Z9 x" ]$ L
INC G302 10002 e& _3 a% R6 w' r( J+ ]
GameGold - <$STR(G302)>
5 }) s- E, G2 B& d0 [! s1 q  TINC G445 1000
& Y6 w5 F% e/ f9 G4 p4 w$ p2 umov A302 <$GUILDNAME>0 f8 `1 R: `/ H8 r
GuildNoticeMsg 249 251 恭喜【<$USERNAME>】统治的行会【<$STR(A302)>】荣登【第三行会竞拍版】
0 f* W/ A$ j# B6 p" k( umov A306 允许收人4 S2 `" i; G0 g6 _2 b9 h
GOTO @main
4 a- f( G0 h$ v+ ABREAK
8 F/ x$ d2 o4 l$ k- j% k( w#ELSEACT& r* R/ f, d: M3 z) x( k" `( y
MOV N$第三行会价格 <$STR(G302)>
0 s% R) E) E5 Q. r7 H5 N% J. _inc N$第三行会价格 10000 v* {: `1 M/ X) v  h  i+ B9 |
Messagebox  抱歉,本次竞拍需要<$STR(N$第三行会价格)>元宝,您的元宝不足
' o6 d$ E# {' }1 ~
1 s* S" V2 Y0 g5 a9 \4 E' s

7 q7 r! S# Z. Q1 W- z9 j[@加入3]
  l- x" }$ j* \' o# u( l/ v#IF
! M  G+ Q9 A) u, H' V, y" EHAVEGUILD  g! M( K. v) C* |. w$ Q# ]
#ACT2 m! Z# u& ^9 G4 a, ]4 Z1 ]; h
Messagebox  您当前已经加入行会.请退出后在加入.8 b# l# D7 n, [  Z
break
2 i! C( S: I6 L, J7 M  u& u  B% l/ |$ u; X

' k% T2 V+ {1 Z+ O& @3 V" K1 ?/ g#if$ E4 W# M. |2 m& v  V# O
equal <$STR(A302)>
+ D9 d: A! `  C/ M- |#act
! I' M! {2 M9 r+ F9 ^: Bmessagebox  当前天下第三行会竞标版会无人竞标) U( E+ n8 |- ?2 Y0 [3 n
break
/ |0 K# Z1 W/ ?- X, f" |* f8 w8 f6 s* T3 r8 X) l

  n4 T; r/ A" e1 }" q0 D  K#if
1 k( H- m( v0 G! z. m1 r) Mequal A306" a9 w5 t+ Q+ n2 x' X8 ?
#act" u  `7 |* g7 k1 R+ W4 B
messagebox  当前<$STR(A302)>行会禁止收人) k& c$ u3 m$ X2 Q: j
break
' p' }. ^2 O# x5 ^0 e2 V1 F! \9 q5 b3 N5 w

- [4 Z1 s/ y" `( L#if! `7 \+ q' I/ N; R/ a# J& c
CHECKLEVELEX < <$STR(G306)>
0 w) H0 j2 x) }8 q#act
  r  N; Y" P6 r7 K" Dmessagebox  <$STR(A302)>行会禁止收人需要人物达到<$STR(G306)>级6 u0 o. M, j+ m% Z* i2 @; U8 O/ o* V# K
break
4 h/ a% g' W7 Q  t
3 I; Z1 c9 [9 [6 K$ h9 b( |

7 C- W) q$ o: w#if9 j$ g1 q( ]+ `# |: b
#act
4 Z8 q6 S2 t/ Y/ o4 b9 JADDGUILDMEMBER <$STR(A302)>( C" A7 V! J; T
GuildNoticeMsg 249 251 恭喜【<$USERNAME>】通过【第三行会竞标版】加入了【<$STR(A302)>】
4 c* H9 _. H  L3 Qbreak  E* O  @6 }7 _# X5 n

7 ]% S+ l  V% Y  A# Q0 I; f8 N/ h
站长承接传奇一切业务,小问题免费咨询。站长QQ137919001
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

Archiver|小黑屋|网站地图|皖ICP备18020244号-7|传奇部落

GMT+8, 2026-9-10 19:59 , Processed in 皖公网安备:34112402000394号 0.215522 second(s), 26 queries .