新手村擂台脚本

新手村擂台脚本
. d# w) g/ H& M- m6 `! V  u
) W3 x% V$ w4 h6 Y! r1 O0 }0 C
释放到同名文件夹下覆盖原有文件。
1.Script 里面是任务脚本,把对应NPC的代码复制覆盖掉。
2.Item 里面是任务发放奖品的物品资料，把我发的加进去。
（由11月23号发布的最新服务端修改）
-----------------------------------------
内容介绍：
$ ^0 B# l$ e8 d& z# w4 W0 R新手村比武获得奖励：
同使用何种武器的NPC比武，将其打败就能获得同类的新手训练用武器（速度20，恢复20，准确20，破坏0
3 y8 i5 M' h! i2 z
7 ~* o7 j) ?, o0 _8 L）
8 e) x# I. M/ x, S最后一个NPC老侠客，打败他会获得新手剑之外，他还会公告天下你获得了 侠客弓服 一件！（个人比较

喜欢黑龙，所以是黑龙的加强版！）

7 N7 F5 W# E1 @: `0 x9 p[replyview]

－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
) b4 Y3 Q3 K& N7 b. L3 _) T- a
unit 一级梅花夫人;
% o% Q3 B* A' U' G5 s! U8 l
interface

0 }" F( E1 `& s7 I" r. C) r/ Kfunction  GetToken (aStr, aToken, aSep : String) : String;
function  CompareStr (aStr1, aStr2 : String) : Boolean;
3 O% A+ r/ E$ u! f8 `' Q- Z; Z- Tfunction  callfunc (aText: string): string;
procedure print (aText: string);
function  Random (aScope: integer): integer;
+ P+ Y9 B7 r4 C' p2 zfunction  Length (aText: string): integer;
procedure Inc (aInt: integer);
procedure Dec (aInt: integer);
) _+ o9 e& }6 jfunction  StrToInt (astr: string): integer;
function  IntToStr (aInt: integer): string;
procedure exit;

6 b7 t4 O8 M/ a5 q9 A5 gprocedure OnCreate (aStr : String);
9 M9 N) w2 t: [; Cprocedure OnDie (aStr : String);
9 t' u5 C/ W( F& eprocedure OnChangeState (aStr : String);
) T5 c2 z3 r0 N1 l4 Oprocedure OnGetResult (aStr : String);

implementation

+ \  j- k# U; {2 i7 r1 E8 Tprocedure OnGetResult (aStr : String);
$ O. U4 ]  [! j" |var
   Str, Name : String;
& S9 O% p8 X6 K' f& {- K' a/ }   iCount : Integer;
begin
4 r# b' j4 @/ g4 b$ I, L& @   if aStr = 'start' then begin
      Str := callfunc ('getsenderserverid');
" g! s  e! p/ [' C      if Str <> '51' then exit;

      Str := callfunc ('getsenderrace');
/ i8 a# r! [4 k, c+ D, r6 f      if Str <> '1' then exit;

& z* C( ]2 f3 [; C4 x      Str := callfunc ('checksenderpowerwearitem');
$ }2 d8 S. ]$ |+ `) q+ l+ P      iCount := StrToInt (Str);
      if iCount > 0 then begin
         print ('say 先将带技能值装备脱掉!');
         Name := callfunc ('getsendername');
% a9 N# }) ?) t, R( V  ]6 b7 C         Str := 'movespace ' + Name;
         Str := Str + ' user 49 106 55 100';
         print (Str);
         exit;
      end;
4 T) c# O' Q  M' [/ b- j5 F0 f! k      Str := callfunc ('checksendercurusemagic 0');
      if Str = 'true' then begin
         print ('say 选错武功啦!');
5 E, m8 E# ^/ D+ Z7 x7 r         Name := callfunc ('getsendername');
: a4 u( U: A$ _% c4 C+ \2 _" n         Str := 'movespace ' + Name;
* ?# X; x. h0 y7 C& t% y         Str := Str + ' user 49 106 55 100';
         print (Str);
         exit;
      end;
      Str := callfunc ('checksendercurusemagic 1');
      if Str = 'true' then begin
: d, y$ ?( M- f. K5 E8 t$ d         print ('say 选错武功啦!');
         Name := callfunc ('getsendername');
         Str := 'movespace ' + Name;
         Str := Str + ' user 49 106 55 100';
% S" |4 ]8 ?$ ^4 }' g         print (Str);
         exit;
      end;

      print ('directmovespace 一级梅花夫人 npc 51 20 18 0');

      print ('commandicebyname 一级梅花夫人 npc 1000');
      print ('setallowhitbytick true 1000');
. d5 T& p% ^$ o1 L) r
      Name := callfunc ('getsendername');
# T# U4 \* G. B) l# b      Str := 'commandicebyname ' + Name;
9 l4 X5 J) d; z6 |; f      Str := Str + ' user 1000';
      print (Str);
9 J' z( o+ ?0 f  X# ]5 `
      print ('senderrefill');
+ i7 x1 ~9 z: c  U
      print ('say 别害怕 50');
