传送员脚本的实现方法

可以传太极密室(直接去挑公子 有2分时间 随便说明 传太极密室某固定点 里面得老人可以喊开始别得点好象不行) 黄金沙漠 帝王石谷 (主要本人知道可以传送得地图点少估建3个)
; B0 w9 c  c3 N: {7 Q1 ^) _  q在 tgs1000/init/npc.sdb里加
& n- _+ S3 T" x4 W6 P6 k传送员,传送员,0,,,,,,,,,,62,81,235,0,0,,,,20000,0,0,0,0,,0,,,,,,,,,,,,,,,TRUE,
) ?3 I( G) l# z: v在tgs1000/script文件加里创建一个文本 名字:传送员
- A5 S: X; n' \4 D8 n) K里面内容
* o  h  L/ k2 `5 k* D, W! P-----------------------------------------
unit 传送员;
1 q  N# I% q1 _inte**ce
function  GetToken (aStr, aToken, aSep : String) : String;
function  CompareStr (aStr1, aStr2 : String) : Boolean;
4 t5 M9 U9 z( _function  callfunc (aText: string): string;
procedure print (aText: string);
) u4 b, r* G/ s8 B) z! K% h9 kfunction  Random (aScope: integer): integer;
function  Length (aText: string): integer;
procedure Inc (aInt: integer);
( J& k& r: c# i# i6 p( x5 o- p' bprocedure Dec (aInt: integer);
function  StrToInt (astr: string): integer;
function  IntToStr (aInt: integer): string;
2 K. ^2 {2 E" T) n* zprocedure exit;
5 m0 f9 X$ T( xprocedure OnLeftClick (aStr : String);
. w+ l8 g' [6 v9 K/ K! W% fprocedure OnGetResult (aStr : String);
implementation
procedure OnLeftClick (aStr : String);
var
1 ~5 z2 k$ V! T, }% a   Str : String;
$ s* F2 I& u% R. B4 u# v- S   Race : Integer;
begin
% Q6 ^0 A2 o4 [" D% H+ w   Str := callfunc ('getsenderrace');
   Race := StrToInt (Str);
6 _+ O2 E: O: `! S0 D   if Race = 1 then begin
" @. A: i* [! F; y      Str := 'showwindow ./help/传送员.txt 1';
      print (Str);
      exit;
) }* I+ b1 k6 \: T   end;
end;
procedure OnGetResult (aStr : String);
var
   Str, Name : String;
; ^: ^! [9 g" |* n: q0 i; y   iCount, iKind : Integer;
2 j5 O7 E' _! a0 T$ @3 @) f" {$ xbegin
   if aStr = 'close' then begin
      exit;
   end;
6 o; m0 o: w2 d/ f$ M1 Y. K0 W& @   if aStr = 'goroom' then begin
      print ('mapregen 32');
# Y8 o& w4 l1 G# |& `- }6 ^* g/ M      Name := callfunc ('getsendername');
      Str := 'movespace ' + Name;
      Str := Str + ' user 32 23 18';
      print (Str);
/ K, x% b6 R" v2 n: _/ l       exit;
      end;
; L% |  C4 h6 H   if aStr = 'goshamu' then begin
  K9 S6 U2 ~8 z' }4 I6 b      print ('mapregen 44');
/ S$ R. U$ o( E4 c  t      Name := callfunc ('getsendername');
* U9 b, t6 o( I      Str := 'movespace ' + Name;
( T5 P2 L. q4 n4 Y8 h% p& W7 m      Str := Str + ' user 44 110 120';
$ s  |- o8 Y4 g5 {9 c! x$ Iprint (Str);      
# ]; R0 p7 G, j  d9 T1 @7 a   exit;
8 f% n; s& W6 B/ o      end;
   if aStr = 'goshigu' then begin
, A  B" y3 Z; v; x5 l! c$ |      print ('mapregen 46');
      Name := callfunc ('getsendername');
      Str := 'movespace ' + Name;
      Str := Str + ' user 46 35 35';
print (Str);
8 D4 g4 d! D+ H- g9 l! ~9 u       exit;
      end;
% A# G; r) K+ cend;
end.
; Q" G8 {( c; e------------------------------------------------
- J* A2 Z8 Y/ B! Y& K( K+ K, V  h. {6 l在tgs1000/script文件夹里得script.sdb里
2 N/ z' w1 `9 n+ H  O, G- \% e, W, n' Z最后一行加入
/ _- K# G5 j% A6 e" ~--------------------
5 b" w1 k; i1 w8 ?! G4 ?72,传送员.txt,,  
--------------------
然后在tgs1000/help里建个文本文件 名字: 传送员
0 H# r" ]' u* S2 O& G: n内容如下
------------------------------------------------

" P  G: R6 r5 O2 f+ o想要传送到哪里？我可以帮忙
关闭
太极密室
黄金沙漠
( S9 z- J5 e2 D) M$ z  ~5 L帝王石谷
-----------------------------------------------------
最后在tgs1000/Setting文件夹里得CreateNpc1.sdb里加
; H: A8 e+ \; P( b3 I  l# n( |-----------------------------
. N% `8 f9 z' E( m5 U" N79,传送员,500,500,1,5,72,,
-----------------------------
8 |+ _! x- J8 c7 f, _2 e* k(79是我里面得最后一行 具体数字可以设定你这个文件里得最后一行)