传送员脚本的实现方法

可以传太极密室(直接去挑公子 有2分时间 随便说明 传太极密室某固定点 里面得老人可以喊开始别得点好象不行) 黄金沙漠 帝王石谷 (主要本人知道可以传送得地图点少估建3个)
在 tgs1000/init/npc.sdb里加
传送员,传送员,0,,,,,,,,,,62,81,235,0,0,,,,20000,0,0,0,0,,0,,,,,,,,,,,,,,,TRUE,
2 }# [5 j* x" m- D. B) w+ f; }, J0 X在tgs1000/script文件加里创建一个文本 名字:传送员
0 ~! S2 s6 d4 e8 D+ p& D+ i9 [9 I里面内容
) C+ l8 X% M% H, Y-----------------------------------------
7 @& |: H; q; r; @1 k* Aunit 传送员;
inte**ce
function  GetToken (aStr, aToken, aSep : String) : String;
function  CompareStr (aStr1, aStr2 : String) : Boolean;
7 x' W1 \0 _( _3 K% bfunction  callfunc (aText: string): string;
) n3 Y0 @4 }8 w9 w. n6 Mprocedure print (aText: string);
function  Random (aScope: integer): integer;
+ W# n' r, M% }- g8 Jfunction  Length (aText: string): integer;
  R* c3 V: t$ N2 j# J' _procedure Inc (aInt: integer);
; d( `& B" s- M) i# xprocedure Dec (aInt: integer);
; ~' @6 E, }! qfunction  StrToInt (astr: string): integer;
6 b& s0 b( L$ efunction  IntToStr (aInt: integer): string;
. @7 g0 X7 W  @procedure exit;
procedure OnLeftClick (aStr : String);
procedure OnGetResult (aStr : String);
implementation
' D1 Y( F) o- @. ^5 Tprocedure OnLeftClick (aStr : String);
var
3 B2 `7 O, z6 v5 T   Str : String;
. k$ \1 w3 t6 {0 C' G   Race : Integer;
) \' Z/ `+ E* Y' m8 U; [begin
9 L. O3 x- g3 v" D: f# p) [   Str := callfunc ('getsenderrace');
   Race := StrToInt (Str);
* n/ f" k- }3 I. c- n+ X   if Race = 1 then begin
      Str := 'showwindow ./help/传送员.txt 1';
- @+ V3 N# u' Q      print (Str);
      exit;
   end;
; e# ?' r$ C' q' Iend;
procedure OnGetResult (aStr : String);
var
2 v& _: s* o" `   Str, Name : String;
   iCount, iKind : Integer;
begin
6 N# b0 ~4 }( A. w( D/ O   if aStr = 'close' then begin
# W, k3 @7 e, p$ r      exit;
2 Y+ r$ c; q# s' U5 K+ U* K   end;
   if aStr = 'goroom' then begin
; j8 Q" |$ i5 ?3 m! ]& h- F      print ('mapregen 32');
$ j6 h" r% ]& G# M( {3 D! t      Name := callfunc ('getsendername');
      Str := 'movespace ' + Name;
      Str := Str + ' user 32 23 18';
) K* f; V6 n3 ^& I      print (Str);
. z3 B% p7 p/ V  ~) s+ n3 h       exit;
# T! A: i' l' E      end;
   if aStr = 'goshamu' then begin
      print ('mapregen 44');
      Name := callfunc ('getsendername');
      Str := 'movespace ' + Name;
7 e+ N  n  r) }- }1 l  K      Str := Str + ' user 44 110 120';
# n0 e3 ?, q2 p6 e' Yprint (Str);      
   exit;
      end;
   if aStr = 'goshigu' then begin
      print ('mapregen 46');
% @/ D' v2 _3 L7 t- g% w% X      Name := callfunc ('getsendername');
      Str := 'movespace ' + Name;
      Str := Str + ' user 46 35 35';
print (Str);
& M; C/ `* H, r; S: f       exit;
      end;
. R# i( c# W5 f3 T6 ^end;
" j: p! {: N+ G! i% `! f- s! Cend.
" T8 p/ e9 y9 E) V* F------------------------------------------------
5 F  ~& |/ e) k# x; `/ L在tgs1000/script文件夹里得script.sdb里
! k( H/ g; \! w& C, E最后一行加入
--------------------
0 ^8 ]  d% Q! k72,传送员.txt,,  
% t1 B) k/ K# ?# C; C4 o: _. u& x--------------------
然后在tgs1000/help里建个文本文件 名字: 传送员
+ K) K3 M) k, U3 h, I7 W内容如下
------------------------------------------------
% a) {5 d2 J* ~& b- ^9 N2 U
想要传送到哪里？我可以帮忙
关闭
7 g0 G4 i3 B* w+ t9 ^1 ]  D太极密室
黄金沙漠
帝王石谷
  Z' s8 ]4 k/ b: |) i# y3 M7 Y-----------------------------------------------------
最后在tgs1000/Setting文件夹里得CreateNpc1.sdb里加
-----------------------------
# _0 F, o3 r  @0 @. n6 n79,传送员,500,500,1,5,72,,
-----------------------------
& s' B- ]4 V( ~5 d- s(79是我里面得最后一行 具体数字可以设定你这个文件里得最后一行)

) y1 n# }  f& k$ Z