/ ]% s5 d2 ~. s; S* {      print ('say 我会收下留情的... 400');
      exit;
   end;
end;
$ L& Y! R5 n5 h6 g1 Q5 Y; A# t
; V2 T9 }6 s1 F. @" h  Lprocedure OnCreate (aStr : String);
( r+ Q# |& D# v" w6 I* Mvar
   Str : String;
1 t# B& p: k( U$ m+ y1 E# ybegin
   Str := callfunc ('getsenderrace');
   if Str <> '1' then begin
      exit;
" I5 P  z" Z7 o3 [* ?   end;
6 l3 X' ?! Q/ d  T
5 d. r; Z6 J' c# o   Str := 'showwindow .\help\一级梅花夫人.txt 1';
" o+ A! u5 [! x; W% |" w+ h) v% C1 y6 l   print (Str);
   exit;
end;

1 c# s" \2 [) nprocedure OnDie (aStr : String);
" W* J1 g6 Q0 ]* E1 zvar
   Str, Name : String;
   FirstQuest : Integer;   
begin
   Str := callfunc ('getsenderrace');
   if Str <> '1' then exit;
; \5 V% [/ h  S) B* w
3 T6 c$ n; ?# g& v: d   Str := callfunc ('getsenderfirstquest');
   FirstQuest := StrToInt (Str);
8 Z0 Y7 u4 G( s, `
5 o  K# I: e/ N6 U* d) C   if FirstQuest < 3 then begin
      Str := callfunc ('checkenoughspace');
      if Str = 'false' then begin
         print ('say 物品栏已满...');
         exit;
5 o8 _# Z  b/ F3 T      end;

      print ('changesenderfirstquest 3');
      print ('putsendermagicitem 新手训练长矛 @一级梅花夫人 4');
2 [9 w9 l9 e7 n& }/ [/ S   end;
0 i4 }% ^" M7 x, z- K+ f
   print ('say 我可只用了3层功力哟 100');

   print ('mapregen 52');

( E: N, F( J9 C: V- m: `# Y) ^   Name := callfunc ('getsendername');   
   Str := 'movespace ' + Name;
   Str := Str + ' user 52 17 18 500';
   print (Str);
   exit;
2 ?9 L  m  I( i3 K$ T. o" |end;

procedure OnChangeState (aStr : String);
+ s$ w  d0 [8 a7 v! @* Ovar
0 S# z1 Q0 u5 X  K& a8 j   Str, Name : String;
begin
   if aStr <> 'die' then exit;

' E+ o( }5 m1 t   Str := callfunc ('getsenderrace');
   if Str <> '1' then exit;

   print ('say 别无他法 50');
   print ('say 是不是修炼方法不妥呀? 400');

   Name := callfunc ('getsendername');
   Str := 'movespace ' + Name;
   Str := Str + ' user 49 106 55 600';
3 Z  n* _; S* o4 T   print (Str);
9 J. ~; e2 R% l& G6 }4 Q: n& M! Tend;
1 v. c" N* U6 E) q9 P
end.
-------------------------------------------
# m( [9 E% Q" j3 F) munit 一级捕盗大将;

interface

9 q3 T0 r* y! q7 A$ ]6 Jfunction  GetToken (aStr, aToken, aSep : String) : String;
  V) Y8 i- `9 p7 n3 S( W; gfunction  CompareStr (aStr1, aStr2 : String) : Boolean;
$ e% D  O8 j# G5 ufunction  callfunc (aText: string): string;
# n' v! Z, r( q$ S0 eprocedure print (aText: string);
function  Random (aScope: integer): integer;
function  Length (aText: string): integer;
procedure Inc (aInt: integer);
. `$ U9 g2 C% H8 z: a$ D( \procedure Dec (aInt: integer);
function  StrToInt (astr: string): integer;
) R, r2 |# v# E/ `" j1 h3 A9 \function  IntToStr (aInt: integer): string;
8 Z& H) y& q. R, G" Mprocedure exit;
4 D1 U) j8 S- _9 y
procedure OnCreate (aStr : String);
procedure OnDie (aStr : String);
& y" K& e( v; P' C2 H9 [% s' tprocedure OnChangeState (aStr : String);
& w$ Y  M  ]2 S# k4 c# Dprocedure OnGetResult (aStr : String);

implementation
* h, E: O0 {* _+ {. q
; m3 N* i7 V% P3 K0 r& B2 Rprocedure OnGetResult (aStr : String);
& L: v6 U& B9 m) evar
7 C. T/ }5 G: ^6 f3 z' E   Str, Name : String;
   iCount : Integer;   
begin
   if aStr = 'start' then begin
0 z7 p9 [* F: Q      Str := callfunc ('getsenderserverid');
      if Str <> '50' then exit;

      Str := callfunc ('getsenderrace');
2 ]" }! t/ }5 F5 n# b% V# }2 T      if Str <> '1' then exit;
. o, p+ N2 Y2 {+ }- S5 w1 F8 p# x
% \. P2 K/ C& w! p* d      Str := callfunc ('checksenderpowerwearitem');
      iCount := StrToInt (Str);
