三千论坛

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

---

作者: 异仟年    时间: 2022-9-5 20:23
标题: 新手村擂台脚本
新手村擂台脚本
( z" [* h0 F3 B* {+ o4 N* }
  c4 S0 B$ R, ^$ j
释放到同名文件夹下覆盖原有文件。
! c. x8 g7 U) F" w1.Script 里面是任务脚本,把对应NPC的代码复制覆盖掉。
2.Item 里面是任务发放奖品的物品资料，把我发的加进去。
（由11月23号发布的最新服务端修改）
-----------------------------------------
4 g+ T' i8 e9 ?5 d6 t3 F内容介绍：
; E* l$ X0 b: w4 n! s新手村比武获得奖励：
3 Z6 l3 m; m8 X7 l; ^% v5 f. U同使用何种武器的NPC比武，将其打败就能获得同类的新手训练用武器（速度20，恢复20，准确20，破坏0
2 m) ~- j4 ^/ e6 _% h/ h2 {4 s+ _" ^
+ K* F8 F7 g/ {' R& V3 l! Z7 a5 C）
+ \8 s/ K- O2 p1 }& _最后一个NPC老侠客，打败他会获得新手剑之外，他还会公告天下你获得了 侠客弓服 一件！（个人比较
2 H8 I6 p* E5 j; Z. F
喜欢黑龙，所以是黑龙的加强版！）

[replyview]

/ }1 c$ v- }6 I5 A" `6 |2 \－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
* N# @1 s" W% S2 f& n
unit 一级梅花夫人;
/ ^4 d! d% N2 o! T- L* O) t% O
interface
/ ^: j2 x3 ~4 _4 X
! r% s% K/ V% `) vfunction  GetToken (aStr, aToken, aSep : String) : String;
function  CompareStr (aStr1, aStr2 : String) : Boolean;
function  callfunc (aText: string): string;
1 e# Q, g% w: _procedure print (aText: string);
function  Random (aScope: integer): integer;
+ M/ ~( `$ V, |6 Lfunction  Length (aText: string): integer;
; D' y" ^! b; Yprocedure Inc (aInt: integer);
. e' M/ x# s3 v$ l' J) m0 Xprocedure Dec (aInt: integer);
# E( \! [- j/ x& ^+ [  Gfunction  StrToInt (astr: string): integer;
function  IntToStr (aInt: integer): string;
1 I, b/ M& ?3 O1 y, Rprocedure exit;
$ S- q( h! ~9 U; G' w5 O
procedure OnCreate (aStr : String);
procedure OnDie (aStr : String);
procedure OnChangeState (aStr : String);
procedure OnGetResult (aStr : String);
7 y) u1 d  y( b) l- m
) P4 Q. U0 R5 o) ~& `  Q( d$ eimplementation

procedure OnGetResult (aStr : String);
var
% n9 _% g( b! J6 `+ `7 K+ T: K/ M   Str, Name : String;
! Y* [' `# r; t; Z/ s   iCount : Integer;
begin
   if aStr = 'start' then begin
5 P# C4 i6 L$ d. B      Str := callfunc ('getsenderserverid');
  y! y: {  l7 J9 |      if Str <> '51' then exit;
, }% Y. Z! ?+ {; ^5 D+ U8 @
      Str := callfunc ('getsenderrace');
      if Str <> '1' then exit;

      Str := callfunc ('checksenderpowerwearitem');
2 @& I! @4 c3 m) o) I6 w      iCount := StrToInt (Str);
      if iCount > 0 then begin
8 ~) g+ m9 l+ y9 J# p) t  q         print ('say 先将带技能值装备脱掉!');
" T$ N$ [, g! e1 r7 n: }# V         Name := callfunc ('getsendername');
         Str := 'movespace ' + Name;
         Str := Str + ' user 49 106 55 100';
/ A) w9 |/ j' a0 p         print (Str);
         exit;
$ G) I5 _' Q) H6 E6 S      end;
      Str := callfunc ('checksendercurusemagic 0');
# W5 n9 j' e- u  o      if Str = 'true' then begin
         print ('say 选错武功啦!');
         Name := callfunc ('getsendername');
0 a2 R& G" Q; A9 ^3 c         Str := 'movespace ' + Name;
         Str := Str + ' user 49 106 55 100';
8 O7 B" l0 q7 y! T         print (Str);
         exit;
      end;
; v9 U& q& ^% B6 C& }3 H      Str := callfunc ('checksendercurusemagic 1');
$ ]8 U7 v& A+ x' f      if Str = 'true' then begin
2 G+ E. T! \: T8 }5 V8 l' H         print ('say 选错武功啦!');
         Name := callfunc ('getsendername');
0 q" i" t% h3 _/ c; d% }% J         Str := 'movespace ' + Name;
         Str := Str + ' user 49 106 55 100';
         print (Str);
         exit;
" y$ M8 F3 W2 X! |      end;
4 v. o# q6 g. u- i% B+ R
      print ('directmovespace 一级梅花夫人 npc 51 20 18 0');

      print ('commandicebyname 一级梅花夫人 npc 1000');
      print ('setallowhitbytick true 1000');

      Name := callfunc ('getsendername');
* A  b- q* ^* u: m* |2 S      Str := 'commandicebyname ' + Name;
      Str := Str + ' user 1000';
      print (Str);

/ H" c# M3 S# R      print ('senderrefill');

