三千论坛

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

---

作者: 异仟年    时间: 2022-9-5 20:23
标题: 新手村擂台脚本
新手村擂台脚本


# A7 U( m5 r. {: L释放到同名文件夹下覆盖原有文件。
" T# n9 y3 @2 k) C0 }1.Script 里面是任务脚本,把对应NPC的代码复制覆盖掉。
2.Item 里面是任务发放奖品的物品资料，把我发的加进去。
（由11月23号发布的最新服务端修改）
-----------------------------------------
内容介绍：
新手村比武获得奖励：
# ?+ A5 P" Y, l1 Q- b: [; V( x同使用何种武器的NPC比武，将其打败就能获得同类的新手训练用武器（速度20，恢复20，准确20，破坏0

）
, ?2 A; W) D2 c4 E/ u4 H最后一个NPC老侠客，打败他会获得新手剑之外，他还会公告天下你获得了 侠客弓服 一件！（个人比较
6 |' ~; ?, _- Y6 R7 z  W( }; }! k
7 ~# D7 I( @& H喜欢黑龙，所以是黑龙的加强版！）

[replyview]
  q# t/ I' g+ a+ C9 d
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
. P+ t! t+ \/ l- B6 z
unit 一级梅花夫人;
# Q6 h: v" v  D, i  X1 V* {+ @
interface
% X5 P' ~* a! L- n
# Z" k7 Q0 ?# Y$ a$ Qfunction  GetToken (aStr, aToken, aSep : String) : String;
function  CompareStr (aStr1, aStr2 : String) : Boolean;
function  callfunc (aText: string): string;
* |; B+ r) D/ u0 `4 \$ c; aprocedure print (aText: string);
function  Random (aScope: integer): integer;
# N) Z0 `' `1 M! U% [0 b4 _$ D9 jfunction  Length (aText: string): integer;
procedure Inc (aInt: integer);
9 w& H# ?) ]1 A7 w3 c; Iprocedure Dec (aInt: integer);
function  StrToInt (astr: string): integer;
function  IntToStr (aInt: integer): string;
2 {9 ?9 V) @9 g2 `/ y$ u5 \procedure exit;

procedure OnCreate (aStr : String);
. [% E; v) n7 q6 A) q0 x* p% rprocedure OnDie (aStr : String);
procedure OnChangeState (aStr : String);
! J1 U  e. Q! Y* S$ sprocedure OnGetResult (aStr : String);

3 M5 S7 E; V8 J6 S" m% T  O, b0 }implementation
  J" \: K' M$ v) b; _/ B4 v
procedure OnGetResult (aStr : String);
  U6 y! v: ^  _5 }7 w: J% @var
   Str, Name : String;
   iCount : Integer;
begin
9 k6 b" {2 b, N, f, E  |& Y   if aStr = 'start' then begin
7 z0 A: E0 E0 j8 s$ r# [  x8 g% ]      Str := callfunc ('getsenderserverid');
      if Str <> '51' then exit;

9 a% P1 ]1 y1 @& k      Str := callfunc ('getsenderrace');
      if Str <> '1' then exit;

      Str := callfunc ('checksenderpowerwearitem');
      iCount := StrToInt (Str);
      if iCount > 0 then begin
# Y5 f  g$ A0 x         print ('say 先将带技能值装备脱掉!');
         Name := callfunc ('getsendername');
         Str := 'movespace ' + Name;
% W' m) a( Y# H2 _& [         Str := Str + ' user 49 106 55 100';
         print (Str);
         exit;
: ~- u, g( }! g      end;
      Str := callfunc ('checksendercurusemagic 0');
/ ^  [# Y. G/ u+ {6 N      if Str = 'true' then begin
         print ('say 选错武功啦!');
         Name := callfunc ('getsendername');
" D2 _# I4 F6 j1 a6 Y& l; G0 \         Str := 'movespace ' + Name;
8 Z& P" J  ?( D. K: _3 A' A/ Q0 @         Str := Str + ' user 49 106 55 100';
         print (Str);
         exit;
      end;
      Str := callfunc ('checksendercurusemagic 1');
      if Str = 'true' then begin
9 x" y, L8 y( ~9 P4 X         print ('say 选错武功啦!');
         Name := callfunc ('getsendername');
/ a9 N' z# X, G1 ?! \9 s2 x         Str := 'movespace ' + Name;
         Str := Str + ' user 49 106 55 100';
) y: ~; s  L4 `! C         print (Str);
' l9 G, J/ m+ c& L         exit;
      end;

      print ('directmovespace 一级梅花夫人 npc 51 20 18 0');
! y5 E- u  ~" i0 ?$ S
      print ('commandicebyname 一级梅花夫人 npc 1000');
      print ('setallowhitbytick true 1000');
$ j5 }$ e$ \' f* i: f5 e9 T
      Name := callfunc ('getsendername');
5 O2 r0 s8 h- L. L* D) q4 _      Str := 'commandicebyname ' + Name;
      Str := Str + ' user 1000';
/ b) Z" r7 R; r& D) ]9 p      print (Str);

      print ('senderrefill');

