传送员脚本的实现方法

可以传太极密室(直接去挑公子 有2分时间 随便说明 传太极密室某固定点 里面得老人可以喊开始别得点好象不行) 黄金沙漠 帝王石谷 (主要本人知道可以传送得地图点少估建3个)
在 tgs1000/init/npc.sdb里加
传送员,传送员,0,,,,,,,,,,62,81,235,0,0,,,,20000,0,0,0,0,,0,,,,,,,,,,,,,,,TRUE,
  R3 @' Y( |) H6 Z8 v在tgs1000/script文件加里创建一个文本 名字:传送员
里面内容
% d$ X4 s, D2 K: t  s-----------------------------------------
unit 传送员;
. o$ a+ Q% _0 p/ z1 @) t+ Winte**ce
function  GetToken (aStr, aToken, aSep : String) : String;
! [* X7 ^" }! |4 u  Lfunction  CompareStr (aStr1, aStr2 : String) : Boolean;
function  callfunc (aText: string): string;
procedure print (aText: string);
function  Random (aScope: integer): integer;
function  Length (aText: string): integer;
6 O+ r' e# c! n0 h1 D5 uprocedure Inc (aInt: integer);
4 Z5 a4 f4 d0 c! _7 qprocedure Dec (aInt: integer);
3 n7 f: h3 E2 ^& W& Vfunction  StrToInt (astr: string): integer;
function  IntToStr (aInt: integer): string;
procedure exit;
procedure OnLeftClick (aStr : String);
procedure OnGetResult (aStr : String);
' i- S4 _2 |+ |9 ^5 q, wimplementation
: z$ H7 f/ q" j7 B" wprocedure OnLeftClick (aStr : String);
* V. z0 z' C% u' u: V; L& Xvar
0 B$ J8 [, G3 K) R   Str : String;
% Z8 S( o3 e" l$ f# [   Race : Integer;
begin
6 N' d( i( G: L- V- s, v   Str := callfunc ('getsenderrace');
) A# {) |- w! w7 ~   Race := StrToInt (Str);
   if Race = 1 then begin
      Str := 'showwindow ./help/传送员.txt 1';
4 W: s% @+ ~/ k5 Q% J      print (Str);
/ ]" Z4 C) D( W# O3 w! z      exit;
' h9 ^& C" }* @   end;
% W# r$ u1 C. x: qend;
' v: ]6 }- z6 K+ ^, hprocedure OnGetResult (aStr : String);
var
   Str, Name : String;
; _( P" v' b( O8 n   iCount, iKind : Integer;
0 l' f8 s4 h! k  e% y% d/ Rbegin
2 v4 S! M# {0 k* B$ ]: k! y2 O   if aStr = 'close' then begin
      exit;
   end;
" V% d% W4 d! f$ I& }$ m   if aStr = 'goroom' then begin
      print ('mapregen 32');
( ]2 P" m' ~8 V5 \0 b, c      Name := callfunc ('getsendername');
      Str := 'movespace ' + Name;
# {3 X" \/ {1 K9 s. n      Str := Str + ' user 32 23 18';
      print (Str);
       exit;
      end;
   if aStr = 'goshamu' then begin
      print ('mapregen 44');
      Name := callfunc ('getsendername');
      Str := 'movespace ' + Name;
      Str := Str + ' user 44 110 120';
. t7 ^, o4 u9 q% F2 Fprint (Str);      
   exit;
. y) ]* |' Y9 I  E      end;
6 Y; d, g6 I( W. D8 R   if aStr = 'goshigu' then begin
' E8 A4 _4 q+ S* `' z" [      print ('mapregen 46');
      Name := callfunc ('getsendername');
5 k1 [5 ?8 W! e# [      Str := 'movespace ' + Name;
      Str := Str + ' user 46 35 35';
+ G1 ]" c: ~; f( h% z8 C& xprint (Str);
       exit;
      end;
# S) ~1 v( ^/ k& C3 f) ]) Yend;
end.
1 V) C9 ?  P, [------------------------------------------------
在tgs1000/script文件夹里得script.sdb里
0 k$ @" j4 ]+ t) U& ]% |" D! m/ ]* r最后一行加入
--------------------
: Z0 {% E/ Y1 p  `- L8 m72,传送员.txt,,  
* a0 {% p: ^3 K8 v5 B--------------------
+ G* }& X3 |' C然后在tgs1000/help里建个文本文件 名字: 传送员
内容如下
------------------------------------------------

想要传送到哪里？我可以帮忙
关闭
. {, h; h1 p2 G; {; T. z/ v$ |太极密室
黄金沙漠
3 q* q: A% ?9 x& y) ]9 u* G帝王石谷
  Y+ g: @" s% `: P; s; q( E  `8 @4 j- h-----------------------------------------------------
4 o! i' ]8 c8 ]: z5 \( V最后在tgs1000/Setting文件夹里得CreateNpc1.sdb里加
( T3 f$ ]9 f: k/ `-----------------------------
* i3 L, U5 V  Y+ f( f79,传送员,500,500,1,5,72,,
4 y7 E; A: n& s! U-----------------------------
(79是我里面得最后一行 具体数字可以设定你这个文件里得最后一行)

+ X1 u2 H0 ]* L3 T4 u4 f, d! x