建立一个商店NPC方法

tgs/help里添加文本林月如（实际自己想用名字自己换，但是要换全勒）内容

<trade>
<title>林月如</title>
; v1 }4 S; f$ ?* }4 r<image name=z54 value=133>
<text>
出售好东西啦！！
</text>
) h% J" r9 R7 }; a* [1 z<command send='close'>关闭</command>

<command send="sell">购买物品</command>
<command send="buy">卖出物品</command>
4 w1 o% ^+ Y  L! V1 A8 k
6 R: M! o6 C/ E4 C</trade>
4 y% x, Y- t3 r6 E( Y, r3 b6 o

tgs/npcsetting/添加文本林月如，内容如下

SELLTITLE:林月如
SELLCAPTION:出售各种好东西
SELLIMAGE:133
4 ?! Y  S8 N% Q+ kSELLITEM:，买的东西，最多40件
SELLITEM:
SELLITEM:
* ~. R% p' ]( H! @! `- q- e; U  MBUYCAPTION:多余的可以卖这！
BUYIMAGE:133
BUYITEM:卖的东西

  J( {" ~: p! k3 B7 B( c" \tgs/npcsetting/里添加林月如.sdb文件，内容如下
2 I! H  m: k+ S9 v0 C1 }; @
: m  ~3 n; i$ s% }Name,boSelfSay,boMain,MainNumber,HearString,SayString,NeedItem,GiveItem,CountLimit,RecoverTime,DelayTime,
# y# x+ u" y8 z7 S; S. Z1,TRUE,,,,买 卖 各种极品噢^_^！,,,,,1000,
! k' z% M# `  Y2,TRUE,,,,一般人可买不到的好东东噢^_^！,,,,,1833,
( h/ K% J0 r% i! w

tgs/script里添加文本林月如  内容如下
1 T9 U; a; i6 x( c  ]
# d6 p  R. B) @8 yunit 林月如;
3 G4 s& G$ {) Z* h9 I
, P5 i0 A/ P2 J1 a6 dinterface
6 G, l% C1 O7 `& i: ]1 e9 g/ o
function  GetToken (aStr, aToken, aSep : String) : String;
) y4 Q) f3 v' p* R" S  n; P* u% w) Z: Vfunction  CompareStr (aStr1, aStr2 : String) : Boolean;
9 M+ d6 `+ X$ hfunction  callfunc (aText: string): string;
procedure print (aText: string);
' y, z, m7 y) k9 G: [% ~' y' \function  Random (aScope: integer): integer;
function  Length (aText: string): integer;
procedure Inc (aInt: integer);
procedure Dec (aInt: integer);
2 J( E5 ^7 E& z" e" Tfunction  StrToInt (astr: string): integer;
function  IntToStr (aInt: integer): string;
procedure exit;
% |  y5 d# }) H. b
' x) i$ s1 e0 p& Q; w% Hprocedure OnGetResult (aStr : String);
procedure OnLeftClick (aStr : String);

0 i/ u( p+ j" X4 h$ v, mimplementation
9 f1 N. ?0 f# t; h
procedure OnLeftClick (aStr : String);
var
6 L% D9 q( ~8 e# R/ I   Str : String;
0 n+ h- H1 j8 G: Z  m: @   Race : Integer;
begin
- l7 o* N+ q7 t, K6 K( W   Str := callfunc ('getsenderrace');
   Race := StrToInt (Str);
   if Race = 1 then begin
1 a( Z+ D4 ?* T, `$ v- a3 }  |9 W$ s7 B      Str := 'showwindow .\help\林月如.txt 1';
7 V; ?  \3 n) ^. M) K      print (Str);
! v5 _3 C. ]" A# e2 {0 d4 j1 k      exit;
# k7 |$ b& R! S- J/ @' j& \2 V   end;
end;
0 ?  y8 N3 u" D$ v, T7 y; |
' L' Q+ e& d+ a4 f. X" X, O( @8 |procedure OnGetResult (aStr : String);
# P+ u9 x3 r; A( r( E' Wvar
   Str, Name : String;
! B4 W) X* j& Lbegin
' |% ^' ^- q: E4 P   if aStr = 'close' then begin
6 I$ J4 h4 d2 V! O& F/ C( P9 K3 ]      exit;
' p7 S8 b+ T4 D) r' @   end;
   if aStr = 'sell' then begin
      Name := callfunc ('getsendername');
      Str := 'tradewindow ' + Name;
      Str := Str + ' 0';
; O& a2 L( T8 h      print (Str);
; [9 Z6 z& s3 g# T% x2 }      exit;
' o) I* w8 }( p1 Q( P* t; w/ Y   end;
7 _  Q' Y' W7 }6 l4 ~3 F* t   if aStr = 'buy' then begin
      Name := callfunc ('getsendername');
      Str := 'tradewindow ' + Name;
# y/ \; a5 u$ W! l% ?. ]6 A      Str := Str + ' 1';
      print (Str);
      exit;
   end;
   if aStr = 'log' then begin
      Str := 'logitemwindow';
1 _0 T- h1 s. F& y      print (Str);
) Y( m6 n' X' T  M; E4 n      exit;
   end;
1 ~  R1 Y1 E) oend;

end.


2 e$ v" Z: Y  q( L' V! x2 Kinit/npc.sdb里添加

林月如,林月如,-100,,林月如.txt,TRUE,,TRUE,,,,,23,42,126,600,196,183,208,83,3500,-20,0,0,0,,4,,,,,,,,,,,,,,,,


script.sdb里添加
3 Z. f( G- f5 E1 u
XXX,林月如.txt,,                                 注：XXX为你最后1个号码，并且为唯一

7 h; b: D8 Q, x) }$ |0 X' [对应NPC的设置地点里添加

# D- z! h- @( f) H  s2 b& T) n最后1个数字,林月如,坐标,坐标,几个,范围,刚才哪个XXX的数字,林月如.sdb,

举个例子

5,林月如,56,88,1,3,148,林月如.sdb,