. j4 t, D! h5 r8 ?( T" g2 o4 n      print ('say 别害怕 50');
      print ('say 我会收下留情的... 400');
( }, k$ [- p0 U0 `- L, o1 Q      exit;
/ P) g3 A5 h1 ~, t+ z/ y   end;
end;

procedure OnCreate (aStr : String);
var
   Str : String;
! R0 V1 z4 F; o: o* qbegin
! g! `% C# V+ `9 q% `% ^9 z( X* {   Str := callfunc ('getsenderrace');
% ~1 m8 J; ?( G4 \. @2 n   if Str <> '1' then begin
; x1 I9 |) j+ J/ E      exit;
   end;

# a$ s* P( S) [   Str := 'showwindow .\help\一级梅花夫人.txt 1';
0 W, J% s6 @( j  S; a$ v! g   print (Str);
   exit;
end;

procedure OnDie (aStr : String);
var
   Str, Name : String;
1 Z. T$ k+ k7 _6 d  o, U4 p9 J   FirstQuest : Integer;   
" w* J9 H$ p# x; L. q& Ubegin
4 @$ a5 ?3 s3 V  s' h+ }1 h   Str := callfunc ('getsenderrace');
% O8 ?$ U6 s6 y, ~2 r1 x: B   if Str <> '1' then exit;

   Str := callfunc ('getsenderfirstquest');
   FirstQuest := StrToInt (Str);

* h9 F4 w$ \" G/ `) K) P- H! P   if FirstQuest < 3 then begin
      Str := callfunc ('checkenoughspace');
0 |1 \5 Y  @% V4 V' [6 l      if Str = 'false' then begin
         print ('say 物品栏已满...');
         exit;
! k# \4 e3 s! X4 Z7 W5 j) Y      end;

# H% P! p/ _/ h* \" D) a  s0 H      print ('changesenderfirstquest 3');
7 F. N& y! y5 _' l7 C/ p/ G: a      print ('putsendermagicitem 新手训练长矛 @一级梅花夫人 4');
; w$ D8 n  _3 f5 b6 p- o" r/ p# z+ K   end;
& S! E7 k9 n( P2 Z4 ], t! q: y4 W6 y; Q5 L
   print ('say 我可只用了3层功力哟 100');

' E- f% T1 ~9 v9 v   print ('mapregen 52');

' ]) Q  t) o" t2 K( P; t& f   Name := callfunc ('getsendername');   
   Str := 'movespace ' + Name;
0 ]8 S* O0 {: f( s9 @   Str := Str + ' user 52 17 18 500';
   print (Str);
   exit;
end;
8 L$ f" l! y4 y2 b4 d
0 _5 V2 ?# A' {/ O$ _procedure OnChangeState (aStr : String);
var
  O: t/ h9 W  @5 w% J4 q9 ^   Str, Name : String;
$ F/ P7 I9 G: B* h4 W( g, S7 d: Jbegin
   if aStr <> 'die' then exit;

4 o$ Z$ k8 {, A( B; [' s* D   Str := callfunc ('getsenderrace');
   if Str <> '1' then exit;

+ R- ]# q( \8 c7 p, ]   print ('say 别无他法 50');
1 |2 C, z( I8 i" |, {( l( c   print ('say 是不是修炼方法不妥呀? 400');

) m9 b7 F3 V$ L, N   Name := callfunc ('getsendername');
   Str := 'movespace ' + Name;
   Str := Str + ' user 49 106 55 600';
   print (Str);
$ P& h$ `" a4 {. u9 {  wend;
* y7 [" N+ H7 I- J0 l' h
! z, f: {* |' L) j) Uend.
-------------------------------------------
. T9 z, ]! y* m2 T6 Tunit 一级捕盗大将;

interface

function  GetToken (aStr, aToken, aSep : String) : String;
function  CompareStr (aStr1, aStr2 : String) : Boolean;
function  callfunc (aText: string): string;
& z7 q* V4 L/ Oprocedure print (aText: string);
* P6 j3 l1 R( ?function  Random (aScope: integer): integer;
3 b) a3 n& P9 H  _5 ifunction  Length (aText: string): integer;
procedure Inc (aInt: integer);
5 a' |$ n" x* z' ~' w' mprocedure Dec (aInt: integer);
5 S" ~8 Z2 @; m- p; h9 {function  StrToInt (astr: string): integer;
function  IntToStr (aInt: integer): string;
procedure exit;

procedure OnCreate (aStr : String);
! n: X% _2 |) H+ {1 x; M& `$ F. Aprocedure OnDie (aStr : String);
6 O6 A9 ]& E4 Xprocedure OnChangeState (aStr : String);
procedure OnGetResult (aStr : String);

implementation
& n1 A9 w, n3 b) Q% A# Q
; C; D: B( K' U" Z4 m; A3 Nprocedure OnGetResult (aStr : String);
var
   Str, Name : String;
" R  G. X! Q8 Y9 S& d9 ^$ J   iCount : Integer;   
* R% l* t" T# K. Nbegin
   if aStr = 'start' then begin
      Str := callfunc ('getsenderserverid');
      if Str <> '50' then exit;

: A/ N+ x% c* j      Str := callfunc ('getsenderrace');
, U1 }2 L! j! [      if Str <> '1' then exit;

      Str := callfunc ('checksenderpowerwearitem');
      iCount := StrToInt (Str);
      if iCount > 0 then begin
% Q# A7 ^- H# A) X7 n2 }         print ('say 请先脱掉带技能值的装备!');
         Name := callfunc ('getsendername');
         Str := 'movespace ' + Name;
/ n& C2 ]2 @: ?         Str := Str + ' user 49 106 55 100';
         print (Str);
         exit;
      end;
' v' L0 H# k- i! ?& {. u+ ]: v0 c      Str := callfunc ('checksendercurusemagic 0');
# p7 @* }4 p+ d4 L' v      if Str = 'true' then begin
         print ('say 选错武功了!');
         Name := callfunc ('getsendername');
) s% d( P; S, F         Str := 'movespace ' + Name;
         Str := Str + ' user 49 106 55 100';
         print (Str);
& b1 ?- D4 Z, }" z7 A# R         exit;
, T1 d8 Z4 x! J! W& B      end;
      Str := callfunc ('checksendercurusemagic 1');
% h7 u# q1 x* w/ J$ _/ [      if Str = 'true' then begin
* B: ]$ M0 j; D; L) y% ?  z' |  w         print ('say 选错武功了!');
2 v' m/ |* {# e& v  _* o3 m         Name := callfunc ('getsendername');
3 _9 F! u6 R, b8 n& N         Str := 'movespace ' + Name;
         Str := Str + ' user 49 106 55 100';
         print (Str);
; h* H; f$ M2 C, U" e         exit;
      end;

5 N8 [( ?8 e6 D' Q- {      print ('directmovespace 一级捕盗大将 npc 50 20 18 0');

      print ('commandicebyname 一级捕盗大将 npc 1000');
6 Z. N7 a( b; `$ @! }# o$ P' r      print ('setallowhitbytick true 1000');
' S0 a1 O% X1 ~  r; ^
      Name := callfunc ('getsendername');
6 A2 v; N* J" r: b) G      Str := 'commandicebyname ' + Name;
      Str := Str + ' user 1000';
! }- I  u+ K5 \3 u* M& L  H      print (Str);

      print ('senderrefill');

8 \3 W; P) {! }% B) w9 n      print ('say 你还太嫩! 50');
      print ('say 留神啦_我可不会手下留情 400');
      exit;
9 B# D( G; e- ]1 a# c   end;
5 b; _( V+ c3 X& x7 r2 _3 tend;

3 w8 Y+ N: V. `* ^. d5 bprocedure OnCreate (aStr : String);
var
0 O/ F! ]- u9 c* j! a   Str : String;
begin
   Str := callfunc ('getsenderrace');
1 g- m% a( F/ ]8 @; O, F3 ]   if Str <> '1' then begin
      exit;
4 m$ s1 [8 u; Z0 r1 U, A" ]1 M   end;
3 S$ ]5 x+ g1 P+ ~  R
& S- i5 _! H, [/ M% ^; o   print ('setallowhitbyname 一级捕盗大将 monster true');
# u) S" ?$ d0 i" e, G
   Str := 'showwindow .\help\一级捕盗大将.txt 1';
6 I6 R7 a2 M4 q7 S; B. r3 v% e& o   print (Str);
   exit;
end;
$ y% U9 B% B3 K5 `  \. Y1 [
/ u& E) @5 }; Y' p) ^procedure OnDie (aStr : String);
var
7 q& v/ y' m# Z# ~- J! g8 b. _2 n   Str, Name : String;
   FirstQuest : Integer;
begin
   Str := callfunc ('getsenderrace');
; f$ z) n, F) x% c# e   if Str <> '1' then exit;
! g7 Q1 a/ z* |( {
   Str := callfunc ('getsenderfirstquest');
/ T6 [6 E/ Z1 ?% ]0 y8 x   FirstQuest := StrToInt (Str);

- I6 o3 m4 {# `1 s# U, H   if FirstQuest < 2 then begin
      Str := callfunc ('checkenoughspace');
6 D. u" a# }6 g! g/ C3 }  D' M  D      if Str = 'false' then begin
+ ^8 I# ]; S0 e/ n; i5 K         print ('say 物品栏已满...');
         exit;
9 d/ b1 D/ p8 _$ K- h      end;
1 y: m# x! k8 k, m1 g; O9 }% p2 D2 {4 s
      print ('changesenderfirstquest 2');
      print ('putsendermagicitem 新手训练拳套 @一级捕盗大将 4');
   end;

4 W+ p0 f* E+ Q   print ('say 不可能_我怎么可能输呢.. 100');
) u- F; T, t; [3 e7 G
$ U2 R" I* \( x8 M6 t   print ('mapregen 51');

   Name := callfunc ('getsendername');
   Str := 'movespace ' + Name;
9 @2 D" S* A! |2 R9 [. h; Z3 J   Str := Str + ' user 51 17 18 500';
9 B" t6 F9 H( n3 u2 m   print (Str);
- V. m2 w7 ]- l8 L8 a' }0 cend;
, C- \9 L" ~( g3 P1 E
procedure OnChangeState (aStr : String);
1 z5 G, F1 V( r$ ~! Cvar
   Str, Name : String;
/ N" R0 ?! V9 U. p$ wbegin
   if aStr <> 'die' then exit;

: C7 U+ N0 p8 t8 S  O   Str := callfunc ('getsenderrace');
   if Str <> '1' then exit;
$ i- i1 A! a( \6 h2 W# G
: U# C4 Z5 {3 v  x7 l   print ('say 回去再修炼个10年吧50');
   print ('say 到那时我在用双手跟你打 400');
+ P2 s( ^: m5 o8 H) ?
   Name := callfunc ('getsendername');
7 Q( m0 v- o* r0 X' T( p4 i& ~7 t$ m   Str := 'movespace ' + Name;
0 T7 ]- Z! i" }+ R# j   Str := Str + ' user 49 106 55 600';
! K) n7 g) R% j! x) ?   print (Str);

. U8 X9 J; Z- w   print ('boMapEnter 50 true');   
+ I8 q& |. M' c6 Iend;

" n% b4 e" r+ b; Xend.
$ i$ E, L0 H1 o8 b) v# ~7 r5 u! [( L" I
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－

unit 一级牛俊;

interface
: J$ ?/ V; l. t) ]
function  GetToken (aStr, aToken, aSep : String) : String;
function  CompareStr (aStr1, aStr2 : String) : Boolean;
4 ]$ y' \% s$ D; Ifunction  callfunc (aText: string): string;
: S" M! w4 g# `+ d% K- fprocedure print (aText: string);
function  Random (aScope: integer): integer;
function  Length (aText: string): integer;
! \# c0 c; n- C" L5 Q  X, pprocedure Inc (aInt: integer);
( C) ], f( f7 W7 X* bprocedure Dec (aInt: integer);
# F( V0 n. B  S- Q2 ~% Y' S- Ofunction  StrToInt (astr: string): integer;
function  IntToStr (aInt: integer): string;
) T% r3 {, Y4 U' z# hprocedure exit;

! x' t: E' F' d: U/ j6 j- wprocedure OnCreate (aStr : String);
- k# k# _: Y: i  G5 }procedure OnDie (aStr : String);
procedure OnChangeState (aStr : String);
procedure OnGetResult (aStr : String);

' Y: ]6 o, V# |# r$ P( vimplementation
( I5 m8 c4 T. V5 g
procedure OnGetResult (aStr : String);
' Z5 N; s9 |- a4 }var
   Str, Name : String;
   iCount : Integer;
7 Z  A1 \7 S0 _# W8 S4 kbegin
7 d; e, @: g0 [   if aStr = 'start' then begin
, \0 n6 v8 g# L; G4 m3 o; E      Str := callfunc ('getsenderserverid');
      if Str <> '52' then exit;

  G; [$ L: Z: [/ x  u, K      Str := callfunc ('getsenderrace');
0 c! L/ b# r; S; P      if Str <> '1' then exit;

      Str := callfunc ('checksenderpowerwearitem');
$ ?) I& I2 b. d* E      iCount := StrToInt (Str);
      if iCount > 0 then begin
9 a5 B2 h. Z% N  k- a/ O: [6 C, o. k' z         print ('say 请先脱掉带技能值的装备!');
         Name := callfunc ('getsendername');
         Str := 'movespace ' + Name;
5 R0 g, N& s4 j9 ^         Str := Str + ' user 49 106 55 100';
         print (Str);
         exit;
: b* [. H/ V7 l6 o* M& D7 c      end;
) E+ _, x' g+ A2 B* _5 s      Str := callfunc ('checksendercurusemagic 0');
      if Str = 'true' then begin
         print ('say 选错武功了!');
5 I: E: A( T( s. k7 J0 t         Name := callfunc ('getsendername');
7 A' u) V$ B# S         Str := 'movespace ' + Name;
$ U, `1 U' E5 o7 ]7 ^         Str := Str + ' user 49 106 55 100';
         print (Str);
! t9 _. V- L+ }9 ~. }, j1 D         exit;
4 k) J( c$ w. _# J" c      end;
- |8 M6 a+ w: j% z: D' z      Str := callfunc ('checksendercurusemagic 1');
      if Str = 'true' then begin
         print ('say 选错武功了!');
         Name := callfunc ('getsendername');
! \$ Q+ L! \/ Z: c; i7 Y  e         Str := 'movespace ' + Name;
         Str := Str + ' user 49 106 55 100';
' O6 {* Y, y# j/ _$ M7 @3 ]! N+ Z         print (Str);
         exit;
' I3 \  y, w9 e6 v0 M3 J1 ]9 Z      end;
9 T& R* C8 \5 D: c1 O# k; G
      print ('directmovespace 一级牛俊 npc 52 20 18 0');
; R1 D8 S& A2 d6 B8 F, K
; V- ~/ i1 ^# I5 _( Z! j  I& h      print ('commandicebyname 一级牛俊 npc 500');
$ V' ]! e4 P$ f- O+ A$ h2 q      print ('setallowhitbytick true 500');      

5 k  _! J6 o7 C: Z      Name := callfunc ('getsendername');
' y; s2 C( Q: r8 q      Str := 'commandicebyname ' + Name;
9 ]* h$ C7 L0 @; w      Str := Str + ' user 500';
      print (Str);
$ g& P! E9 r, V$ d
3 o* K# n2 s, ~0 Y/ f" ~      print ('senderrefill');
, b9 N8 K- A2 f3 y9 }
, e* c1 c- e6 S2 o      print ('say 10如果10秒内不能将你搞定 50');
- t) s9 J6 z7 H% l  d+ W. j# [      print ('say 就算我输! 400');
! `/ b: U% g* f' _1 _      exit;
   end;
8 k. _' e2 W* a4 qend;

procedure OnCreate (aStr : String);
2 B" X8 x9 S) mvar
3 \# E) b* O0 g% x- l, m) T& x2 J, r' S   Str : String;
% R2 O( i- `, T) V( Nbegin
8 r, [9 G5 p# Q" p! |& K& i5 R   Str := callfunc ('getsenderrace');
- t- \; A. e# \$ r3 s   if Str <> '1' then begin
% q' F% m' k- w. M! \+ Z      exit;
3 h: I! b0 w9 V2 ]9 X0 W   end;
& k8 b1 e  B6 l) e9 @  p+ U
5 r5 M) k  X3 n9 g( p; u) n+ `   Str := 'showwindow .\help\一级牛俊.txt 1';
3 D% O$ o4 [- ]5 C* U   print (Str);
   exit;
; W& r/ P) Q, S# Uend;

0 R; z" ^+ P- n* [! ^5 Tprocedure OnDie (aStr : String);
6 C' T1 o3 M5 evar
   Str, Name : String;
% Y5 \# |8 S- N* X& e   FirstQuest : Integer;   
begin
. f- ~* g1 v' q8 s; g2 p0 r   Str := callfunc ('getsenderrace');
' j/ ]" k1 g' L4 |4 F   if Str <> '1' then exit;
/ p2 z& p/ V; r3 v
. l# m, d& I4 k   Str := callfunc ('getsenderfirstquest');
  }0 P4 }. M" v4 q   FirstQuest := StrToInt (Str);
8 a9 Z* C3 o( i! `( A8 K: g$ ]! e9 y! H
% b9 O1 [7 Y$ f   if FirstQuest < 4 then begin
3 Z/ t+ K% e2 F9 h      Str := callfunc ('checkenoughspace');
3 c4 B+ k8 ~  s. t! T      if Str = 'false' then begin
         print ('say 物品栏已满...');
         exit;
      end;

3 [. _2 q& z4 x" h" |* Z" y( F; f      print ('changesenderfirstquest 4');
3 L* N. j8 ^4 Q; A# r      print ('putsendermagicitem 新手训练大斧 @一级牛俊 4');
1 ^, T. f8 ?1 |   end;
8 c1 y% }5 s* D* w0 _% g; M
1 W( i7 Z# _4 d   print ('say 什么_不敢相信!! 100');

   print ('mapregen 53');
9 r4 E, {2 W5 q
   Name := callfunc ('getsendername');
2 k2 N6 m* n6 |   Str := 'movespace ' + Name;
' [# a3 P$ i, q* a7 G   Str := Str + ' user 53 17 18 500';
   print (Str);
end;

procedure OnChangeState (aStr : String);
var
) X( n3 }" m2 v" i' O5 ~   Str, Name : String;
begin
   if aStr <> 'die' then exit;
* E/ X- S  \% ~1 ]7 x# \; Y& v
, j! G$ C) z1 C  R$ N6 H, s   Str := callfunc ('getsenderrace');
   if Str <> '1' then exit;

/ F4 @0 ^5 J( R) i/ C   print ('say 领教了吧! 50');
! L6 D: a* d" y* C# T# o# S/ E' J" E   print ('say 差远了... 400');
1 U2 q: t# C/ I1 T* L3 \
9 x+ |7 Y( w  d   Name := callfunc ('getsendername');
0 L# G# a6 a6 c" g& `5 }/ M% y   Str := 'movespace ' + Name;
   Str := Str + ' user 49 106 55 600';
   print (Str);
" Q  @- L4 E( V! D  p' f( eend;
% \8 U% ~5 N: u2 y7 s+ U' I; d
end.
6 T3 H7 M$ s3 H! X; p8 E5 k5 M----------------------------------------
unit 一级雨中客;

interface
, X* r! g+ p1 I
function  GetToken (aStr, aToken, aSep : String) : String;
function  CompareStr (aStr1, aStr2 : String) : Boolean;
) `" N! g: m5 Y2 _! \( tfunction  callfunc (aText: string): string;
procedure print (aText: string);
! h- n! C3 i' R7 R6 r+ m5 Z+ xfunction  Random (aScope: integer): integer;
+ |+ T* g& ~+ _8 sfunction  Length (aText: string): integer;
procedure Inc (aInt: integer);
procedure Dec (aInt: integer);
function  StrToInt (astr: string): integer;
' @! G/ |( O# u" g4 q2 @' }function  IntToStr (aInt: integer): string;
6 S4 F/ {6 r( F  h% Eprocedure exit;
% b  |9 B. l  p1 L( J" j4 w
procedure OnCreate (aStr : String);
procedure OnDie (aStr : String);
4 z7 r# F. d4 h/ b0 ~procedure OnChangeState (aStr : String);
) [+ q5 K& q3 y4 ^" U- Aprocedure OnGetResult (aStr : String);
) T# E: b! _7 o
+ J; z$ V1 U* W" }, v! W+ A) H6 Qimplementation

% Y& n7 e9 O: x( ~6 Hprocedure OnGetResult (aStr : String);
# v% p# t. u8 _% z' `) w. O6 n* ?) W  kvar
   Str, Name : String;
   iCount : Integer;
* j! Z1 g" S' S- b, E/ pbegin
   if aStr = 'start' then begin
9 Y5 v6 `9 g$ Q" ~6 _2 S. f# U# y      Str := callfunc ('getsenderserverid');
      if Str <> '53' then exit;

5 G3 V" w1 I+ f1 m      Str := callfunc ('getsenderrace');
      if Str <> '1' then exit;
, F8 k% o" U# L% G2 [* D/ y
. F* V4 H# T# c" D, @9 S3 Q. u2 S      Str := callfunc ('checksenderpowerwearitem');
      iCount := StrToInt (Str);
; p3 B! O) n9 d3 U/ N( p      if iCount > 0 then begin
& R4 S5 x- q# l% S, S  ~         print ('say 请先脱掉带技能值的装备!');
* v  L0 S2 _9 u9 p7 P; h+ H0 J! C         Name := callfunc ('getsendername');
4 F  o# m4 a  T         Str := 'movespace ' + Name;
         Str := Str + ' user 49 106 55 100';
9 k, {# D7 V8 ^4 F  P% G/ o         print (Str);
) a4 ]1 O  f+ S* z         exit;
5 c0 c/ l4 j9 O- S, r4 e9 `, Q      end;
      Str := callfunc ('checksendercurusemagic 0');
4 A0 g4 c8 A, |9 H      if Str = 'true' then begin
         print ('say 选错武功了!');
         Name := callfunc ('getsendername');
         Str := 'movespace ' + Name;
% ?: o  y: _: Q' v- W         Str := Str + ' user 49 106 55 100';
         print (Str);
2 \# ~# q2 {5 f& f/ j* w         exit;
4 w# O  n# r- h: b" P( \      end;
' P5 t8 F/ C# ]% M      Str := callfunc ('checksendercurusemagic 1');
2 z) Q" i0 D& `. Y/ F      if Str = 'true' then begin
- x  _/ b$ b) F3 L         print ('say 选错武功了!');
% w6 m1 @- b: j% ^, t2 X& U         Name := callfunc ('getsendername');
         Str := 'movespace ' + Name;
