传送员脚本的实现方法

可以传太极密室(直接去挑公子 有2分时间 随便说明 传太极密室某固定点 里面得老人可以喊开始别得点好象不行) 黄金沙漠 帝王石谷 (主要本人知道可以传送得地图点少估建3个)
在 tgs1000/init/npc.sdb里加
传送员,传送员,0,,,,,,,,,,62,81,235,0,0,,,,20000,0,0,0,0,,0,,,,,,,,,,,,,,,TRUE,
在tgs1000/script文件加里创建一个文本 名字:传送员
2 `1 q* y' ~' G' S里面内容
+ R! M5 G! q* d: s9 K! N" R9 \; \-----------------------------------------
8 i0 T" o* h/ @# R5 ^unit 传送员;
  F- ~: ]. U5 o" Z, m; rinte**ce
% i! I" k4 }1 [2 L8 P; `9 e! G+ kfunction  GetToken (aStr, aToken, aSep : String) : String;
function  CompareStr (aStr1, aStr2 : String) : Boolean;
7 ^4 Y) o7 S/ o- lfunction  callfunc (aText: string): string;
! e4 F, @6 ~& A9 V/ x6 G+ l. sprocedure print (aText: string);
% s) b9 j$ v8 i. pfunction  Random (aScope: integer): integer;
function  Length (aText: string): integer;
procedure Inc (aInt: integer);
procedure Dec (aInt: integer);
" l! g3 h2 y/ s/ k' Nfunction  StrToInt (astr: string): integer;
+ |8 I6 ^2 f5 @$ z' C6 ^function  IntToStr (aInt: integer): string;
procedure exit;
procedure OnLeftClick (aStr : String);
procedure OnGetResult (aStr : String);
" Z: \, {  `2 T  M" o. Q2 W7 |5 |implementation
procedure OnLeftClick (aStr : String);
var
   Str : String;
2 K. H/ l; A' I: c& O   Race : Integer;
begin
- {5 O. H3 s( t$ ]1 V5 E   Str := callfunc ('getsenderrace');
. u1 \  S  G3 m0 [7 j  _2 u# h   Race := StrToInt (Str);
   if Race = 1 then begin
4 {* S$ E& k" \7 e  ^& _      Str := 'showwindow ./help/传送员.txt 1';
5 u. w* e& L" l1 ]  s# K' b" K      print (Str);
) j- U5 U- u- x) c) R' U1 H      exit;
: O: z4 K+ l5 E* H8 d% n, h   end;
  C" o# Q& m! p) g# send;
% w) [/ J9 n, A. B! w" H8 Wprocedure OnGetResult (aStr : String);
0 o8 u$ n+ V8 j' K  L0 u5 Avar
   Str, Name : String;
& ?6 v' x) Y  j1 ~3 |/ `   iCount, iKind : Integer;
& J" u' Z0 H1 [: ?3 N# xbegin
   if aStr = 'close' then begin
      exit;
, Y0 \; ]8 d" K$ ?0 M0 n   end;
   if aStr = 'goroom' then begin
      print ('mapregen 32');
      Name := callfunc ('getsendername');
      Str := 'movespace ' + Name;
      Str := Str + ' user 32 23 18';
      print (Str);
       exit;
      end;
   if aStr = 'goshamu' then begin
      print ('mapregen 44');
      Name := callfunc ('getsendername');
: r$ x' ^" q6 ^) K      Str := 'movespace ' + Name;
      Str := Str + ' user 44 110 120';
2 P/ w) g3 i! a9 r: gprint (Str);      
) N0 Q4 f" Y1 B# n   exit;
      end;
   if aStr = 'goshigu' then begin
& E$ F: {& B5 D7 a2 n      print ('mapregen 46');
      Name := callfunc ('getsendername');
      Str := 'movespace ' + Name;
& f( o) G' x# G+ @7 z      Str := Str + ' user 46 35 35';
print (Str);
       exit;
      end;
end;
end.
6 w. F/ K5 x* F2 x( m! F2 a------------------------------------------------
在tgs1000/script文件夹里得script.sdb里
最后一行加入
  X4 K8 ?" w# ^5 R4 f--------------------
+ m  L% S2 A7 m, b; e  X72,传送员.txt,,  
--------------------
然后在tgs1000/help里建个文本文件 名字: 传送员
内容如下
------------------------------------------------

! C. O5 F- h) f想要传送到哪里？我可以帮忙
关闭
0 [1 _6 j6 L, [5 Q, p3 A! W/ t/ I太极密室
. f, R/ h/ ^' U5 ~! j黄金沙漠
( Q; K0 \1 t4 ?8 x+ n7 s5 G& e: O帝王石谷
' Q) o4 A8 Z2 k- K4 O-----------------------------------------------------
! E3 g5 J! k9 D' v! E( @最后在tgs1000/Setting文件夹里得CreateNpc1.sdb里加
9 X: }% Y; F4 `! ?6 Z3 a-----------------------------
. k4 t- c  A# y, S9 `79,传送员,500,500,1,5,72,,
-----------------------------
4 O$ o3 H6 q# ?; m# S; R(79是我里面得最后一行 具体数字可以设定你这个文件里得最后一行)