传送员脚本的实现方法

可以传太极密室(直接去挑公子 有2分时间 随便说明 传太极密室某固定点 里面得老人可以喊开始别得点好象不行) 黄金沙漠 帝王石谷 (主要本人知道可以传送得地图点少估建3个)
在 tgs1000/init/npc.sdb里加
- u  x% x  E$ w+ h$ m5 ^传送员,传送员,0,,,,,,,,,,62,81,235,0,0,,,,20000,0,0,0,0,,0,,,,,,,,,,,,,,,TRUE,
在tgs1000/script文件加里创建一个文本 名字:传送员
5 X4 j( P) J" n& q& W里面内容
-----------------------------------------
6 u$ O6 U: \* M  {) i: p. b' bunit 传送员;
inte**ce
function  GetToken (aStr, aToken, aSep : String) : String;
function  CompareStr (aStr1, aStr2 : String) : Boolean;
function  callfunc (aText: string): string;
, |2 w3 F% [7 {6 V  lprocedure print (aText: string);
function  Random (aScope: integer): integer;
function  Length (aText: string): integer;
, Y+ I/ u+ ^* m; d5 ^6 f/ Aprocedure Inc (aInt: integer);
procedure Dec (aInt: integer);
function  StrToInt (astr: string): integer;
0 s& @1 A% c' E. d3 N9 xfunction  IntToStr (aInt: integer): string;
3 |9 ~& a( _% G& Z3 jprocedure exit;
8 Q3 p; T2 S% @& r6 _2 [procedure OnLeftClick (aStr : String);
* `: Z( V- j1 M0 Vprocedure OnGetResult (aStr : String);
" N& b6 B; h8 eimplementation
procedure OnLeftClick (aStr : String);
var
   Str : String;
( H* l$ l# k+ z3 }" }7 Q5 e5 M3 I* T   Race : Integer;
begin
: C& c# L3 ~; u7 Y   Str := callfunc ('getsenderrace');
   Race := StrToInt (Str);
   if Race = 1 then begin
      Str := 'showwindow ./help/传送员.txt 1';
      print (Str);
      exit;
   end;
2 E, J& z( O0 {; X. X$ Iend;
procedure OnGetResult (aStr : String);
0 P& N9 \1 E% I% }1 t) l; K$ }var
7 _3 u) k, Z: h9 \' @; @   Str, Name : String;
   iCount, iKind : Integer;
8 E/ H8 l5 J! _& hbegin
' a$ I% m% G) j' f   if aStr = 'close' then begin
      exit;
2 q9 p7 J- o$ y2 ?% J   end;
   if aStr = 'goroom' then begin
' c, G# o1 @9 r3 ^" e9 P' \      print ('mapregen 32');
      Name := callfunc ('getsendername');
      Str := 'movespace ' + Name;
& m8 j; O4 Q, l. U0 z      Str := Str + ' user 32 23 18';
      print (Str);
# z4 a) n) P+ l& {1 N6 _& c5 ~4 a       exit;
      end;
   if aStr = 'goshamu' then begin
1 ^# n3 Q7 a- ]2 T* u0 V      print ('mapregen 44');
      Name := callfunc ('getsendername');
) _+ I1 j: P1 S  |( B: O      Str := 'movespace ' + Name;
2 I& V9 T3 U$ u( t  V: F      Str := Str + ' user 44 110 120';
+ P+ }% Z" v& W. d) Wprint (Str);      
* O7 p' z/ r* W% @7 {, y   exit;
      end;
   if aStr = 'goshigu' then begin
2 A' `% p2 U6 y      print ('mapregen 46');
! n7 [. F/ B2 p      Name := callfunc ('getsendername');
% `: r5 p) E1 u) G! }* z$ R/ J      Str := 'movespace ' + Name;
      Str := Str + ' user 46 35 35';
8 C9 I& r2 B2 xprint (Str);
9 i4 P3 G, }+ `8 V: t7 P       exit;
      end;
* {8 H/ P" B7 xend;
end.
------------------------------------------------
在tgs1000/script文件夹里得script.sdb里
最后一行加入
--------------------
72,传送员.txt,,  
$ O, [0 Y/ b; b, Q/ h--------------------
5 [) I; }3 ?3 J然后在tgs1000/help里建个文本文件 名字: 传送员
内容如下
------------------------------------------------

想要传送到哪里？我可以帮忙
9 r2 G" [/ r- `1 r9 Z$ O, l; s( {关闭
: o5 ]* R6 m1 b, b1 c太极密室
; Q9 _/ b: K0 T2 X黄金沙漠
4 p4 U: C4 ~. Y" S( j# `帝王石谷
-----------------------------------------------------
最后在tgs1000/Setting文件夹里得CreateNpc1.sdb里加
0 R- l$ f7 z6 ?. K5 X. z& U: y- ?-----------------------------
5 ]% ]- c# a; K: z9 K1 W79,传送员,500,500,1,5,72,,
8 E7 n* R2 C! C-----------------------------
" u" X6 G1 Y/ D4 p, D$ ~& n" l(79是我里面得最后一行 具体数字可以设定你这个文件里得最后一行)

0 H% w% g" L% q" w0 V) ^