5 D0 _, t* Z% I         Str := Str + ' user 49 106 55 100';
4 \) e# H& x* W- A7 A7 E0 H) }         print (Str);
         exit;
      end;

7 V8 r! e: B- r% V' Z+ q      print ('directmovespace 一级雨中客 npc 53 20 18 0');

+ O" J* v8 ^  I; X& t: O! A% O      print ('commandicebyname 一级雨中客 npc 500');
      print ('setallowhitbytick true 500');      

      Name := callfunc ('getsendername');
7 e/ q; U* u3 f  `% t+ Y      Str := 'commandicebyname ' + Name;
      Str := Str + ' user 500';
      print (Str);
& W  {, O. U$ g
# ^9 f; K! X( }      print ('senderrefill');

7 T9 _8 }& U6 ~      print ('say 领教了 50');
      print ('say 开始吧 400');
      exit;
   end;
end;
. o+ D' N- l) \
procedure OnCreate (aStr : String);
var
   Str : String;
5 H) |6 h9 F, f3 h* a* R# G: Gbegin
) j. b, l4 U7 C% n2 g9 Q+ a" F   Str := callfunc ('getsenderrace');
, n* ^" c. s4 h) h' k   if Str <> '1' then begin
      exit;
* m* G6 `2 g9 P, {1 |2 h   end;
3 s; [" j7 r$ l, \# S
$ r0 b- b; ~) y: c7 e, D' |7 W   Str := 'showwindow .\help\一级雨中客.txt 1';
4 s) o' [2 u7 I/ P   print (Str);
   exit;
