建立一个商店NPC方法

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

7 D  V) d  Q4 d<trade>
) C. e6 v2 y8 J( j  q<title>林月如</title>
* r9 p6 U: E6 o9 F2 B<image name=z54 value=133>
<text>
# [. E0 l6 T0 a. F8 I, R, X0 _出售好东西啦！！
" C" P1 X  Y8 m, N4 M) I</text>
<command send='close'>关闭</command>
1 r4 P8 S& r0 Q5 ~% w, j
<command send="sell">购买物品</command>
<command send="buy">卖出物品</command>
. I; S3 n3 X3 I9 \- W! Y
</trade>
1 f3 d8 e3 r7 l

/ ]% i6 G1 X& ktgs/npcsetting/添加文本林月如，内容如下
9 z3 C% F) i& i. U/ m' @9 |9 C
SELLTITLE:林月如
: L( c( L" D  S5 Z5 D: |5 S: ]( gSELLCAPTION:出售各种好东西
SELLIMAGE:133
8 g7 M5 l* m, C, Y9 m8 b1 cSELLITEM:，买的东西，最多40件
SELLITEM:
' V$ s; K% h$ e+ D& ^  S: q6 OSELLITEM:
) Y2 `9 D4 i+ b9 N- O' g; q0 JBUYCAPTION:多余的可以卖这！
BUYIMAGE:133
BUYITEM:卖的东西
: @/ \( D# K- v/ K! P2 N, n
tgs/npcsetting/里添加林月如.sdb文件，内容如下
$ G- |: {$ k: y7 J+ |' T' ~' a6 p
Name,boSelfSay,boMain,MainNumber,HearString,SayString,NeedItem,GiveItem,CountLimit,RecoverTime,DelayTime,
1,TRUE,,,,买 卖 各种极品噢^_^！,,,,,1000,
2,TRUE,,,,一般人可买不到的好东东噢^_^！,,,,,1833,
8 O, R- l7 P6 G# B5 O2 |

tgs/script里添加文本林月如  内容如下
# m+ ^( G2 K" |& X5 u
unit 林月如;

interface

4 i7 N! A  X* d) Ffunction  GetToken (aStr, aToken, aSep : String) : String;
8 X# d- B0 H- J. I) {4 d$ I6 Gfunction  CompareStr (aStr1, aStr2 : String) : Boolean;
& d$ v. {7 E' qfunction  callfunc (aText: string): string;
procedure print (aText: string);
function  Random (aScope: integer): integer;
function  Length (aText: string): integer;
procedure Inc (aInt: integer);
, ]  W- d: Q* D+ r7 w, i7 c: t9 Dprocedure Dec (aInt: integer);
" Z" J  }# B. \2 D, \function  StrToInt (astr: string): integer;
function  IntToStr (aInt: integer): string;
. R/ {, b' q6 R3 T# c. P, a; y7 G9 wprocedure exit;
1 h% ]0 k; @2 x& {) g; ]
' `' G% F/ u5 z1 N# w$ Eprocedure OnGetResult (aStr : String);
+ O5 o: i( e- }% R0 Eprocedure OnLeftClick (aStr : String);
6 Z3 U6 |4 h2 D; X6 G. z
7 I' X- x% c" @; [* X; fimplementation

procedure OnLeftClick (aStr : String);
var
   Str : String;
   Race : Integer;
& i6 K2 k. W' q7 Z8 `begin
& \& O" b5 i1 M' f  N  t1 Y   Str := callfunc ('getsenderrace');
   Race := StrToInt (Str);
  B7 E/ u6 _. b% C& }, k# K( K$ X  E   if Race = 1 then begin
* p7 \0 E8 t: p* F* f      Str := 'showwindow .\help\林月如.txt 1';
      print (Str);
$ B% F! `) P' z% f) H      exit;
   end;
end;

1 }# m& {  @  pprocedure OnGetResult (aStr : String);
2 T6 z9 P9 s! ?' m5 Yvar
   Str, Name : String;
begin
/ `$ I' w1 v. f9 k  f9 g   if aStr = 'close' then begin
. y% m" @0 s( \7 R, V' d, u+ V      exit;
- S' [' o1 q  J6 a  ?8 I! l   end;
( @6 E3 q6 |8 A( H2 ?3 x   if aStr = 'sell' then begin
8 a! d# T% \" n6 p" v6 D      Name := callfunc ('getsendername');
      Str := 'tradewindow ' + Name;
      Str := Str + ' 0';
      print (Str);
      exit;
   end;
   if aStr = 'buy' then begin
      Name := callfunc ('getsendername');
8 a* \. e5 Q( u/ q: }      Str := 'tradewindow ' + Name;
      Str := Str + ' 1';
9 U& l  k7 c9 \1 [( B      print (Str);
      exit;
   end;
   if aStr = 'log' then begin
5 T5 M8 a0 X9 A3 x  @. l7 ~% }: K& Y4 N      Str := 'logitemwindow';
      print (Str);
      exit;
   end;
: ~* X1 v% S% t$ rend;

end.
, O3 d/ s& t9 b  t

4 T1 X) v* N0 S0 K- B/ |* Ginit/npc.sdb里添加

0 L$ s8 S+ E* x1 x林月如,林月如,-100,,林月如.txt,TRUE,,TRUE,,,,,23,42,126,600,196,183,208,83,3500,-20,0,0,0,,4,,,,,,,,,,,,,,,,


+ n6 U% ~1 i' S1 @: @7 Qscript.sdb里添加
/ A3 R3 t+ R; Y3 q1 Y; b
XXX,林月如.txt,,                                 注：XXX为你最后1个号码，并且为唯一

+ S% ~  q" }4 [8 W& [/ ]对应NPC的设置地点里添加

最后1个数字,林月如,坐标,坐标,几个,范围,刚才哪个XXX的数字,林月如.sdb,

' f5 M3 k5 @  t4 N0 j, y. Y2 {举个例子
, z1 Q, b) M1 X
' y3 l! U) }- ^* b4 n- f5,林月如,56,88,1,3,148,林月如.sdb,

; ~8 J! S& A7 Z, T8 \$ X