, {2 i4 W% f$ z( `! q      if iCount > 0 then begin
         print ('say 请先脱掉带技能值的装备!');
         Name := callfunc ('getsendername');
5 }+ H" }; h. `6 [: R6 ~' w6 T         Str := 'movespace ' + Name;
         Str := Str + ' user 49 106 55 100';
* P3 x+ x) Q# [3 q4 f% e( H4 m& W         print (Str);
         exit;
      end;
      Str := callfunc ('checksendercurusemagic 0');
8 w4 _1 T: [0 S( P% b8 O2 o8 L      if Str = 'true' then begin
7 y4 A( T6 Y  k+ Z/ G5 y/ g         print ('say 选错武功了!');
7 A5 n& E" t# ]( B         Name := callfunc ('getsendername');
! z$ q; q/ J* W9 f9 @& o" K- G: C         Str := 'movespace ' + Name;
         Str := Str + ' user 49 106 55 100';
& J$ P" i( s& G) `' H0 G         print (Str);
6 q+ t* p1 v0 z2 b: K( K6 e         exit;
4 I) v  P4 I/ y: w6 v9 \, J      end;
      Str := callfunc ('checksendercurusemagic 1');
1 _( D% H, E( P* A      if Str = 'true' then begin
/ }& Q* [5 W! r. }3 K' u         print ('say 选错武功了!');
: F6 B) r3 E4 c         Name := callfunc ('getsendername');
         Str := 'movespace ' + Name;
6 Y" C1 c4 f; g. i" [/ o% F         Str := Str + ' user 49 106 55 100';
9 @$ D* E+ |1 \( c5 ~4 W         print (Str);
         exit;
! s5 L! {, D! s3 s      end;
& A0 ^2 Q" [1 b8 Y  e: h
3 V1 Q4 g) g1 a9 g2 Q5 [& `4 y2 h      print ('directmovespace 一级捕盗大将 npc 50 20 18 0');

      print ('commandicebyname 一级捕盗大将 npc 1000');
8 K3 d' {  T5 o( K# \      print ('setallowhitbytick true 1000');

+ v! [1 [8 z2 z& H      Name := callfunc ('getsendername');
      Str := 'commandicebyname ' + Name;
      Str := Str + ' user 1000';
      print (Str);

      print ('senderrefill');

8 ^  K. z7 z3 U      print ('say 你还太嫩! 50');
      print ('say 留神啦_我可不会手下留情 400');
! D& H4 q' W1 \- b5 ^5 _5 X4 A8 ?      exit;
& n  i% M' _0 ]/ x6 K: }8 H   end;
end;
& ~. E8 ?; U1 I8 i. z
procedure OnCreate (aStr : String);
var
: Z: p# b6 r5 k' r; E* a1 t   Str : String;
begin
' f2 m. Y( K* }( {* q) m' ]7 _   Str := callfunc ('getsenderrace');
5 T$ t$ o$ @  ]7 b9 E2 R   if Str <> '1' then begin
      exit;
   end;
; Z) W( a. H3 T' ~8 ~# V* s2 y
   print ('setallowhitbyname 一级捕盗大将 monster true');

   Str := 'showwindow .\help\一级捕盗大将.txt 1';
2 V2 u) {& I# Y8 F$ a; r& ?   print (Str);
& W5 \9 C( Q  }, f   exit;
end;

8 d8 |  ~& H2 ^  I& R: _% qprocedure OnDie (aStr : String);
var
   Str, Name : String;
   FirstQuest : Integer;
begin
( t2 ~9 g* g6 O  J   Str := callfunc ('getsenderrace');
   if Str <> '1' then exit;
! y. c! `+ Z6 x. \
   Str := callfunc ('getsenderfirstquest');
7 X/ T6 q3 M- X* Y) M4 [2 m! I   FirstQuest := StrToInt (Str);

   if FirstQuest < 2 then begin
      Str := callfunc ('checkenoughspace');
      if Str = 'false' then begin
         print ('say 物品栏已满...');
         exit;
4 P- r0 v5 n7 Q" f3 [      end;
8 q  Q9 A* ^$ X5 D8 X6 v, p
1 e) u$ l+ l; G3 C      print ('changesenderfirstquest 2');
      print ('putsendermagicitem 新手训练拳套 @一级捕盗大将 4');
   end;

& D+ c6 Y4 _5 |$ @" E9 z* s) H   print ('say 不可能_我怎么可能输呢.. 100');

0 M7 u9 {; [$ v( D. q$ H$ P   print ('mapregen 51');
' v  y0 t3 p7 i
9 H: [3 @: M" h# t0 r' ^   Name := callfunc ('getsendername');
# F3 E# s7 E$ f8 x- Y* N3 d   Str := 'movespace ' + Name;
   Str := Str + ' user 51 17 18 500';
   print (Str);
6 Z$ V( }' G1 ?6 z. pend;

procedure OnChangeState (aStr : String);
4 F3 q( }  j% \7 F; Uvar
. s" L9 T0 z$ v9 d7 p: E' M* [   Str, Name : String;
begin
   if aStr <> 'die' then exit;

   Str := callfunc ('getsenderrace');
1 x2 w3 a9 I, Y0 T! B# k   if Str <> '1' then exit;

   print ('say 回去再修炼个10年吧50');
/ g3 v1 `% [2 b# a( l   print ('say 到那时我在用双手跟你打 400');

   Name := callfunc ('getsendername');
   Str := 'movespace ' + Name;
   Str := Str + ' user 49 106 55 600';
   print (Str);

6 k, H, z  u2 g& R) n   print ('boMapEnter 50 true');   
( p) P4 K; U0 m3 v0 xend;

3 s7 f$ T6 _8 b6 Q4 L3 b2 Hend.

－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
+ V# G$ N$ m' F) U- G  U
+ O: \4 q! @9 I# K1 D- [unit 一级牛俊;

% P# }- x& q* Iinterface
+ y& g9 Y% m6 X% Z, k( y
+ H  r5 b2 e) @. T2 \function  GetToken (aStr, aToken, aSep : String) : String;
7 K7 F# s3 B9 X+ A1 C7 H. Ffunction  CompareStr (aStr1, aStr2 : String) : Boolean;
function  callfunc (aText: string): string;
procedure print (aText: string);
/ B: u6 j7 W! l/ F3 G+ `% dfunction  Random (aScope: integer): integer;
function  Length (aText: string): integer;
6 B3 z' M/ ]6 J$ B- t* V$ Uprocedure Inc (aInt: integer);
procedure Dec (aInt: integer);
0 J& \  I7 |% |function  StrToInt (astr: string): integer;
8 f5 n2 b2 v% j: P) z8 _* Tfunction  IntToStr (aInt: integer): string;
procedure exit;
  s  d$ y! {! }! _2 N; v7 R
procedure OnCreate (aStr : String);
% U* n/ q# o( ]" T. dprocedure OnDie (aStr : String);
procedure OnChangeState (aStr : String);
procedure OnGetResult (aStr : String);
! ^3 V: B# q! ^9 G% C
. n- }/ E: j" p/ ]$ yimplementation
0 y% T& f5 z2 U8 X
2 @' A0 Z9 _$ c2 j+ Jprocedure OnGetResult (aStr : String);
var
) F- A1 H' N) w   Str, Name : String;
5 Z- C( X  b9 e* r1 z   iCount : Integer;
8 H+ E0 i5 C9 u! zbegin
   if aStr = 'start' then begin
      Str := callfunc ('getsenderserverid');
6 M0 [) Z. s) m1 |      if Str <> '52' then exit;
% j$ y4 U1 c1 P* @7 z: W$ J; ^+ R
, {! r9 T5 M+ H3 v. W$ Y      Str := callfunc ('getsenderrace');
" E, a8 Y% O7 `3 c  [# g/ w: o3 d      if Str <> '1' then exit;

      Str := callfunc ('checksenderpowerwearitem');
8 ^; ~. b4 s# g2 q6 t% D2 |/ O      iCount := StrToInt (Str);
      if iCount > 0 then begin
* W9 E9 [8 H7 A9 }8 Q' G         print ('say 请先脱掉带技能值的装备!');
2 I; l1 h/ V3 u! C         Name := callfunc ('getsendername');
         Str := 'movespace ' + Name;
         Str := Str + ' user 49 106 55 100';
         print (Str);
' C, [/ R/ L/ |% `: P9 `: I         exit;
      end;
      Str := callfunc ('checksendercurusemagic 0');
& w  o  U$ q1 p# V9 s      if Str = 'true' then begin
         print ('say 选错武功了!');
         Name := callfunc ('getsendername');
+ n) B) I8 k" E4 Q; C6 ]+ L. o* t  d' E         Str := 'movespace ' + Name;
         Str := Str + ' user 49 106 55 100';
/ E1 l5 f0 J! c         print (Str);
% s+ e1 ^& G9 C         exit;
      end;
- \# l, v) f6 T7 K9 I: }, d      Str := callfunc ('checksendercurusemagic 1');
      if Str = 'true' then begin
         print ('say 选错武功了!');
4 t# D) a( g9 k" Z         Name := callfunc ('getsendername');
         Str := 'movespace ' + Name;
         Str := Str + ' user 49 106 55 100';
         print (Str);
/ \; ]* v- ^6 w7 V% M8 y         exit;
$ B) x3 D; @) F: ]2 p* }$ p      end;

" r6 k* }: j% j& A7 v7 T      print ('directmovespace 一级牛俊 npc 52 20 18 0');
9 A' a# X: m, q7 ^* n0 t
- V9 I* w7 R( d& Q! Q  I( [      print ('commandicebyname 一级牛俊 npc 500');
      print ('setallowhitbytick true 500');      

      Name := callfunc ('getsendername');
      Str := 'commandicebyname ' + Name;
      Str := Str + ' user 500';
& b. n1 g3 z. ?$ [, M      print (Str);

. j$ u; g4 v  T9 `      print ('senderrefill');
, C( ]9 e& ]) V  Q
( Z$ X  I# ~5 L& k) ?4 y2 r8 W      print ('say 10如果10秒内不能将你搞定 50');
2 x& V! `2 q, [, k9 Q# H+ {      print ('say 就算我输! 400');
      exit;
   end;
% C5 J0 i: A4 a& @end;

# o# W7 Y& d7 f1 aprocedure OnCreate (aStr : String);
# {( w6 t# ~6 S1 P9 F. Wvar
   Str : String;
9 V- [7 K- S3 Abegin
- B0 I& w% D4 l( m   Str := callfunc ('getsenderrace');
# Z. q! c. f* e   if Str <> '1' then begin
      exit;
   end;
8 ~& E- u0 ^/ a( r: m+ }! W& Z
   Str := 'showwindow .\help\一级牛俊.txt 1';
" W6 g0 f+ Q, `: r* j. |' q) R   print (Str);
9 W) k  S6 f! Q% h0 ]! D9 k1 c* Z   exit;
end;

# x2 k- q2 l3 F9 r- X. T; m8 f- sprocedure OnDie (aStr : String);
/ z# K2 b) N0 `" K) C  h8 s1 tvar
3 O; @/ a/ w* k% e   Str, Name : String;
2 o! m$ P2 P) S, V5 r& U   FirstQuest : Integer;   
4 E+ N  x2 A+ X, Fbegin
0 Z% s* x# u* O$ }3 B   Str := callfunc ('getsenderrace');
   if Str <> '1' then exit;

9 N, T5 f3 ?- v3 M( x, P   Str := callfunc ('getsenderfirstquest');
   FirstQuest := StrToInt (Str);
: r: t2 ~7 W6 s
& d3 {" h; }: |; a   if FirstQuest < 4 then begin
      Str := callfunc ('checkenoughspace');
- v) `. f5 G$ p$ b      if Str = 'false' then begin
& C- K2 e8 s! H) ]+ K         print ('say 物品栏已满...');
2 y5 U* J1 R% D, w" r$ y         exit;
0 I3 g% _  O$ s' u6 Z$ x4 I      end;

      print ('changesenderfirstquest 4');
" |3 ^8 [' o0 A4 A- H2 X8 N1 X) F      print ('putsendermagicitem 新手训练大斧 @一级牛俊 4');
   end;

+ y* J5 ]; Z/ y) C   print ('say 什么_不敢相信!! 100');
$ N3 @) c' V4 S* T+ }9 ?
   print ('mapregen 53');

: [, l! U" y. W% f   Name := callfunc ('getsendername');
4 s( O$ B3 H2 g$ O5 i1 H7 x   Str := 'movespace ' + Name;
3 g$ m2 e2 v* s7 F3 n! T% \3 p! r9 G   Str := Str + ' user 53 17 18 500';
! _6 X& E4 h4 K( t5 }   print (Str);
end;

procedure OnChangeState (aStr : String);
var
- S. l- o. R- s& i# X1 @   Str, Name : String;
begin
0 H7 ^9 `4 K0 q! f5 h. W! m   if aStr <> 'die' then exit;
9 G1 V7 S; l8 Q  g5 L: c3 z
  B, T- O6 q; y   Str := callfunc ('getsenderrace');
   if Str <> '1' then exit;
% r6 H0 ]; ]1 d3 H$ [0 g  B
) ~) z/ S6 k8 S  o   print ('say 领教了吧! 50');
   print ('say 差远了... 400');

   Name := callfunc ('getsendername');
- K: G9 j/ t- L1 p* T$ K  Z   Str := 'movespace ' + Name;
   Str := Str + ' user 49 106 55 600';
2 f. K0 Y2 W+ H# t   print (Str);
end;

end.
' Z* Q+ m: `( h  _2 {- l% P3 |& l----------------------------------------
* ]6 m) m/ y8 N' K; Wunit 一级雨中客;

interface

; y- l* G* w  j2 `3 cfunction  GetToken (aStr, aToken, aSep : String) : String;
6 r2 f- w/ ?0 S; l- S9 `; jfunction  CompareStr (aStr1, aStr2 : String) : Boolean;
2 I1 e3 [# r6 @$ i7 Y/ bfunction  callfunc (aText: string): string;
; z/ N% Y* ^! \procedure print (aText: string);
, G+ q/ A9 w; lfunction  Random (aScope: integer): integer;
function  Length (aText: string): integer;
, \) {( Z; m1 N2 b6 r9 k9 cprocedure Inc (aInt: integer);
procedure Dec (aInt: integer);
function  StrToInt (astr: string): integer;
function  IntToStr (aInt: integer): string;
  c7 L8 i" _' e4 cprocedure exit;

+ I. P# F/ E) z5 mprocedure OnCreate (aStr : String);
procedure OnDie (aStr : String);
$ U. R) _% D% m3 A# {procedure OnChangeState (aStr : String);
procedure OnGetResult (aStr : String);

9 Z; G* b( A9 j; _* Z4 `implementation
" A! |( [. A. o; Y
procedure OnGetResult (aStr : String);
! j& L9 F0 U) T" P6 Q/ G% n1 Gvar
" `$ ~% e+ _8 @9 m* {7 S; w: A0 y   Str, Name : String;
   iCount : Integer;
; F1 W. z9 P: cbegin
& G0 Y* W* `- J& s5 B, y   if aStr = 'start' then begin
7 ?. q, w9 @" [: l0 f4 f; g6 M      Str := callfunc ('getsenderserverid');
6 H: o% B$ F2 T$ b7 C9 |7 D      if Str <> '53' then exit;
2 p6 C. t$ {* n# s, H, p& r/ Q9 N; J
      Str := callfunc ('getsenderrace');
9 O8 g* i" \9 B. j      if Str <> '1' then exit;

      Str := callfunc ('checksenderpowerwearitem');
  z  B3 e& R+ z+ \% n( o      iCount := StrToInt (Str);
      if iCount > 0 then begin
% n. T. h2 W+ s5 b9 i1 r         print ('say 请先脱掉带技能值的装备!');
         Name := callfunc ('getsendername');
         Str := 'movespace ' + Name;
         Str := Str + ' user 49 106 55 100';
6 W* T& E: f- l% t2 N! e  c         print (Str);
         exit;
      end;
. r( q: t4 }6 \      Str := callfunc ('checksendercurusemagic 0');
5 O: Z8 {. e  {      if Str = 'true' then begin
         print ('say 选错武功了!');
         Name := callfunc ('getsendername');
+ h) C; I6 j2 U2 E1 D         Str := 'movespace ' + Name;
, G4 V! J5 [! @         Str := Str + ' user 49 106 55 100';
         print (Str);
8 h% s5 o/ d( l5 D( `7 n8 l8 R         exit;
+ _6 f. h$ x. j0 v' p3 @      end;
      Str := callfunc ('checksendercurusemagic 1');
! r5 s+ n9 [0 }) A+ f      if Str = 'true' then begin
         print ('say 选错武功了!');
) @0 ?0 ^) Y& ~' v2 R: R         Name := callfunc ('getsendername');
         Str := 'movespace ' + Name;
         Str := Str + ' user 49 106 55 100';
' |9 ?  ~; K% x' x+ A% G$ U         print (Str);
9 j2 p( k) y4 L3 c9 g# C$ i+ |0 y         exit;
  I5 q. A& H9 J3 L      end;
8 W4 K# A2 T0 G  Q! d
      print ('directmovespace 一级雨中客 npc 53 20 18 0');
, L. q+ n  b; ]/ ~
+ G" k: v; b+ L      print ('commandicebyname 一级雨中客 npc 500');
      print ('setallowhitbytick true 500');      

      Name := callfunc ('getsendername');
      Str := 'commandicebyname ' + Name;
      Str := Str + ' user 500';
; x! `2 n6 \- H; p2 f  _      print (Str);

( a7 Y9 n, X: C0 a, W      print ('senderrefill');

0 ?5 S+ n; i$ G. N9 b7 ^% X      print ('say 领教了 50');
9 M3 u. ~) U& g9 j      print ('say 开始吧 400');
      exit;
. c) n, T8 M8 q9 f5 h6 ?, Z: B   end;
end;

procedure OnCreate (aStr : String);
* j5 N5 A/ d! ^; D; o7 }var
   Str : String;
2 p) t& V9 y, |% P* d7 Q: x- Qbegin
   Str := callfunc ('getsenderrace');
   if Str <> '1' then begin
' V& x! T4 {9 h/ e: ~      exit;
0 C; e. J* Y0 X1 d9 V   end;
) m6 u- |: ^  n" R( R) @
   Str := 'showwindow .\help\一级雨中客.txt 1';
/ d' Q3 u% {0 U5 r  ~   print (Str);
   exit;
end;

procedure OnDie (aStr : String);
. J% S7 \6 e# J8 h5 v1 L# tvar
7 q% j8 q; @0 a( p# m( Z! u% |   Str, Name : String;
   FirstQuest : Integer;
begin
9 k. x* H# m; E3 W   Str := callfunc ('getsenderrace');
   if Str <> '1' then exit;
5 W" Q& h8 e6 h+ Y# m7 J7 X
3 q. x" C4 t0 u" a( Z4 Y   Str := callfunc ('getsenderfirstquest');
   FirstQuest := StrToInt (Str);
8 {' U- Z0 K! Y
' Z$ @; K# W6 ^$ Q1 O9 I. W   if FirstQuest < 5 then begin
      Str := callfunc ('checkenoughspace');
$ H( ^( n, N0 l( Y4 A9 u      if Str = 'false' then begin
         print ('say 物品栏已满...');
         exit;
7 F- a* {! Q: u6 K' z7 h% p* e      end;
1 C7 ?4 G- p+ G6 V5 }- h
7 Y2 C% T; L0 K4 K2 }( s) W2 s3 Q( a5 O      print ('changesenderfirstquest 5');
! w( v: \  g! e# I      print ('putsendermagicitem 新手训练弯刀 @一级雨中客 4');
   end;

   print ('say 早料到了_佩服 100');

  t# h. F6 h2 F0 _3 |3 z* Q) [   print ('mapregen 54');

   Name := callfunc ('getsendername');
   Str := 'movespace ' + Name;
   Str := Str + ' user 54 17 18 500';
   print (Str);
, ?5 \, M3 f; O8 B( l% z# Oend;
  z9 t2 ?3 F$ z1 b
  L6 K4 w  X# ^- x/ Y6 ~: Dprocedure OnChangeState (aStr : String);
3 j% d% g; X! _$ s: kvar
   Str, Name : String;
1 y; T8 F' K% e' ybegin
   if aStr <> 'die' then exit;

4 S  N' h" p( N5 b   Str := callfunc ('getsenderrace');
   if Str <> '1' then exit;
8 ~% h  I- n5 Z4 G3 ~
   print ('say 不错。只要能维持几秒钟');
# }, a) I! H: t& i3 h   print ('say 到那时谁都不是你的对手 400');

   Name := callfunc ('getsendername');
# N4 H6 m: M* y1 J: _9 x# j   Str := 'movespace ' + Name;
2 t6 O6 ]( l1 r& i   Str := Str + ' user 49 106 55 600';
   print (Str);
5 }9 x& r" n/ w& f* Q  wend;
. r8 n2 ?: j$ ~
5 g9 Q# I" D2 Mend.
" c9 ^$ C, C* `" j7 P# A
--------------------------------------------------------------------------------------------------------------
* r7 v" Y$ m$ A# b; s/ {6 [6 p
* ?+ r$ g' ^" B+ ]! u, xunit 一级老侠客;
5 f& B5 J" m. o- j/ z' J
interface

+ t: ]  m0 G; Mfunction  GetToken (aStr, aToken, aSep : String) : String;
function  CompareStr (aStr1, aStr2 : String) : Boolean;
function  callfunc (aText: string): string;
procedure print (aText: string);
function  Random (aScope: integer): integer;
function  Length (aText: string): integer;
procedure Inc (aInt: integer);
( c( X$ z2 ^0 `# G- K' |procedure Dec (aInt: integer);
function  StrToInt (astr: string): integer;
! U6 c! k' n* p# L' G8 Ifunction  IntToStr (aInt: integer): string;
+ n+ a  X' }$ F3 H7 sprocedure exit;

; j  x% o( h6 f! g1 yprocedure OnCreate (aStr : String);
procedure OnDie (aStr : String);
procedure OnChangeState (aStr : String);
" u8 G/ v  e" a/ W5 Hprocedure OnGetResult (aStr : String);
4 m9 u% b* E9 i/ p# }% \
implementation
! i5 Q: h: h1 M. O# z% [" [; Y6 B
procedure OnGetResult (aStr : String);
( D, o2 O6 [! l# F2 B0 B) P1 F0 Hvar
   Str, Name : String;
1 v0 j; Q) Y4 i# @' ^   iCount : Integer;   
* k$ d& j* o8 a4 n0 `begin
2 d! K' o8 ~3 m( l1 r7 ^$ H' Y   if aStr = 'start' then begin
      Str := callfunc ('getsenderserverid');
      if Str <> '54' then exit;
, I" M4 O4 U4 U/ w
      Str := callfunc ('getsenderrace');
      if Str <> '1' then exit;
# q1 @; u0 Z* i% u+ @
      Str := callfunc ('checksenderpowerwearitem');
+ k2 a+ C4 u) i  G, k. l      iCount := StrToInt (Str);
      if iCount > 0 then begin
! |% ^+ r3 G) {4 D, x* h! ~         print ('say 请先脱掉带技能值的装备!');
4 W, S6 c3 t7 [! ^& S* m/ G         Name := callfunc ('getsendername');
         Str := 'movespace ' + Name;
# C* d/ S6 ]% u: W1 B         Str := Str + ' user 49 106 55 100';
         print (Str);
         exit;
      end;
) `1 a! e! @- V      Str := callfunc ('checksendercurusemagic 0');
* f7 g! @. G/ L& J; @6 k      if Str = 'true' then begin
9 F4 f& ~3 r( ?         print ('say 选错武功了!');
1 `2 l7 |# b! H3 w. Z4 Q. P1 F         Name := callfunc ('getsendername');
         Str := 'movespace ' + Name;
5 |: @" T& s+ K$ @2 d         Str := Str + ' user 49 106 55 100';
         print (Str);
" ]8 j. d  E9 W2 Q         exit;
      end;
      Str := callfunc ('checksendercurusemagic 1');
      if Str = 'true' then begin
% m1 E' h5 ~/ A" x3 v# D         print ('say 选错武功了!');
3 R$ R; W  G; W         Name := callfunc ('getsendername');
         Str := 'movespace ' + Name;
# r- y8 y% q/ ^+ h3 p6 `         Str := Str + ' user 49 106 55 100';
         print (Str);
         exit;
- D: S  E/ ?: b' U1 ?1 D      end;

      print ('directmovespace 一级老侠客 npc 54 20 18 0');
- W) _6 W. t( S; E6 ?
      print ('commandicebyname 一级老侠客 npc 500');
      print ('setallowhitbytick true 500');      
, _+ ~3 g+ w7 }, z
      Name := callfunc ('getsendername');
      Str := 'commandicebyname ' + Name;
) h. D5 I2 w# Z( q- ~/ _* a2 h      Str := Str + ' user 500';
8 S: l0 y4 W$ K# t5 b0 x; R' B      print (Str);

      print ('senderrefill');

      print ('say 如果你实在想比 50');