end;

$ H* d% e8 b, kprocedure OnDie (aStr : String);
- Y( M5 T% Z5 Q( `var
   Str, Name : String;
   FirstQuest : Integer;
begin
   Str := callfunc ('getsenderrace');
; U- Z: d( s5 U; n1 K2 E9 s; r2 N   if Str <> '1' then exit;
9 h. p6 H/ k7 M6 B1 N" K
   Str := callfunc ('getsenderfirstquest');
/ J8 n3 u, [1 R+ H0 [4 v   FirstQuest := StrToInt (Str);
& l+ s% x% C& y, Y5 U
2 E4 A* W; w0 D+ t% @   if FirstQuest < 5 then begin
% k$ g3 L+ r1 ^      Str := callfunc ('checkenoughspace');
      if Str = 'false' then begin
" V) ?; w- l$ a6 i         print ('say 物品栏已满...');
         exit;
      end;

! E* |/ C+ s5 }) H* w: M" _2 [      print ('changesenderfirstquest 5');
      print ('putsendermagicitem 新手训练弯刀 @一级雨中客 4');
4 X9 w- l) j6 {+ b   end;

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

   print ('mapregen 54');
! `6 K8 b& a  A7 t# r. N5 t# L% A
$ p7 B4 ^1 s9 I" p   Name := callfunc ('getsendername');
8 f& g5 h3 V4 Q2 ]) s9 ~1 ~* F   Str := 'movespace ' + Name;
   Str := Str + ' user 54 17 18 500';
