传送员脚本的实现方法

可以传太极密室(直接去挑公子 有2分时间 随便说明 传太极密室某固定点 里面得老人可以喊开始别得点好象不行) 黄金沙漠 帝王石谷 (主要本人知道可以传送得地图点少估建3个)
" S2 i4 W5 r0 @" g在 tgs1000/init/npc.sdb里加
传送员,传送员,0,,,,,,,,,,62,81,235,0,0,,,,20000,0,0,0,0,,0,,,,,,,,,,,,,,,TRUE,
在tgs1000/script文件加里创建一个文本 名字:传送员
里面内容
-----------------------------------------
unit 传送员;
# T# @+ O" b# V) O& xinte**ce
function  GetToken (aStr, aToken, aSep : String) : String;
function  CompareStr (aStr1, aStr2 : String) : Boolean;
9 C7 t7 R% G4 \5 V/ Q$ M9 cfunction  callfunc (aText: string): string;
procedure print (aText: string);
% J7 w4 p; s# G0 O- O& o, vfunction  Random (aScope: integer): integer;
+ E* F4 L- q9 J1 K2 Ffunction  Length (aText: string): integer;
procedure Inc (aInt: integer);
procedure Dec (aInt: integer);
function  StrToInt (astr: string): integer;
2 M, Z. P5 \0 T/ M, [" Afunction  IntToStr (aInt: integer): string;
$ B4 ?& Z# V7 f8 J/ j3 Sprocedure exit;
0 S, x5 u. a5 i3 A# _; _+ bprocedure OnLeftClick (aStr : String);
procedure OnGetResult (aStr : String);
9 L; w( h; D' @4 P! V& X# Dimplementation
: Y* d. d0 s3 ~) r! E) h% Qprocedure OnLeftClick (aStr : String);
& a# n  o' i: F4 s* ~; pvar
   Str : String;
- U4 H* H+ Z/ E# W* L9 G) N2 |/ c   Race : Integer;
begin
* y+ S) j! k6 K2 H- @   Str := callfunc ('getsenderrace');
# C! `, q+ N' b. r( u$ h   Race := StrToInt (Str);
   if Race = 1 then begin
# _( n1 ]# M4 _      Str := 'showwindow ./help/传送员.txt 1';
      print (Str);
      exit;
   end;
! i0 [" F* J2 n/ p$ Oend;
procedure OnGetResult (aStr : String);
var
   Str, Name : String;
$ N" u1 N. H( v5 {0 c8 K# }5 l   iCount, iKind : Integer;
begin
   if aStr = 'close' then begin
* W! F5 S7 K7 `1 p      exit;
; M* @0 V9 C1 u* Z) Q0 ]& {+ x   end;
   if aStr = 'goroom' then begin
      print ('mapregen 32');
' h* r3 {9 }+ O' x" h6 z      Name := callfunc ('getsendername');
3 V/ U8 j3 d8 C3 w' {      Str := 'movespace ' + Name;
! }* v+ w, e; [1 M! y+ I      Str := Str + ' user 32 23 18';
  N  T6 p& {8 X% |      print (Str);
' X( {4 A* n$ p3 r# g; `: n       exit;
( T% j' X! e: ^0 ~" w6 \& P$ J, D      end;
   if aStr = 'goshamu' then begin
      print ('mapregen 44');
: Y2 F" b2 D. v. R. Y& x& t      Name := callfunc ('getsendername');
; m8 q: G+ C  p6 P      Str := 'movespace ' + Name;
* Q/ [' ^( [) ]3 f% ~; x      Str := Str + ' user 44 110 120';
print (Str);      
5 G. x& ^8 b, T/ Y1 ^   exit;
$ P+ G! ]( C7 k8 o6 K1 Z* e9 }      end;
& E" d6 \8 N. U. ~, G   if aStr = 'goshigu' then begin
      print ('mapregen 46');
# {1 O  B( ^" L0 ^8 o& o/ x3 F& q      Name := callfunc ('getsendername');
      Str := 'movespace ' + Name;
      Str := Str + ' user 46 35 35';
print (Str);
$ S! e9 ^, R1 g* K9 V3 ]2 E  C       exit;
      end;
# s7 Z9 V  l4 K. |2 gend;
- [: N9 V. d6 A# h% Y+ h( ?end.
------------------------------------------------
在tgs1000/script文件夹里得script.sdb里
4 Z" t) p' K& F5 R! a: N最后一行加入
--------------------
72,传送员.txt,,  
5 [- V1 W5 e3 b) i1 S- d--------------------
然后在tgs1000/help里建个文本文件 名字: 传送员
内容如下
------------------------------------------------

2 b4 {2 R" z% W& A$ }5 M5 d想要传送到哪里？我可以帮忙
关闭
* N( t" v+ K$ f: C5 J1 b- A  A6 C太极密室
0 k% V; z! O5 T黄金沙漠
帝王石谷
-----------------------------------------------------
最后在tgs1000/Setting文件夹里得CreateNpc1.sdb里加
+ R6 j- r& T! e: J1 C( Z6 E1 ?1 Q0 a: [-----------------------------
! o: y& B4 F& d79,传送员,500,500,1,5,72,,
5 l# o/ u' G! x-----------------------------
' [0 @: r* Y+ j9 A9 E(79是我里面得最后一行 具体数字可以设定你这个文件里得最后一行)