, |2 Y  z" O9 a# K& c! ?5 G      print ('say 我将奉陪到底 400');
4 f( H' s+ Y% u: c$ [; b1 a4 L" [9 E      exit;
2 O* W$ R- c( W   end;
end;
6 c* D) c4 \; Y
, ~# j6 c* h7 Bprocedure OnCreate (aStr : String);
var
   Str : String;
1 }) E& l; \/ h  Fbegin
   Str := callfunc ('getsenderrace');
# L- M0 `4 A- {+ b3 u   if Str <> '1' then begin
; H4 l6 Q# J$ L$ W1 f& e      exit;
   end;

   Str := 'showwindow .\help\一级老侠客.txt 1';
   print (Str);
   exit;
end;
7 o" ~. U! {3 T- u
0 b7 F" `6 }9 ?7 q# ]) m. gprocedure OnDie (aStr : String);
var
   Str, Name : String;
  Q. J& G, {& A! L   n, FirstQuest : Integer;   
2 z! |, s% i) {1 v: T/ r- c; ~begin
9 Z6 v2 r/ }. H   Str := callfunc ('getsenderrace');
; Z. d2 Z  _6 O- j   if Str <> '1' then exit;
$ Y  W. a; M& r/ o: P* S1 K
% q$ }4 h9 H0 E   Str := callfunc ('getsenderfirstquest');
   FirstQuest := StrToInt (Str);