, l+ K7 s) L/ i# }  B   print (Str);
, f6 I: s; n$ D+ ?end;
0 [8 d1 u- D* W- q4 |$ O
& W% m' m8 T0 }1 z& [* c" f6 [9 ~procedure OnChangeState (aStr : String);
var
   Str, Name : String;
begin
   if aStr <> 'die' then exit;
+ {) y$ U! U7 u# M% O' r
   Str := callfunc ('getsenderrace');
   if Str <> '1' then exit;

   print ('say 不错。只要能维持几秒钟');
   print ('say 到那时谁都不是你的对手 400');

3 B2 ]" b  q8 V( m, H/ u   Name := callfunc ('getsendername');
   Str := 'movespace ' + Name;
   Str := Str + ' user 49 106 55 600';
   print (Str);
end;

end.

  G3 D: u3 J  @8 |) d--------------------------------------------------------------------------------------------------------------
5 Z' z9 ~' G6 i
$ C; _1 v+ ~- p! B0 m9 S: Nunit 一级老侠客;

interface
) [0 U$ v1 x2 `5 n+ f& T% P) b/ Y3 F
function  GetToken (aStr, aToken, aSep : String) : String;
. _4 f4 _5 g$ W9 E5 F0 Ufunction  CompareStr (aStr1, aStr2 : String) : Boolean;
function  callfunc (aText: string): string;
procedure print (aText: string);
function  Random (aScope: integer): integer;
; X9 d% j* S  J) L) u1 `/ Tfunction  Length (aText: string): integer;
7 d' n: t0 y  l0 I3 `procedure Inc (aInt: integer);
procedure Dec (aInt: integer);
function  StrToInt (astr: string): integer;
/ U  t) G$ B# Z" Cfunction  IntToStr (aInt: integer): string;
procedure exit;

