游客您好
  • 点击联系客服

    在线时间: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 | 显示全部楼层 |阅读模式 打印 上一主题 下一主题
风雷版的新手村擂台脚本 & g- c9 o4 O! h7 w+ h2 X! }
+ M: Z" X8 Q( M1 |+ @' b- p
释放到同名文件夹下覆盖原有文件。  @) A  J: O. _8 y4 k
1.Script 里面是任务脚本,把对应NPC的代码复制覆盖掉。
" A1 k' F2 J& f' t
2.Item 里面是任务发放奖品的物品资料,把我发的加进去。
4 F, ~: X6 C1 Z
(由11月23号发布的最新服务端修改)
' E! }0 L/ `2 Y) n, x+ M
-----------------------------------------
1 ?# b. |% l; I+ d
内容介绍:
: Y2 Q; w6 K" Z
新手村比武获得奖励:; @9 \& Z2 c1 B5 v% u" t4 B
同使用何种武器的NPC比武,将其打败就能获得同类的新手训练用武器(速度20,恢复20,准确20,破坏0 & [  _( s& K# O8 P3 n/ G0 V

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

本版积分规则

三千游戏官方客服

扫一扫二维码

添加qq客服

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