传送员脚本的实现方法

可以传太极密室(直接去挑公子 有2分时间 随便说明 传太极密室某固定点 里面得老人可以喊开始别得点好象不行) 黄金沙漠 帝王石谷 (主要本人知道可以传送得地图点少估建3个)
在 tgs1000/init/npc.sdb里加
传送员,传送员,0,,,,,,,,,,62,81,235,0,0,,,,20000,0,0,0,0,,0,,,,,,,,,,,,,,,TRUE,
在tgs1000/script文件加里创建一个文本 名字:传送员
里面内容
0 ]; ^" F1 E, u8 ?1 v7 Z-----------------------------------------
unit 传送员;
inte**ce
& a8 j, ~! D' i8 F- P) Pfunction  GetToken (aStr, aToken, aSep : String) : String;
/ w) A" \$ f& |9 l6 l) tfunction  CompareStr (aStr1, aStr2 : String) : Boolean;
" v+ s5 _! _' M0 t& B1 u, lfunction  callfunc (aText: string): string;
procedure print (aText: string);
function  Random (aScope: integer): integer;
function  Length (aText: string): integer;
' z- b6 g; @7 E: C9 Nprocedure Inc (aInt: integer);
/ ^9 \; k" G: J7 h) V+ qprocedure Dec (aInt: integer);
function  StrToInt (astr: string): integer;
function  IntToStr (aInt: integer): string;
procedure exit;
procedure OnLeftClick (aStr : String);
( U/ E2 b2 e& n  b# y* |7 V) dprocedure OnGetResult (aStr : String);
implementation
procedure OnLeftClick (aStr : String);
var
7 m% H/ j: d/ h" S4 m+ h   Str : String;
  }; L, Y6 w+ {$ z- j- d   Race : Integer;
begin
, I6 T- z7 k/ |. g8 J6 S   Str := callfunc ('getsenderrace');
  J4 n2 f, [' y) }! W' s   Race := StrToInt (Str);
: D9 q  ]6 Y3 ^  q( S1 o   if Race = 1 then begin
3 M8 Y8 ?5 r' G9 x: T4 ~      Str := 'showwindow ./help/传送员.txt 1';
      print (Str);
$ ~# N% [0 t: B  Y2 i      exit;
; l3 d5 Z  X2 p7 q' D   end;
/ h+ Q$ F( h5 b3 m* p" \end;
procedure OnGetResult (aStr : String);
- a; L! e$ y, W8 `9 j. }var
! T2 \" f% a" l6 H) y* h4 k9 y   Str, Name : String;
" y. q2 Q& _1 h" V   iCount, iKind : Integer;
" T! I/ R% u$ |' `" r9 _begin
   if aStr = 'close' then begin
9 P$ H# u& s& e5 _8 q* \      exit;
   end;
   if aStr = 'goroom' then begin
) v- r% a" R' }9 J. M3 c5 E      print ('mapregen 32');
8 C  a- b' a! N) f4 Y' X. H& b, g      Name := callfunc ('getsendername');
. E: u+ c- K# y& j, B      Str := 'movespace ' + Name;
      Str := Str + ' user 32 23 18';
      print (Str);
       exit;
# z0 |* n/ f! i* Q9 ~9 j      end;
   if aStr = 'goshamu' then begin
      print ('mapregen 44');
  F. F+ w# {- ?4 N4 \; v, I# v      Name := callfunc ('getsendername');
" a9 O, g) [8 k; w      Str := 'movespace ' + Name;
      Str := Str + ' user 44 110 120';
& a7 w% Z6 r+ C* @print (Str);      
; n4 f8 _3 s7 F. B# t0 A5 P1 p1 z   exit;
; ~) z) j% x! v9 j. \      end;
/ v+ A0 N% F2 \' Y& K% @   if aStr = 'goshigu' then begin
% v6 W8 |( ^( |, s( ^+ m- P# e      print ('mapregen 46');
+ c) K" j. |( S8 g! g* v      Name := callfunc ('getsendername');
; u8 K4 t; a. i* Z  N      Str := 'movespace ' + Name;
      Str := Str + ' user 46 35 35';
print (Str);
       exit;
1 P/ J+ U- I+ I8 x1 b' U  k: B, k      end;
3 y1 X" x' A% B6 h" P3 I; f0 Nend;
2 a+ P8 T6 T, i5 q6 aend.
  D2 Y! e" d( z3 b' [% d- }------------------------------------------------
在tgs1000/script文件夹里得script.sdb里
& C1 S1 B' j/ X+ v) ?最后一行加入
% g9 g& ~* K& f2 P--------------------
# j% c: G* ^# R3 Y! \2 Z# b72,传送员.txt,,  
% G1 z5 Q! C8 n# _' r+ ^, U--------------------
& Z# ~) O2 ~! G然后在tgs1000/help里建个文本文件 名字: 传送员
, N5 n' F) I: J  c  u内容如下
$ A6 T& m5 }& J------------------------------------------------
' {% I0 D5 N) P0 i% t, z7 w7 H
想要传送到哪里？我可以帮忙
  g0 h9 N* p+ Y  d关闭
太极密室
黄金沙漠
帝王石谷
-----------------------------------------------------
最后在tgs1000/Setting文件夹里得CreateNpc1.sdb里加
1 X1 h) ~5 H! o0 c-----------------------------
79,传送员,500,500,1,5,72,,
-----------------------------
(79是我里面得最后一行 具体数字可以设定你这个文件里得最后一行)

; J/ e3 `1 y$ s0 d