游客您好
  • 点击联系客服

    在线时间:8:30-18:00

    客服微信

    Wkr-3000y-kf

    电子邮件

    3000y@wenkeruan.com
  • 手机版

    随时掌握游戏动态

  • 扫一扫二维码

    添加微信客服

Lv.5 解脱境
277号会员,0活跃值,2022.10.27 加入
  • 207发帖
  • 173主题
  • 0关注
  • 0粉丝
这个人很懒,什么也没有留下。
独家推荐 更多>

[安全工具] 新手村擂台脚本和实现代码

[复制链接]
快要发癫啦 发表于 2023-3-2 09:52:34 | 显示全部楼层 |阅读模式 打印 上一主题 下一主题
风雷版的新手村擂台脚本 " W/ [. f+ _9 M* L( K2 G1 \

  U4 s6 g4 m, G% l6 G6 T# o
释放到同名文件夹下覆盖原有文件。
* {1 i6 @) ^8 D- j" |) L' p2 f  ~
1.Script 里面是任务脚本,把对应NPC的代码复制覆盖掉。. g& S8 ~1 t: x) b& ?3 e& T# c
2.Item 里面是任务发放奖品的物品资料,把我发的加进去。
& B( P2 h8 x0 q6 u; O5 d/ Y* j5 c
(由11月23号发布的最新服务端修改)
$ r% y  y8 M1 O! p
-----------------------------------------; V* @. z" d4 ], w$ h! m( v
内容介绍:9 h* w4 P* k$ b- n4 K8 @
新手村比武获得奖励:& [8 V/ |0 Q5 z5 R; |
同使用何种武器的NPC比武,将其打败就能获得同类的新手训练用武器(速度20,恢复20,准确20,破坏0 % z) I( b1 X2 a$ T* V% B
# U6 l1 L$ L6 B% z0 ?- f
最后一个NPC老侠客,打败他会获得新手剑之外,他还会公告天下你获得了 侠客弓服 一件!(个人比较 - i, a6 w/ D; O% b
喜欢黑龙,所以是黑龙的加强版!) ; M) o# ]$ X* G
[replyview]
. D' P6 N$ Y1 H, x$ |" f& L
-------------------------------------
  C8 o! J4 P4 D, @2 v, G
unit 一级梅花夫人;
8 a) v! \5 I, p0 ?
inte**ce ) G* O4 D- f1 J  W$ E- M
function  GetToken (aStr, aToken, aSep : String) : String;
5 e( h9 g2 p: D5 i3 C
function  CompareStr (aStr1, aStr2 : String) : Boolean;- C8 ]( E( [* w9 n- {
function  callfunc (aText: string): string;: {& }5 V5 J: ^' g
procedure print (aText: string);& `, P; [! q; A% Z+ c
function  Random (aScope: integer): integer;0 V# H  k2 b% e" {  o# @/ V7 T' p
function  Length (aText: string): integer;
1 c& ^$ p0 U) g! `
procedure Inc (aInt: integer);% u7 ?$ u+ l8 C  H- R5 P1 G
procedure Dec (aInt: integer);" Z0 d) {. _8 H- d
function  StrToInt (astr: string): integer;
. L3 y( J( [* i, \
function  IntToStr (aInt: integer): string;
$ c6 e. _3 V' x
procedure exit; ' t* ]! b) P7 L6 q9 ?+ |, h
procedure OnCreate (aStr : String);
& d! v9 h( M, \
procedure OnDie (aStr : String);
, w- F: r/ Q) F; s$ Y
procedure OnChangeState (aStr : String);0 t8 B3 o! X9 k
procedure OnGetResult (aStr : String);
* ^/ r" g9 K& A( J
implementation
5 b3 z7 l1 n. |" w/ S, n7 n
procedure OnGetResult (aStr : String);
5 g' ]; [( g9 X* G) Q7 o
var1 _( X  k* s5 Z/ T" k8 @% S. M1 X
   Str, Name : String;
1 ?) X, ~7 V, w$ V
   iCount : Integer;
/ q+ C7 {7 B# Z1 C" Y' w8 [9 X
begin7 w+ ~8 I- V) K8 o: @; f+ b" I
   if aStr = 'start' then begin' B9 w& H# ^# n) O
      Str := callfunc ('getsenderserverid');. p6 f7 T1 ~& t
      if Str <> '51' then exit;
1 u+ V' z, R3 W' f
      Str := callfunc ('getsenderrace');. J1 k) a9 V3 z
      if Str <> '1' then exit;
6 X' N3 G+ t# q3 ]% \
      Str := callfunc ('checksenderpowerwearitem');
! d! {) b1 t( u, e5 }3 f& J* l
      iCount := StrToInt (Str);
, a# u! r, C) l- \: d$ i$ F8 }+ n
      if iCount > 0 then begin
" h" F4 r7 M$ N3 a
         print ('say 先将带技能值装备脱掉!');: T% a! M' c$ ]/ w' ]) j8 _: D
         Name := callfunc ('getsendername');" N9 H& V3 ?4 o6 f& ]! s
         Str := 'movespace ' + Name;" c3 ]% ]( Q' _* t! H
         Str := Str + ' user 49 106 55 100';
$ t* Z, |2 q7 S7 D/ p3 `
         print (Str);
. l0 N- P4 N1 b# w! r
         exit;% @4 U9 @  C, [& W
      end;
4 _% j# {% U- j1 x
      Str := callfunc ('checksendercurusemagic 0');
$ N$ T" v* W) f" ?2 s
      if Str = 'true' then begin& J3 n0 ]5 e6 o6 L( h) j( n3 J9 ?- x
         print ('say 选错武功啦!');
4 @! D6 n3 A% h
         Name := callfunc ('getsendername');
! g2 y1 j  H: }/ v# G( o+ W
         Str := 'movespace ' + Name;
1 S$ e) i8 g$ z0 I0 y2 ]0 b$ @& j
         Str := Str + ' user 49 106 55 100';; [* ]5 L# `7 i. z% w- m
         print (Str);
9 Q& {: B6 g+ C- a3 v9 C
         exit;. g! \3 C! ?$ j1 z" X7 N
      end;
5 j  r1 R% h5 h0 k0 U- O
      Str := callfunc ('checksendercurusemagic 1');% H% W# F- A: S( K* T
      if Str = 'true' then begin) C- v/ [3 x1 @, D( E
         print ('say 选错武功啦!');" l, \& l  j+ {" O: q3 C
         Name := callfunc ('getsendername');# ^; g' N+ \7 x' T6 @, l: y
         Str := 'movespace ' + Name;
9 c( c7 R+ H; u- r
         Str := Str + ' user 49 106 55 100';% W1 }' m& D9 n6 f
         print (Str);1 R( ^* _" r6 p! J) U% ~- J
         exit;
! R2 p2 E. n9 n5 }7 P
      end; ; y7 D* R# w' G0 f& q$ s
      print ('directmovespace 一级梅花夫人 npc 51 20 18 0');
+ D, r* Y7 r  S3 t7 e
      print ('commandicebyname 一级梅花夫人 npc 1000');6 L* T9 b1 o" K9 H! ^1 F5 e
      print ('setallowhitbytick true 1000'); * Q( I8 \( n& k4 i
      Name := callfunc ('getsendername');
. @0 }! g, a; Y: k& F! @0 t+ X
      Str := 'commandicebyname ' + Name;
9 j8 K# f8 z$ Q
      Str := Str + ' user 1000';
2 T6 e7 `  [; I2 A; ?: s
      print (Str);
+ T8 _; f6 I, F0 i
      print ('senderrefill');
' ]2 s3 H4 _( _8 K+ _# c
      print ('say 别害怕 50');" ]# }" V+ w2 D1 d9 F
      print ('say 我会收下留情的... 400');
/ F6 [; l' ]; w
      exit;/ p# |* ]0 v" x
   end;
9 |  ^' t, a( V# F
end; + C; _+ U5 c0 B* w( v
procedure OnCreate (aStr : String);
  r7 }) a, @' r9 \0 O
var
+ j+ C* {0 y( Q( I
   Str : String;
2 `2 [/ D. x$ P3 ^8 T, E+ e
begin
) y& R; l, B5 L7 Z
   Str := callfunc ('getsenderrace');# T. {( b' W( x  |7 T
   if Str <> '1' then begin
5 ^, p8 t7 I6 K) [# b0 K! B
      exit;
4 r& h; X6 G0 w: m3 _! C/ \; S  J- T
   end;
9 z! N. e" l) m) b' T3 ~
   ' K6 t+ d8 `+ `& u; H  K! v# s* ?" \
   Str := 'showwindow ./help/一级梅花夫人.txt 1';" T- `5 j3 M" j/ p5 k" C4 Y) x
   print (Str);$ u5 B7 W. [4 c/ d2 w3 [8 H
   exit;
" T" _- X  Q* s; X2 b' J
end;
: O% V; P: j" w4 m4 C" u
procedure OnDie (aStr : String);
7 T9 Y: U, z. |$ g) m
var  ]' l7 F& G' D6 C3 e* e
   Str, Name : String;" d0 P0 c1 a1 Q9 i! q2 K) F( |7 X; c
   FirstQuest : Integer;   , X5 D# V& i7 S' M- ]' i2 G8 Z
begin
- l3 A* [1 @+ S! q3 i8 S& X+ F
   Str := callfunc ('getsenderrace');
& s$ l& o! J, V' B- [$ h8 ~6 F) z
   if Str <> '1' then exit;
9 W8 M4 c0 k: E/ A/ f4 S, d. @
   Str := callfunc ('getsenderfirstquest');4 I7 A0 g4 C( Q9 ~' S$ u) F8 j
   FirstQuest := StrToInt (Str);
. o' Z! W; `& _; I
   if FirstQuest < 3 then begin! m8 v4 s/ W8 \0 f- j' r
      Str := callfunc ('checkenoughspace');% L; ^$ S' @1 Y
      if Str = 'false' then begin
) t( j$ ]( G4 x8 r5 l4 n
         print ('say 物品栏已满...');
5 _+ s! y( u- K6 k+ @9 ^
         exit;
/ r, G& L( y' M# R
      end;
) r# e. @4 M7 R+ U+ b( [
   " V* z1 A! ]) ?* m' ^% h3 N: P# h; @( W
      print ('changesenderfirstquest 3');3 E! t0 M; S) h: @3 K
      print ('putsendermagicitem 新手训练长矛 @一级梅花夫人 4');
" V6 X0 a4 ^3 C" e' _6 r1 }
   end;   }: b* r/ ^4 N7 W0 m
   print ('say 我可只用了3层功力哟 100');
: J7 p) g# ?- Z
   print ('mapregen 52');
/ X; {, {, i3 j+ U
   Name := callfunc ('getsendername');   $ i7 P2 f' P- h" ?" j  E
   Str := 'movespace ' + Name;' X* b, v! N: j5 \- P3 G* H
   Str := Str + ' user 52 17 18 500';) u4 e' J9 d- y) ^" s
   print (Str);3 ^' Y* P- ?# h: }3 N  i
   exit;
, r" h( q2 |2 L& I* T: Z" w
end; 6 S/ D( y, `$ d
procedure OnChangeState (aStr : String);' C3 J  y5 N3 O; q: n+ \) M) S6 n
var1 y& y% y% U5 @9 C' Y
   Str, Name : String;
* D* A; n* g* C. ~
begin
$ a- \. h( m& `( c& R
   if aStr <> 'die' then exit;
0 ]8 g3 d4 E" R- {: n5 v/ T+ m6 Q
   Str := callfunc ('getsenderrace');
" K: P! S" S6 g. x
   if Str <> '1' then exit; 5 R. a* r9 P0 J! w: O: T1 B/ P; C6 |1 u
   print ('say 别无他法 50');7 H( H7 h( ?9 c" W
   print ('say 是不是修炼方法不妥呀? 400');
, ^* m! `# p; }  f( T6 t  j
   Name := callfunc ('getsendername');5 G5 A7 v5 [; K3 l6 o) g$ t; f+ O( |8 O
   Str := 'movespace ' + Name;
$ r& ]5 ^& Q& W0 g* l, v6 {" n
   Str := Str + ' user 49 106 55 600';
5 }! J8 I8 l/ Y' l/ U  N
   print (Str);
# T3 ^/ B: q8 G- O4 u! n
end; * {4 F4 g) l. V+ H! ?. C0 T  @, p
end.8 ~6 k- ]+ i( e6 i" F: b+ `
-------------------------------------------
; ^$ Q$ G$ [: L- y% Z/ N
unit 一级捕盗大将; ; _$ h, K9 A9 ~- w. Q
inte**ce
8 m, E4 D* t% ^! W0 o5 r; f
function  GetToken (aStr, aToken, aSep : String) : String;
/ {; K% K% k( S; \( G2 j, A8 q- I7 G
function  CompareStr (aStr1, aStr2 : String) : Boolean;8 v, e  w4 u& Z( y  n* ?, ]
function  callfunc (aText: string): string;& G# @+ \( m$ f9 I# _6 M9 A
procedure print (aText: string);
4 d0 R" y! p1 M* S2 {
function  Random (aScope: integer): integer;
$ I+ J4 S7 T, K! Y- q
function  Length (aText: string): integer;
4 K- N' o3 F' e; ~
procedure Inc (aInt: integer);
7 T6 k5 Z, D) E2 k
procedure Dec (aInt: integer);
1 o% w6 c: z4 P) t4 ~2 ]( Z# C
function  StrToInt (astr: string): integer;3 G2 ]: e0 ?( t/ K# i! w5 z" D
function  IntToStr (aInt: integer): string;5 U6 Q5 T+ K: M. @/ B
procedure exit; / u1 u% ~0 m7 U& F; x, |& c' I- u
procedure OnCreate (aStr : String);
$ [7 {; j/ Q) s$ x9 G7 a
procedure OnDie (aStr : String);  l) r7 J8 y! v3 \
procedure OnChangeState (aStr : String);0 J( U& `4 I, Y
procedure OnGetResult (aStr : String);
4 ]) o: C5 R3 }, v! I
implementation 4 Q( X* @5 ], q* S2 L; u# m
procedure OnGetResult (aStr : String);
( D" }9 ~# _7 Q$ K
var: E5 ]- \! u9 [/ `
   Str, Name : String;
, }# a8 K) ]/ r7 }7 d& b
   iCount : Integer;   
' o: z) v& G; I# k! }
begin2 J3 P; V6 l& u$ Z6 C
   if aStr = 'start' then begin# n& g( j3 r. R! ?
      Str := callfunc ('getsenderserverid');, I4 K; A) ^3 [4 i, r0 F$ X
      if Str <> '50' then exit; , `0 z6 G+ J* _7 Z5 D
      Str := callfunc ('getsenderrace');2 t  S* G* E& N
      if Str <> '1' then exit; & {; ?0 P5 U+ _4 m0 ]( m. L
      Str := callfunc ('checksenderpowerwearitem');
/ p' }" v4 A4 @+ m
      iCount := StrToInt (Str);, g2 f0 Y1 w/ F8 w0 m: s
      if iCount > 0 then begin
* _& _, d: L0 z% x4 H
         print ('say 请先脱掉带技能值的装备!');5 f& S; S) F( U% B3 c
         Name := callfunc ('getsendername');
$ d$ P1 A7 J9 ^8 f. T5 i# n' s
         Str := 'movespace ' + Name;
; p8 F. h2 Y/ U* A! q% w
         Str := Str + ' user 49 106 55 100';
9 L8 b1 j7 A9 C: W" a. y
         print (Str);
8 O* k9 G- y9 h2 I8 _* Q' S& Z# R  k
         exit;: f- K% V, `0 D& C! B# }
      end;
' u- j2 w- J6 h2 Q6 Z/ w
      Str := callfunc ('checksendercurusemagic 0');
2 {* {9 j8 g, u- w6 ?/ R
      if Str = 'true' then begin# {# N5 c" S( P* N5 g& M- g1 |5 W
         print ('say 选错武功了!');9 r/ y: S* n3 Z
         Name := callfunc ('getsendername');5 C# C8 o0 g; P& b9 B
         Str := 'movespace ' + Name;
9 h  w& r2 ^# }6 s
         Str := Str + ' user 49 106 55 100';' `: o! B: n" f# {) H. A; v
         print (Str);6 x* }) R* Z) z5 A3 h
         exit;
6 C8 r( C  u- o! n' y, @. |
      end;
0 L% v3 F, c5 }" ^# q
      Str := callfunc ('checksendercurusemagic 1');& w2 m: a( v; I4 c  c) |
      if Str = 'true' then begin( S" i+ y0 r" Q% v! l
         print ('say 选错武功了!');
2 c$ [( r/ n. B" H8 K: _
         Name := callfunc ('getsendername');
& Z- [/ ?% f, p0 J" N( n
         Str := 'movespace ' + Name;' P0 l9 ~& N4 N4 U- I1 c$ O3 i
         Str := Str + ' user 49 106 55 100';
8 C, o( ]8 A8 ^. T2 d5 Q2 B  [
         print (Str);# m/ K# R/ T2 d+ W# {
         exit;
) o+ R& H4 E4 a* B6 e- ~  X
      end; 6 n: m" _" O. y4 x8 j1 x
      print ('directmovespace 一级捕盗大将 npc 50 20 18 0');
' k( @9 E2 h6 f9 ]  Y  N
      print ('commandicebyname 一级捕盗大将 npc 1000');
; O8 u# J) D9 y5 l2 K* g
      print ('setallowhitbytick true 1000'); ; l5 A' H, e* y5 E7 ?
      Name := callfunc ('getsendername');' H2 U- A6 j( x0 |: _
      Str := 'commandicebyname ' + Name;
% o6 {# L; N/ t: A
      Str := Str + ' user 1000';* A; }* [0 @; `; s6 s/ Y8 ~9 O& x
      print (Str);
' L: |! ~5 N$ Q# ], R
      print ('senderrefill'); ' Z2 c# s# ]* H
      print ('say 你还太嫩! 50');" u- W- s/ V  d
      print ('say 留神啦_我可不会手下留情 400');
, g. J" j6 A. ]& m" V
      exit;
& V1 e) z- w7 [# L. l3 |2 P* h6 c8 M
   end;
  ~& c; A9 ~- [) p% ^
end;
: d8 B: A9 h; w- E, g
procedure OnCreate (aStr : String);7 i( d8 z+ x" E' ~
var3 l' m# r/ a+ n1 [! D  d
   Str : String;
8 s" _1 L/ ], y; n: `: ~
begin3 R6 M2 p+ }$ G3 U. N
   Str := callfunc ('getsenderrace');
1 z, P8 g* K# Z- U3 s
   if Str <> '1' then begin
) J7 ^1 D0 o3 g1 H
      exit;
+ i& o1 T  J5 ^8 F! J% D
   end; 9 L. m- O9 n2 o, j
   print ('setallowhitbyname 一级捕盗大将 monster true'); 7 P5 s( p  J$ _' [
   Str := 'showwindow ./help/一级捕盗大将.txt 1';: I3 m( X8 L6 |
   print (Str);) ~3 o9 O3 e$ f( s0 |- o
   exit;4 G6 m( ]/ ?5 U8 _4 L  ?$ {6 ^" v4 U
end; 6 e' b* ]1 Z! O: V/ F
procedure OnDie (aStr : String);; S( K! f# V* H: ?1 i. l
var: ?( |" ~: Y& j
   Str, Name : String;
" n/ o" P5 a) J2 |, a8 {' w* v! ~
   FirstQuest : Integer;
: k/ u: F! H0 U
begin" e! J' C! i+ S2 f3 }! w: C
   Str := callfunc ('getsenderrace');
$ v. ~# L/ E. }  A' P$ e0 n
   if Str <> '1' then exit; & v" H- {* I3 U
   Str := callfunc ('getsenderfirstquest');  ?0 {# w2 y# X$ a4 }2 B- o% M
   FirstQuest := StrToInt (Str); . Z) _4 j8 a; U) X7 h
   if FirstQuest < 2 then begin0 @" |5 _$ N2 a+ z, J. @
      Str := callfunc ('checkenoughspace');" z3 j% n3 o* Q% K% j4 G
      if Str = 'false' then begin
- l. r7 z$ L, o0 @8 X2 @8 S
         print ('say 物品栏已满...');
( I9 h, @5 \! y7 O# p: O% ^
         exit;
0 I9 I1 M2 H2 ~/ K8 Q
      end;
5 Z$ q- e/ B1 u0 p% u3 D( h
      print ('changesenderfirstquest 2');
" D; A9 |% ?6 N- a# O
      print ('putsendermagicitem 新手训练拳套 @一级捕盗大将 4');
, [4 U! M( r+ _4 p( A
   end; $ C1 A6 R  b3 F3 V
   print ('say 不可能_我怎么可能输呢.. 100'); . o( F' `9 o6 V$ M6 d* v
   print ('mapregen 51');
3 J0 Q) ]* q$ n* b, r2 ~
   Name := callfunc ('getsendername');
8 U% Y. o7 z: P$ q) E
   Str := 'movespace ' + Name;! ]! ~7 N) M9 M0 V& ^& @  y
   Str := Str + ' user 51 17 18 500';0 n0 c# `! l8 n8 R1 B  V& ^9 }
   print (Str);
5 Q: {( R! o, v. z
end; 2 ]2 T* b/ v' D  Q, ^
procedure OnChangeState (aStr : String);! |" q) B2 b! A% I5 L  Q* l
var
( c. _! Z$ _0 ]. ^7 R& M8 T
   Str, Name : String;+ M0 c3 A0 u4 W2 G2 O' d& v
begin, k$ l0 ^; ^6 v4 r1 ^8 e
   if aStr <> 'die' then exit; 0 g3 G/ T7 l; T& D, r6 B/ l/ n
   Str := callfunc ('getsenderrace');/ p4 S! S% o& x6 F! W) \- w. H
   if Str <> '1' then exit;
% B8 b% p. N1 d7 T
   print ('say 回去再修炼个10年吧50');
- q, C, L3 N; i
   print ('say 到那时我在用双手跟你打 400');
& r+ T  K6 }% h
   Name := callfunc ('getsendername');& r7 h. p" E8 H
   Str := 'movespace ' + Name;
. ~! h% d- K( z/ S2 O
   Str := Str + ' user 49 106 55 600';5 {% G% A0 ]7 e1 I* P
   print (Str);
. W. T3 h& M& N8 y4 j: J
   print ('boMapEnter 50 true');   8 c' u# D& N  g& ]7 M, r
end;
7 j$ |2 |& O& w& X/ o3 X
end.
  u+ g$ p* f" c
---------------------------------------
. ?) o$ [0 k. i" I! C
unit 一级牛俊;
3 O5 b' U5 S2 d9 R* {
inte**ce - [$ D: f* R* Q- _  O
function  GetToken (aStr, aToken, aSep : String) : String;
& `% l3 o9 N! o% w: a4 p
function  CompareStr (aStr1, aStr2 : String) : Boolean;
% r# l9 }3 e0 z
function  callfunc (aText: string): string;2 w# q* x' C  k- D; ^) D( Y
procedure print (aText: string);- s! U: {# k0 b( p
function  Random (aScope: integer): integer;: K6 g  f6 o! t% P
function  Length (aText: string): integer;5 [3 ]! _3 w" ]# i  t
procedure Inc (aInt: integer);$ j5 p- y' v- x! i, |0 q3 J
procedure Dec (aInt: integer);* V( E  m# M. d- X- g0 v; G8 I
function  StrToInt (astr: string): integer;8 u1 q7 j4 u  b( h& c, L
function  IntToStr (aInt: integer): string;4 Z! }4 d3 n# e. J  }) f7 e9 P
procedure exit;
, W; N& }8 W' I% J: ^; A! k8 }
procedure OnCreate (aStr : String);3 \( v, J7 o' S; c# [5 _
procedure OnDie (aStr : String);6 h$ h1 [6 E% d' |
procedure OnChangeState (aStr : String);
0 e! ]; x; n( E; d5 T# p
procedure OnGetResult (aStr : String); % H6 @9 ]8 S$ Y5 ^1 c
implementation
$ o. j, G+ Q& r5 k9 h
procedure OnGetResult (aStr : String);
0 |" Y; R/ b9 T( r- w5 o: U8 O
var
+ K( d6 U5 J- h1 a+ r! X( v
   Str, Name : String;- o0 ^+ v# Y) z; u+ b% z
   iCount : Integer;
* k6 t2 }9 I9 w$ e9 t
begin0 X8 R: m, t) O: K" [7 q3 U+ T! |
   if aStr = 'start' then begin0 e/ a: Z0 v& D+ u; P  q. U7 p1 v' d
      Str := callfunc ('getsenderserverid');
* P0 e4 M( b. L
      if Str <> '52' then exit; 6 I+ Y2 T$ z0 P6 B4 y
      Str := callfunc ('getsenderrace');+ e: g& [9 }% D7 S  g( ^$ [
      if Str <> '1' then exit;
) [- F7 E- c; c# y7 f$ W
      Str := callfunc ('checksenderpowerwearitem');6 ?) B2 F) s) X3 Y
      iCount := StrToInt (Str);* m4 j, M5 ^5 E
      if iCount > 0 then begin
7 r* j- ^, D" ?! _! z& T' A
         print ('say 请先脱掉带技能值的装备!');
# A. U3 ^  W) ?( V: r# b
         Name := callfunc ('getsendername');
% R3 u/ g! R1 s; |3 O
         Str := 'movespace ' + Name;+ R. i9 j' ]+ }! S  Q" {8 G$ f) R' X& W
         Str := Str + ' user 49 106 55 100';
  a( p  F( r1 a# `: Z
         print (Str);' i# v; ~' D- }( n. H  n
         exit;* a# K  O2 |* u3 K
      end;
* M' h; c! o0 W5 p6 o- Q  j' p
      Str := callfunc ('checksendercurusemagic 0');
* J8 m  l" _0 \8 R% p0 Z
      if Str = 'true' then begin. F: E+ E3 i& m) v/ G- K# s
         print ('say 选错武功了!');
7 ?. X6 d/ A" e
         Name := callfunc ('getsendername');
9 Z8 d7 K+ ?* w$ b5 j
         Str := 'movespace ' + Name;3 n! w. F0 {  o% y" l4 b! r! G
         Str := Str + ' user 49 106 55 100';
1 T' v6 j; H% [, Q
         print (Str);
) R$ M0 U, U/ h
         exit;1 u8 c, `1 r" {9 _
      end;
) y( n+ j* v3 V& H8 E' D* Y
      Str := callfunc ('checksendercurusemagic 1');+ \6 r5 {5 c2 I) J; C, n
      if Str = 'true' then begin/ t1 e$ x6 |8 f9 c! N* N4 M
         print ('say 选错武功了!');5 ]; n" n; |/ D+ l4 o# v
         Name := callfunc ('getsendername');
. c& S. E, }0 A8 `' J' ^
         Str := 'movespace ' + Name;
) g  y1 i0 l$ f" H$ V; e
         Str := Str + ' user 49 106 55 100';* z6 M. O: J3 l' s8 w8 U+ I0 `
         print (Str);: |+ A$ V3 ^! ?9 u$ ?
         exit;- n  q9 J1 E+ D- n9 b
      end;
1 E2 z6 S; z, ]
      
. b2 ?! C4 Z$ k3 |7 N" d
      print ('directmovespace 一级牛俊 npc 52 20 18 0');
, Y4 ^6 P& H. P& T* L
      print ('commandicebyname 一级牛俊 npc 500');
, u9 A9 q: y. g0 C& _0 C  }
      print ('setallowhitbytick true 500');      
5 j; `- y  I2 b4 t, s
      Name := callfunc ('getsendername');
! o1 P% U+ b) Z3 @* Z5 X
      Str := 'commandicebyname ' + Name;
5 A5 o0 R, J8 I, p/ K
      Str := Str + ' user 500';
5 Q4 S6 g3 _/ g
      print (Str); & j/ R8 }* s3 u" |/ g
      print ('senderrefill'); 1 Q/ }: V; Q! r4 l7 k
      print ('say 10如果10秒内不能将你搞定 50');; {$ w) S' J) s. [' b# x
      print ('say 就算我输! 400');% L: \! ?! N+ C4 Y2 C$ c( c" i
      exit;
. T# ]  B& @; Q2 @  [, F- R) y- n8 r
   end;: T) N2 X( A2 t1 Z
end; . o+ q$ f# G7 N* |* m- J, [- B
procedure OnCreate (aStr : String);
7 D; c: w% s' x
var! ~/ D7 Y" t  {% l! m: R/ `
   Str : String;
, s  x/ L1 [' V8 I, U
begin3 Q. I4 f& z# B
   Str := callfunc ('getsenderrace');) Z" i$ h2 E. Z' m! S! z
   if Str <> '1' then begin& L/ d" y( M" ~
      exit;$ C1 \0 E# \4 E+ k* K! z+ a
   end;
# N& P6 m: i2 D, T
   Str := 'showwindow ./help/一级牛俊.txt 1';
! q' a$ t/ G2 f% [9 Q- c% t
   print (Str);! Q7 ?% m% s! X; U* _, }' M8 k
   exit;+ p8 P/ G, Y2 a' S& s1 o
end; . V0 H# g2 m7 d" l0 d
procedure OnDie (aStr : String);
, y0 h1 j1 t' o9 H7 ?6 G: [- `- r
var
# Z! q7 a: H$ g: g2 B9 Q7 b6 n
   Str, Name : String;  b$ j7 R6 A. @/ j
   FirstQuest : Integer;   # N4 R4 C. ]' {9 n! o6 n( R( f! w9 q/ \5 p7 ^
begin9 P5 N! A, S8 e1 q
   Str := callfunc ('getsenderrace');2 r: M2 F8 ]; s
   if Str <> '1' then exit; . P6 ^" |6 H" j% G
   Str := callfunc ('getsenderfirstquest');" ~/ P# i" R3 X1 P; r
   FirstQuest := StrToInt (Str); 7 q# j, |" i! i
   if FirstQuest < 4 then begin* B+ y0 f) t& O3 E
      Str := callfunc ('checkenoughspace');
' i; w6 _, M& j9 e+ V; e$ [3 z
      if Str = 'false' then begin
5 r) u5 E9 h' K6 C' D0 b
         print ('say 物品栏已满...');
2 T1 H: A/ d$ _$ F2 ^' q
         exit;
. w+ @4 s/ F( J+ U0 r
      end;  u/ h. y+ q' f. @: l" _  L
   0 D4 l- S& r( M: t+ i; o  n; V# E
      print ('changesenderfirstquest 4');
% g1 n* W+ t0 h8 x* e' `# U. y
      print ('putsendermagicitem 新手训练大斧 @一级牛俊 4');1 M% D* ?5 [" r  F. w; d: ]
   end; 7 P2 m- E+ ], P5 C- b. |  c8 G7 r
   print ('say 什么_不敢相信!! 100'); / q& }) a- t9 r/ J8 N
   print ('mapregen 53');
/ Z5 p* j" M& ?# W
   
* j6 C2 g$ d9 J8 M. g5 P
   Name := callfunc ('getsendername');
7 M9 R# ^" D* L3 L
   Str := 'movespace ' + Name;. ^: c7 p# r. R- {* {# f4 U
   Str := Str + ' user 53 17 18 500';8 ^: E# Z: R5 Z; R
   print (Str);+ G" j9 T8 N7 T
end;
$ ~; B) U5 @. `7 o& ~
procedure OnChangeState (aStr : String);
3 Z3 v+ X9 [* C
var
2 T# d) X, b* \' G' @
   Str, Name : String;; y, A: O3 H* L0 z% L) f! {
begin
. G% G" e3 C) D
   if aStr <> 'die' then exit;
% n( ?9 F, c: B' b! M
   Str := callfunc ('getsenderrace');' e0 |8 q1 H1 q0 ]6 H6 B
   if Str <> '1' then exit;   k' E/ @6 b2 Q! z3 @9 t
   print ('say 领教了吧! 50');7 O5 g& W0 e" v1 j* F* W
   print ('say 差远了... 400');
- }! w0 D. S0 q2 K. K1 W
   Name := callfunc ('getsendername');
/ |+ f4 j% j' W3 a% v: m
   Str := 'movespace ' + Name;, J6 ~- [* j3 p# G9 I, u0 f3 Y$ ?
   Str := Str + ' user 49 106 55 600';, y7 \7 }# m( b9 S4 d7 w- X, E! m
   print (Str);+ B. _, R+ L$ U" G; M& l
end;
2 [8 B% X1 p% M0 P( \; s5 @/ a
end.
$ j9 t/ N' M9 u0 V7 S2 s4 O: x& r
----------------------------------------
! i. c% \/ H- }% y
unit 一级雨中客; $ |/ R0 v. Z3 a0 w' Q& ?
inte**ce / i+ u" C5 l$ W
function  GetToken (aStr, aToken, aSep : String) : String;
, d! a0 k; t9 \3 Q  J
function  CompareStr (aStr1, aStr2 : String) : Boolean;' t9 C% s- U# W" L% r' `
function  callfunc (aText: string): string;. h% S" V% ]+ O
procedure print (aText: string);9 W" t* a! V% B& P. J( M  Y
function  Random (aScope: integer): integer;+ Z" q0 B$ e* `9 T4 M& @& t8 D' ?* R
function  Length (aText: string): integer;
, p7 [, H) N9 c: W- C
procedure Inc (aInt: integer);. n% \( W( x9 H6 i" f* }) _2 K
procedure Dec (aInt: integer);7 [7 K( e/ M! Q  T1 I
function  StrToInt (astr: string): integer;
7 K# p+ D/ t& T  A
function  IntToStr (aInt: integer): string;
. d, ^; x3 q" P. F6 |
procedure exit;
/ ]$ k: w4 |/ w* s
procedure OnCreate (aStr : String);
: N1 N# Q! K6 p- T3 [8 U
procedure OnDie (aStr : String);
% A, A9 f/ v7 B: F2 f7 K3 P: B& j
procedure OnChangeState (aStr : String);1 V; k  q- H2 Y: z/ s7 f
procedure OnGetResult (aStr : String); 5 f8 y, P: {$ l, _! U
implementation
7 P7 F$ m: g8 H3 c
procedure OnGetResult (aStr : String);
9 o/ S! t/ V/ e0 A. i' g6 ~6 x
var
) T' {$ z/ _  H! ?0 W# p
   Str, Name : String;
7 X, L" w) Z. O  {. s
   iCount : Integer;5 H! i. H" v$ I' q# z
begin
# _) }+ m9 o& f& f" @4 h
   if aStr = 'start' then begin
' _1 W* d" \7 Y5 \5 o
      Str := callfunc ('getsenderserverid');
  r; c1 @2 D- S
      if Str <> '53' then exit; 2 Z( a3 o8 `9 g  \4 R
      Str := callfunc ('getsenderrace');) }+ b3 P( V0 P* M" c$ Q
      if Str <> '1' then exit;
! B5 b/ S8 |- R, @
      Str := callfunc ('checksenderpowerwearitem');+ d3 R4 r4 c) b0 D0 L
      iCount := StrToInt (Str);
/ m& i  Q" v# l
      if iCount > 0 then begin
4 ^5 F4 K5 c0 N/ L2 B7 h! W
         print ('say 请先脱掉带技能值的装备!');$ O& d7 {; T! n0 V9 D
         Name := callfunc ('getsendername');
8 m! b. ^  @9 K; q6 M
         Str := 'movespace ' + Name;
; _0 w2 Y' h* `) r6 \0 Q7 ~3 Q
         Str := Str + ' user 49 106 55 100';
' m% ?8 V6 J% V" R" [. W& D5 e
         print (Str);9 I! t! z9 q& \0 ~" p1 L, X& }
         exit;
, }' C! f9 A* B' J& _' O3 K. y2 B
      end;
3 B7 p/ K# r- Q' E$ n1 i
      Str := callfunc ('checksendercurusemagic 0');0 d2 h) {5 u; |4 C# o% T5 V
      if Str = 'true' then begin  i6 R. {) `1 a( X, T
         print ('say 选错武功了!');. p& B6 z% R4 k) i* R$ Y  F
         Name := callfunc ('getsendername');; C2 _9 q$ B9 l
         Str := 'movespace ' + Name;9 \3 m/ O  ^- g
         Str := Str + ' user 49 106 55 100';
. F; s- D4 G; Q6 u
         print (Str);1 `: `' {8 q9 b4 L: L+ X+ q2 G
         exit;
( {% p2 O: I3 x. I) Z' Z: O
      end;
; k$ ?  ~! `  f8 i, K) Z2 U) U
      Str := callfunc ('checksendercurusemagic 1');/ q* \0 Z+ ?7 S$ g
      if Str = 'true' then begin
% h5 R* ]0 D5 ^& y
         print ('say 选错武功了!');
: f9 }- s; a( t- r$ `
         Name := callfunc ('getsendername');
* o2 h3 N- {7 D6 o1 U% y4 x4 O
         Str := 'movespace ' + Name;
% t6 A- \- z: ~0 m, c5 u8 j
         Str := Str + ' user 49 106 55 100';) v  c1 Q5 ^4 g: f% ], X/ J8 d; z
         print (Str);2 S5 I$ m* Z/ d" \
         exit;
$ U1 `% @5 @$ i5 B' @6 v! s' |; j
      end;3 W0 M( D& m2 Z& Z" b% Z4 U* H
      # f* H0 I% R2 `4 F
      print ('directmovespace 一级雨中客 npc 53 20 18 0');
- d2 G4 P3 y# h3 E
      print ('commandicebyname 一级雨中客 npc 500');8 U) U) X2 u" \( g/ t* T6 U
      print ('setallowhitbytick true 500');      
. i% z! S3 d1 q, F
      Name := callfunc ('getsendername');: r! ?) U/ ]8 I# C& S1 ^
      Str := 'commandicebyname ' + Name;
: A8 B. m8 R2 V5 v4 P
      Str := Str + ' user 500';
2 }( ^3 V$ t, f6 ~5 Z( B0 W0 |
      print (Str);
- F) S" J4 E# `7 I
      print ('senderrefill'); 2 [3 j1 f/ H* Z: Q/ e: i: a
      print ('say 领教了 50');
& {/ z. E+ ?6 s
      print ('say 开始吧 400');
3 u* |/ U# t- t7 A
      exit;
6 X: V, n4 {$ w  F; N
   end;
5 N& g8 O- t& p  V/ j. f
end; . B* l9 X4 T+ f+ Y5 S/ c
procedure OnCreate (aStr : String);6 J& V8 Q2 T7 m) l# S5 |: \
var
7 V7 h9 O' K# \( R6 E1 B
   Str : String;) P0 \! S6 }" l# h5 v
begin
7 j/ t5 [/ O/ z9 e) `! b) d
   Str := callfunc ('getsenderrace');
  V) g- v, N5 D* B3 Y5 r
   if Str <> '1' then begin
* ]# `! r3 s. _
      exit;! N9 y0 p1 R7 B4 V3 k
   end;  ^7 |8 M4 `* ?/ p/ G2 ~; G
   
- T  h8 _, J' `5 {. e" |/ F
   Str := 'showwindow ./help/一级雨中客.txt 1';; I/ {& f6 ~& x, F  m5 X
   print (Str);
, d: R% J7 n" t" D- E
   exit;- g7 O/ o& C% v) K8 P4 i
end;
$ u! e/ D& w3 e: ~& Y# T$ x
procedure OnDie (aStr : String);. Y. v6 E2 n2 H, t! y5 X1 g
var0 f# R# o( \& _/ e" ^
   Str, Name : String;% z4 s: i! d7 p: [4 O& Z
   FirstQuest : Integer;
/ x5 Y7 J0 P( G6 ~( V* `6 h
begin5 _3 L) M( ?8 p& c) C" f
   Str := callfunc ('getsenderrace');: _( z! R2 Z0 M5 k' v
   if Str <> '1' then exit;
( y+ \: H; u) Q& }6 L* X
   Str := callfunc ('getsenderfirstquest');
4 a4 d3 J: W& C) S6 I5 p
   FirstQuest := StrToInt (Str);
: O) O- c$ @* i# q6 F  W
   if FirstQuest < 5 then begin
( r) t: y' _6 y6 i0 Q  }/ E
      Str := callfunc ('checkenoughspace');# E0 B, Z, }) r$ H
      if Str = 'false' then begin; [& ?+ r& c3 }" M$ N
         print ('say 物品栏已满...');
; K" X" H3 }6 V3 }0 `9 q7 n& ]% U
         exit;: X4 G0 k. Z; |* t
      end;
8 W6 [; s* C6 B  l" \. w6 W
   - X5 k& @5 K+ ]4 }7 z$ w6 e
      print ('changesenderfirstquest 5');
& R6 w+ E# V4 d" c7 ]
      print ('putsendermagicitem 新手训练弯刀 @一级雨中客 4');
- C% L9 |0 X0 |. w( _
   end; % }: N; A. ^- i8 X
   print ('say 早料到了_佩服 100');
( ?- K$ J) ?3 V* \
   print ('mapregen 54'); # {" \1 x$ s# v( N9 H# j6 R$ q
   Name := callfunc ('getsendername');
1 }" }+ V  f& i$ J( e9 }2 \3 e
   Str := 'movespace ' + Name;! k, O3 b6 D7 a# Q5 g( l
   Str := Str + ' user 54 17 18 500';' S8 Q$ ^+ |  K1 D
   print (Str);
5 X0 A$ y$ R. V
end;
% K4 ]# E; E8 n
procedure OnChangeState (aStr : String);* \" [& L) X) |% `
var5 d! }: w1 {% e9 }7 [
   Str, Name : String;4 F# Y4 ^2 B: y4 D" e5 Y
begin; h/ ~' C: Z# l. ^/ \" `2 F" }
   if aStr <> 'die' then exit; # K* J/ a. k- [1 d) a7 I3 h# b) t
   Str := callfunc ('getsenderrace');& x* E; J! p# t1 N4 g
   if Str <> '1' then exit;
# Z0 w+ b& A" Q+ E; r0 @! H
   print ('say 不错。只要能维持几秒钟');
4 \7 @9 O# w* l6 K! Y6 ~
   print ('say 到那时谁都不是你的对手 400'); : @( u- q/ u/ {
   Name := callfunc ('getsendername');
$ d8 i. R& r. i, V2 l6 v8 _
   Str := 'movespace ' + Name;
% X* D; b0 L0 e( \/ S+ k
   Str := Str + ' user 49 106 55 600';
" X. K9 D* c- H# V% h( y* H
   print (Str);' a. r. W4 a* ?; y, q1 ~) T4 a5 U
end;
( h  g, q- w2 A$ Z5 D% L5 B
end. - w, Z& `& a) \: u# H& l1 o
-------------------------------------------------------------------------------------------------------------- $ n* a2 d5 Q% c
unit 一级老侠客;
8 E8 L1 U: w  u7 ]4 k6 g- {
inte**ce : J$ d4 W2 g  \$ J, m# [2 Q+ Q
function  GetToken (aStr, aToken, aSep : String) : String;
5 R# S. G- g' ^! H
function  CompareStr (aStr1, aStr2 : String) : Boolean;1 {  r* s/ n) @! q
function  callfunc (aText: string): string;
7 L* J3 k# ~1 p% F
procedure print (aText: string);
+ s/ H7 B8 F) B5 I
function  Random (aScope: integer): integer;. f, K" g0 Y9 k" f: w' b& [
function  Length (aText: string): integer;
' _' ~. J  ^  ]2 Y
procedure Inc (aInt: integer);& U2 V) c. s: M# i9 J1 x) `
procedure Dec (aInt: integer);
" D: v% ]& J9 ~( i3 d/ V# I; d9 B! c
function  StrToInt (astr: string): integer;
9 L+ Z4 Y  A+ U+ s
function  IntToStr (aInt: integer): string;
1 o" x1 v& P' Y. C* j
procedure exit;
  \) Z) G$ A# e; |( c( ~
procedure OnCreate (aStr : String);/ J3 u7 H4 q. s5 n9 K( R
procedure OnDie (aStr : String);* ^8 c$ j$ e( _) g5 o( `
procedure OnChangeState (aStr : String);' `8 `! {# S3 \  r8 {+ k' f
procedure OnGetResult (aStr : String);
' w% z9 O6 z* p, v1 j
implementation
+ R8 T' W3 Y: i# ?
procedure OnGetResult (aStr : String);6 B9 S  m9 `. R( G0 [
var/ n  i4 g1 X+ S" c# N
   Str, Name : String;8 T) H3 d* Z9 c# O" d3 x3 D" p
   iCount : Integer;   + Z0 C' r' R! W# ?! x' o0 }
begin6 u) R# C/ E8 Z  N2 h
   if aStr = 'start' then begin9 _( j+ M5 d# V, _2 B- x, o
      Str := callfunc ('getsenderserverid');
. J$ t% z' H& D
      if Str <> '54' then exit; 0 S, T! Y* O8 F. Y3 M. M& O
      Str := callfunc ('getsenderrace');
8 l) F: m7 \2 a+ Y
      if Str <> '1' then exit; % @% w: e* s* W9 P! g, K6 T9 ~
      Str := callfunc ('checksenderpowerwearitem');
/ m& h, w! ?: P, |7 S: {; U% P+ ?( P
      iCount := StrToInt (Str);
' }5 w' t" L: K6 T5 ^# b3 D1 }
      if iCount > 0 then begin) {) l6 T7 b9 R! k0 @3 o" c
         print ('say 请先脱掉带技能值的装备!');  p) c, A2 g. Z( c
         Name := callfunc ('getsendername');
4 t. G4 J. `( u3 D
         Str := 'movespace ' + Name;
' q' Z" p% [$ L$ e* {' n2 |
         Str := Str + ' user 49 106 55 100';
% [: z5 ~  a+ |- [0 `6 H
         print (Str);% G) i5 M: X6 x; X7 l
         exit;4 W* i7 t7 ^- E3 f
      end;
+ e1 O7 p4 d" v* d5 G; p
      Str := callfunc ('checksendercurusemagic 0');
7 q' u$ L1 l$ q$ u& x7 w" k
      if Str = 'true' then begin
% _7 }& k3 o! k1 Y  W
         print ('say 选错武功了!');# j7 f) Z6 C/ Y/ V3 B+ ]- w- c
         Name := callfunc ('getsendername');
7 e9 I- k3 C" p
         Str := 'movespace ' + Name;
, m: S0 \* R3 K! ^+ S  b2 j
         Str := Str + ' user 49 106 55 100';
7 i/ C, @5 O; d0 B
         print (Str);
1 w$ H5 Y- f9 c% E
         exit;
4 S7 I4 j0 w/ D7 t3 }, e; R. c$ i
      end;
- g, y; [1 M6 i9 d9 ^( c6 u5 x) p
      Str := callfunc ('checksendercurusemagic 1');. s" {' ?- _6 r% o# U% f
      if Str = 'true' then begin
7 M& v2 [" D2 E% m8 X
         print ('say 选错武功了!');1 W) v# X$ B) g3 J
         Name := callfunc ('getsendername');
1 s' v2 i6 F3 b  T8 H" P& O) {
         Str := 'movespace ' + Name;8 i- m0 Z5 A" f. u9 ~
         Str := Str + ' user 49 106 55 100';4 e( L- u+ k7 x! d2 w
         print (Str);, V6 e+ k" |! n! k6 r
         exit;, A/ q9 E# }; W; M& X" B
      end;
% \) o$ e0 w6 k. X3 h
      
: n2 T9 Y6 \, r7 r/ j* I+ S$ @# m4 Y( b
      print ('directmovespace 一级老侠客 npc 54 20 18 0'); / Y+ W% H" j: u, X& Z
      print ('commandicebyname 一级老侠客 npc 500');
% r" l7 y% u5 }
      print ('setallowhitbytick true 500');      . M) [0 ~3 Y1 j! ~% i2 A
      Name := callfunc ('getsendername');
* O0 L* P, M" y/ H
      Str := 'commandicebyname ' + Name;
4 O0 a3 W. {- I# W$ v- _3 ^
      Str := Str + ' user 500';+ r- I0 L, v/ W2 w
      print (Str); & V2 b1 V! V0 _: A% H* U+ G. K
      print ('senderrefill');
9 o4 ^$ o. F, U0 Y& v! i7 M
      print ('say 如果你实在想比 50');0 g" I8 g' D8 A7 T
      print ('say 我将奉陪到底 400');
2 U/ D( T% [* n3 `3 Z( b3 w% U" Z, i
      exit;
4 k/ x6 _( i7 _3 P  r
   end;
- g0 b, Y4 d" }) a8 }, E
end;
1 z# {0 t# f, ^$ _2 A8 z/ x
procedure OnCreate (aStr : String);
+ m! @$ `9 C! k% B+ @
var8 X8 A. Y/ q# Y4 x/ [9 S
   Str : String;
1 f5 {$ V$ ?" r# b0 D
begin
: G; F& U: L' M7 c/ B' @2 o/ Z
   Str := callfunc ('getsenderrace');
+ o5 x8 [7 R1 w: V8 O# N2 y0 e0 p
   if Str <> '1' then begin6 M3 V5 B9 v6 g& t' V; f3 j2 V
      exit;
& _: d" A0 A9 r5 |, s% w3 T) n/ v
   end;, N0 B, c- C. J9 w6 W
   
6 o6 `* t* E* L2 T7 f/ g
   Str := 'showwindow ./help/一级老侠客.txt 1';
( T9 ]' i  H! n% x1 x, r+ v
   print (Str);
) W' t5 W% s; O4 s3 N7 p7 O8 A
   exit;+ k" e1 K( r& ^/ A1 G
end;
( t7 a& m9 u. `, N
procedure OnDie (aStr : String);
6 s! \$ f' ^1 P% N* d
var
$ U! S0 r: c! _+ L+ `" \
   Str, Name : String;
; Z+ P$ v' a6 y& w5 j  {
   n, FirstQuest : Integer;   1 x* {+ h1 `! S5 S- `
begin
4 _- w7 V& w& i. y4 S
   Str := callfunc ('getsenderrace');. W9 F. k6 ]7 l: Z' [
   if Str <> '1' then exit;   ?  k, r3 n. C
   Str := callfunc ('getsenderfirstquest');# v+ H8 ^( r9 }0 V: m
   FirstQuest := StrToInt (Str);
/ N/ ]5 _( }9 k8 n6 z. {
   Name := callfunc ('getsendername');
  p  w5 `4 A- p: C7 ?
   if FirstQuest < 6 then begin
  [3 _9 e' L! }! j" S7 e
      Str := 'sendsendertopmsg ' + Name;
2 W3 b  {, ?9 p2 v: f3 S- l0 ?
      Str := Str + '恭喜你,通过了所有的比试,获得【侠客弓服】';- h8 d9 x7 c3 s3 L5 u
      print (Str); 5 e' r, \! q3 j
      Str := callfunc ('checkenoughspace');
3 d6 A8 ^% I0 _: z3 [. c: Z( Y6 u
      if Str = 'false' then begin
5 c3 _9 o2 q% x0 [3 K
         print ('say 物品栏已满...');
$ Q$ S7 Q2 C) T" I
         exit;. L# z, _7 p5 T. I/ Q; w
      end;
. Y1 m& X; M; m& }
      
. |! }, M- q2 u4 [* ^3 f
      print ('changesenderfirstquest 6');
, w' u( F- P( Q8 I) ~3 u! `. y2 @
      Str := callfunc ('getsendersex');
9 p7 T, ]7 e7 u$ J% ~6 r' f
      n := StrToInt (Str);
1 t  ?  y% i% ^) d. m  Y  q
      if n = 1 then begin
5 R2 L3 h+ X4 W8 t$ b$ A2 [
         print ('putsendermagicitem 男子侠客弓服 @一级老侠客 4');' ?. I3 F$ n3 \$ w
      end;9 Z  |( i0 n( G0 Q: j$ p# L* u/ I
      if n = 2 then begin; g1 U8 W6 Z! D" N3 E9 _
         print ('putsendermagicitem 女子侠客弓服 @一级老侠客 4');& b" {) i2 V, |! s$ u4 C+ y: {8 ~
      end;
0 q! I/ E. b5 O! x
         print ('putsendermagicitem 新手训练神剑 @一级老侠客 4');
, r2 C4 {6 Y# w
   end;
* y1 O: l) B) q2 H# U# g1 S
   print ('say 佩服_佩服 100');
5 w, P8 d0 G6 ]8 S" v6 H
   Str := 'movespace ' + Name;1 s) K, g( R3 @' y, ^7 m$ O, j  ]- B, j
   Str := Str + ' user 49 25 35 500';7 M% _: i7 g1 q- M  e
   print (Str);
9 G1 v( S8 P8 l
end;
% n1 {' _( f" ?/ x/ c8 c1 F6 u
procedure OnChangeState (aStr : String);
1 z9 p2 N& p9 H/ n$ }, }8 g
var
8 f: i$ r. N6 G- A. N5 y/ @
   Str, Name : String;
8 b0 O3 I3 K' t/ i7 z' w
begin
" f) `$ k) j7 V/ ~
   if aStr <> 'die' then exit;
# Y: s  }) g5 N/ [
   Str := callfunc ('getsenderrace');
* L& h" v$ g; |; U$ E3 e
   if Str <> '1' then exit;
8 F- [6 h: J7 g! o  M0 h1 [
   print ('say 小小年纪_就有如此高深的武功 50');  D. c* I! o( D% B) c8 a
   print ('say 日后要继续修炼... 400'); ) I, t/ Q6 W5 k& l0 d: W" Z
   Name := callfunc ('getsendername');
1 E2 L7 a, [2 j* [' j" `2 Q0 e
   Str := 'movespace ' + Name;
* m5 B% F* ?5 O! Q6 Z
   Str := Str + ' user 49 106 55 600';, X& Q) `  ^& Z/ U* |: `! B' l
   print (Str);
' P$ G( s8 M' V* G
end; " J4 v" M7 e/ R8 |# C+ F
end. 2 [. s4 h5 e/ _+ W
-------------------------------------
4 g% O& C! g4 s* l
*************************************
2 s# l' @  a3 i5 {- z/ p
奖励物品代码: + ^  Q/ h, k, R/ j3 q
*************************************   R$ X: w' N9 q9 L* O' X
男子侠客弓服,男子侠客弓服,24,新手村擂台战利
" ~# E, a6 C5 l4 \
品,2,,,,,FALSE,FALSE,181,6,7,,,,1,1,1,,50000,,,,,,4432,4831,TRUE,,10,20,,,,,,,200,100,100,10 * x; F- R0 [' y  b$ O% K
0,,,,,,3,TRUE,4,,FALSE,,,,,,,,,,,,,,,
9 O% b$ @6 f, A
女子侠客弓服,女子侠客弓服,24,新手村擂台战利
  P* ]- S# ]; V- o3 K9 ?
品,2,,,,,FALSE,FALSE,181,6,7,,,,1,2,1,,50000,,,,,,4432,4831,TRUE,,10,20,,,,,,,200,100,100,10 4 z0 o/ l* U- s; U( ~
0,,,,,,3,TRUE,4,,FALSE,,,,,,,,,,,,,,,* w8 r3 w" m+ Q2 _0 ^
新手训练拳套,新手训练拳套,6,新手村擂台战利
7 C( {" g" k5 h3 P
品,1,,,,,FALSE,FALSE,361,9,52,,0,0,1,,1,,50000,50000,,,,,4404,4805,TRUE,20,20,20,,,,,,,,,,,,
  w/ w0 M6 U  T$ j) y
,,,,4,TRUE,3,TRUE,FALSE,,,,,,,,,,,,,,,  a+ q4 T6 N6 G7 d+ V* U
新手训练神剑,新手训练神剑,6,新手村擂台战利
2 o( L5 e8 v% N
品,1,,,,,FALSE,FALSE,365,9,69,,2,1,1,,1,,50000,50000,,,,,4404,4805,TRUE,20,20,20,,,,,,,,,,,, / M) @( F6 Z& ?
,,,,1,TRUE,3,TRUE,FALSE,,,,,,,,,,,,,,,6 W% `: [5 I; c5 ^
新手训练弯刀,新手训练弯刀,6,新手村擂台战利 " b! _( e2 Q$ A
品,7,,,,,FALSE,FALSE,113,9,2,,2,2,1,,1,,50000,50000,,,,,4412,4813,TRUE,20,20,20,,,,,,,,,,,,,
7 v7 v: u3 U# X4 q% v; J. `* U
,,,1,TRUE,4,,FALSE,,,,,,,,,,,,,,,
+ j, r2 r( L6 {+ w6 O2 P
新手训练长矛,新手训练长矛,6,新手村擂台战利
, U4 j/ e, I$ y0 v5 a3 l$ a
品,6,,,,,FALSE,FALSE,117,9,45,,3,4,1,,1,,50000,50000,,,,,4435,4834,TRUE,20,20,20,,,,,,,,,,,,
- ]; |5 D; q0 l
,,,,1,TRUE,4,,FALSE,,,,,,,,,,,,,,,, X$ X' Q& r# W
新手训练大斧,新手训练大斧,6,新手村擂台战利   S. b! W+ }! m( Z/ F
品,6,,,,,FALSE,FALSE,95,9,12,,3,3,1,,1,,50000,50000,,,,,4415,4815,TRUE,20,20,20,,,,,,,,,,,,, . c% y& }3 e1 J
,,,1,TRUE,4,,FALSE,,,,,,,,,,,,,,, $ P/ W" M' D: r) ?" `+ u5 c# O
******************************************

4 H0 z; }* C5 C& ?* M1 f
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

三千游戏官方客服

扫一扫二维码

添加qq客服

Powered by Discuz!X3.4 ©2001-2013 Comsenz Inc.闽公网安备 35099902000100号增值电信业务经营许可证 闽B2-20220593 闽ICP备2023014375号