无错的新人接待员代码

Init下--Npc处 添加
) b$ I4 L* ~7 j& }" ^  n4 R2 n
新人接待员,新人接待员,0,,新人接待员.txt,,,,,,,,62,81,235,0,0,,,,20000,0,0,0,0,,0,,,,,,,,,,,,,,,TRUE,

0 T! B7 j% M4 ^' ]9 x
Help处 添加 新人接待员.txt

<trade>

/ @7 f/ V% C1 y" i; t3 F<title>新人接待员</title>

% J6 ^9 k! |% E; Q. I" S! R+ a<image name=z81 value=235>

<text>
6 G6 q: p9 R( e2 m0 C& s. N, e
4 ~: \2 Y/ q) x' u# m& r6 w* L把新人证明交给我.我给你发装备
0 ?3 N+ l" ]" z
, U9 J+ D& G8 @& B</text>

<command send='close'>关闭</command>
. O4 A( Z" A5 q! \6 O+ X
' E* W3 |' e& [& Z3 A<command send="changeweapon">给 新人证明</command>

</trade>


" ]$ R% P$ u6 k3 o' R2 PScript下添加 新人接待员.txt

( o5 J; v: q6 u1 _unit 新人接待员;
9 Q- x& s. O  @8 k- [* S. B- Z4 u2 B+ X
interface
8 V/ a- X/ w4 d0 h. U, C
function  GetToken (aStr, aToken, aSep : String) : String;

% `6 h; R' Y1 v, }. efunction  CompareStr (aStr1, aStr2 : String) : Boolean;
" d' t3 D$ N4 l# c5 l$ g
function  callfunc (aText: string): string;

procedure print (aText: string);

function  Random (aScope: integer): integer;
) F3 z* c  p$ l0 o( |
function  Length (aText: string): integer;

procedure Inc (aInt: integer);

& |  g' \) g  g# s3 G% k9 {procedure Dec (aInt: integer);

function  StrToInt (astr: string): integer;
( S, d3 j1 j) x) H& X0 |
% |) T& q5 d9 G+ o* B6 cfunction  IntToStr (aInt: integer): string;

: O; g( \/ S! K  j# E$ [procedure exit;

procedure OnGetResult (aStr : String);
% `) j8 z+ d& R8 K# \
procedure OnLeftClick (aStr : String);
3 \/ o6 g# p4 x3 \) a/ [
! C' w# `( t# n( r' s, {& ximplementation
7 X2 S$ p: T% l) S! S/ b# J3 v
. f* s! l8 A! k0 G/ R) pprocedure OnLeftClick (aStr : String);

  X/ I: F8 n2 Y8 X( ?var
6 |) i+ O" j6 j2 c+ h9 `
   Str : String;

& _) L) X( `  B0 ]* n" r   Race : Integer;
! r! @% L1 E! u4 F1 k
; l' q3 r$ G5 n6 N, z- Kbegin

   Str := callfunc ('getsenderrace');

   Race := StrToInt (Str);
! }' G8 G% W2 g: G* l- ]' q$ x
# @  J# C, g- j1 O7 s# y1 z   if Race = 1 then begin
3 d- n) k6 e' h& S1 c
' Z% Y3 ?5 p: i0 s+ O: t: F$ d      Str := 'showwindow .\help\新人接待员.txt 1';

3 t* C+ T5 Q4 ]) ^/ K2 H2 O1 G      print (Str);
$ c2 S  ?7 u! ]
      exit;
9 K+ h8 ]/ V$ I$ B
3 d) h+ W' E' s6 H& k   end;

end;

* M2 e# I7 F6 c2 }" z" t% G& S/ K

procedure OnGetResult (aStr : String);
  r7 p. P' Q$ ?' }9 U
var

, Z7 l; {% L! a& N( h8 E
2 C( i8 S8 D+ d2 d4 m   Str, Name : String;

begin
( |8 T  T9 L- G: i
4 ^% c4 |, G5 a7 i8 l   if aStr = 'close' then begin

, x( I  u, J5 b7 T. }      exit;
" V: W$ `" z1 o7 A
   end;

! p2 ?5 l& x9 O   if aStr = 'changeweapon' then begin
- v; H7 c7 u: A  |- f4 A  ?2 U# o% a
      Str := callfunc ('getsenderitemexistence 新人证明:1 1');
# v5 ~% Y* T. |- b5 [6 [( D
      if Str = 'false' then begin

         Str := 'say 想欺瞒老子～！！哪里有新手证？';

& x6 F( f& X# W1 P         print (Str);
9 Y8 ]2 s! _) u1 m  A
) ~4 k# }& D/ Z  ^, K         exit;

3 k  t$ X; J4 _% M* b3 a      end;

      if Str = 'true' then begin

         print ('getsenderitem2 新人证明:1');

+ L5 T" I5 ?3 M7 y& r, q" y         print ('putsendermagicitem 金元:100 @新人接待员 4');
7 `0 K! c* l4 X% o+ P$ l
         print ('putsendermagicitem 传送戒指:1 @新人接待员 4');

         print ('putsendermagicitem 狐狸手套:1 @新人接待员 4');

         print ('putsendermagicitem 龙光剑:1 @新人接待员 4');

         print ('putsendermagicitem 月光刀:1 @新人接待员 4');
  N# K7 B3 j, B" `
# ]. E1 k) w! C' ]& l         print ('putsendermagicitem 狼牙戟:1 @新人接待员 4');

  g% w  P1 p. _# b/ E/ ?         print ('putsendermagicitem 炎帝火灵斧:1 @新人接待员 4');

         print ('putsendermagicitem 男子黑龙战甲:1 @新人接待员 4');
+ h* p& [4 e- M4 y
7 s5 p) L0 `$ K, o2 i, j$ d3 J4 z1 d         print ('putsendermagicitem 女子黑龙战甲:1 @新人接待员 4');

         print ('putsendermagicitem 男子龙云帽:1 @新人接待员 4');

         print ('putsendermagicitem 女子龙云帽:1 @新人接待员 4');
8 ~2 W, R) i2 M4 d
         print ('putsendermagicitem 驱魔烈火弓:1 @新人接待员 4');
; J8 e1 f0 F7 O5 D8 h
; [& U( ]6 ?5 K' x! l# I         print ('putsendermagicitem 四季甲胄:1 @新人接待员 4');
, w+ d3 T+ N# z
- ?/ Z; ?& ?" R, [+ S: V5 ?( W* D         print ('say 小意思不用感谢HOHO!!_小伙子!_祝你愉快!!');

         exit;

      end;
# X, ^3 b! B+ J# L+ s
      exit;

   end;


end;
) }$ D8 i2 r/ G" s
+ g! f) o% r1 ^! a9 B8 N
end.
% k2 ]5 W1 R: \- v
点击浏览该文件

; n: y9 F% O0 N; |* ?6 k4 S2 T) m6 DScript下的 Script文件 添加


& W/ F' l* h& C% H$ Z1 _# ~: Q# A133,新人接待员.txt,,        133是我这里的，你要按照自己的修改！
$ v0 F9 ^6 j  i% g' I; V3 V

Setting文件下 CreateNpc0   0是地图的代码

17,新人接待员,170,226,1,5,133,新人接待员.sdb,  133对应Script下的 133

1 [5 p$ h* T+ O: S4 r4 Y# ~17是顺序数字 你按照自己的顺序些

" H- |' S0 K# i  t