建立一个商店NPC方法

tgs/help里添加文本林月如（实际自己想用名字自己换，但是要换全勒）内容
$ R5 c4 r5 ~& f" d1 B, d
" r$ F& }' f3 _& n# ]9 G$ B<trade>
3 Q% s5 v! E6 y. t* K$ n: _<title>林月如</title>
$ ?6 i: d' N; ^9 e( [<image name=z54 value=133>
: u3 \7 h, ]) i7 ~" K<text>
出售好东西啦！！
$ J; H; z4 s+ G</text>
<command send='close'>关闭</command>

<command send="sell">购买物品</command>
<command send="buy">卖出物品</command>

</trade>

6 D2 W& m" t9 @  C/ G) F
' p, ^; k7 C8 }6 X( O# ?$ g2 Dtgs/npcsetting/添加文本林月如，内容如下
7 [0 q3 r3 d' B3 F
4 H' H* |5 ^- Q3 ~- i; D. xSELLTITLE:林月如
; k" d; k( B' `  a/ j; GSELLCAPTION:出售各种好东西
; T5 g5 A" i( G* v/ ASELLIMAGE:133
SELLITEM:，买的东西，最多40件
SELLITEM:
SELLITEM:
4 q- G: `) _, b# c7 s& W0 ?  S! U4 VBUYCAPTION:多余的可以卖这！
BUYIMAGE:133
BUYITEM:卖的东西
4 G+ K, G' T! Z3 v. x" z, S& h
tgs/npcsetting/里添加林月如.sdb文件，内容如下

Name,boSelfSay,boMain,MainNumber,HearString,SayString,NeedItem,GiveItem,CountLimit,RecoverTime,DelayTime,
1,TRUE,,,,买 卖 各种极品噢^_^！,,,,,1000,
* w6 Z5 ~3 y0 x( k2 T5 W2,TRUE,,,,一般人可买不到的好东东噢^_^！,,,,,1833,

( ~# h; `/ ^% `) p! [0 B
) r* ?5 J7 s# v6 ftgs/script里添加文本林月如  内容如下

unit 林月如;

interface

function  GetToken (aStr, aToken, aSep : String) : String;
0 [" `& u; X- E, s$ x# wfunction  CompareStr (aStr1, aStr2 : String) : Boolean;
function  callfunc (aText: string): string;
procedure print (aText: string);
function  Random (aScope: integer): integer;
* S9 b0 ~$ o6 s1 Jfunction  Length (aText: string): integer;
, i# h4 m7 e1 k5 l% d7 n5 Uprocedure Inc (aInt: integer);
* w2 S2 k) x; U  b) cprocedure Dec (aInt: integer);
function  StrToInt (astr: string): integer;
function  IntToStr (aInt: integer): string;
procedure exit;
, m' T; I$ B" J1 y/ J, _
* M. R  M) K! r, T5 C7 \0 j3 ^procedure OnGetResult (aStr : String);
procedure OnLeftClick (aStr : String);
9 t; T, |' a% s4 s! H  t
implementation

  I( E+ `) a, d1 n0 `. E7 A* Rprocedure OnLeftClick (aStr : String);
var
5 b1 k% \. ^7 Q: q' @9 N" x   Str : String;
; e3 f; B" Q: \3 b# F4 m& Q   Race : Integer;
begin
   Str := callfunc ('getsenderrace');
* v$ V7 E' p: M* S# {' Y5 {   Race := StrToInt (Str);
0 F2 r4 v7 f# [/ ^/ l$ G" w   if Race = 1 then begin
      Str := 'showwindow .\help\林月如.txt 1';
      print (Str);
      exit;
   end;
9 V' T' ]. y4 C' qend;
9 g- ~) C" ?& h# i# q
& l; S/ n% h% Tprocedure OnGetResult (aStr : String);
6 J5 [4 `3 Z0 z/ ?var
0 n6 w% C- i/ Y- ^6 E' z   Str, Name : String;
begin
9 G3 h/ {' l% K  C   if aStr = 'close' then begin
      exit;
   end;
   if aStr = 'sell' then begin
+ ^# m0 m/ V* z' a" G, z& X4 y      Name := callfunc ('getsendername');
/ D# f  g( ^3 V' [: \      Str := 'tradewindow ' + Name;
      Str := Str + ' 0';
      print (Str);
# X+ H1 ~: k$ P: t8 B      exit;
% t' T1 T6 n) d* w   end;
   if aStr = 'buy' then begin
6 Y4 j% j7 S6 ?1 z+ P      Name := callfunc ('getsendername');
      Str := 'tradewindow ' + Name;
      Str := Str + ' 1';
      print (Str);
2 K7 \0 Z6 B& y" p* `2 p      exit;
+ G* F3 Z8 o. t4 l2 I   end;
* x0 L4 V/ E9 i   if aStr = 'log' then begin
      Str := 'logitemwindow';
      print (Str);
      exit;
5 [" |3 k9 \4 z2 d, Q& t, O$ R2 J5 m: n   end;
end;

6 Y) n4 x" ^  Z- t- w; U) Uend.


) t9 i7 C/ \3 w3 Einit/npc.sdb里添加

林月如,林月如,-100,,林月如.txt,TRUE,,TRUE,,,,,23,42,126,600,196,183,208,83,3500,-20,0,0,0,,4,,,,,,,,,,,,,,,,
# n% H* T7 }5 N7 K; I- i, Y
# q! }/ u! V4 Z1 ^0 B0 L6 N
script.sdb里添加

XXX,林月如.txt,,                                 注：XXX为你最后1个号码，并且为唯一

; f# M7 ?9 p- R; o/ C* _% y对应NPC的设置地点里添加
6 w: i% l2 @, [4 e
0 a% w  `1 h' M& K$ g: h* o最后1个数字,林月如,坐标,坐标,几个,范围,刚才哪个XXX的数字,林月如.sdb,

" M! i! Y* c5 O6 T举个例子
% M7 H7 I, J/ Y( n1 F* B
5,林月如,56,88,1,3,148,林月如.sdb,

1 M# ]5 a% n" r