传送员脚本的实现方法

可以传太极密室(直接去挑公子 有2分时间 随便说明 传太极密室某固定点 里面得老人可以喊开始别得点好象不行) 黄金沙漠 帝王石谷 (主要本人知道可以传送得地图点少估建3个)
在 tgs1000/init/npc.sdb里加
' W% _! O- S2 h+ n; a+ c传送员,传送员,0,,,,,,,,,,62,81,235,0,0,,,,20000,0,0,0,0,,0,,,,,,,,,,,,,,,TRUE,
$ I3 u% _! Q( r, K0 e( p在tgs1000/script文件加里创建一个文本 名字:传送员
里面内容
-----------------------------------------
unit 传送员;
- m; {0 ?9 u$ F0 A) uinte**ce
3 r5 C9 B0 \6 ^5 }function  GetToken (aStr, aToken, aSep : String) : String;
9 O! L9 W2 A) W  p1 V. `function  CompareStr (aStr1, aStr2 : String) : Boolean;
function  callfunc (aText: string): string;
, T) Q" P3 g! S9 N) Fprocedure print (aText: string);
function  Random (aScope: integer): integer;
function  Length (aText: string): integer;
procedure Inc (aInt: integer);
4 _2 C' d1 y. _' c) e4 W5 ]6 Z' J  [- sprocedure Dec (aInt: integer);
function  StrToInt (astr: string): integer;
function  IntToStr (aInt: integer): string;
procedure exit;
6 T, n) l$ o) M' @0 `  Pprocedure OnLeftClick (aStr : String);
$ D$ a& Z5 \. gprocedure OnGetResult (aStr : String);
implementation
& {7 e' N" X; Y, S: jprocedure OnLeftClick (aStr : String);
) q$ f; W9 H5 l. L# B6 Gvar
  V( J9 K' x7 V. x7 g   Str : String;
) r  @% c4 n( w1 E, z3 {' d   Race : Integer;
begin
   Str := callfunc ('getsenderrace');
   Race := StrToInt (Str);
* p' ?/ M7 C" s+ _8 H6 }   if Race = 1 then begin
      Str := 'showwindow ./help/传送员.txt 1';
      print (Str);
$ L; K6 e/ E2 I3 k& l) J: n      exit;
   end;
end;
procedure OnGetResult (aStr : String);
2 Y5 d$ S9 V8 n; t8 Ivar
   Str, Name : String;
   iCount, iKind : Integer;
6 C6 a, ]. t# K2 Tbegin
: M& Z2 k& m% q. d9 V$ f   if aStr = 'close' then begin
      exit;
, K3 v) D7 d% y0 H   end;
6 z+ m2 s# Q; x4 \, I   if aStr = 'goroom' then begin
4 p) o0 |. B) B# F6 q      print ('mapregen 32');
      Name := callfunc ('getsendername');
2 Q5 ~9 t, M- y. t+ d) o; R      Str := 'movespace ' + Name;
! u  N. E, ~- v6 u$ H, P      Str := Str + ' user 32 23 18';
      print (Str);
       exit;
5 s( N& F7 u1 c0 V" d3 E% m      end;
- X0 Q$ A/ M) i" ]/ t/ f( |   if aStr = 'goshamu' then begin
      print ('mapregen 44');
      Name := callfunc ('getsendername');
      Str := 'movespace ' + Name;
      Str := Str + ' user 44 110 120';
% Y9 H& S5 [2 j, u% Q7 A( l, a8 vprint (Str);      
   exit;
      end;
   if aStr = 'goshigu' then begin
      print ('mapregen 46');
' @1 ~+ I' o0 y      Name := callfunc ('getsendername');
      Str := 'movespace ' + Name;
      Str := Str + ' user 46 35 35';
+ ]+ c9 \7 L; B: A) ^: f- t8 kprint (Str);
/ I$ q8 n8 M: O- x; Z$ V: c       exit;
      end;
end;
; Y. u  `* V0 @9 b9 y* d6 Cend.
( X4 ?+ h7 U" k" d------------------------------------------------
; j+ C# r6 ^1 A) K9 a在tgs1000/script文件夹里得script.sdb里
最后一行加入
--------------------
72,传送员.txt,,  
--------------------
# d9 [$ C4 B- Q3 S9 ~/ H然后在tgs1000/help里建个文本文件 名字: 传送员
内容如下
------------------------------------------------

! W1 u$ o! Q, P5 x想要传送到哪里？我可以帮忙
关闭
太极密室
黄金沙漠
7 m' Y. D1 c" O+ t帝王石谷
-----------------------------------------------------
& j, R2 b' O1 ?. U* n4 F最后在tgs1000/Setting文件夹里得CreateNpc1.sdb里加
* I4 W1 I4 d2 V. j-----------------------------
% K7 K( z2 k" [% @7 l79,传送员,500,500,1,5,72,,
-----------------------------
+ s, B. |! `' g/ T(79是我里面得最后一行 具体数字可以设定你这个文件里得最后一行)

' p  |# C7 e& y