传送员脚本的实现方法

可以传太极密室(直接去挑公子 有2分时间 随便说明 传太极密室某固定点 里面得老人可以喊开始别得点好象不行) 黄金沙漠 帝王石谷 (主要本人知道可以传送得地图点少估建3个)
! r! N9 D5 ^# C# [  B在 tgs1000/init/npc.sdb里加
, z; j% a  p2 I2 V' @4 p0 P传送员,传送员,0,,,,,,,,,,62,81,235,0,0,,,,20000,0,0,0,0,,0,,,,,,,,,,,,,,,TRUE,
在tgs1000/script文件加里创建一个文本 名字:传送员
里面内容
-----------------------------------------
/ I' s: J' Z3 e0 sunit 传送员;
inte**ce
function  GetToken (aStr, aToken, aSep : String) : String;
7 v2 X9 y/ N$ J8 I4 b  vfunction  CompareStr (aStr1, aStr2 : String) : Boolean;
function  callfunc (aText: string): string;
procedure print (aText: string);
function  Random (aScope: integer): integer;
  n4 h5 m  A0 Y6 e" j; d3 h/ e& cfunction  Length (aText: string): integer;
procedure Inc (aInt: integer);
procedure Dec (aInt: integer);
function  StrToInt (astr: string): integer;
function  IntToStr (aInt: integer): string;
procedure exit;
7 D, b  f$ i. y6 M& kprocedure OnLeftClick (aStr : String);
procedure OnGetResult (aStr : String);
4 {2 H) `+ ]; Y7 ]9 j$ pimplementation
procedure OnLeftClick (aStr : String);
var
   Str : String;
% a; D$ F* ]  N, |   Race : Integer;
begin
   Str := callfunc ('getsenderrace');
" y6 ]5 A* K1 x+ T8 a- {   Race := StrToInt (Str);
   if Race = 1 then begin
' I& W( V; t, A/ G8 t, i) Z      Str := 'showwindow ./help/传送员.txt 1';
      print (Str);
      exit;
   end;
$ D5 `. ^( ]8 Z: o& Fend;
procedure OnGetResult (aStr : String);
" R( C2 M7 r3 Z& avar
   Str, Name : String;
   iCount, iKind : Integer;
0 b* b1 y, b5 H; nbegin
   if aStr = 'close' then begin
      exit;
   end;
   if aStr = 'goroom' then begin
      print ('mapregen 32');
1 v$ l, |5 m8 A+ T9 n: `4 c7 A) b      Name := callfunc ('getsendername');
6 R  D4 k" X# m2 Y" e* Y+ n& _      Str := 'movespace ' + Name;
      Str := Str + ' user 32 23 18';
* e5 K3 f/ v; W6 e9 N* w* j3 x      print (Str);
       exit;
      end;
7 I1 i( u+ f5 Q- I+ o! M   if aStr = 'goshamu' then begin
2 V7 Z( R0 C; l' W) k3 F      print ('mapregen 44');
8 X1 e5 l. j# I) d8 P; N/ T      Name := callfunc ('getsendername');
6 B3 D9 g7 M0 j! |5 {( F( O      Str := 'movespace ' + Name;
      Str := Str + ' user 44 110 120';
8 f9 S0 x+ m; i' @) ^4 tprint (Str);      
7 ~; G, v& p1 y. h. o   exit;
      end;
. e5 }% k/ `& }  q; _6 W   if aStr = 'goshigu' then begin
      print ('mapregen 46');
      Name := callfunc ('getsendername');
      Str := 'movespace ' + Name;
4 D* |) I6 Z/ k' H4 Q      Str := Str + ' user 46 35 35';
print (Str);
       exit;
      end;
$ Z6 q7 x* f  q5 }. xend;
end.
------------------------------------------------
在tgs1000/script文件夹里得script.sdb里
最后一行加入
: E6 y/ t4 W2 i( P. l--------------------
, X* e, I# T! F/ z$ G# L" P72,传送员.txt,,  
--------------------
然后在tgs1000/help里建个文本文件 名字: 传送员
. d4 x  H! n$ a3 u& Q内容如下
------------------------------------------------

想要传送到哪里？我可以帮忙
' `7 j9 ^3 u6 v# {% b& F" W: w: U关闭
太极密室
黄金沙漠
帝王石谷
-----------------------------------------------------
$ a3 p8 r6 C; r: k( g最后在tgs1000/Setting文件夹里得CreateNpc1.sdb里加
-----------------------------
79,传送员,500,500,1,5,72,,
6 @. U0 H: ^! _) \6 `  \! X-----------------------------
(79是我里面得最后一行 具体数字可以设定你这个文件里得最后一行)

4 i; K) I% L7 O5 c# A