procedure OnCreate (aStr : String);
* g+ @8 R' d/ V- Bprocedure OnDie (aStr : String);
( `6 F) e7 v/ c- Z6 Qprocedure OnChangeState (aStr : String);
. C+ [! X9 J3 Y% s1 a  V7 Z2 w+ Cprocedure OnGetResult (aStr : String);

implementation
$ U5 N; Q- E3 V0 M  |3 U) H
  w; ^8 c3 J+ p- h7 k3 b% ~procedure OnGetResult (aStr : String);
var
; ]0 E4 W) C4 U- _3 y3 E% }   Str, Name : String;
   iCount : Integer;   
begin
   if aStr = 'start' then begin
7 F" f% q" j4 q& d! `      Str := callfunc ('getsenderserverid');
' l3 U! W4 y# p/ D8 a; a8 u      if Str <> '54' then exit;
/ u/ q' T0 M; M; l3 i$ U
, e' ?. @) O$ `. h      Str := callfunc ('getsenderrace');
      if Str <> '1' then exit;
/ d& G6 ]2 }; k) Q+ |3 [
      Str := callfunc ('checksenderpowerwearitem');
      iCount := StrToInt (Str);
0 o9 M; F! b0 j7 r2 K, N# q      if iCount > 0 then begin
- Q% y" C/ t7 c* o  w- G8 M7 ^         print ('say 请先脱掉带技能值的装备!');
3 C  j0 Z7 j4 {/ b2 V6 e         Name := callfunc ('getsendername');
% J$ Z. b2 t8 u) ]8 B) V         Str := 'movespace ' + Name;
         Str := Str + ' user 49 106 55 100';