8 e+ q9 j* e$ z) I! g& M      print ('say 别害怕 50');
- b/ e3 i" Z$ L# r4 n      print ('say 我会收下留情的... 400');
+ R# d( N% J9 E. p# b5 B5 e      exit;
: Z7 _2 y7 S0 v5 a% [! c- V# |. P   end;
end;

# ^& o8 _- j, J: @9 z1 n. A  i; _procedure OnCreate (aStr : String);
# C/ F0 U1 l- ]( \6 g6 W, B/ [var
   Str : String;
begin
, i9 q8 b7 i9 L  h' W   Str := callfunc ('getsenderrace');
   if Str <> '1' then begin
      exit;
   end;
3 J5 H+ s+ f; b* [- g
- U" r  B% `6 F9 B5 E5 g5 q   Str := 'showwindow .\help\一级梅花夫人.txt 1';
6 G, d4 }+ T6 m   print (Str);
( f$ p' d7 h5 C3 ]4 e0 b& \  v! o! Z   exit;
- g1 o  Z$ Y' dend;

1 k1 y: F3 D# E8 _procedure OnDie (aStr : String);
" ]* N: k, x& I8 {9 H4 O9 {) J  A6 xvar
   Str, Name : String;
   FirstQuest : Integer;   
' V- W& |! Q5 {2 f2 u  s6 A; Abegin
0 F. S7 S" u& y4 ]4 v/ T" n8 e+ ]' A   Str := callfunc ('getsenderrace');
   if Str <> '1' then exit;
0 }: B. F3 q6 [1 c  [
$ _& m; U" M: z- R& [   Str := callfunc ('getsenderfirstquest');
   FirstQuest := StrToInt (Str);

" G) Y% I, t# i; a% z. C3 y   if FirstQuest < 3 then begin
      Str := callfunc ('checkenoughspace');
      if Str = 'false' then begin
         print ('say 物品栏已满...');
7 [# G+ p& H5 n2 {         exit;
; X" V3 J1 @/ S% z- I8 N1 e1 ^      end;

      print ('changesenderfirstquest 3');
* S- ]' Y; Y0 P8 f+ s; O      print ('putsendermagicitem 新手训练长矛 @一级梅花夫人 4');
   end;
. h/ S, e* e5 _- Q7 D- |
7 C- l' c3 n8 J9 A   print ('say 我可只用了3层功力哟 100');

% M2 e1 z0 s" O& w   print ('mapregen 52');

( O1 m9 Q7 q0 D, G3 p7 R; T/ l/ L   Name := callfunc ('getsendername');   
. W/ q/ |7 u6 T* J   Str := 'movespace ' + Name;
. c% Q# m3 r$ Z6 n! d% j# s1 @   Str := Str + ' user 52 17 18 500';
6 C% U2 ?! B# K; o& Y   print (Str);
- c* P( a" O+ n$ b8 ^2 \   exit;
end;
7 u, N2 e! x% p5 T* k& V5 |) e
: O/ X0 @/ U! Y* {+ d0 Fprocedure OnChangeState (aStr : String);
7 ^: |/ r. u0 I+ }- n5 Kvar
6 `8 ?8 {2 C" O) u' M# T   Str, Name : String;
7 Q3 r( y2 J0 Tbegin
   if aStr <> 'die' then exit;
9 k( Y- |* q9 r; }2 p+ \
& J) z+ o& w# Q   Str := callfunc ('getsenderrace');
   if Str <> '1' then exit;

/ X: T$ m1 a2 \$ M+ }2 k, W7 r; z   print ('say 别无他法 50');
   print ('say 是不是修炼方法不妥呀? 400');
) U* p' I& t3 Q5 ]
. x5 u- O% P* O( J   Name := callfunc ('getsendername');
   Str := 'movespace ' + Name;
' c! e1 P7 \9 `/ b   Str := Str + ' user 49 106 55 600';
   print (Str);
, N9 X; d  T4 z( q2 k2 ~  O( pend;
  v  w+ Y& o! T
end.
-------------------------------------------
unit 一级捕盗大将;
% Z. z5 Z  U4 J
interface
- l; m2 I. F1 T* p& T% u( N
1 l" z! i2 I& j# z0 Pfunction  GetToken (aStr, aToken, aSep : String) : String;
: D( c! y" ~+ @+ H: [2 Lfunction  CompareStr (aStr1, aStr2 : String) : Boolean;
function  callfunc (aText: string): string;
9 \5 _  L' y# e/ Y, b. Nprocedure print (aText: string);
function  Random (aScope: integer): integer;
' l0 M" h$ Q, t* x! x+ ]function  Length (aText: string): integer;
# g3 `! `& @+ V3 l; F% l6 }procedure Inc (aInt: integer);
procedure Dec (aInt: integer);
function  StrToInt (astr: string): integer;
) S$ d$ d( ?3 l! ofunction  IntToStr (aInt: integer): string;
procedure exit;
0 l3 \" k1 l4 o$ S* e, R3 {3 u
0 S0 q9 Z; W2 I# m% a% \; `procedure OnCreate (aStr : String);
$ k3 H' j) e/ W# D& a# m9 V: rprocedure OnDie (aStr : String);
7 z7 h1 _$ c8 c) `procedure OnChangeState (aStr : String);
" I% @1 J; z$ bprocedure OnGetResult (aStr : String);
# N! g+ b: s! ^' v- |
implementation

% `& U3 b1 }' c7 [5 t. m1 K3 [procedure OnGetResult (aStr : String);
var
   Str, Name : String;
   iCount : Integer;   
/ j+ s2 _) s  O( ^begin
   if aStr = 'start' then begin
      Str := callfunc ('getsenderserverid');
      if Str <> '50' then exit;
, Z% b* S$ K/ Z( Q! M% l
* K& ?, f0 o' t, Q$ v      Str := callfunc ('getsenderrace');
$ w) F+ O  H- }! G1 [: d      if Str <> '1' then exit;

      Str := callfunc ('checksenderpowerwearitem');
1 s0 _# ]% P4 [- ?9 ?      iCount := StrToInt (Str);
* m- w- S, Y0 _: I      if iCount > 0 then begin
, A' W5 Q/ m# V% I' M' M6 Y         print ('say 请先脱掉带技能值的装备!');
% b1 [) N$ s  ^7 C5 i3 _         Name := callfunc ('getsendername');
         Str := 'movespace ' + Name;
) o: |2 N1 Q) _0 D9 P  p$ N         Str := Str + ' user 49 106 55 100';
; B  X- Y3 Z9 M2 d         print (Str);
+ |0 R1 o6 ]1 a& k3 c         exit;
      end;
+ P& l- Q9 _. ?3 N6 @      Str := callfunc ('checksendercurusemagic 0');
      if Str = 'true' then begin
) M4 L7 L; X! z         print ('say 选错武功了!');
% ^% ?+ s0 }( z9 ~8 s         Name := callfunc ('getsendername');
3 y" O+ o- Y% n5 l* e; M. ?         Str := 'movespace ' + Name;
         Str := Str + ' user 49 106 55 100';
; j' g7 I( Y7 C) S9 [5 V! g$ ]         print (Str);
- r$ f* O$ p& q/ c         exit;
      end;
      Str := callfunc ('checksendercurusemagic 1');
! S& y7 s2 j& l9 ~      if Str = 'true' then begin
5 P3 P1 g$ f; [! Y         print ('say 选错武功了!');
5 `$ R, U+ d% U) ?4 @$ W9 m         Name := callfunc ('getsendername');
" H2 t8 [4 [/ c0 g! j5 S9 j* B         Str := 'movespace ' + Name;
; z) {3 E& ?. w2 |4 b2 L& X         Str := Str + ' user 49 106 55 100';
3 [. O+ B# S0 E( i         print (Str);
5 U, H7 \& @1 c1 T# j4 W  W         exit;
2 M9 R' w$ K6 q      end;

      print ('directmovespace 一级捕盗大将 npc 50 20 18 0');

      print ('commandicebyname 一级捕盗大将 npc 1000');
( X3 @7 H0 m% Z5 U      print ('setallowhitbytick true 1000');
/ l# k) E4 ~9 l7 w
* f- y& v5 R% i5 ~, X      Name := callfunc ('getsendername');
      Str := 'commandicebyname ' + Name;
      Str := Str + ' user 1000';
6 l6 w& a4 ~& o/ N      print (Str);

2 y0 f  r5 }3 ]# }2 W" W' n      print ('senderrefill');

      print ('say 你还太嫩! 50');
      print ('say 留神啦_我可不会手下留情 400');
' S1 a- @) i5 V: y: ~: G# y9 h; `      exit;
) e+ A) \, J" C" P+ A& V   end;
" t+ W! T9 P& w* F8 L1 Jend;
' E) \; `& X4 O0 F) ?! t5 x
procedure OnCreate (aStr : String);
var
! z% g7 l4 I  H; u7 T2 s. g   Str : String;
# K: k4 y1 y4 _) [/ lbegin
: z+ K* d9 i5 Q# ?4 _8 m   Str := callfunc ('getsenderrace');
   if Str <> '1' then begin
