传送员脚本的实现方法

可以传太极密室(直接去挑公子 有2分时间 随便说明 传太极密室某固定点 里面得老人可以喊开始别得点好象不行) 黄金沙漠 帝王石谷 (主要本人知道可以传送得地图点少估建3个)
  n$ N8 w; g/ r* J/ K1 h9 F7 Z) J- a在 tgs1000/init/npc.sdb里加
传送员,传送员,0,,,,,,,,,,62,81,235,0,0,,,,20000,0,0,0,0,,0,,,,,,,,,,,,,,,TRUE,
在tgs1000/script文件加里创建一个文本 名字:传送员
里面内容
-----------------------------------------
) G* W3 M8 h) Q  l( s. L  v+ Lunit 传送员;
! \  w3 h, ?* k% W& B) xinte**ce
function  GetToken (aStr, aToken, aSep : String) : String;
/ ~* w  e! u5 m. k' ~* V! p% Sfunction  CompareStr (aStr1, aStr2 : String) : Boolean;
; w* C2 p8 [: U. t% m  L% `function  callfunc (aText: string): string;
procedure print (aText: string);
7 E2 Y. x6 h, o# [7 r, r& B; ], mfunction  Random (aScope: integer): integer;
function  Length (aText: string): integer;
procedure Inc (aInt: integer);
5 T* x1 ^# v& \procedure Dec (aInt: integer);
function  StrToInt (astr: string): integer;
$ K/ \/ L, L7 u3 ^' Y& c9 Y# i9 Gfunction  IntToStr (aInt: integer): string;
procedure exit;
procedure OnLeftClick (aStr : String);
& ~. T& T" y& f+ Sprocedure OnGetResult (aStr : String);
implementation
procedure OnLeftClick (aStr : String);
var
   Str : String;
: U6 W! W& a. P- g8 B* ?3 k$ o4 ?   Race : Integer;
begin
   Str := callfunc ('getsenderrace');
. S# c) N/ |, }) M1 o( |. u   Race := StrToInt (Str);
5 Y& i* s6 v% C" |/ e* X$ U   if Race = 1 then begin
      Str := 'showwindow ./help/传送员.txt 1';
      print (Str);
      exit;
   end;
/ t- [5 h, `+ Q7 Bend;
6 @0 G  z# M% Y& \( P' S  M3 xprocedure OnGetResult (aStr : String);
: q* j( `) V8 ]4 H4 n1 ?6 @var
4 j+ w* }& Y) z4 F. u) [4 \5 s/ U4 r   Str, Name : String;
: d6 n) e- O9 t   iCount, iKind : Integer;
1 R) B3 |$ s5 ebegin
3 z+ K. j5 z/ @, c" t* a   if aStr = 'close' then begin
8 f: W& x7 K8 @* g4 R% n      exit;
  ]! D% B$ ]# i% b$ H( G- c   end;
- w4 t3 p; |, R( l# N   if aStr = 'goroom' then begin
      print ('mapregen 32');
      Name := callfunc ('getsendername');
      Str := 'movespace ' + Name;
# m7 @. O, `) Q. [" I8 L      Str := Str + ' user 32 23 18';
1 V& ?1 n! h: S" Q8 u      print (Str);
       exit;
5 ~3 X' N* ]/ C! A5 Y      end;
   if aStr = 'goshamu' then begin
$ T  k* b' V: N% g9 ]      print ('mapregen 44');
      Name := callfunc ('getsendername');
      Str := 'movespace ' + Name;
" D! l) r( `0 w( v5 U      Str := Str + ' user 44 110 120';
print (Str);      
   exit;
- Z6 u# q2 A& t9 y* p# x* ?$ X6 K      end;
   if aStr = 'goshigu' then begin
9 y0 e8 v5 q# d- O8 W$ o      print ('mapregen 46');
8 j" N( z3 V: l; A' p* b      Name := callfunc ('getsendername');
4 O4 m" v. G5 z, W  B* F# V* R      Str := 'movespace ' + Name;
3 [* s$ C  H1 r& n      Str := Str + ' user 46 35 35';
# o1 Z0 z4 K* ?+ h$ b4 Gprint (Str);
' i, k5 {3 U$ s8 Q( Z       exit;
( H3 C  A. f6 |      end;
end;
: O- q8 p2 f- @6 @; Cend.
1 T; G# T& ?' R/ n8 w9 j+ Q------------------------------------------------
7 W" A" ?: J2 m0 V& P在tgs1000/script文件夹里得script.sdb里
最后一行加入
. K" k/ ^1 R  F- ~% s--------------------
9 h0 H4 _0 k( D2 G2 N3 Z- ~9 `72,传送员.txt,,  
--------------------
然后在tgs1000/help里建个文本文件 名字: 传送员
3 Z1 c, q9 x3 o- i' a5 M内容如下
------------------------------------------------
% A4 D+ q( |8 ~  D  E
想要传送到哪里？我可以帮忙
- |( K9 I, A- P关闭
太极密室
. D" P; J: m# Y& g( D, t$ ?黄金沙漠
帝王石谷
-----------------------------------------------------
最后在tgs1000/Setting文件夹里得CreateNpc1.sdb里加
5 w' Q2 ^8 D/ Q5 }( L) R* ^-----------------------------
, W+ T. M9 w3 h; c& E8 P! P# K79,传送员,500,500,1,5,72,,
% y* j0 N/ u, u! d4 f+ A  _/ u! \-----------------------------
(79是我里面得最后一行 具体数字可以设定你这个文件里得最后一行)