6 }9 b6 {$ E: s. g1 T# x3 F. ?! m" W   Name := callfunc ('getsendername');

, c  H, c, V8 j- l: K7 c   if FirstQuest < 6 then begin
      Str := 'sendsendertopmsg ' + Name;
      Str := Str + '恭喜你,通过了所有的比试,获得【侠客弓服】';
$ z! G# S( Q* n1 G# g      print (Str);
" [+ y+ m5 p* O1 Z# s4 _% d" P% D# ]
. [$ n$ w$ V0 R0 r$ m& |) G      Str := callfunc ('checkenoughspace');
8 B4 B& \& Y- w/ @$ J/ n      if Str = 'false' then begin
8 e) a: }0 [2 p  W- e         print ('say 物品栏已满...');
         exit;
      end;
5 O) p$ g: e0 }0 w- p& R
( f  O6 t5 q7 F# x7 U% }3 l+ K      print ('changesenderfirstquest 6');
6 `- k  g2 Z* m) l5 q8 E8 C8 D
      Str := callfunc ('getsendersex');
- j7 |, r; U2 S% G# }( K/ G" u      n := StrToInt (Str);
      if n = 1 then begin
! I$ O" u( m3 @1 F& h" P         print ('putsendermagicitem 男子侠客弓服 @一级老侠客 4');
1 N6 x# y: J$ U: N1 W1 O, Q0 B      end;
7 M2 B: P8 i" f$ v$ C9 W2 L, @3 Z      if n = 2 then begin
         print ('putsendermagicitem 女子侠客弓服 @一级老侠客 4');
# e# N4 m9 p% E      end;
" @. d& o' M- [2 j) F- g! s         print ('putsendermagicitem 新手训练神剑 @一级老侠客 4');
   end;

   print ('say 佩服_佩服 100');

   Str := 'movespace ' + Name;
   Str := Str + ' user 49 25 35 500';
   print (Str);
end;

procedure OnChangeState (aStr : String);
! x1 ~  H. B+ a4 H4 [4 pvar
4 `# K0 s; A' p' Y. v! o1 X% Y   Str, Name : String;
begin
   if aStr <> 'die' then exit;
% S9 H8 G) [+ W* B$ n" u2 H+ C9 n
   Str := callfunc ('getsenderrace');
   if Str <> '1' then exit;

/ b( k4 b) J# ]   print ('say 小小年纪_就有如此高深的武功 50');
   print ('say 日后要继续修炼... 400');
! _7 G7 b( m: ^4 h5 A( Q4 @% o- }
$ T4 q9 A, p: h3 l# u) N% }   Name := callfunc ('getsendername');
   Str := 'movespace ' + Name;
   Str := Str + ' user 49 106 55 600';
' ~  p. |( `- K* `* t   print (Str);
end;
) _, v4 s/ A2 M/ S1 \! L! M1 j# D
end.

－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
: z4 t, b' G; [
＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
* \: B0 L: ]7 {: I- G7 ], t
奖励物品代码：
& ?( z3 e% d" N/ R1 A6 x
1 N5 V' e. ~& ~/ B＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊

男子侠客弓服,男子侠客弓服,24,新手村擂台战利

品,2,,,,,FALSE,FALSE,181,6,7,,,,1,1,1,,50000,,,,,,4432,4831,TRUE,,10,20,,,,,,,200,100,100,10

- ^7 W  q9 _) P  O7 ]0,,,,,,3,TRUE,4,,FALSE,,,,,,,,,,,,,,,
$ K6 y8 q* g0 N0 D/ y! P, ]# n$ T女子侠客弓服,女子侠客弓服,24,新手村擂台战利

