三千论坛

标题: 新手村擂台脚本 [打印本页]

作者: 异仟年    时间: 2022-9-5 20:23
标题: 新手村擂台脚本
新手村擂台脚本- D: r# s/ X/ g
  X7 c, @. A+ V" l5 f, e* d8 U! `

8 s0 c6 \' V% a: x; z$ Z, F释放到同名文件夹下覆盖原有文件。% _8 g7 e( y: d# `
1.Script 里面是任务脚本,把对应NPC的代码复制覆盖掉。
7 _4 J  d; m* n2 [; H2 z+ i2.Item 里面是任务发放奖品的物品资料,把我发的加进去。  A" e- u! b& ^1 S' @
(由11月23号发布的最新服务端修改)
5 J) N$ k! E2 ]9 x4 {-----------------------------------------9 Z* G/ M5 _( A$ j; h) Y  v
内容介绍:2 y9 m- I! C$ {2 F1 Q' R
新手村比武获得奖励:
" C! J. p. R2 e, i同使用何种武器的NPC比武,将其打败就能获得同类的新手训练用武器(速度20,恢复20,准确20,破坏0* x% H% {8 D4 W" d
- d! n* Z9 q, U# Y0 D8 T6 [) G

4 E3 |: `/ y: K( _最后一个NPC老侠客,打败他会获得新手剑之外,他还会公告天下你获得了 侠客弓服 一件!(个人比较# y8 O! K2 Y' N. p5 @) y

) K# I( x. D% t) w# D& M4 I# t喜欢黑龙,所以是黑龙的加强版!)" j7 T2 v# L4 D3 l! ]# m* U

) U1 J1 Y2 H6 }; V/ U' w& V8 @# e# z1 b[replyview]# a# ]8 M0 B8 q

- D$ O1 A% z0 d4 \7 _-------------------------------------
7 W& G' w) m! w) e1 B' A) M. i& ]1 w( f7 A" J4 ]  i/ R1 |
unit 一级梅花夫人;
7 u; T' n: s8 l9 j% r4 f) w8 n
6 f/ W8 U  H, v. g/ qinterface
6 q. X8 u! u) h$ N9 F2 r4 y9 \1 R4 S* x; T7 b) B+ t& z/ x
function  GetToken (aStr, aToken, aSep : String) : String;, g1 Z9 C4 [. j5 [
function  CompareStr (aStr1, aStr2 : String) : Boolean;
1 _' o! y9 L" v" ~9 S4 L. S. Y: zfunction  callfunc (aText: string): string;/ \- a9 b1 |. u( Z8 w& g
procedure print (aText: string);
$ O' {& q% d  [" c( b6 ~- Tfunction  Random (aScope: integer): integer;0 V$ l  q% ]) t' [) Q
function  Length (aText: string): integer;
, B5 O# A: n; R0 h3 Z; t* Qprocedure Inc (aInt: integer);
' W- F+ g4 p: I3 ^procedure Dec (aInt: integer);
: F0 p5 a5 M" s& ]function  StrToInt (astr: string): integer;
) R* ?, d' c( l: Jfunction  IntToStr (aInt: integer): string;
4 d' M" I) [$ S5 M' fprocedure exit;0 X! h3 v  O2 _' x% \
( M7 \! k& N9 R
procedure OnCreate (aStr : String);
7 T4 ?- S6 q; Tprocedure OnDie (aStr : String);
/ F- Z+ F: F7 |: Tprocedure OnChangeState (aStr : String);, \  B- z. ]3 l# y3 W# K
procedure OnGetResult (aStr : String);
: t1 C0 c, H- V0 l/ m5 x
$ T$ \1 @$ U3 cimplementation
/ R+ v9 B6 X! f8 x3 k
% u2 s2 s7 u5 s1 eprocedure OnGetResult (aStr : String);
2 Y! y# p3 |7 L! Z. Qvar
$ y" h, _. M$ V   Str, Name : String;) }1 O! Q8 V1 i  v& L; I
   iCount : Integer;
$ y6 k+ u4 @, K! M( Ybegin) R' ?# g9 i9 l: H0 j, V6 }9 |
   if aStr = 'start' then begin; T) K& ?9 Z6 t7 K9 y7 x1 V! b
      Str := callfunc ('getsenderserverid');# _2 }! g$ m) z2 K. B
      if Str <> '51' then exit;
1 Z- C: k0 d4 f1 w2 Y5 ?  X6 Z, d7 y! x& j" w1 ~6 ^. x
      Str := callfunc ('getsenderrace');
, V% g* v8 J& E3 {. ~9 e      if Str <> '1' then exit;6 \$ v1 N2 y# g- ^/ H1 M
! H5 t; q7 ]; c$ g; x- b9 x
      Str := callfunc ('checksenderpowerwearitem');
6 u- }# B1 s8 ?; i8 C( j  [      iCount := StrToInt (Str);
$ O" D! P2 H) G) O8 r1 ^' E# Y      if iCount > 0 then begin6 S8 H! S) i0 z
         print ('say 先将带技能值装备脱掉!');
. g- A$ E7 i3 t         Name := callfunc ('getsendername');8 J' h& v* f0 w. B
         Str := 'movespace ' + Name;4 A4 O. F5 l& v* Y2 J7 D
         Str := Str + ' user 49 106 55 100';" {8 \% I# G! E) Q# s
         print (Str);
/ ]% x9 c; }' W+ ~. R! ]  n/ m         exit;
5 a  S: v, L& h6 O2 N      end;
4 V' W0 n1 G% F$ D! n      Str := callfunc ('checksendercurusemagic 0');
* X3 r& X/ x( Q3 u      if Str = 'true' then begin% e8 M) x) m) s  W8 V
         print ('say 选错武功啦!');- @1 ~0 ?1 {: o3 _  t: t. T0 X
         Name := callfunc ('getsendername');
* F% S8 |( x# }% I2 T2 S         Str := 'movespace ' + Name;
+ \! z) k/ }8 X, B         Str := Str + ' user 49 106 55 100';
7 r  \5 C3 P$ v- x/ k- @" m         print (Str);
& Z5 W4 c" t% o: ^( d) {         exit;, u' W/ W/ D- [* M! t# |7 r. D2 h
      end;5 r' ]& e, r# C1 h2 h; A# Q! e4 H
      Str := callfunc ('checksendercurusemagic 1');# G  Y1 Y9 F6 {; c
      if Str = 'true' then begin
) N7 P4 F# Z( y7 `! f. o/ A, S         print ('say 选错武功啦!');
) \2 n+ W5 O2 C: K9 S         Name := callfunc ('getsendername');
. _, J- z1 N& x: W$ J+ D& _% J         Str := 'movespace ' + Name;
: @) O) q' U, M1 z5 j         Str := Str + ' user 49 106 55 100';
5 N4 ]" U6 R' Z0 e3 E         print (Str);8 G3 h' N+ @( m& w. F# \1 B
         exit;4 |7 q! F9 O" u+ c
      end;. }9 t( Z6 {: z2 a* y9 z' {) G
  @" g  a- \6 R7 F4 p5 f
      print ('directmovespace 一级梅花夫人 npc 51 20 18 0');
' u  i5 P; B7 G3 [" S8 r7 B: v' l# s3 g1 o6 ~1 ^( e1 p, I0 \, ~
      print ('commandicebyname 一级梅花夫人 npc 1000');. |  ~% A: r8 @) `9 v. E% ]
      print ('setallowhitbytick true 1000');: B8 q3 y7 y6 X% ^. v$ p

2 S- l$ Y: T+ r5 |$ q5 g! ^      Name := callfunc ('getsendername');; j6 |5 {, l' H5 A( n- {5 ?. |. C4 L
      Str := 'commandicebyname ' + Name;% \4 s1 Z9 p0 p) X
      Str := Str + ' user 1000';( ]  [6 }( e! }" U/ A
      print (Str);
) @6 j. h! [1 |, L) a3 b; P2 d. }. @& N) m1 r
      print ('senderrefill');8 U4 |9 C8 d& e  z

' z8 E0 C7 P0 w0 |      print ('say 别害怕 50');% ^: {( Y& Y) |
      print ('say 我会收下留情的... 400');
& t. f& ]- X% B( C      exit;
" s0 D! `- i* f' X9 f, [   end;
4 _9 y: @) ~% x, E+ [# qend;
! B$ H$ K5 O) u" v& K! b' E. d6 a0 T7 n: Y: u0 s
procedure OnCreate (aStr : String);
6 o" g* C9 u# Z$ |2 N, g& U( k1 x- rvar
' Q: \% R3 a% x* H, e   Str : String;6 ^4 ^9 u( t) s( j9 P( X
begin
! @) o3 Z) M9 S& e2 j1 g" z   Str := callfunc ('getsenderrace');
" X7 B: f- u5 ?8 d: P1 i8 e  K7 q   if Str <> '1' then begin
0 ?! m! `: K2 Q' p3 Q6 m      exit;) e9 U% d5 m, z% `2 X2 p
   end;( @/ [) l3 A  z/ A3 @
/ [) f' O* [. j. S+ y
   Str := 'showwindow .\help\一级梅花夫人.txt 1';
2 x2 t; i, G; \% {' V+ U. h   print (Str);
" I: ]# k7 m0 R& S; F   exit;
  U' ]# m) ]0 z  i) ]8 Z; e8 }; ^+ Oend;! B! ?' e( {) I( P
% K! }! K" |: e0 ~0 q
procedure OnDie (aStr : String);
+ H7 m8 e! k% u! [# Zvar
0 W- p0 U2 W' y   Str, Name : String;
3 s. b( U$ p5 i% N2 v   FirstQuest : Integer;   
/ j9 x& p2 P; nbegin6 P7 g( U9 e+ S7 G) S/ H
   Str := callfunc ('getsenderrace');  w" b0 \7 |. D# p. w0 q
   if Str <> '1' then exit;4 D/ _$ E+ H4 \/ d
- @4 [% q3 W3 z2 d- v! R$ T
   Str := callfunc ('getsenderfirstquest');
: J( M2 w# l7 t$ n   FirstQuest := StrToInt (Str);
$ H( s! r  q. J  Z5 g' T. z" _) F! C' E7 M1 `: `4 l3 P1 k2 j
   if FirstQuest < 3 then begin
' H9 D' l9 I# E; ]1 F      Str := callfunc ('checkenoughspace');
. ~2 C1 a% m6 ?5 b' x# P" s      if Str = 'false' then begin
9 _1 E! U- P0 j* Z         print ('say 物品栏已满...');
( t( c7 W- K- }         exit;; t) U; p2 x8 f+ Z8 S( V
      end;
* X9 c+ W; F( s) `( [+ F% \" C! R' o) e
      print ('changesenderfirstquest 3');
% q' T( A3 z, N! V! }. |* r      print ('putsendermagicitem 新手训练长矛 @一级梅花夫人 4');) K) y% _% a* r0 M6 W
   end;3 h, ~$ ?$ i  z, C$ C

1 E3 ]7 k6 j, k/ U, q' z   print ('say 我可只用了3层功力哟 100');
/ E4 f, \4 {7 w0 y+ A) r/ E5 v: K& A5 p" g. _. o' G
   print ('mapregen 52');4 u( `6 z1 x; J+ D) i
! @0 N0 m, j: J) s9 `$ M
   Name := callfunc ('getsendername');   
5 n/ K& j( w! D0 r% j% J   Str := 'movespace ' + Name;- i5 w, a( c$ Z' d% O* V
   Str := Str + ' user 52 17 18 500';
# e+ q! r) y2 W   print (Str);
7 g# v, X4 Q9 ]8 J% r5 T& [% Y   exit;9 b8 O) M8 \. c1 C3 q
end;5 q  a1 b' I, \. x' G

$ H2 ?+ h- r  C7 J& n, \! |procedure OnChangeState (aStr : String);7 }& {+ q4 \3 _/ z( o8 @6 {  u" q
var
/ z/ p6 [4 |& B4 r5 f9 c   Str, Name : String;
& K+ P% o6 R. |+ _% }- P: i" Qbegin
" L- ^7 [! l1 L1 ]) N: E3 X   if aStr <> 'die' then exit;
* m# i+ M) o: N+ g
- |# C( K3 H! [, J+ |   Str := callfunc ('getsenderrace');8 ]6 M4 b2 P8 `5 t
   if Str <> '1' then exit;
+ @$ o2 W) x1 A+ X4 r: p( a" O4 ~; u, h7 ?$ \4 k8 O
   print ('say 别无他法 50');
3 V. T3 _& k5 A: o  H% }   print ('say 是不是修炼方法不妥呀? 400');
' _6 H) Q% t; s. l% C0 \" e
0 n7 ?/ j- ^3 P: c' t   Name := callfunc ('getsendername');" l0 e9 B9 l8 t3 Z  \
   Str := 'movespace ' + Name;
* r9 Q& A* F8 A/ m: o   Str := Str + ' user 49 106 55 600';
7 p+ I( t6 a+ x7 e1 U( U- T, @' U   print (Str);
3 ]0 \" Q6 ~+ d" d; R  Wend;  `- R# c, J" u3 e: X/ E+ `

8 y  o- k% k8 _3 Q' h# h- mend.
8 |2 z3 T4 C+ \. r4 \7 A0 h-------------------------------------------
+ p5 h# ?8 ]# k, s, F$ z$ Tunit 一级捕盗大将;
" X- g+ ~7 r& ~" f" B  g! ?  G  r5 Z0 s& M% j
interface
) [7 F% V7 v, [7 P
* ~4 C* V2 ^) i% o  X$ Ofunction  GetToken (aStr, aToken, aSep : String) : String;  k4 [2 Z( j$ b# {5 Z% F
function  CompareStr (aStr1, aStr2 : String) : Boolean;
; C  c' I/ t2 \. {; `' R+ [0 lfunction  callfunc (aText: string): string;
& j; J1 N2 d2 a: h, r. l( _procedure print (aText: string);$ m; [: w! S8 v
function  Random (aScope: integer): integer;% R9 b  d* r# A3 k/ s" G
function  Length (aText: string): integer;  _1 {: ]; l- T, X( u' E
procedure Inc (aInt: integer);0 p, w" \2 e3 v/ E! n* ]
procedure Dec (aInt: integer);
4 p! R% c* k! ~( Vfunction  StrToInt (astr: string): integer;
' r* P5 C/ D% y4 \5 I- e. Yfunction  IntToStr (aInt: integer): string;0 Z2 q6 S* x/ j' c. o, B) c. g
procedure exit;
& Q% [& k$ v2 P8 X% \7 E8 v! h- R7 G2 r, d" V) `
procedure OnCreate (aStr : String);' a) m% |  T$ z, {; ^/ m- n
procedure OnDie (aStr : String);$ Z) n: Y6 }3 u
procedure OnChangeState (aStr : String);
" |3 ~' m% k, @+ ?7 eprocedure OnGetResult (aStr : String);
% u2 Q1 |; J0 M
- G( u2 b, b' m: F$ vimplementation
) `  m8 |' F* V: M
/ D" a' N' D3 p3 {1 pprocedure OnGetResult (aStr : String);
" s+ K# d" e8 s; D5 Q& evar  ]2 L7 F4 ^; s# q( ^: h
   Str, Name : String;
( m( [2 y7 _2 v% q6 p/ V   iCount : Integer;   & h9 ?" G: {# m, c6 q- d( P5 Q$ z
begin+ t8 |+ c% |- T* k( D5 ?+ d$ Z
   if aStr = 'start' then begin, \; T% @9 k, S& `0 s$ l9 k& v
      Str := callfunc ('getsenderserverid');: I$ i& H; Y( M& `7 L6 z4 f
      if Str <> '50' then exit;
( P7 h3 V! P% V" [5 t8 L- q( o6 [$ z! V: F9 ~) p  d
      Str := callfunc ('getsenderrace');8 g: V8 o2 ?* |
      if Str <> '1' then exit;
) ?8 b% Z& O) s+ @
/ b3 c4 d5 D4 b1 n1 Z3 h      Str := callfunc ('checksenderpowerwearitem');
$ P; u; W9 O$ D6 O      iCount := StrToInt (Str);
; x9 j% v9 R; U! m      if iCount > 0 then begin
% b6 j3 s( e% U2 b7 S- m1 G* r         print ('say 请先脱掉带技能值的装备!');% e8 n' N* k" g
         Name := callfunc ('getsendername');  x2 R. z5 i* u
         Str := 'movespace ' + Name;: _. Y  Z, `! v
         Str := Str + ' user 49 106 55 100';
  d1 `# }5 J2 C$ R         print (Str);
5 T- H  S# u$ Z- |6 I8 l) N5 x         exit;8 u* [' b' C, T4 p8 A
      end;) f9 [, E+ K3 E& t% u4 f8 H. d
      Str := callfunc ('checksendercurusemagic 0');  {" G, ^& z4 k- f
      if Str = 'true' then begin
" C" U9 `4 ]: D/ B         print ('say 选错武功了!');8 {9 U5 f# S' l  B
         Name := callfunc ('getsendername');
# B' \. @% p% H         Str := 'movespace ' + Name;- K8 V8 j  A5 b6 C
         Str := Str + ' user 49 106 55 100';
+ H- L2 d# {2 q         print (Str);
8 @) H9 Z. G$ i7 T8 i         exit;. I7 F2 [" {# W% C% ?8 O
      end;& ^; k+ Z0 z0 t5 _
      Str := callfunc ('checksendercurusemagic 1');" t+ V. m  u+ a  ]
      if Str = 'true' then begin+ @- c* z+ G% [1 W+ {* L
         print ('say 选错武功了!');0 A; D- k4 W" H7 l5 y% m! ]2 n
         Name := callfunc ('getsendername');6 u/ C4 a% x( W7 d. {) d8 y" |3 |/ W
         Str := 'movespace ' + Name;6 h, w$ N) F- K! n/ o3 ?1 c3 \
         Str := Str + ' user 49 106 55 100';% l# d+ b, e% W0 H3 p
         print (Str);: I  M% s# b8 K6 t7 c- E
         exit;
& g3 |0 g9 ~5 P: X      end;
1 x8 K# o1 F$ f1 _% E/ [* z5 g2 `/ a: r; B1 B) b
      print ('directmovespace 一级捕盗大将 npc 50 20 18 0');3 W6 p- e; D6 Q
; }3 x& ~2 F! l0 r) P& d
      print ('commandicebyname 一级捕盗大将 npc 1000');" F* P" U& v# H  |, O2 @6 p4 ^
      print ('setallowhitbytick true 1000');
7 s+ {/ |  ^( V/ U
* d4 `- I4 p6 u& V5 r3 E      Name := callfunc ('getsendername');
* n& e5 T: O6 k1 E1 m2 Y* R( r2 m% V# ~      Str := 'commandicebyname ' + Name;
" C9 T" n1 W) m7 u: F+ w$ D      Str := Str + ' user 1000';5 l1 L& Z9 p: K2 E3 Y# I
      print (Str);, L; f* e" s. O% }! _4 M, E
2 a! w& p1 ^; J( `! D" z% o% h
      print ('senderrefill');$ ^% Q* g. X" e  P! ~1 U

  D7 M" o7 @! ~9 X, ^3 w      print ('say 你还太嫩! 50');
3 H! |5 P/ k( e6 x  \+ L      print ('say 留神啦_我可不会手下留情 400');/ q% e6 R% X7 K- ^4 U
      exit;
; |: Q% V/ t" B) V7 ^- x; m/ |   end;
+ F8 q1 f* n9 U4 k, S6 @1 yend;
2 ~5 ]0 i5 P: V& m1 o0 z5 R1 n/ B% y8 i
procedure OnCreate (aStr : String);
& J5 \+ h3 I9 }) B. q+ o- x" _1 `7 Hvar
9 X: C- N! j" Z; M9 o% U! Q   Str : String;
2 L- A% D/ S# M' Q' N* e8 }3 Jbegin
! F$ M1 Q/ ?4 i9 W   Str := callfunc ('getsenderrace');* W% U1 q) p+ C9 I1 p/ |9 r
   if Str <> '1' then begin# x1 B' P' S& f0 F& {% `' I3 }
      exit;- Q$ o/ k# @: c$ W9 I2 D
   end;5 B  M) A8 }' w( j) h- J- o% S4 L

4 t  [* B0 u) j+ k" G   print ('setallowhitbyname 一级捕盗大将 monster true');
9 q0 ]& T9 O" R2 w  a- R/ }
" Z" r* D( J" @9 Q. J   Str := 'showwindow .\help\一级捕盗大将.txt 1';
9 I; _  W7 A7 b. j   print (Str);
$ O" q3 o% f& W( z: F# F! e" C   exit;
3 `! u* U" h) M- p# {3 Kend;! d$ `5 G* N' x7 ?+ x0 Q- X6 ]4 T: U

6 o8 @6 x( C5 Nprocedure OnDie (aStr : String);
5 C8 \( Q5 p1 E$ B7 W2 Z! `$ g3 Uvar
7 S; m' @! k7 s   Str, Name : String;( q- p3 z" k# \& M
   FirstQuest : Integer;
4 I9 H! F0 p8 ^! W1 `5 [5 Rbegin
" O) H" Q/ m/ v. {   Str := callfunc ('getsenderrace');( N& ?' ^: Y, I
   if Str <> '1' then exit;) F6 O2 B8 ]: Z: ?) j

4 z( t4 h# m; `' ]* }   Str := callfunc ('getsenderfirstquest');( D+ w$ G' A, _+ i5 H3 _7 Q
   FirstQuest := StrToInt (Str);
' J; p) K' s4 ^8 c$ C/ n+ F; B/ ]' W" z8 l: I$ h
   if FirstQuest < 2 then begin
% s0 L* i* C" a  P* s      Str := callfunc ('checkenoughspace');3 j* Q+ ]3 N* H) F. z1 l
      if Str = 'false' then begin
7 M* z& y7 \+ u' C" X         print ('say 物品栏已满...');# D0 z) }* Q$ n1 P6 r9 M
         exit;
! m2 }. Z- P3 C5 K      end;( m3 J, P4 R: X9 c
2 G& Y$ u' z  Z' u
      print ('changesenderfirstquest 2');: K  b3 _0 V- T' r
      print ('putsendermagicitem 新手训练拳套 @一级捕盗大将 4');. L/ z9 ]  }& L$ Y7 T, R: F
   end;
# r( @4 x4 K+ A" w2 I# p4 f' T
- v$ G, _2 ?( A6 ^   print ('say 不可能_我怎么可能输呢.. 100');, c( d! _% A. K; a/ P  Z

; P7 ~% _, }) B# f   print ('mapregen 51');$ t7 {- Q. @2 `/ c1 L/ c$ e
8 S# V* Y* y  J" C. M- |, T
   Name := callfunc ('getsendername');
4 t; A6 _7 m( x   Str := 'movespace ' + Name;6 B( v7 ~* q4 Y
   Str := Str + ' user 51 17 18 500';
$ Q: z# `: V2 w4 P. ]" \   print (Str);/ X: x8 @2 H& I) Q
end;
! s( q! i: e7 }9 i. w
# q$ N" k( p4 ]; Nprocedure OnChangeState (aStr : String);
! p- D. f: [# |& `6 a0 U% {( {var* o% \% Y, e% k; r, `6 a& `
   Str, Name : String;
7 B% _! F) ~$ n# S! abegin" d+ S; E$ t" ^
   if aStr <> 'die' then exit;
! {6 ]( T# Y; X9 V7 z
4 g" Q% \5 x8 U   Str := callfunc ('getsenderrace');& X7 @! C4 y* r; Z/ u' h
   if Str <> '1' then exit;9 `& q! o% A6 e# D1 H

) p* |; ~# Y* b7 R+ \   print ('say 回去再修炼个10年吧50');  L8 e9 S; ?: ?6 A4 J- [$ t
   print ('say 到那时我在用双手跟你打 400');6 \. b# j' v( q" b9 g$ p

& @( y: [  R+ g! G4 [4 q   Name := callfunc ('getsendername');
# Z2 }2 {6 J6 w2 m* ^5 x7 x   Str := 'movespace ' + Name;
2 X8 M0 b# g3 W1 E( A* }8 \   Str := Str + ' user 49 106 55 600';
. e3 ~4 U' z9 `5 \, M   print (Str);
9 |! u6 t6 Q2 L4 f$ m6 o. |& L  p/ W& h% S4 O; r6 g" |; b
   print ('boMapEnter 50 true');   ! \- S+ b9 N4 K4 L( v$ D' H& Z
end;
1 Q' X/ q+ B1 `1 R, Z
4 w0 R; v- r  m! _4 \end.7 I( \+ A# v5 ~! F# L2 o

, {8 j' @( C6 i! h---------------------------------------
2 Y) P6 u% ~+ ^/ j+ I4 `4 _
& G( K  n0 O/ _+ H, wunit 一级牛俊;! i7 |5 ?& o+ x& L* Z7 \9 y

2 y4 ?& z, r9 o% b$ Ointerface
: _7 |: ^3 M+ J* G
) }6 U3 O6 H1 m: W; g, l! n2 hfunction  GetToken (aStr, aToken, aSep : String) : String;
9 A' S9 D# a- ~% g! O& wfunction  CompareStr (aStr1, aStr2 : String) : Boolean;, Y, C# f; t; e! Y9 m& m
function  callfunc (aText: string): string;
* b3 ^$ b% V3 Z7 a3 f9 J9 zprocedure print (aText: string);, l9 ^/ W2 e+ o: v/ b0 y5 b
function  Random (aScope: integer): integer;9 q  G( v8 B4 D9 k* h
function  Length (aText: string): integer;: N9 m) m. p$ [2 ]7 b! f
procedure Inc (aInt: integer);
7 u3 ]2 _1 B) g- k% C- }- xprocedure Dec (aInt: integer);
% Q9 N9 v4 W9 f" Zfunction  StrToInt (astr: string): integer;
  \- K7 J5 I. x: x* yfunction  IntToStr (aInt: integer): string;; x$ P+ h" C- C8 |8 n# V
procedure exit;( q6 w6 e. T0 b5 e

4 R  o/ a7 |2 l# Q  @- @6 fprocedure OnCreate (aStr : String);: l1 o% L# n" Q# `. g8 ?
procedure OnDie (aStr : String);6 i8 y4 Y  L9 b* w0 S9 \; n; A
procedure OnChangeState (aStr : String);
" z5 Y" V/ C4 Hprocedure OnGetResult (aStr : String);$ V7 ^8 p8 N/ N
' v' g/ C1 `9 u# N3 J& n* z
implementation
0 D' W& g! R) P' j
# h4 M$ s% F, p( S7 w- S2 Y4 o( iprocedure OnGetResult (aStr : String);# u6 i3 A: `# D4 _  M
var
, o2 T% U& W, g9 p   Str, Name : String;
- U4 d3 o+ x$ C* V% F; }2 p   iCount : Integer;8 h) h* a0 x7 r: n
begin
0 A* u( Z. i5 K   if aStr = 'start' then begin& t/ I; p( k! l
      Str := callfunc ('getsenderserverid');4 H$ Y) c9 F; ]; r
      if Str <> '52' then exit;
3 H2 ?0 r1 ~8 l7 c' V
( o7 L( N/ {/ s0 v# k      Str := callfunc ('getsenderrace');
+ w2 Q0 a2 d! Z8 ]      if Str <> '1' then exit;
' i5 w7 q- M' J5 M9 S$ V9 b- F2 z, ]
      Str := callfunc ('checksenderpowerwearitem');
. q& I7 e. u" M& x* R- C      iCount := StrToInt (Str);
8 P' `2 o: I+ h% C      if iCount > 0 then begin
# L9 g: t; I7 j3 U" c( z% p" ^3 n# X         print ('say 请先脱掉带技能值的装备!');( m0 @( R0 u$ T! }5 j( Y
         Name := callfunc ('getsendername');% y4 P! A4 ?2 H& [5 S& d
         Str := 'movespace ' + Name;
& n/ l0 o' x1 J0 ^  }         Str := Str + ' user 49 106 55 100';
3 p7 j6 S7 i. s6 `* F: F! V         print (Str);  ~7 T0 I+ ?0 A0 a# w
         exit;' U% O+ T! l8 U2 S3 D) r
      end;) H' s5 n2 ~' g1 j! \: L6 \$ m
      Str := callfunc ('checksendercurusemagic 0');6 z, }* M9 Z/ U7 W: g  O
      if Str = 'true' then begin
  i$ S  K# `9 i9 i8 p         print ('say 选错武功了!');
7 C/ k0 _. D3 v$ ~4 t, f         Name := callfunc ('getsendername');
: d0 A: S1 L9 s         Str := 'movespace ' + Name;" t! h1 i6 \3 |$ W6 ~
         Str := Str + ' user 49 106 55 100';
2 B6 \3 ]5 d8 I         print (Str);1 n4 j2 l/ [* {+ v* e7 V0 u& |
         exit;
2 F' [# D, c) N/ P      end;8 \: v6 A0 H& N
      Str := callfunc ('checksendercurusemagic 1');! g: o2 y7 g5 t
      if Str = 'true' then begin
9 J" _- m3 p* y. t         print ('say 选错武功了!');( K( F, @4 e- R0 y8 a. p
         Name := callfunc ('getsendername');
. P3 c" v7 b3 Q6 Z2 S. U) d- l         Str := 'movespace ' + Name;2 H3 E1 R; \4 Z, j" B/ T
         Str := Str + ' user 49 106 55 100';
" J! B% c$ a! V+ n. t0 T         print (Str);  s: D  ^' v5 H1 c0 f
         exit;
9 J% Z( w! O% p* o      end;
+ [2 V7 J" D1 C& M3 I; ]: ~* {
1 E$ G) G  t- N- n      print ('directmovespace 一级牛俊 npc 52 20 18 0');
0 j' R& D. g5 o1 {" V
6 j+ d8 K* L" T: m- m9 p      print ('commandicebyname 一级牛俊 npc 500');2 f5 U8 w  t5 Q/ v# A
      print ('setallowhitbytick true 500');      
6 [$ A+ b2 c! P1 Z( X0 j# n0 w: P! _: t3 {
      Name := callfunc ('getsendername');  {' h3 C. k) I; f8 U" G/ F
      Str := 'commandicebyname ' + Name;
7 k! A- @3 @0 Q+ o* p# ~      Str := Str + ' user 500';
1 s" O. n, \. j9 L& g( I4 ~7 V      print (Str);
6 A" g9 M+ D& N! t! e
9 u1 J* M6 J4 j0 L3 q" p% `: [7 ]" o      print ('senderrefill');6 z- c6 ^% a7 X8 X6 X- a
" f7 l6 l; y0 j/ c
      print ('say 10如果10秒内不能将你搞定 50');1 o  D: m! X* [. \5 v. m
      print ('say 就算我输! 400');) \! G0 M: H% C9 ~
      exit;8 j9 i: I' _, k$ m" X6 B
   end;2 h6 p. H5 X3 x9 ^
end;
7 E" `: ~4 O6 w2 q( k
& W0 ]* z. [( u" v) w; O. L' yprocedure OnCreate (aStr : String);
4 a1 ^# g( z1 p" M! }( pvar+ W0 K) }8 \5 e: h. l
   Str : String;
9 s0 O2 y, e# Q, O" K. `# O* x4 ~2 Pbegin; x; ~4 c8 ]: _  g
   Str := callfunc ('getsenderrace');
/ y+ R( t" L$ s/ k" s   if Str <> '1' then begin# t! o5 z2 f2 x
      exit;0 b( G5 C% w& N% n. C& z8 x9 L2 [
   end;; x+ n% N$ `: D; Z+ O

9 P6 U4 }: E% D9 z2 s4 D$ F   Str := 'showwindow .\help\一级牛俊.txt 1';
. C: z  d, r- ?   print (Str);
. v: d2 b6 }' h' J# C' y   exit;% z( K, W# C4 p  B: o1 P( t
end;+ R9 W& n; e1 ^+ h* ?1 p5 j6 A, j, _

6 j+ w% `0 }' z2 }& N9 D& Pprocedure OnDie (aStr : String);
! _- S/ w8 N; w6 Q6 y  uvar
1 X$ ~' A4 B5 p- ~$ G   Str, Name : String;# _& D# J* i! e9 C& J6 K! Y9 F
   FirstQuest : Integer;   
% v" H3 k0 u% b5 D3 Xbegin
: d6 b! q! n1 k, O' }- J. J  L   Str := callfunc ('getsenderrace');
+ X6 A* O5 V" T6 _+ q! P* i   if Str <> '1' then exit;1 K9 J: A) G! O6 K$ c# u# t
/ \5 c6 ~) s5 C8 \+ K  m
   Str := callfunc ('getsenderfirstquest');$ {/ j# S$ z9 l- x1 g" ^' g
   FirstQuest := StrToInt (Str);& U2 Y3 ~& d' w; x8 ]$ s! l0 t
6 a& F0 a: f  m0 @
   if FirstQuest < 4 then begin+ Z! ]( ^1 Y6 m" t
      Str := callfunc ('checkenoughspace');1 T7 U9 L: L$ ?2 Y2 X
      if Str = 'false' then begin
" P- S! j  ~4 {; A: x; m/ H         print ('say 物品栏已满...');# J, p, ^  w; U2 d3 [
         exit;
0 ~, {5 S9 _. Z      end;+ `1 H! g% T' T9 t
; i" Z6 F) G" [+ C, X' V+ _
      print ('changesenderfirstquest 4');
% m5 m/ c) s3 V; V( t      print ('putsendermagicitem 新手训练大斧 @一级牛俊 4');! |; [* a8 t3 r
   end;
0 G$ m# f  E& X( I. h+ L) B- ?. w6 S1 S4 {
   print ('say 什么_不敢相信!! 100');6 \8 `1 }0 R2 C1 X: V

: c6 @& G9 ?( k4 u7 f   print ('mapregen 53');
+ x1 }: i% p1 O8 Z2 g8 P4 H0 @% v( a: C! s! t
   Name := callfunc ('getsendername');
3 Q' d7 L. V) t* \5 H7 U5 B   Str := 'movespace ' + Name;
# w' |; u0 l5 i) O) o   Str := Str + ' user 53 17 18 500';  t6 E( |1 k' R: g6 D
   print (Str);
* w6 L: j" Z% a+ v: v! ^end;
# R  Y! V9 s- Q$ n0 n8 k, ?
  ~. A; F/ o' r7 Vprocedure OnChangeState (aStr : String);
& Q% \+ O# M7 T$ x" F! e/ X$ S0 ~  Zvar/ ]# U. n% j; f+ {" f
   Str, Name : String;' C9 {5 B+ n! A1 N+ ]
begin. d* ^5 p! ?5 n% T$ W
   if aStr <> 'die' then exit;5 u& p0 B  \3 x6 _4 t
% g+ q7 ~" J- Z3 l  k. N
   Str := callfunc ('getsenderrace');& D2 x8 s* [8 K* l# M8 |
   if Str <> '1' then exit;
1 D7 A) i3 p( {0 W; }" k" w- |
6 s$ l. w! x7 \, e3 ?3 `$ d   print ('say 领教了吧! 50');/ H7 L; m1 m/ ^1 p/ C( D3 \  d
   print ('say 差远了... 400');
. q% u% c! M+ ^7 x% I5 d  C- W; p1 b3 F7 T9 C7 T& J
   Name := callfunc ('getsendername');
: G/ x$ l! o, i8 ~0 l# i: a* u   Str := 'movespace ' + Name;
: |0 R8 B' W! _/ V* R1 \  e   Str := Str + ' user 49 106 55 600';6 m8 d4 s  k7 d$ p0 V
   print (Str);, C3 ^! p+ V: w+ ?5 o
end;  T: t" S) ~! V! D5 L8 c

3 e0 |' [. d' m6 x+ {0 |6 Y1 k( _end.
' y6 K- d0 j2 f& L0 i1 Q----------------------------------------
5 ^1 V+ Q8 F4 d& r! ]3 lunit 一级雨中客;* y. F' C8 l. L# C; O% ~
# ]* T) X0 [+ F. ~# R8 X8 M
interface( l5 L- o- V- d
  b8 _3 q4 j) O/ B) I
function  GetToken (aStr, aToken, aSep : String) : String;
! x$ N3 A6 G2 U! v1 @2 Q  {! ?function  CompareStr (aStr1, aStr2 : String) : Boolean;
& q* m* Q- T" e+ J; Hfunction  callfunc (aText: string): string;4 O) ?7 h7 u+ y5 w: [* m6 V
procedure print (aText: string);6 {' U3 p: [6 R. Y+ l# J/ F
function  Random (aScope: integer): integer;, d+ I( x- v" Q! T+ g# k
function  Length (aText: string): integer;9 A( c  [2 y( c
procedure Inc (aInt: integer);
$ e  v% o& H7 S0 O6 X9 s& B* K6 fprocedure Dec (aInt: integer);
2 ~8 q0 Z0 S' mfunction  StrToInt (astr: string): integer;
* Q8 q! S% h% D8 u7 B1 y- }5 }- xfunction  IntToStr (aInt: integer): string;% l) T$ f; X, ]# I: w" o* z% C6 W
procedure exit;* x0 r2 o3 U/ j8 T  q2 k- m

# @; m4 F8 h1 D2 P+ Hprocedure OnCreate (aStr : String);9 s% i* a/ A1 W2 g1 p/ k9 b) _0 t1 K
procedure OnDie (aStr : String);$ o( T# n+ _- A; D# h( N
procedure OnChangeState (aStr : String);
; m% u% I+ M0 `  a1 kprocedure OnGetResult (aStr : String);
: h; H# E' o$ r9 I
- Z8 p; \/ ^" G$ O& mimplementation
  M$ I; u! K- o% B6 d
$ q0 o3 h  n" A% \procedure OnGetResult (aStr : String);4 i; ]# f- r1 h/ d
var; c3 ^3 I; [! p9 S
   Str, Name : String;
: ~) j8 I& @: n( f6 W' U   iCount : Integer;
6 d+ u/ l1 O) h0 D# d) x) Kbegin
# N: X, G1 C) X: x   if aStr = 'start' then begin) ]/ N8 w2 C* ?/ C& q7 X
      Str := callfunc ('getsenderserverid');
# [; W" O4 U5 w% r: Q1 w; W      if Str <> '53' then exit;
6 N6 g5 o- `4 |+ ]+ W# d9 s$ e2 ^+ T) x
      Str := callfunc ('getsenderrace');! d( c( j) p* e4 p6 c3 s# ?
      if Str <> '1' then exit;! y" [4 E. y+ S1 @
2 n3 b+ {! K5 p
      Str := callfunc ('checksenderpowerwearitem');! w& a+ l" _% a5 B; \3 I
      iCount := StrToInt (Str);; n) q  J. }) O3 ]# w# r( e! L
      if iCount > 0 then begin
4 P" _9 K5 J: I         print ('say 请先脱掉带技能值的装备!');
1 {8 i2 Z  L$ m7 {: t" G         Name := callfunc ('getsendername');1 }+ d! U3 W; Z8 \& W7 N" J$ L
         Str := 'movespace ' + Name;
7 b+ ~. i" r2 X. {         Str := Str + ' user 49 106 55 100';$ ]  i5 L) p% j7 j3 q
         print (Str);
; j* V. n& F& h9 U/ `         exit;3 }+ K9 _- B& t
      end;
  b) s2 P7 Y- P# N$ f* e0 f8 v! \      Str := callfunc ('checksendercurusemagic 0');
$ `- V) w5 U0 L+ d: y/ b; ~3 V3 O, X      if Str = 'true' then begin
0 s+ a4 f+ T1 j! b+ d         print ('say 选错武功了!');
9 p) o, Y& T2 C* X4 t- Y1 l         Name := callfunc ('getsendername');& ]% l. T3 _2 Q% K2 P
         Str := 'movespace ' + Name;8 E( O1 b) g/ h! s+ H
         Str := Str + ' user 49 106 55 100';
7 U7 G- \0 n+ F5 J( v         print (Str);
1 t$ T! f- _5 R& x5 P& b  L/ }         exit;( L* _5 S( i2 O4 _; d. q% m( w
      end;
' p1 t& }' X2 u4 j, s3 r* M      Str := callfunc ('checksendercurusemagic 1');
$ H8 o1 _/ k6 }5 F5 t7 f      if Str = 'true' then begin
) Q8 t4 S+ d- E# V9 W         print ('say 选错武功了!');
8 W; T- i- A# l( A1 X" G         Name := callfunc ('getsendername');5 _* Z/ v( \1 @; U3 y; R
         Str := 'movespace ' + Name;3 _! R. z- \" h
         Str := Str + ' user 49 106 55 100';
/ ^6 F# Q" s/ ~1 O. U         print (Str);
) v5 p" e) y0 z; k) F2 Z         exit;1 Y& q) I# u7 A9 T
      end;0 P* h& y  y3 q; E

% b9 Y7 m4 O0 a' l3 T; F      print ('directmovespace 一级雨中客 npc 53 20 18 0');8 c0 h3 H0 W  x0 o, E0 [% d1 D7 H% a
  Y8 w, M, i7 \+ Z9 C
      print ('commandicebyname 一级雨中客 npc 500');* l* `& p- h2 P$ E/ a1 ]- G
      print ('setallowhitbytick true 500');      
8 K9 \0 V2 s4 [8 Q  J1 D% }$ _4 [3 `4 |) _, l  F
      Name := callfunc ('getsendername');
+ y- P; \' H; Q      Str := 'commandicebyname ' + Name;( \! K, B- a7 F" C1 k6 [
      Str := Str + ' user 500';
/ c' J! A3 d* W; m- n7 K      print (Str);6 U" q+ S, j0 j, r

; m5 P& I9 q' @5 n/ O( N0 l      print ('senderrefill');4 r3 ]  r9 m" J2 s* j

& r) C9 I6 \6 C4 F, O, p      print ('say 领教了 50');
# g  k; \+ T7 }9 e7 G      print ('say 开始吧 400');- J1 i. b( u( d& |& N1 n
      exit;8 R1 y+ t5 ?* v+ T
   end;/ _6 J9 M  i% f7 O. F+ G6 I# W0 T; _
end;$ L# Q4 W9 F; {4 @& F& F- Y
  T( s; b# I  k  c
procedure OnCreate (aStr : String);
% ^, I0 k, H6 `/ k# h" \var
4 b6 V8 p: s. D# H% P9 o( D   Str : String;* w8 B* a2 b; n4 T# X4 ~" `
begin
1 y" ]- ~8 }, E: v, n   Str := callfunc ('getsenderrace');+ H; O$ Y4 @8 Y: Q0 i& s
   if Str <> '1' then begin0 T- y  V4 c6 S
      exit;
9 J8 {3 o3 e  o   end;
3 W5 \0 U2 j) j1 E6 M! R/ M" q* ?( Z: ^* P9 Z
   Str := 'showwindow .\help\一级雨中客.txt 1';' W7 B4 M6 e$ S% G& @" N, D! M
   print (Str);8 B- U3 |7 a5 P. i6 m4 y
   exit;& l: W7 y% D  u4 K1 B/ i! u) J9 C
end;' B2 J% @- W1 ^9 ~# N
& s' h. l3 Z3 g6 w  U! M1 {! Z! h
procedure OnDie (aStr : String);% J3 D/ p2 c2 {  P( |+ @0 a" }7 L
var& n# s8 e- }5 ?2 e+ K5 L
   Str, Name : String;
6 g+ |9 B  f/ C: Y* H1 P7 I   FirstQuest : Integer;- ~2 A! b: P, ]5 _* Z( S
begin# T% g' V! N% d' r9 N/ I
   Str := callfunc ('getsenderrace');
$ E, t3 p6 f4 g) Y   if Str <> '1' then exit;
. B; m- I0 D& H5 E
) O: a% b3 [) e   Str := callfunc ('getsenderfirstquest');: O5 @* A- k4 j$ G6 T
   FirstQuest := StrToInt (Str);
8 b' K: Q. o) C# |: F1 F/ h
2 V: Q: H( ?1 r- d7 q2 Z/ E   if FirstQuest < 5 then begin' b8 S8 A9 l  z+ Z' u, [( Q
      Str := callfunc ('checkenoughspace');
9 M* ^1 M/ a  I, E5 r  x      if Str = 'false' then begin( X  z* I5 x% r0 r7 G6 [# q
         print ('say 物品栏已满...');
) J4 p# q6 v+ o0 ]# \7 ~         exit;) m) M+ ?; M9 f& V6 l1 L
      end;; G( V" k4 f0 R: B. l0 u3 v+ [! }. {; q; c
& w, `" [+ I/ ]" p; K* l+ v% ^! H
      print ('changesenderfirstquest 5');
) f5 N$ |2 s! \      print ('putsendermagicitem 新手训练弯刀 @一级雨中客 4');7 ^- I$ h' {$ m' u
   end;
7 Q5 e# T7 p& u7 [% Z3 M' c( S
% @8 x( D7 X- N$ y2 \   print ('say 早料到了_佩服 100');2 Y' W4 D+ |( R' W$ ?

* k" t. o* N8 }* a' a( l3 o: b/ j   print ('mapregen 54');
- P- P2 q* P! P% K# M" t7 ^6 b- T. k$ }6 g
   Name := callfunc ('getsendername');
1 A: v  H, X' a   Str := 'movespace ' + Name;
! y0 |2 f9 W# Z3 c   Str := Str + ' user 54 17 18 500';- q( ?  F( d) \, q9 V
   print (Str);* `, J: A' J% f8 w6 S6 H$ \
end;
) N# W% r) H4 o3 h5 t# a# a5 P; [
procedure OnChangeState (aStr : String);0 F) U. k. @9 W3 Q3 c* K
var
5 _! a, c7 C. V* d& e( p  t   Str, Name : String;
3 m& Z" Q) i+ `/ f5 U& }begin
3 C0 F) C9 v: y) k2 u! r) Z' h   if aStr <> 'die' then exit;: O3 ]) l5 t: R* q' B

* b/ G& v  j3 D9 M' P" |4 B8 b   Str := callfunc ('getsenderrace');
2 d3 C2 S+ e" s   if Str <> '1' then exit;" [  @/ }+ m. ~' L
6 ~* |3 L1 h2 _7 {; B! d# T& k1 C$ s
   print ('say 不错。只要能维持几秒钟');3 b5 f; f3 |; D
   print ('say 到那时谁都不是你的对手 400');$ W* Q" f  f3 r" _
, F9 A5 S) M: v5 e2 c
   Name := callfunc ('getsendername');; d5 Z- ]0 B: Q$ p8 ]; [
   Str := 'movespace ' + Name;
9 F. u# U$ n% A: h6 U   Str := Str + ' user 49 106 55 600';2 m6 y* b, m1 U& \/ x0 Q( W; C
   print (Str);
: v+ H1 f5 b3 x# m1 L) S2 s  {, vend;
/ _3 `0 N6 H3 \5 D$ V. O  U8 F
end.
/ X% f( i- K' T! F- H' P7 J+ w+ h% |5 W: F* C
--------------------------------------------------------------------------------------------------------------2 `$ n* m+ {* L- i  @  t' W

7 L$ w8 D; v. W. junit 一级老侠客;: [0 X% `" m8 M" l$ H

( M% Q3 k+ h5 k( p- d, A+ j6 r! cinterface3 @  K# ^7 |! [6 j

$ o5 d( ?( C' V5 a& k: Y" a+ ~function  GetToken (aStr, aToken, aSep : String) : String;
. y  b/ S0 y  G8 X( a7 P- O8 ]1 |( @8 pfunction  CompareStr (aStr1, aStr2 : String) : Boolean;
& M! a* p) d: r2 ?3 Wfunction  callfunc (aText: string): string;
. `: E1 T& B$ g: n: wprocedure print (aText: string);* n# e" K2 s, h
function  Random (aScope: integer): integer;0 p, b' l2 {! u- r8 C2 s" Z2 b
function  Length (aText: string): integer;
; P* L6 b5 a3 N0 Eprocedure Inc (aInt: integer);
( U# m+ p8 K4 Q5 Z+ W8 Zprocedure Dec (aInt: integer);
/ G; B7 \/ p4 |& h8 Xfunction  StrToInt (astr: string): integer;/ ~9 {1 R# I  O9 i
function  IntToStr (aInt: integer): string;& |8 B1 I$ L. P  d% {
procedure exit;
$ B# E/ l5 W8 x7 V2 y$ U7 r9 a. B
procedure OnCreate (aStr : String);
4 }5 Z- @. g  ]) \procedure OnDie (aStr : String);0 E/ v. q8 Z/ p5 J6 p8 k" U, |
procedure OnChangeState (aStr : String);
3 |9 z* w! |& p3 B5 X& H* ]4 ~procedure OnGetResult (aStr : String);
+ e) V7 ^  N1 T! F" A: F5 w& j/ }2 I; \  q  G6 i; Z
implementation: i3 t# o- P; \: {5 u
+ z# C# H5 _% I# F
procedure OnGetResult (aStr : String);' T% j: G% J. w
var9 I% W) |: I, r& I4 F9 I( K
   Str, Name : String;- O% t2 V3 e, ]/ h9 a
   iCount : Integer;   
# v4 a& K- @% a4 O4 o2 D" vbegin' E9 C2 M* O: @
   if aStr = 'start' then begin
% w: t2 Y  X# u/ ?6 a9 t      Str := callfunc ('getsenderserverid');
: r. p# ?2 \* a      if Str <> '54' then exit;) n: U; r4 G( k! y: G! F; s8 d

$ b! e  }' H+ y, r6 Z6 i- C      Str := callfunc ('getsenderrace');
4 b& O; W/ h2 y( U      if Str <> '1' then exit;
1 v# X1 T$ `) w! K+ N/ l4 f4 s' V1 A7 L9 r/ z
      Str := callfunc ('checksenderpowerwearitem');0 O! T" I- Y. m: G2 F/ m
      iCount := StrToInt (Str);
( O- |: k/ t! c/ Q! Z      if iCount > 0 then begin6 N. V. ~; j6 T$ X: C
         print ('say 请先脱掉带技能值的装备!');
9 G# a/ ]; O6 Z, n2 a) {# K& k         Name := callfunc ('getsendername');
; _. l8 p9 o9 D         Str := 'movespace ' + Name;
! _- V+ P( n7 F1 \. C7 d         Str := Str + ' user 49 106 55 100';
3 q( A* A- c: q$ k' O' _. O$ S         print (Str);
  a' \( e0 V7 Q" ^- z! {         exit;; Q, }# k% b/ M& Q/ f
      end;
$ H% \5 ^" i/ z) S& r, d9 o$ j4 ~      Str := callfunc ('checksendercurusemagic 0');- b+ m# G3 [4 g% U* n
      if Str = 'true' then begin7 Z. Z( I# m7 W4 B
         print ('say 选错武功了!');
5 ^$ G6 z$ Y( H0 `         Name := callfunc ('getsendername');
  ~% G4 W$ d. V, T) e" H- M+ `         Str := 'movespace ' + Name;
3 {; W4 T6 D. H1 B# `& ^         Str := Str + ' user 49 106 55 100';* M: l) n" g# P! X+ E* w$ @; z) j
         print (Str);' j* G# q8 H! Z  o$ D7 E' W' ?; A: Y
         exit;* N+ U( B- C" m3 n! m0 k' \3 [
      end;
+ A. M) t. T  h0 V1 P3 a      Str := callfunc ('checksendercurusemagic 1');4 y+ n9 H5 Q) p# q/ g
      if Str = 'true' then begin+ G4 I* `7 Z0 \5 S6 a7 {2 X
         print ('say 选错武功了!');
3 K( m* l# v8 b- c8 S, _6 J         Name := callfunc ('getsendername');
' h- V* d+ S$ y" U+ ~         Str := 'movespace ' + Name;
) Z0 Y* T. g- Y# O$ J& H) _6 C         Str := Str + ' user 49 106 55 100';( {& ^/ `7 E( C. U' g
         print (Str);2 e2 L0 x: Z5 S1 i; T
         exit;( E" U# Y3 `! l  K
      end;
# g$ f2 {+ R/ }/ F
3 r% \' m0 _) K( y0 c" Y3 p0 f      print ('directmovespace 一级老侠客 npc 54 20 18 0');
+ H# Y+ _3 }3 T3 w& X$ }
" E( L% _- q: x$ a      print ('commandicebyname 一级老侠客 npc 500');& v6 [) Q0 T% c
      print ('setallowhitbytick true 500');      3 `/ {* x& T: I9 y- r1 J) j+ j; k

+ l6 I4 M" t3 o7 A+ H7 J- f      Name := callfunc ('getsendername');
4 Y9 t- z3 f9 m3 t. @1 x) y" u$ h      Str := 'commandicebyname ' + Name;
' V/ ~5 b- R9 d! P& J* X" i      Str := Str + ' user 500';
8 f# m. C& U2 P* A( A) z      print (Str);
/ R2 o$ @: C( s! o" @6 C
. i4 F% u5 N6 a/ K$ [4 \7 B      print ('senderrefill');' i0 b- u: m; O& a! k) ?; l

; w( W: E( K, s4 \      print ('say 如果你实在想比 50');: j" Y( C- ~/ B$ J+ Z( \
      print ('say 我将奉陪到底 400');
( W3 a6 P% b  H: g, H      exit;
5 |3 R% @% E1 E/ i& d6 B   end;! P) P) W: ^- v! l6 D$ D# ]7 i
end;* S9 I- _; a) x( x7 s
5 `; f2 l/ r0 r% V; [
procedure OnCreate (aStr : String);- h! U0 z0 C2 E6 W6 b. ^& ^# h
var9 }( H: N" }4 g0 L8 v
   Str : String;
7 f& m9 Y' d5 w3 n+ D3 C# Sbegin
7 j  s7 P! e( O   Str := callfunc ('getsenderrace');( z+ i! M' S, X: _9 `
   if Str <> '1' then begin
+ g8 W  _* \$ `. O/ x6 j  ^& G      exit;4 T! }3 ^% T" ~& t- V' b
   end;0 E/ c  t0 i; e9 u% h% g1 L. b# w
( O1 ^8 \% r1 w0 I
   Str := 'showwindow .\help\一级老侠客.txt 1';
, B  D2 O7 O# B5 V+ i   print (Str);5 X& ]  n& ^5 h, T6 x
   exit;
& K$ D6 }% l* W6 V2 Qend;
+ `7 b" s+ C% G; `$ q, S" x+ U. B& f: w' g7 i+ v$ T9 s
procedure OnDie (aStr : String);5 P9 L+ b' x7 B( [# _: E
var
, m, E# g2 ^9 G% `- w. r   Str, Name : String;( E! a; U) |. u3 Y. y3 i0 O
   n, FirstQuest : Integer;   
7 Y- |9 z; F; W# h  @begin: @  L$ Q8 ]) h# l8 ]1 M2 b5 d% X
   Str := callfunc ('getsenderrace');# R  K: ?' N9 {  g  Q
   if Str <> '1' then exit;
' z+ {) K2 m6 y( B1 E3 l; Y% o2 x! y7 @- R
   Str := callfunc ('getsenderfirstquest');7 q" v6 k: t# j+ n. n  Y& e
   FirstQuest := StrToInt (Str);1 E/ ?! d* H2 m9 m  {9 i

1 k+ V2 @1 B; ]  p3 m) s8 |   Name := callfunc ('getsendername');" z3 L7 `7 n; r# u8 n" J$ b- e

! R: u# i' F) _$ Y. n   if FirstQuest < 6 then begin
& I* |9 i( a! s% ~0 I$ h" C7 u      Str := 'sendsendertopmsg ' + Name;) C5 d- A2 u3 c! z* |8 }; K
      Str := Str + '恭喜你,通过了所有的比试,获得【侠客弓服】';
/ U8 R9 r3 R* z' O      print (Str);
% \) y& f) a& Z& D2 x6 @5 M: e" [4 g7 _/ c7 `  j# \2 ^
      Str := callfunc ('checkenoughspace');
' x: c$ ~% E& n' W      if Str = 'false' then begin
) p" V* H9 u, B9 \         print ('say 物品栏已满...');7 ~5 I/ p/ q0 [% E
         exit;
# q8 q: l# `8 q" O* n1 v$ u      end;0 U1 W9 }. ~5 h+ p( @

" F, }3 R1 h8 r0 o      print ('changesenderfirstquest 6');% v. D8 y4 i7 Q& C5 q9 F$ h
7 `) z3 \6 k. k3 ^- o5 z/ r% {
      Str := callfunc ('getsendersex');9 W2 e, Q9 m* `! s
      n := StrToInt (Str);1 \+ g+ ~& f' M1 Q; m
      if n = 1 then begin1 F- K" @( W1 G; R2 T
         print ('putsendermagicitem 男子侠客弓服 @一级老侠客 4');
# ~( F/ a3 i  n& e: S      end;; F( w2 p9 e  u7 Q
      if n = 2 then begin& L% p! r4 q- [& z4 G+ w  e, Y
         print ('putsendermagicitem 女子侠客弓服 @一级老侠客 4');
5 M1 I4 b. U3 U/ g      end;
9 X  K! ~. f/ k* g  [1 z8 X5 ^         print ('putsendermagicitem 新手训练神剑 @一级老侠客 4');
" w4 f$ }; M+ T. V) E# e& |! q( s   end;
2 T2 F/ K; [  l3 Z  `4 n
) \/ j8 [) F( z* V7 J   print ('say 佩服_佩服 100');
* P& w1 J$ k: z8 B8 F2 L/ W' E: x0 K6 E5 X
   Str := 'movespace ' + Name;" y% G8 P' U& Y' X$ F; [2 g5 u" ^
   Str := Str + ' user 49 25 35 500';6 a! @' {6 h. T2 K0 I) ?' ?
   print (Str);  @' ~. X7 ^* Q/ u/ x% z
end;
# \0 h2 X) ~  J6 m3 Z% o& u/ n! s/ R, w6 V
procedure OnChangeState (aStr : String);
: f) S3 W( e4 H! Mvar! X( A) s6 Q2 t! t
   Str, Name : String;
2 @( h. ]; n3 }1 y! @1 r( ibegin# S0 n. L8 L& l! l
   if aStr <> 'die' then exit;
0 D6 m1 q; b: E+ P5 ^( F1 S: i3 e
6 [1 z! B# u6 u9 W# d, F! F   Str := callfunc ('getsenderrace');8 _3 k6 W- @* x2 V$ J
   if Str <> '1' then exit;& k/ M# g, d3 s4 k& d  F( y
3 s5 U3 |8 w9 k$ R( m1 ]4 h) n
   print ('say 小小年纪_就有如此高深的武功 50');
/ Z' j6 d7 y/ |0 o1 V" K; G' J   print ('say 日后要继续修炼... 400');
8 a+ m& u$ M' l) B4 o. I
' j/ c8 V# a1 @* Y& e9 k   Name := callfunc ('getsendername');
# ~8 E* @+ K# n1 m! g6 Q+ h! n- ~   Str := 'movespace ' + Name;
" y- A3 f: q) X8 d0 R1 D   Str := Str + ' user 49 106 55 600';
! D' M4 t4 K* q5 U6 I   print (Str);  J9 B+ Y  @1 }! |4 j2 p
end;
" E4 {  U1 i+ W0 ~7 V+ x$ A1 O1 D2 d, O5 v+ p' s% s
end.4 M! ~3 E* j/ H9 z; L
! N* s) {3 x: T3 ?& d) }+ B
-------------------------------------  E7 j8 d' ], u

4 N' n2 C  O1 ~5 {+ K* d*************************************) {; P$ |8 ~: H3 o" f

7 n; g9 b0 \2 C! W; T5 z奖励物品代码:
4 O" L1 k) i% _) y3 O
0 _5 y* q# X) L; N) l*************************************
, F; z0 m! x  l4 T% S( {
8 |% _$ C5 l$ t& d; i5 Y男子侠客弓服,男子侠客弓服,24,新手村擂台战利
8 [/ k5 A! w; v/ Z6 E+ h/ @1 d6 I& N3 Y: P
品,2,,,,,FALSE,FALSE,181,6,7,,,,1,1,1,,50000,,,,,,4432,4831,TRUE,,10,20,,,,,,,200,100,100,10
8 T% D" c# s/ R' R) M6 s( ?* B8 ]$ B$ _4 N
0,,,,,,3,TRUE,4,,FALSE,,,,,,,,,,,,,,,9 Q+ `2 l2 }+ ]3 `: g% T
女子侠客弓服,女子侠客弓服,24,新手村擂台战利! u7 ]  c9 V8 O, Z/ H- U

3 A* U- _: v& m品,2,,,,,FALSE,FALSE,181,6,7,,,,1,2,1,,50000,,,,,,4432,4831,TRUE,,10,20,,,,,,,200,100,100,10! m0 n! Y. Y: K' l* T

8 P; W1 ]$ h. D3 q0 `& Q4 i0,,,,,,3,TRUE,4,,FALSE,,,,,,,,,,,,,,,- T7 r. U+ p, ^4 N
新手训练拳套,新手训练拳套,6,新手村擂台战利4 T0 C/ P1 d7 w' _/ E% i" N
; ?  }5 K6 K9 @# Z$ W
品,1,,,,,FALSE,FALSE,361,9,52,,0,0,1,,1,,50000,50000,,,,,4404,4805,TRUE,20,20,20,,,,,,,,,,,,8 y  s; c! J( e- W& _

; j' @( U5 Y, P) n/ k1 M,,,,4,TRUE,3,TRUE,FALSE,,,,,,,,,,,,,,,/ g5 U+ x& P  y/ c. ?( [# V
新手训练神剑,新手训练神剑,6,新手村擂台战利3 C/ A$ n( u1 S/ j( Z$ r! h) k
/ o! q& M% B, e
品,1,,,,,FALSE,FALSE,365,9,69,,2,1,1,,1,,50000,50000,,,,,4404,4805,TRUE,20,20,20,,,,,,,,,,,,8 w3 A. |5 f* j

( p4 {1 G1 j4 F, T, D$ M,,,,1,TRUE,3,TRUE,FALSE,,,,,,,,,,,,,,,! ^2 x  H1 \. a& {* U( Y
新手训练弯刀,新手训练弯刀,6,新手村擂台战利. W2 C& `* O5 m8 Q' s! A

& ?( [3 Y8 H4 q* ?. l# ?品,7,,,,,FALSE,FALSE,113,9,2,,2,2,1,,1,,50000,50000,,,,,4412,4813,TRUE,20,20,20,,,,,,,,,,,,,/ @) I  f5 _9 k; \/ ~8 ?3 m& U
( F2 \$ X4 F' R, r1 |- Z
,,,1,TRUE,4,,FALSE,,,,,,,,,,,,,,,: s/ V* {2 W5 B  b' u
新手训练长矛,新手训练长矛,6,新手村擂台战利
. e9 r( `3 I  }1 ]7 L& b' a* z7 U. x! R! E. v! q' x- U
品,6,,,,,FALSE,FALSE,117,9,45,,3,4,1,,1,,50000,50000,,,,,4435,4834,TRUE,20,20,20,,,,,,,,,,,,
5 p: l% c/ A  B. H7 c) P
6 `& x$ o- ?; ^,,,,1,TRUE,4,,FALSE,,,,,,,,,,,,,,,
$ q5 E  U; u" Y; T: F+ T* a0 l5 G新手训练大斧,新手训练大斧,6,新手村擂台战利
2 X% N2 a7 U0 U( i, K% X8 H" q  a# Q$ M9 A5 j
品,6,,,,,FALSE,FALSE,95,9,12,,3,3,1,,1,,50000,50000,,,,,4415,4815,TRUE,20,20,20,,,,,,,,,,,,,
  b# ]4 d& f1 }1 A& o  G8 A7 Y4 \
8 @3 R8 z& U. T9 b( L& q,,,1,TRUE,4,,FALSE,,,,,,,,,,,,,,,
- a2 _2 c  B; E0 f+ _* a( d
, ?& [* }2 |) }$ `' m4 @******************************************
) ~4 H5 [0 S8 @" i* [9 q" B6 I
9 A6 T' }; i! S( V1 I- b2 T. N
! f* w; |) I5 W& d




欢迎光临 三千论坛 (http://bbs.3000y.com.cn/) Powered by Discuz! X3.4