建立一个商店NPC方法

tgs/help里添加文本林月如（实际自己想用名字自己换，但是要换全勒）内容
  S- D# i5 J" E9 o( B: k
1 x9 v) H' m& T, B<trade>
6 b- S/ R* j9 I7 M" f9 K<title>林月如</title>
<image name=z54 value=133>
* `$ R. O2 ]  ]$ I3 A+ \5 J  Y  s<text>
出售好东西啦！！
5 B; v* ?( M. |, j& @% N% F4 T</text>
<command send='close'>关闭</command>

" d6 y& E2 a0 l  n6 l<command send="sell">购买物品</command>
<command send="buy">卖出物品</command>
  V; }* _, ?3 P
2 }" y( _& h3 J( [8 Y1 j6 M</trade>
  E; g% a' M/ |  |4 M

. q! F  T' G8 {" K, d7 X3 Dtgs/npcsetting/添加文本林月如，内容如下

# q: r" T+ O1 ySELLTITLE:林月如
% L) ^6 @; h. b6 dSELLCAPTION:出售各种好东西
SELLIMAGE:133
7 o& o# K* S8 ~SELLITEM:，买的东西，最多40件
7 ]% Y9 g" b6 t9 ~* `SELLITEM:
3 F$ \. t+ L8 }' ]SELLITEM:
, t) b' E' ^3 [* n- VBUYCAPTION:多余的可以卖这！
BUYIMAGE:133
& p* o; j- x" r1 z* rBUYITEM:卖的东西

tgs/npcsetting/里添加林月如.sdb文件，内容如下

Name,boSelfSay,boMain,MainNumber,HearString,SayString,NeedItem,GiveItem,CountLimit,RecoverTime,DelayTime,
2 V: R# n4 e' X. E- B1 S! f1,TRUE,,,,买 卖 各种极品噢^_^！,,,,,1000,
5 [3 M5 |( N' m7 H0 h2,TRUE,,,,一般人可买不到的好东东噢^_^！,,,,,1833,
& |3 F* O& @" }& V: n: T, y

1 j+ r& ^3 y: [, b% Itgs/script里添加文本林月如  内容如下
1 B  ^# u! ]8 |: h8 `, E+ z
8 y9 E; P  L) b* q7 Punit 林月如;
6 S5 N4 w7 e$ Z5 O, a8 ^+ `
interface
' B! ~6 Z, H, R4 d$ f
function  GetToken (aStr, aToken, aSep : String) : String;
function  CompareStr (aStr1, aStr2 : String) : Boolean;
5 X$ W  z) ~2 K# Nfunction  callfunc (aText: string): string;
procedure print (aText: string);
0 E0 \: ]' Y$ H- Kfunction  Random (aScope: integer): integer;
function  Length (aText: string): integer;
5 o1 m: o0 \! ^5 O( F2 ^4 Nprocedure Inc (aInt: integer);
procedure Dec (aInt: integer);
$ x. p9 e  f  |$ I5 T  k- Z0 pfunction  StrToInt (astr: string): integer;
function  IntToStr (aInt: integer): string;
- S! ?7 Z3 R) p2 V' pprocedure exit;
2 a- y" ~5 \! N; X& O7 b9 K  P3 B
procedure OnGetResult (aStr : String);
procedure OnLeftClick (aStr : String);

implementation
2 N% o" R8 z7 q% d
procedure OnLeftClick (aStr : String);
( Y) V- ^( R. mvar
& e3 s4 C; Y  `& I  z  h/ Y   Str : String;
   Race : Integer;
begin
* w. \- }1 M! ^! h( P; U( w   Str := callfunc ('getsenderrace');
   Race := StrToInt (Str);
   if Race = 1 then begin
      Str := 'showwindow .\help\林月如.txt 1';
      print (Str);
      exit;
2 `, t* k+ [; `6 W! d   end;
2 F# a" D; A8 n# c! m% yend;
& b$ J% j+ Q0 T
procedure OnGetResult (aStr : String);
4 @" H/ W# j* `var
, E5 S1 s. z- l8 O- G  I# L( z. }   Str, Name : String;
4 S) y# ?) @. b9 P: y( Obegin
$ N0 y3 {' N; |5 l1 W+ e, d   if aStr = 'close' then begin
      exit;
% u' _5 [5 u( i6 F   end;
: O% S. A# [$ C  A0 {9 `. V) f& P   if aStr = 'sell' then begin
. w3 ^) H2 Z. n! F9 e8 n      Name := callfunc ('getsendername');
      Str := 'tradewindow ' + Name;
      Str := Str + ' 0';
2 l! \- U4 |: _  m& m1 r2 w( T      print (Str);
      exit;
3 O: J/ C/ F% J4 Y   end;
* _6 `1 W/ q7 Q. s" x: {& Y7 {0 z   if aStr = 'buy' then begin
      Name := callfunc ('getsendername');
8 k' M, L9 x4 s) s      Str := 'tradewindow ' + Name;
; j4 ^0 y- a" h/ o1 P7 B      Str := Str + ' 1';
# g1 `5 Z' Z2 J" l% k8 K      print (Str);
      exit;
- ?) n$ F9 Q$ n( K" i7 Y   end;
   if aStr = 'log' then begin
3 j( ^" T! E" H) O% V      Str := 'logitemwindow';
8 L  \0 }: P$ |; K+ O( G      print (Str);
      exit;
   end;
end;

end.
( [2 l+ ?; U4 X

init/npc.sdb里添加
) d, t: _- [6 P' \) [5 ^+ `
8 i% }) g* A+ C! q林月如,林月如,-100,,林月如.txt,TRUE,,TRUE,,,,,23,42,126,600,196,183,208,83,3500,-20,0,0,0,,4,,,,,,,,,,,,,,,,

9 E' l9 X3 B, C' b0 Z. n6 v
! q  \, ^+ S6 y4 w' Bscript.sdb里添加

# B6 |! L! D$ P$ B3 i2 f, |XXX,林月如.txt,,                                 注：XXX为你最后1个号码，并且为唯一
0 S* c3 U% I) u, j
对应NPC的设置地点里添加
1 z) `0 o8 |( r4 C' G1 ^  H
, ~9 f0 c3 Q, c, q) C7 b; y) [5 f! f- D  j最后1个数字,林月如,坐标,坐标,几个,范围,刚才哪个XXX的数字,林月如.sdb,

举个例子
  v; X0 R7 s5 t
. J+ b# Y1 H+ T1 n8 t# s5,林月如,56,88,1,3,148,林月如.sdb,