传送员脚本的实现方法

可以传太极密室(直接去挑公子 有2分时间 随便说明 传太极密室某固定点 里面得老人可以喊开始别得点好象不行) 黄金沙漠 帝王石谷 (主要本人知道可以传送得地图点少估建3个)
在 tgs1000/init/npc.sdb里加
) r5 V$ k) j( t传送员,传送员,0,,,,,,,,,,62,81,235,0,0,,,,20000,0,0,0,0,,0,,,,,,,,,,,,,,,TRUE,
在tgs1000/script文件加里创建一个文本 名字:传送员
+ j1 I  [- C, K4 v0 _里面内容
3 J+ ?) a  ]1 |) z-----------------------------------------
9 f  _- G9 M' h2 ]) Aunit 传送员;
inte**ce
function  GetToken (aStr, aToken, aSep : String) : String;
function  CompareStr (aStr1, aStr2 : String) : Boolean;
' }' d: |" C. D- n/ b) X: @, h, g* Qfunction  callfunc (aText: string): string;
/ U6 s- s7 E# [+ e/ k. h- S2 B! Hprocedure print (aText: string);
function  Random (aScope: integer): integer;
+ l0 D, O$ A4 @3 _function  Length (aText: string): integer;
procedure Inc (aInt: integer);
$ O; a0 N' O. A4 v. n; z& c& \procedure Dec (aInt: integer);
8 M& X7 b3 ]/ ^3 N: Ifunction  StrToInt (astr: string): integer;
: U0 F6 w5 l+ \  o. D* pfunction  IntToStr (aInt: integer): string;
procedure exit;
procedure OnLeftClick (aStr : String);
procedure OnGetResult (aStr : String);
implementation
% D/ G; n- R  J% ~2 V+ Mprocedure OnLeftClick (aStr : String);
var
   Str : String;
   Race : Integer;
0 o9 y2 z# b+ @6 v( Q* e4 ebegin
   Str := callfunc ('getsenderrace');
   Race := StrToInt (Str);
   if Race = 1 then begin
+ }, L) n( c- e& W4 x% }% L0 v( _8 d      Str := 'showwindow ./help/传送员.txt 1';
7 T4 S& \. ~. |& z! }0 \4 o2 c  }      print (Str);
      exit;
   end;
3 j7 \% Q- @) rend;
procedure OnGetResult (aStr : String);
var
   Str, Name : String;
   iCount, iKind : Integer;
) o8 s* e7 \7 lbegin
   if aStr = 'close' then begin
( F" Z' w$ J% I$ j1 K0 l$ v3 K/ A      exit;
   end;
   if aStr = 'goroom' then begin
2 K* I: c+ ^3 d; o. _" p" H# j3 t! k      print ('mapregen 32');
      Name := callfunc ('getsendername');
1 O& F' E: Y4 J, i# T      Str := 'movespace ' + Name;
! U' |' u9 A, q) \8 [! p. V      Str := Str + ' user 32 23 18';
      print (Str);
       exit;
/ h' X! R* P* S3 X4 u      end;
   if aStr = 'goshamu' then begin
      print ('mapregen 44');
      Name := callfunc ('getsendername');
% P! U1 R( U. d1 O3 S      Str := 'movespace ' + Name;
+ I3 i) c, d; R1 L9 k      Str := Str + ' user 44 110 120';
' [' Z, L2 ~' F( |print (Str);      
2 }2 v* H! z" T0 X0 D2 ]0 q   exit;
+ W% t8 j6 g2 t6 {0 P: [      end;
   if aStr = 'goshigu' then begin
      print ('mapregen 46');
* s9 M( k( {2 a6 o$ b$ {      Name := callfunc ('getsendername');
      Str := 'movespace ' + Name;
      Str := Str + ' user 46 35 35';
1 |4 s! H5 [% Pprint (Str);
7 R7 R. F$ J) J4 V* ~       exit;
      end;
end;
end.
------------------------------------------------
在tgs1000/script文件夹里得script.sdb里
; }* _; ]8 }8 q最后一行加入
--------------------
" Q" |/ H6 ^9 T7 p: B# g  z' V72,传送员.txt,,  
--------------------
4 A5 p' V& Q$ v& {然后在tgs1000/help里建个文本文件 名字: 传送员
内容如下
------------------------------------------------

* p- o+ s. \! [, E& p- B想要传送到哪里？我可以帮忙
关闭
& `  i/ d* J8 f+ K) C) v  b太极密室
  ]! k  |6 G$ \+ [8 v黄金沙漠
8 n- j0 k# E) K/ q( |$ A. ]% }0 w帝王石谷
-----------------------------------------------------
8 C6 F+ m% Y& D# `2 ^最后在tgs1000/Setting文件夹里得CreateNpc1.sdb里加
-----------------------------
5 a/ u1 w4 Y% I; k5 a79,传送员,500,500,1,5,72,,
5 T  @/ j4 v6 h- S* H; ?" T-----------------------------
(79是我里面得最后一行 具体数字可以设定你这个文件里得最后一行)