游客您好
  • 点击联系客服

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

本版积分规则

三千游戏官方客服

扫一扫二维码

添加qq客服

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