! P6 w6 Q$ _1 X1 B( p" r品,2,,,,,FALSE,FALSE,181,6,7,,,,1,2,1,,50000,,,,,,4432,4831,TRUE,,10,20,,,,,,,200,100,100,10

0,,,,,,3,TRUE,4,,FALSE,,,,,,,,,,,,,,,
新手训练拳套,新手训练拳套,6,新手村擂台战利

( w& M2 S. |  ~0 Q* Z  T0 i品,1,,,,,FALSE,FALSE,361,9,52,,0,0,1,,1,,50000,50000,,,,,4404,4805,TRUE,20,20,20,,,,,,,,,,,,
8 V: z$ e0 }; Z, r! f
$ C+ o5 d2 I! ^6 D,,,,4,TRUE,3,TRUE,FALSE,,,,,,,,,,,,,,,
新手训练神剑,新手训练神剑,6,新手村擂台战利

, C# o2 B  a+ Z' }0 H6 d品,1,,,,,FALSE,FALSE,365,9,69,,2,1,1,,1,,50000,50000,,,,,4404,4805,TRUE,20,20,20,,,,,,,,,,,,

,,,,1,TRUE,3,TRUE,FALSE,,,,,,,,,,,,,,,
8 q8 F+ r' s' ~& g9 L; m2 f- Q新手训练弯刀,新手训练弯刀,6,新手村擂台战利
' z% u  t1 X1 m9 X2 Q% P! M! y" Z
% R% J4 x7 V( t0 ~$ S. ], h+ i品,7,,,,,FALSE,FALSE,113,9,2,,2,2,1,,1,,50000,50000,,,,,4412,4813,TRUE,20,20,20,,,,,,,,,,,,,

,,,1,TRUE,4,,FALSE,,,,,,,,,,,,,,,
; b  L" {# k3 C7 _1 [* s, _3 t新手训练长矛,新手训练长矛,6,新手村擂台战利
+ s  Q1 k9 n; @. D
品,6,,,,,FALSE,FALSE,117,9,45,,3,4,1,,1,,50000,50000,,,,,4435,4834,TRUE,20,20,20,,,,,,,,,,,,

2 p( T, h+ M) [) i' m7 X, j; D' ?  T,,,,1,TRUE,4,,FALSE,,,,,,,,,,,,,,,
( K  `& p/ B" g新手训练大斧,新手训练大斧,6,新手村擂台战利

/ C- E* e) e; @; L" d7 P# A! D* C9 G品,6,,,,,FALSE,FALSE,95,9,12,,3,3,1,,1,,50000,50000,,,,,4415,4815,TRUE,20,20,20,,,,,,,,,,,,,

,,,1,TRUE,4,,FALSE,,,,,,,,,,,,,,,
$ W9 D- m, N2 z7 ]7 Z
＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊

- ~+ Q4 R9 [% g; `* r