传送员脚本的实现方法

可以传太极密室(直接去挑公子 有2分时间 随便说明 传太极密室某固定点 里面得老人可以喊开始别得点好象不行) 黄金沙漠 帝王石谷 (主要本人知道可以传送得地图点少估建3个)
在 tgs1000/init/npc.sdb里加
传送员,传送员,0,,,,,,,,,,62,81,235,0,0,,,,20000,0,0,0,0,,0,,,,,,,,,,,,,,,TRUE,
# Q; R% G) W5 V. T& O1 `在tgs1000/script文件加里创建一个文本 名字:传送员
里面内容
-----------------------------------------
unit 传送员;
; `& }  G" w8 L$ E/ }inte**ce
function  GetToken (aStr, aToken, aSep : String) : String;
function  CompareStr (aStr1, aStr2 : String) : Boolean;
: D# g. n2 w* l( afunction  callfunc (aText: string): string;
  F( z5 l+ @2 N3 i. Y! G( ^procedure print (aText: string);
8 A5 P( Q; `) Ifunction  Random (aScope: integer): integer;
function  Length (aText: string): integer;
procedure Inc (aInt: integer);
procedure Dec (aInt: integer);
function  StrToInt (astr: string): integer;
function  IntToStr (aInt: integer): string;
+ b% I& \! U+ [: b# |: aprocedure exit;
" [8 o3 f" `  ~5 C* y- X, h8 iprocedure OnLeftClick (aStr : String);
procedure OnGetResult (aStr : String);
. ]$ v3 A  L2 p+ J0 S! U; Vimplementation
: t# [  g- v; Y: j! x7 H) gprocedure OnLeftClick (aStr : String);
, V6 M; r) p/ N5 }9 N& Svar
( I7 |6 t% W5 I- S1 S. o/ e8 S" z   Str : String;
   Race : Integer;
# _. B+ J8 _# J! I7 p" E$ rbegin
" B5 p. d6 `' `/ q   Str := callfunc ('getsenderrace');
7 u1 ]' O3 u% K8 g$ ^, P   Race := StrToInt (Str);
   if Race = 1 then begin
      Str := 'showwindow ./help/传送员.txt 1';
      print (Str);
+ E! w* r6 |% A) h& K) Q      exit;
   end;
end;
procedure OnGetResult (aStr : String);
var
   Str, Name : String;
' v) }$ J/ P! W3 _; v   iCount, iKind : Integer;
4 T3 U( P9 p. c% r: L9 o4 L/ Qbegin
( U( J+ p7 e; Z: [' `5 k0 |   if aStr = 'close' then begin
      exit;
   end;
   if aStr = 'goroom' then begin
& F1 w1 o! G5 H. y4 I# x1 `      print ('mapregen 32');
8 N; {# ~, F2 m' x/ k      Name := callfunc ('getsendername');
      Str := 'movespace ' + Name;
9 @1 l. f, m+ C; U  B      Str := Str + ' user 32 23 18';
      print (Str);
       exit;
8 u3 P9 ~* L: \0 x. N      end;
  G6 q  A* E9 r  y9 I7 D   if aStr = 'goshamu' then begin
: k  J, d6 n0 {      print ('mapregen 44');
      Name := callfunc ('getsendername');
. W5 _' v0 a) L' x+ c      Str := 'movespace ' + Name;
      Str := Str + ' user 44 110 120';
, H% ?2 K4 Z' ^$ ?! x. [9 s# G# tprint (Str);      
   exit;
+ Q0 A7 Y! b8 O, M& H      end;
   if aStr = 'goshigu' then begin
9 _6 e( Q0 V. d9 l      print ('mapregen 46');
      Name := callfunc ('getsendername');
      Str := 'movespace ' + Name;
      Str := Str + ' user 46 35 35';
print (Str);
       exit;
      end;
end;
end.
: E0 v0 c; {) W% W4 C) A- M------------------------------------------------
在tgs1000/script文件夹里得script.sdb里
最后一行加入
7 z8 u. I4 [5 C) ^--------------------
72,传送员.txt,,  
: B: u3 k: ^* U- ?--------------------
8 `) f  Y8 X* D* T- T' b* Q然后在tgs1000/help里建个文本文件 名字: 传送员
内容如下
0 G5 a. }% }, I- ^" s4 N7 g------------------------------------------------

想要传送到哪里？我可以帮忙
关闭
太极密室
& m5 Y% W9 J4 Y- s4 o9 ~, Y# b黄金沙漠
帝王石谷
$ n: j2 A6 g' W& t- l5 q-----------------------------------------------------
6 K' f2 G. l3 G6 O5 G7 I最后在tgs1000/Setting文件夹里得CreateNpc1.sdb里加
0 o+ {( \7 f0 }; s8 |5 a5 y2 t-----------------------------
79,传送员,500,500,1,5,72,,
-----------------------------
4 @: Q. X8 P# R6 t. ^(79是我里面得最后一行 具体数字可以设定你这个文件里得最后一行)