传送员脚本的实现方法

可以传太极密室(直接去挑公子 有2分时间 随便说明 传太极密室某固定点 里面得老人可以喊开始别得点好象不行) 黄金沙漠 帝王石谷 (主要本人知道可以传送得地图点少估建3个)
在 tgs1000/init/npc.sdb里加
! T0 j/ F( r1 s; d4 d& Q$ J7 i( }传送员,传送员,0,,,,,,,,,,62,81,235,0,0,,,,20000,0,0,0,0,,0,,,,,,,,,,,,,,,TRUE,
在tgs1000/script文件加里创建一个文本 名字:传送员
5 R4 H3 v# L5 d8 \) @: b# F7 p里面内容
, C* D  E5 B% r- Z; h. E" a# R-----------------------------------------
unit 传送员;
4 r# Y# t2 Q6 V9 N  Q! H$ ainte**ce
function  GetToken (aStr, aToken, aSep : String) : String;
% |9 S* _; H& b+ x; `function  CompareStr (aStr1, aStr2 : String) : Boolean;
9 I1 C& j; o9 vfunction  callfunc (aText: string): string;
/ h& W  ^3 V- L4 ?$ Pprocedure print (aText: string);
function  Random (aScope: integer): integer;
function  Length (aText: string): integer;
procedure Inc (aInt: integer);
procedure Dec (aInt: integer);
4 R! p) w0 Y1 _0 p( Dfunction  StrToInt (astr: string): integer;
function  IntToStr (aInt: integer): string;
procedure exit;
procedure OnLeftClick (aStr : String);
procedure OnGetResult (aStr : String);
' R8 n6 \& [# z7 t# w% Cimplementation
/ U/ h$ v9 x8 Q  U& {procedure OnLeftClick (aStr : String);
4 Z! n- a) u8 r7 }9 nvar
   Str : String;
   Race : Integer;
# O& x' g1 y7 }3 T7 dbegin
   Str := callfunc ('getsenderrace');
1 I' H/ @! k! F9 t' M% Y   Race := StrToInt (Str);
   if Race = 1 then begin
4 f" A; P9 C- K, u6 m$ H/ }9 b) v      Str := 'showwindow ./help/传送员.txt 1';
2 Q0 Y& L) f8 N+ J1 o      print (Str);
      exit;
   end;
6 {" C9 c4 }. [. D/ e4 s! gend;
procedure OnGetResult (aStr : String);
9 I7 k, _% Y( P8 w) avar
   Str, Name : String;
   iCount, iKind : Integer;
begin
( A* T$ H5 p2 }7 P2 C% y* Y2 L   if aStr = 'close' then begin
( q5 V( ~; l" N6 O' v6 C      exit;
   end;
   if aStr = 'goroom' then begin
      print ('mapregen 32');
* \6 Q& N/ Z) R  \& k      Name := callfunc ('getsendername');
8 G4 X% F4 c; I% S; e% S. @      Str := 'movespace ' + Name;
      Str := Str + ' user 32 23 18';
      print (Str);
' m% D9 r; M8 h4 ]- R# G       exit;
      end;
   if aStr = 'goshamu' then begin
      print ('mapregen 44');
      Name := callfunc ('getsendername');
/ S- b3 Z, S* Z      Str := 'movespace ' + Name;
      Str := Str + ' user 44 110 120';
/ J- c, T/ }5 m; P, T) rprint (Str);      
   exit;
" k% |7 p: g0 u& \+ \      end;
   if aStr = 'goshigu' then begin
1 g) u+ L' S% O/ |- @7 |      print ('mapregen 46');
      Name := callfunc ('getsendername');
# F, i1 q+ M/ X0 q& ?% u+ Y+ t; l' x      Str := 'movespace ' + Name;
      Str := Str + ' user 46 35 35';
$ |! V0 ]# P" g* [6 `' x0 Iprint (Str);
3 G/ J( ?3 f5 v+ W       exit;
% M5 w# Q% ^! o; R1 F5 q      end;
* S4 |- m8 y5 I- D3 |end;
end.
6 J- d+ I$ _/ m------------------------------------------------
9 r! w: x& x- y4 J5 U% Y在tgs1000/script文件夹里得script.sdb里
8 c. _, B/ w* Z7 L/ g最后一行加入
--------------------
72,传送员.txt,,  
--------------------
. V2 S( M1 C/ s; `! `8 R: L3 K! ^3 \然后在tgs1000/help里建个文本文件 名字: 传送员
内容如下
3 r1 ^. L' a6 f" H& u------------------------------------------------

想要传送到哪里？我可以帮忙
+ O" M8 z; Q* i& X& W关闭
0 a, W5 y! {1 ~8 e/ ^4 l9 R+ U太极密室
黄金沙漠
1 v5 Y- t4 Q4 X3 c; I. e2 L" i帝王石谷
-----------------------------------------------------
最后在tgs1000/Setting文件夹里得CreateNpc1.sdb里加
-----------------------------
79,传送员,500,500,1,5,72,,
5 q! ]. }" x' p" Q8 K5 k2 K2 b-----------------------------
5 \5 Z* I! V# y% H(79是我里面得最后一行 具体数字可以设定你这个文件里得最后一行)