# M, \! d4 M) a9 h0 W9 l& g         print (Str);
         exit;
      end;
0 {* p- E* Q! W# z) L      Str := callfunc ('checksendercurusemagic 0');
      if Str = 'true' then begin
         print ('say 选错武功了!');
         Name := callfunc ('getsendername');
! j* R- @- {$ c5 p8 t         Str := 'movespace ' + Name;
% T! @' T. q5 I0 {2 Q  r         Str := Str + ' user 49 106 55 100';
         print (Str);
: q% @- t& `0 G! O; q" D         exit;
$ ~$ x" T2 ~5 W- e( e- I, O      end;
% f# e( E# F& A! q1 r      Str := callfunc ('checksendercurusemagic 1');
      if Str = 'true' then begin
         print ('say 选错武功了!');
" k' h) t  V$ p         Name := callfunc ('getsendername');
         Str := 'movespace ' + Name;
3 v: W( s; B3 `( F         Str := Str + ' user 49 106 55 100';
' i  h9 y% X6 l% B: w         print (Str);
: |. G3 Y" Q% J         exit;
      end;
" k- b) q6 U2 }& i" T1 C
$ Z* ]9 y# n( c0 D6 K      print ('directmovespace 一级老侠客 npc 54 20 18 0');
6 \4 i% t- y, }+ f  @7 \
( ]/ h$ c, C: L/ w      print ('commandicebyname 一级老侠客 npc 500');
      print ('setallowhitbytick true 500');      
1 A! S' V6 S# s! ?
      Name := callfunc ('getsendername');
9 D5 v  k6 p; [, c# I0 Q      Str := 'commandicebyname ' + Name;
      Str := Str + ' user 500';
      print (Str);
0 w+ D8 O" e' c% {9 H
      print ('senderrefill');

! o1 V5 `: q9 v4 z      print ('say 如果你实在想比 50');
: q# d: F! }$ D) ^6 [8 L      print ('say 我将奉陪到底 400');
      exit;
/ V8 F- |" p; g8 |) a& X" t   end;
! @6 l: T& L0 H4 A- w9 ?. Lend;
* ~( t- ~- U, S  A" {
. U# t) v4 Z6 A1 x; U% Zprocedure OnCreate (aStr : String);
7 r% d# h, P8 v, {var
2 A# a7 x0 Q5 G3 q2 e   Str : String;
begin
* q+ g2 p( o# m, W$ _   Str := callfunc ('getsenderrace');
) |3 R! l: t1 s2 o1 c- V8 Q9 V   if Str <> '1' then begin
' M/ S" ]/ o+ U4 m  p3 G      exit;
3 \$ i: N8 K9 J- `( ~0 @   end;
4 w" {$ y" O4 w4 o2 g
; h* U; Q: V- z" E   Str := 'showwindow .\help\一级老侠客.txt 1';
   print (Str);
: B0 _& i3 S2 h7 K# Z6 r& R   exit;
+ m& h; i7 V0 Nend;

, ~. g# l: `& {9 p9 h# r3 kprocedure OnDie (aStr : String);
2 S# p' c" B' b( @( K& d/ Pvar
0 L5 J5 u# t' T7 k- @6 C   Str, Name : String;
+ J, D8 W; H/ s( s; R$ R3 h' [, _   n, FirstQuest : Integer;   
% F6 \$ c2 e/ l8 o1 \4 ybegin
   Str := callfunc ('getsenderrace');
   if Str <> '1' then exit;
* v% Y) b* _) y2 Q
% I) e2 H: p7 K   Str := callfunc ('getsenderfirstquest');
   FirstQuest := StrToInt (Str);
/ C9 n9 Z8 ]: y! A: ^8 U
   Name := callfunc ('getsendername');
: w8 |# z  `6 h4 i4 \
   if FirstQuest < 6 then begin
# o1 u$ o7 [* }, p" V+ z      Str := 'sendsendertopmsg ' + Name;
/ G% w+ U% R8 T: N2 ~) R      Str := Str + '恭喜你,通过了所有的比试,获得【侠客弓服】';
8 G6 k$ y$ d( g% s0 r      print (Str);

      Str := callfunc ('checkenoughspace');
      if Str = 'false' then begin
' X& A7 Y- b" v' S1 y+ j! Y& B         print ('say 物品栏已满...');
         exit;
- x( X# g- A6 e$ I+ l8 `7 Z      end;
; a- K5 d/ q; M  l
      print ('changesenderfirstquest 6');
% Q8 a+ S6 q4 a6 \9 D: k$ K
. H6 H* r. a  P+ h1 e/ K( M      Str := callfunc ('getsendersex');
& C! Q1 l8 S4 R6 a. v$ X) k4 j      n := StrToInt (Str);
      if n = 1 then begin
         print ('putsendermagicitem 男子侠客弓服 @一级老侠客 4');
5 b7 P7 t, }% s: W      end;
9 ]+ P% A6 U& ]" j7 \+ Z      if n = 2 then begin
, n* Y6 B) b+ q3 h8 J  Y         print ('putsendermagicitem 女子侠客弓服 @一级老侠客 4');
9 S# B$ X: F' W2 A0 V; x1 C5 a! ]      end;
         print ('putsendermagicitem 新手训练神剑 @一级老侠客 4');