' A# M: n' }5 D/ L) J6 k- X  b6 ~3 @      exit;
   end;

   print ('setallowhitbyname 一级捕盗大将 monster true');

. ~3 n5 k( G) O1 E   Str := 'showwindow .\help\一级捕盗大将.txt 1';
6 J% x+ P5 _" x2 |' r   print (Str);
   exit;
end;

procedure OnDie (aStr : String);
var
* ~) O" ~5 \0 K: Z   Str, Name : String;
2 M9 D2 ^$ |/ C0 f& c5 u% e   FirstQuest : Integer;
begin
   Str := callfunc ('getsenderrace');
$ B5 Z& @# w2 }% m) x' f7 S1 V5 l" |+ d   if Str <> '1' then exit;
. Y0 k1 ~& ?7 b$ e$ L' H3 g  {3 Z
   Str := callfunc ('getsenderfirstquest');
   FirstQuest := StrToInt (Str);
8 D& q9 q3 E) R$ b* {% O! J5 ^0 G
   if FirstQuest < 2 then begin
      Str := callfunc ('checkenoughspace');
, t" l" I$ p" I2 J1 i      if Str = 'false' then begin
         print ('say 物品栏已满...');
         exit;
. q: r. k. ^- C5 S! V' J      end;

      print ('changesenderfirstquest 2');
$ y  \% S* ~) g6 _* n  [+ S      print ('putsendermagicitem 新手训练拳套 @一级捕盗大将 4');
2 y( k0 {1 k  f9 w   end;

# W6 s( Z0 I9 g5 y8 R   print ('say 不可能_我怎么可能输呢.. 100');
4 R1 W) a  V' ]6 F' C
7 Y% G! ?4 O! n. k" k   print ('mapregen 51');

. {& {% o- b7 l7 z" F   Name := callfunc ('getsendername');
   Str := 'movespace ' + Name;
   Str := Str + ' user 51 17 18 500';
   print (Str);
$ W2 g# P" p4 s! D$ send;
# P- j5 D1 N+ X; y& F* p  B+ g
2 t7 J' r2 g9 ^2 Z" Hprocedure OnChangeState (aStr : String);
var
   Str, Name : String;
begin
, ^0 d# E$ ?( x2 p4 d( J7 |8 y   if aStr <> 'die' then exit;
4 G( A, C0 I% R& i
4 O" a* }+ g# ]& E   Str := callfunc ('getsenderrace');
" [' u9 a( I" U  x   if Str <> '1' then exit;

1 o2 c. K$ W/ N% {0 n! F   print ('say 回去再修炼个10年吧50');
   print ('say 到那时我在用双手跟你打 400');

9 s* W& L, S' C   Name := callfunc ('getsendername');
   Str := 'movespace ' + Name;
   Str := Str + ' user 49 106 55 600';
$ d; H0 ?; h$ v* L8 U" j   print (Str);
7 W2 B* T# I( k. S$ T( ~+ C
   print ('boMapEnter 50 true');   
( Q! q9 ?$ \* m2 f; Y1 ~end;

3 K! L: `+ s3 k3 W$ E. hend.
! L/ j8 O+ {+ ?7 o  w  N# `
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
' u5 `. a' S5 s/ K- z6 [
  {0 a( m, z! w( j  M0 e0 lunit 一级牛俊;
) X4 x, `( E- x; J1 W$ p! v
interface
9 c7 y" |# }! U/ \
function  GetToken (aStr, aToken, aSep : String) : String;
function  CompareStr (aStr1, aStr2 : String) : Boolean;
function  callfunc (aText: string): string;
3 p0 N6 {2 Z, ?procedure print (aText: string);
& Q5 c* @, L6 c1 [- Y7 C; Qfunction  Random (aScope: integer): integer;
function  Length (aText: string): integer;
procedure Inc (aInt: integer);
0 E6 i( F% [# s7 P* a2 w$ s4 Iprocedure Dec (aInt: integer);
/ _+ w% B7 \" v& Ofunction  StrToInt (astr: string): integer;
function  IntToStr (aInt: integer): string;
4 |  I: p6 v- kprocedure exit;
4 L* Y, O* S. B0 B! ~% e) u
procedure OnCreate (aStr : String);
  V3 h9 f! c- z# u5 T$ N) {) xprocedure OnDie (aStr : String);
+ m- w4 Y5 w6 s- gprocedure OnChangeState (aStr : String);
procedure OnGetResult (aStr : String);
8 s8 Z8 N- \1 L+ n  L2 R0 Q8 G+ C" f' d
1 q, t! A  @% M1 |1 a1 ximplementation
3 Y* f, F( a5 j! u  G- e
2 Z( b1 _5 Z5 Dprocedure OnGetResult (aStr : String);
5 J7 X( m% f- Q8 m9 X& x. e& J2 r8 }var
   Str, Name : String;
   iCount : Integer;
begin
   if aStr = 'start' then begin
' h* {/ C3 G; E      Str := callfunc ('getsenderserverid');
      if Str <> '52' then exit;

. i. t, Z4 V8 U4 G0 @3 C      Str := callfunc ('getsenderrace');
      if Str <> '1' then exit;

      Str := callfunc ('checksenderpowerwearitem');
      iCount := StrToInt (Str);
      if iCount > 0 then begin
' E, ]) ?5 a$ A7 k& A% I6 L         print ('say 请先脱掉带技能值的装备!');
  M: e7 r' {% H" W4 k' Q         Name := callfunc ('getsendername');
         Str := 'movespace ' + Name;
         Str := Str + ' user 49 106 55 100';
         print (Str);
' v! @& W) U/ X9 M         exit;
* U  l$ S/ H0 `# Y8 T! `      end;
      Str := callfunc ('checksendercurusemagic 0');
( f6 J7 o( Q; g: A- [      if Str = 'true' then begin
         print ('say 选错武功了!');
3 Z9 Y8 Y: {4 V' y: m         Name := callfunc ('getsendername');
4 ?) U3 D1 u/ V4 X7 h; I4 S5 }) }         Str := 'movespace ' + Name;
3 {) Z/ a- A/ w         Str := Str + ' user 49 106 55 100';
: q( h- V" r! o8 S; `         print (Str);
& l$ s5 l, R9 H8 s( l! z0 h         exit;
' _9 w, a5 B/ t# l6 l. B4 }      end;
      Str := callfunc ('checksendercurusemagic 1');
      if Str = 'true' then begin
         print ('say 选错武功了!');
3 \; }: C6 V" D2 J2 C- r) T         Name := callfunc ('getsendername');
* Z& O# q4 e. W         Str := 'movespace ' + Name;
8 l1 `8 [* {: E3 j; s, t         Str := Str + ' user 49 106 55 100';
         print (Str);
         exit;
  I5 F5 Z' k0 o6 u) b0 X" [      end;

8 }/ Y# d$ p0 }6 Z3 e      print ('directmovespace 一级牛俊 npc 52 20 18 0');

* |- _: g) M. Q. ^      print ('commandicebyname 一级牛俊 npc 500');
- D& @& K9 i# G0 N5 U  S+ g' e      print ('setallowhitbytick true 500');      
/ A7 F/ G7 d( u. v- g
) f6 X5 M" Y$ _8 ^      Name := callfunc ('getsendername');
      Str := 'commandicebyname ' + Name;
" @2 C: x8 ?. P2 u+ W+ A+ t& k" O      Str := Str + ' user 500';
      print (Str);
) O. l6 G7 z+ H0 c0 x  }
      print ('senderrefill');
7 e5 y( s! {9 L0 w
* J; h' w" S2 I      print ('say 10如果10秒内不能将你搞定 50');
2 `9 s: Q2 s3 v* q& e& [0 ?      print ('say 就算我输! 400');
      exit;
   end;
end;
3 q! N% v% a4 x1 k3 K
  q" N( K' g" x) S. aprocedure OnCreate (aStr : String);
; B/ {7 z; q6 vvar
4 k$ F- w# b* c2 H   Str : String;
begin
   Str := callfunc ('getsenderrace');
   if Str <> '1' then begin
  w7 t( f' s  A. o  y& ^$ l2 D      exit;
   end;

9 P6 g( t9 V( |   Str := 'showwindow .\help\一级牛俊.txt 1';
   print (Str);
/ a, I  {. Q9 a! u# v   exit;
& ?6 A8 W2 A9 }& `7 Vend;
, v& ^: s; f5 t5 L+ u0 I; }& i/ J/ D
+ ]# H. \! @# l$ g  U* W& Oprocedure OnDie (aStr : String);
var
: d3 s! }: k' H# E9 w! e/ A7 M   Str, Name : String;
/ s, p/ {3 _% X3 _6 A   FirstQuest : Integer;   
6 ~1 Y! I- h. Rbegin
7 Q; r+ f+ @5 f   Str := callfunc ('getsenderrace');
  m- y# I8 D, h6 ?6 b! Q" U! g   if Str <> '1' then exit;

   Str := callfunc ('getsenderfirstquest');
   FirstQuest := StrToInt (Str);
7 ~( y$ q. o7 i1 |
   if FirstQuest < 4 then begin
$ q" g% t( F5 q      Str := callfunc ('checkenoughspace');
      if Str = 'false' then begin
5 y9 ^5 X* N% a( n! Q1 u' }' w3 P' I         print ('say 物品栏已满...');
         exit;
      end;
0 A* C! G: h; ]" Q* h$ V
      print ('changesenderfirstquest 4');
7 B; [% ^: t* P( f- ]( S+ i; c      print ('putsendermagicitem 新手训练大斧 @一级牛俊 4');
. p* L% l. i% J+ S' q   end;

; d& |9 E0 F, ^% K9 n# J/ o. J   print ('say 什么_不敢相信!! 100');

& [4 ]: ^4 @3 r# V' l% c   print ('mapregen 53');

3 M: ~: X# y" U1 w9 @5 j   Name := callfunc ('getsendername');
- X' U5 A. C+ y8 k8 e* |   Str := 'movespace ' + Name;
   Str := Str + ' user 53 17 18 500';
2 w  u! u6 \/ q: W4 E5 b4 M8 h   print (Str);
! O" F1 P& |; Xend;

# y  ?7 M5 J2 Lprocedure OnChangeState (aStr : String);
var
% O' `+ I  {) W4 H# |$ R* c   Str, Name : String;
begin
% Q& t# ^4 P$ {8 Y* J   if aStr <> 'die' then exit;
6 J7 C8 u+ Y; `6 q6 ]( j
   Str := callfunc ('getsenderrace');
7 L& w' @2 |# N   if Str <> '1' then exit;

7 w) `. u% j7 Y4 b; f+ i' S( c   print ('say 领教了吧! 50');
   print ('say 差远了... 400');

   Name := callfunc ('getsendername');
# O* ]5 D8 @, `2 M, ~   Str := 'movespace ' + Name;
7 H7 `  m$ k+ [" z, Z1 V   Str := Str + ' user 49 106 55 600';
! q# R3 _; n5 x# ^& j   print (Str);
0 X- @  m1 c6 v1 dend;
4 w. K7 m& @. A. V' T6 b
1 Y5 L+ @7 Y, g( Z0 T2 yend.
( U0 p% N4 L3 T/ R. D( X8 S1 l4 e----------------------------------------
- l9 ?) O$ S) l+ _: R- ?; _) Nunit 一级雨中客;

interface

: n0 j$ M/ Q, I, M, C8 q: wfunction  GetToken (aStr, aToken, aSep : String) : String;
function  CompareStr (aStr1, aStr2 : String) : Boolean;
function  callfunc (aText: string): string;
- `( W2 m+ \3 Sprocedure print (aText: string);
function  Random (aScope: integer): integer;
function  Length (aText: string): integer;
procedure Inc (aInt: integer);
- k8 m3 x- I$ _# d5 k! B4 l3 ^procedure Dec (aInt: integer);
function  StrToInt (astr: string): integer;
function  IntToStr (aInt: integer): string;
5 M1 w* t1 J6 X% iprocedure exit;
4 ?" S  C; n% w: h
. L8 U/ M, d" R) q" Q9 q; L( C0 p$ ?procedure OnCreate (aStr : String);
procedure OnDie (aStr : String);
procedure OnChangeState (aStr : String);
procedure OnGetResult (aStr : String);
. j3 D' b$ H9 c/ m9 B# t% x
implementation
4 @% p& T- z4 d5 M! `) R) G
procedure OnGetResult (aStr : String);
var
, A8 V3 ], z' S  C   Str, Name : String;
( w; i7 `5 N& W   iCount : Integer;
begin
   if aStr = 'start' then begin
8 x: ]9 j3 B/ t+ C' {9 L. l      Str := callfunc ('getsenderserverid');
# g9 N$ j* e0 c5 W      if Str <> '53' then exit;
* C, W! Y) X- a, k( H' M, p
: R; f- k, i% c& {! T, s      Str := callfunc ('getsenderrace');
" p* ^! T, z3 f      if Str <> '1' then exit;
: O: u$ `3 d( J9 O0 e, v: r- X: y* R
      Str := callfunc ('checksenderpowerwearitem');
( _- N  Y  @9 F      iCount := StrToInt (Str);
      if iCount > 0 then begin
# d) S6 f2 v' @3 E) s. R8 w1 p8 Z         print ('say 请先脱掉带技能值的装备!');
         Name := callfunc ('getsendername');
% q  ^# |1 _, y2 L1 y         Str := 'movespace ' + Name;
         Str := Str + ' user 49 106 55 100';
2 O  n% c4 K9 Y" l( ?# `         print (Str);
( G; o. j/ y1 A# U4 F8 a         exit;
      end;
      Str := callfunc ('checksendercurusemagic 0');
      if Str = 'true' then begin
! f8 e0 K& J0 A( P! ^( ?         print ('say 选错武功了!');
: p4 J/ r1 m" ?0 x% P         Name := callfunc ('getsendername');
         Str := 'movespace ' + Name;
         Str := Str + ' user 49 106 55 100';
$ }! S6 z" h2 v& K         print (Str);
         exit;
      end;
      Str := callfunc ('checksendercurusemagic 1');
      if Str = 'true' then begin
9 O# L. z/ i; J" }% S8 U         print ('say 选错武功了!');
         Name := callfunc ('getsendername');
* f# R, w% R  d, L$ c4 X         Str := 'movespace ' + Name;
         Str := Str + ' user 49 106 55 100';
2 _# b  {+ U1 B. W0 x" H& `7 O3 w         print (Str);
, M. t& L1 l( |" E/ y* f6 h/ r         exit;
. }" C* v, x8 h6 [& }0 @      end;
9 b, J0 U: p: _/ q* t! l
      print ('directmovespace 一级雨中客 npc 53 20 18 0');
3 c2 x, o5 o8 A+ L, @9 }  ?+ W  r
      print ('commandicebyname 一级雨中客 npc 500');
      print ('setallowhitbytick true 500');      

: ~3 w0 T  C: E6 s7 O  Z6 \/ ^      Name := callfunc ('getsendername');
# N/ y; R3 {( V7 [/ f* \      Str := 'commandicebyname ' + Name;
5 N' e1 j0 C) P3 C* S! q      Str := Str + ' user 500';
      print (Str);
+ A. N" d  o# Z. ~: j3 Y9 A3 C
      print ('senderrefill');
3 c1 s2 w( Q2 R, {3 B' d+ b/ ^' u
8 L% b. l5 y1 X) V# a+ L* t5 u, g      print ('say 领教了 50');
7 x. }0 ?+ \( `% v, d      print ('say 开始吧 400');
      exit;
; P' u# h& W7 t! ~1 Y/ `   end;
end;

0 e9 h  d3 f5 x- Dprocedure OnCreate (aStr : String);
: o6 t) [( K; _$ C1 ]. zvar
   Str : String;
! \% _# M. ]. |! w& |( nbegin
3 q* d8 x4 j2 \1 C* o   Str := callfunc ('getsenderrace');
- m7 c* ~  B8 O7 g   if Str <> '1' then begin
" K1 T; q; q  r2 j      exit;
   end;

   Str := 'showwindow .\help\一级雨中客.txt 1';
6 l9 U8 U9 V# }$ _  d   print (Str);
' a/ i- S: K5 K9 q8 G0 z% O   exit;
" z) w3 a; J- C9 o& V' `3 p, t1 mend;
- v$ Z( W5 P9 N  i" D7 T/ l. A& f, {
procedure OnDie (aStr : String);
- e2 |& I/ ^% Nvar
   Str, Name : String;
0 @* o/ U! y( i9 X   FirstQuest : Integer;
( O( G$ p1 D5 H* J  Jbegin
   Str := callfunc ('getsenderrace');
   if Str <> '1' then exit;
) \% W  Z' V$ ?( H6 |" s
   Str := callfunc ('getsenderfirstquest');
   FirstQuest := StrToInt (Str);
( R& G  e9 b" s, W' C
$ ^4 Y8 Q$ b& n7 j! N% M+ I3 ?   if FirstQuest < 5 then begin
      Str := callfunc ('checkenoughspace');
) z% k) m4 Y" ~  G7 j* t      if Str = 'false' then begin
3 P. ?  F4 c8 p$ g! B9 ?6 G6 [         print ('say 物品栏已满...');
9 S0 v8 ^1 y( F1 p8 }3 [0 W& t+ E         exit;
      end;
) @# B  v) [) ]" Q, c4 i
+ G$ U, B; o" g5 @5 a; ^9 Y! ^6 _3 ^      print ('changesenderfirstquest 5');
1 v" v  s$ i& \      print ('putsendermagicitem 新手训练弯刀 @一级雨中客 4');
   end;
# `. f# g% g) L; I& Z! @/ G3 F: \& t
   print ('say 早料到了_佩服 100');
# N3 Y" I: i0 Q" g
   print ('mapregen 54');
# ~0 Q' t6 P% @0 P7 k- P
# ^1 m, D' |9 A/ h" v4 q   Name := callfunc ('getsendername');
   Str := 'movespace ' + Name;
   Str := Str + ' user 54 17 18 500';
   print (Str);
end;
$ O" W0 x# g3 [! j
& a* w0 c3 T3 k# a% zprocedure OnChangeState (aStr : String);
var
   Str, Name : String;
! U: U8 H+ }) p" F; s( jbegin
  n- y- m& w4 B- {1 ?5 H+ `5 e   if aStr <> 'die' then exit;

   Str := callfunc ('getsenderrace');
   if Str <> '1' then exit;
) [+ T3 c5 ~7 D+ i
: ]5 I% f/ t' L6 z5 `6 N, F   print ('say 不错。只要能维持几秒钟');
   print ('say 到那时谁都不是你的对手 400');
5 g2 F& {9 @* X* \9 z, T6 I
   Name := callfunc ('getsendername');
   Str := 'movespace ' + Name;
- _; o, U! A( W3 I( V+ l   Str := Str + ' user 49 106 55 600';
) j$ e3 Y% [' L$ p5 a$ A: |   print (Str);
end;
+ z/ _  }$ }9 O. s+ W
end.
& K) x& @$ [" f9 ?8 B. D
--------------------------------------------------------------------------------------------------------------

unit 一级老侠客;
; _# i% t1 e6 i4 H$ r
interface

' u3 u* P7 S1 ]$ H1 Lfunction  GetToken (aStr, aToken, aSep : String) : String;
* \. q! [6 I1 ?2 R8 W6 S( ]" Bfunction  CompareStr (aStr1, aStr2 : String) : Boolean;
function  callfunc (aText: string): string;
procedure print (aText: string);
0 ~5 Y! n% h# l6 kfunction  Random (aScope: integer): integer;
function  Length (aText: string): integer;
$ b5 f) R7 t; O/ N0 \$ [$ C( Hprocedure Inc (aInt: integer);
0 g, |/ ^" g, _: gprocedure Dec (aInt: integer);
0 F3 L* e9 p( F# a% C; J% L9 xfunction  StrToInt (astr: string): integer;
function  IntToStr (aInt: integer): string;
procedure exit;
5 {& N: i6 K+ h, F* q5 y
  Z: a: M$ k/ X+ [7 Tprocedure OnCreate (aStr : String);
procedure OnDie (aStr : String);
, t; {0 o; U+ p' m! `5 Zprocedure OnChangeState (aStr : String);
procedure OnGetResult (aStr : String);
  P# T' c8 ~: y' h1 t
implementation

/ d' G0 ^& [2 }5 r; Wprocedure OnGetResult (aStr : String);
var
  C0 s$ J) S8 [& S   Str, Name : String;
( a: C" [5 _  D" ?   iCount : Integer;   
begin
, }2 @4 g  r" \5 c   if aStr = 'start' then begin
/ ^/ m' ~6 e0 _+ F      Str := callfunc ('getsenderserverid');
: p" _: y7 y/ M+ J& ~      if Str <> '54' then exit;

      Str := callfunc ('getsenderrace');
, i$ Q) Y$ A  P! G; I! J      if Str <> '1' then exit;

6 D+ Y! B$ m1 y3 E6 q$ ~      Str := callfunc ('checksenderpowerwearitem');
. k2 s8 K' U5 W( O/ w% u+ ^/ x      iCount := StrToInt (Str);
9 O- C, w. @- ?" O1 U      if iCount > 0 then begin
2 t2 O& ]2 c: l5 ?" v         print ('say 请先脱掉带技能值的装备!');
+ {: L6 e6 I$ [# z* P         Name := callfunc ('getsendername');
, p. f* y. a3 J* d$ A( k6 q& n, M         Str := 'movespace ' + Name;
% I: l- s2 W' F         Str := Str + ' user 49 106 55 100';
6 I4 O, }7 m1 s5 Z& f8 K6 e         print (Str);
         exit;
- z; {9 B' J9 Y1 J6 y      end;
      Str := callfunc ('checksendercurusemagic 0');
      if Str = 'true' then begin
         print ('say 选错武功了!');
3 U5 W' c/ v4 P! o/ \9 p3 q' a         Name := callfunc ('getsendername');
         Str := 'movespace ' + Name;
3 l, ~  F7 h" Z3 Q: M         Str := Str + ' user 49 106 55 100';
         print (Str);
. S; D  b$ c* A* p8 T& |0 ^5 l6 R, e7 b         exit;
0 q* o+ E) n/ U6 L6 g1 W5 O  [- E; S      end;
3 a2 p6 ^+ Z8 ]# Y6 j1 e) _4 m3 V      Str := callfunc ('checksendercurusemagic 1');
      if Str = 'true' then begin
         print ('say 选错武功了!');
. y$ E, R. u- @1 H* K         Name := callfunc ('getsendername');
         Str := 'movespace ' + Name;
         Str := Str + ' user 49 106 55 100';
         print (Str);
         exit;
+ R2 O: U; N+ E6 M      end;
# E, P) a8 L8 a7 ]: o- |( e& X
      print ('directmovespace 一级老侠客 npc 54 20 18 0');
" e# _% ], N' x7 r3 M
: V; `6 H7 W6 R# `) C& j      print ('commandicebyname 一级老侠客 npc 500');
: U4 F( G1 Z8 z2 @+ P      print ('setallowhitbytick true 500');      
' G) j! j2 o, p: F; h4 A
9 P. Y2 F+ L' v3 z' R9 b( M      Name := callfunc ('getsendername');
: W8 _0 @& p* u6 i% Z* V/ J2 d      Str := 'commandicebyname ' + Name;
      Str := Str + ' user 500';
      print (Str);

      print ('senderrefill');
$ u+ ^* U! g" q3 `7 I. ^2 b  o
      print ('say 如果你实在想比 50');
      print ('say 我将奉陪到底 400');
      exit;
   end;
, e- u* O/ T, X! Xend;
, r2 C% q% T: O& I- q' i$ w
% q4 \/ W4 E7 p! @$ Bprocedure OnCreate (aStr : String);
9 q2 S7 x! y3 j1 ^( I! E$ {3 J% @$ cvar
   Str : String;
5 p/ O6 E* i/ R, Y; D5 lbegin
   Str := callfunc ('getsenderrace');
   if Str <> '1' then begin
      exit;
   end;
* G% s  @' Q5 D- x- F
' [6 Y0 ]8 u; E9 l$ K5 A   Str := 'showwindow .\help\一级老侠客.txt 1';
   print (Str);
   exit;
+ B5 t& Y! U+ Z. f& e- i: i  `3 a! _end;

procedure OnDie (aStr : String);
) M9 f. o  M$ B% |$ @var
: S% J9 P1 I. E" I- _   Str, Name : String;
) a9 H; O7 P4 ?( S5 v! ^. b   n, FirstQuest : Integer;   
begin
   Str := callfunc ('getsenderrace');
/ v( W9 r, x9 g# D3 w6 }" T   if Str <> '1' then exit;

   Str := callfunc ('getsenderfirstquest');
   FirstQuest := StrToInt (Str);
! M. R) j* M' B4 \! V2 U
   Name := callfunc ('getsendername');
& Y* [8 {4 S5 M" }. ~5 k1 A
   if FirstQuest < 6 then begin
      Str := 'sendsendertopmsg ' + Name;
      Str := Str + '恭喜你,通过了所有的比试,获得【侠客弓服】';
      print (Str);
1 r+ P' E& [" x" x+ F8 a2 q9 O
9 `+ v6 V  X" J6 O# L* E4 f* |      Str := callfunc ('checkenoughspace');
      if Str = 'false' then begin
         print ('say 物品栏已满...');
9 D$ A9 }, Q/ I3 t. V         exit;
: {  a* M; t8 G. H- O, z4 m- h      end;

      print ('changesenderfirstquest 6');

      Str := callfunc ('getsendersex');
) j" Y+ g9 ^0 m( C/ `      n := StrToInt (Str);
      if n = 1 then begin
7 u8 z/ P5 V* H( g; o0 v: M3 V         print ('putsendermagicitem 男子侠客弓服 @一级老侠客 4');
      end;
      if n = 2 then begin
1 l0 [* z) W0 H/ |8 y5 _         print ('putsendermagicitem 女子侠客弓服 @一级老侠客 4');
/ D$ K+ B$ g/ A( Z      end;
         print ('putsendermagicitem 新手训练神剑 @一级老侠客 4');
! R+ J; S/ v- d8 k* d   end;

   print ('say 佩服_佩服 100');
9 [4 v+ J' [* i' A* b  V
   Str := 'movespace ' + Name;
   Str := Str + ' user 49 25 35 500';
: H& X& J! E! q( o- a   print (Str);
& K% S: C% J) S6 h0 s7 @! Eend;

) N0 z; C% b' U" Vprocedure OnChangeState (aStr : String);
8 D7 n0 O' R$ S: lvar
+ ]/ g& p. N( ^, i. D0 I   Str, Name : String;
begin
: f- O+ ^4 ?1 S; D* |4 n   if aStr <> 'die' then exit;
7 |% ~, w7 T7 ]) i  i9 N% k4 L
6 V% P& k& g. s. Q  j' u, X4 Y' l6 z   Str := callfunc ('getsenderrace');
   if Str <> '1' then exit;
- \5 @1 _% r7 u4 H# L
% B' d% r* X9 K* ]; K$ x2 C   print ('say 小小年纪_就有如此高深的武功 50');
! t  ?: ]( O% }' k' G/ B' t9 {   print ('say 日后要继续修炼... 400');
, I; J9 N5 I5 q2 S* o0 p
   Name := callfunc ('getsendername');
& s0 K/ l& O* j* q  T. w* w* g   Str := 'movespace ' + Name;
   Str := Str + ' user 49 106 55 600';
   print (Str);
4 ~0 i" }  @# k/ F) Nend;

( H# H4 S/ f: `$ A  jend.

% `# P( K6 U. R4 t7 T$ l0 i$ I－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
; l3 N& n0 q2 ^! W
＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
0 n: v( i7 U; N' I+ N) I
* s$ k- R& a6 m" M0 E奖励物品代码：
: \' ]! s6 Y! y7 [) @
+ F4 ]: @8 s# Y! C＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊

男子侠客弓服,男子侠客弓服,24,新手村擂台战利
0 E+ D0 h1 c; D! e
* F& I# B) c8 K2 X( Y  i$ O. r品,2,,,,,FALSE,FALSE,181,6,7,,,,1,1,1,,50000,,,,,,4432,4831,TRUE,,10,20,,,,,,,200,100,100,10
  Y5 R2 ]8 H+ [! ~9 O4 J$ B
0,,,,,,3,TRUE,4,,FALSE,,,,,,,,,,,,,,,
2 V, S1 H4 K8 b1 l' K* r- u女子侠客弓服,女子侠客弓服,24,新手村擂台战利
+ F& x( g3 s5 ?7 x6 f3 u
品,2,,,,,FALSE,FALSE,181,6,7,,,,1,2,1,,50000,,,,,,4432,4831,TRUE,,10,20,,,,,,,200,100,100,10

0 o& P( Y, K. A' i, C* d! O1 g- m0,,,,,,3,TRUE,4,,FALSE,,,,,,,,,,,,,,,
新手训练拳套,新手训练拳套,6,新手村擂台战利
+ }! ^2 b( q+ s3 G# B
品,1,,,,,FALSE,FALSE,361,9,52,,0,0,1,,1,,50000,50000,,,,,4404,4805,TRUE,20,20,20,,,,,,,,,,,,
) l: L; }" }1 n% U$ e; P# R0 p
,,,,4,TRUE,3,TRUE,FALSE,,,,,,,,,,,,,,,
新手训练神剑,新手训练神剑,6,新手村擂台战利

品,1,,,,,FALSE,FALSE,365,9,69,,2,1,1,,1,,50000,50000,,,,,4404,4805,TRUE,20,20,20,,,,,,,,,,,,

5 H, j4 R, d5 [5 C- v- X9 n( A,,,,1,TRUE,3,TRUE,FALSE,,,,,,,,,,,,,,,
" j; b- i' X" d8 A+ |' _( [2 n新手训练弯刀,新手训练弯刀,6,新手村擂台战利
! u1 _/ h' x2 n! I6 H
品,7,,,,,FALSE,FALSE,113,9,2,,2,2,1,,1,,50000,50000,,,,,4412,4813,TRUE,20,20,20,,,,,,,,,,,,,
2 e6 m1 U+ y" B6 f) p2 ^1 b0 T
2 N6 |. H# v$ y" d5 V0 \' G2 V* J,,,1,TRUE,4,,FALSE,,,,,,,,,,,,,,,
- G: R/ I; s7 g& E- @新手训练长矛,新手训练长矛,6,新手村擂台战利

0 y4 P% J, M0 R+ _) c; @7 ?品,6,,,,,FALSE,FALSE,117,9,45,,3,4,1,,1,,50000,50000,,,,,4435,4834,TRUE,20,20,20,,,,,,,,,,,,

. M5 x. \/ G. d. O,,,,1,TRUE,4,,FALSE,,,,,,,,,,,,,,,
新手训练大斧,新手训练大斧,6,新手村擂台战利
7 f/ ~# C8 c3 D* U% o# d
0 |) L& c5 F# r% R# s品,6,,,,,FALSE,FALSE,95,9,12,,3,3,1,,1,,50000,50000,,,,,4415,4815,TRUE,20,20,20,,,,,,,,,,,,,
0 D) [0 e! q& Q3 I& B% G! [# M
,,,1,TRUE,4,,FALSE,,,,,,,,,,,,,,,

＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
) h( r; O4 ^4 z( ?7 G9 g3 n

---

欢迎光临 三千论坛 (http://3000y.com.cn/)

Powered by Discuz! X3.4