. x5 y3 P" F0 L1 k! l4 `( `- i9 w   end;
! i8 T! t4 |  j
   print ('say 佩服_佩服 100');
5 a: y  i: R! Z- L. D5 G
   Str := 'movespace ' + Name;
$ w) _/ `) b* ~$ H1 _   Str := Str + ' user 49 25 35 500';
   print (Str);
, g: L; n+ s* aend;
: _2 m& E+ j! |
7 q3 D0 o- m+ k; Tprocedure OnChangeState (aStr : String);
! d2 u; X3 u; @# K5 D9 nvar
   Str, Name : String;
begin
: C8 E& D1 v' G' S- z  u5 n   if aStr <> 'die' then exit;
0 v! @: \1 g! y" z8 \: V% S9 |1 z
7 [  x( t' X+ V5 l5 ~8 j1 B1 ], g   Str := callfunc ('getsenderrace');
   if Str <> '1' then exit;
$ _) [2 b7 `5 D1 h1 w4 W& L, r
   print ('say 小小年纪_就有如此高深的武功 50');
' [, ~$ W! L6 n, d3 b5 u3 W- q0 n   print ('say 日后要继续修炼... 400');
( ]. k" s/ X( e) G
5 r8 X1 K+ S" e0 F( T   Name := callfunc ('getsendername');
- d* M% t. I' |   Str := 'movespace ' + Name;
& C* m# A7 G3 Q   Str := Str + ' user 49 106 55 600';
# j/ h# w. q/ {4 w+ F   print (Str);
0 O0 ?1 D  Z3 W) z( }# ?end;
" N! f% f3 q8 m" b* j. z& Y$ `' S- A
end.
+ J1 A& x  b5 u, f7 B5 Q
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
5 p( m+ \% `# J1 ?8 N
5 X$ b$ T+ K" y2 b, l＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊

奖励物品代码：

＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊

男子侠客弓服,男子侠客弓服,24,新手村擂台战利
6 p6 @! p( y* d7 u$ m" @
品,2,,,,,FALSE,FALSE,181,6,7,,,,1,1,1,,50000,,,,,,4432,4831,TRUE,,10,20,,,,,,,200,100,100,10

0,,,,,,3,TRUE,4,,FALSE,,,,,,,,,,,,,,,
8 v. K6 }" T) B" D女子侠客弓服,女子侠客弓服,24,新手村擂台战利

品,2,,,,,FALSE,FALSE,181,6,7,,,,1,2,1,,50000,,,,,,4432,4831,TRUE,,10,20,,,,,,,200,100,100,10
$ D8 N: O& [% Y1 w3 b; X
0,,,,,,3,TRUE,4,,FALSE,,,,,,,,,,,,,,,
新手训练拳套,新手训练拳套,6,新手村擂台战利
0 w4 G0 N, t' `* Z- u
品,1,,,,,FALSE,FALSE,361,9,52,,0,0,1,,1,,50000,50000,,,,,4404,4805,TRUE,20,20,20,,,,,,,,,,,,
8 l; |, ^1 L$ K* H) c6 g1 b5 B
,,,,4,TRUE,3,TRUE,FALSE,,,,,,,,,,,,,,,
3 w( ], L4 k, J+ }, L新手训练神剑,新手训练神剑,6,新手村擂台战利
2 ]4 h: y0 M1 b) x
品,1,,,,,FALSE,FALSE,365,9,69,,2,1,1,,1,,50000,50000,,,,,4404,4805,TRUE,20,20,20,,,,,,,,,,,,
* g8 N  D' Q* x  X6 O/ E) C
- O; @9 N5 `# T9 t4 y6 G,,,,1,TRUE,3,TRUE,FALSE,,,,,,,,,,,,,,,
新手训练弯刀,新手训练弯刀,6,新手村擂台战利
3 V/ r$ O; M- Z$ x+ i( X
4 Y: H  p8 b+ S' J品,7,,,,,FALSE,FALSE,113,9,2,,2,2,1,,1,,50000,50000,,,,,4412,4813,TRUE,20,20,20,,,,,,,,,,,,,

' w% r$ I; ]1 T$ Z,,,1,TRUE,4,,FALSE,,,,,,,,,,,,,,,
新手训练长矛,新手训练长矛,6,新手村擂台战利
5 j; E+ j8 J; d/ y
品,6,,,,,FALSE,FALSE,117,9,45,,3,4,1,,1,,50000,50000,,,,,4435,4834,TRUE,20,20,20,,,,,,,,,,,,

3 w: b" L4 b" C8 k,,,,1,TRUE,4,,FALSE,,,,,,,,,,,,,,,
/ H0 q3 P# x5 m+ O( Z9 v新手训练大斧,新手训练大斧,6,新手村擂台战利

8 E( y8 ?1 ?% Y7 i$ Z品,6,,,,,FALSE,FALSE,95,9,12,,3,3,1,,1,,50000,50000,,,,,4415,4815,TRUE,20,20,20,,,,,,,,,,,,,
3 k- e& n7 ~8 Q+ m8 N
2 F7 `# y! b& a# H,,,1,TRUE,4,,FALSE,,,,,,,,,,,,,,,
* v7 d- K7 T) a; o, N
＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊

---

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

Powered by Discuz! X3.4