传送员脚本的实现方法

可以传太极密室(直接去挑公子 有2分时间 随便说明 传太极密室某固定点 里面得老人可以喊开始别得点好象不行) 黄金沙漠 帝王石谷 (主要本人知道可以传送得地图点少估建3个)
在 tgs1000/init/npc.sdb里加
传送员,传送员,0,,,,,,,,,,62,81,235,0,0,,,,20000,0,0,0,0,,0,,,,,,,,,,,,,,,TRUE,
2 A2 w* ?+ p% G; M& g在tgs1000/script文件加里创建一个文本 名字:传送员
  E# d5 L# Q7 i' u3 o里面内容
/ U/ l7 G! e& D9 ^  R7 v2 {- S5 Y-----------------------------------------
unit 传送员;
inte**ce
function  GetToken (aStr, aToken, aSep : String) : String;
  ^( @( X. [/ k6 W$ |function  CompareStr (aStr1, aStr2 : String) : Boolean;
function  callfunc (aText: string): string;
; ^2 V, @! ^* z; J* ?procedure print (aText: string);
9 p! ]4 {. q( P3 O8 Z% Afunction  Random (aScope: integer): integer;
. ?; Y+ K+ T5 s7 xfunction  Length (aText: string): integer;
" y  I- Z. w" v$ `( \procedure Inc (aInt: integer);
% O+ @* C' M0 B( b$ `1 A) Jprocedure Dec (aInt: integer);
1 K) d! z( D3 C. ^& z6 mfunction  StrToInt (astr: string): integer;
+ B% z, \5 y1 U& a% y+ k, ^function  IntToStr (aInt: integer): string;
procedure exit;
  J0 c$ Z2 b# V. Rprocedure OnLeftClick (aStr : String);
procedure OnGetResult (aStr : String);
2 Q/ M0 O4 {" G( b& }  fimplementation
procedure OnLeftClick (aStr : String);
var
   Str : String;
& E3 w4 V' a5 V2 k   Race : Integer;
begin
6 v, n2 S) r& d& w! t   Str := callfunc ('getsenderrace');
- F5 Y  d# c2 m5 n( j& C3 S   Race := StrToInt (Str);
   if Race = 1 then begin
      Str := 'showwindow ./help/传送员.txt 1';
( _9 v) c1 \4 @! _  M      print (Str);
$ R( u9 g: Q8 j" J8 i- \# e2 q      exit;
9 Q2 G1 _% t6 m5 s& R" E* }, A   end;
end;
2 |4 `* P8 M: N- ^2 ]" h! nprocedure OnGetResult (aStr : String);
var
% M2 E! k* Z* b6 T$ U/ X   Str, Name : String;
   iCount, iKind : Integer;
( [9 Z1 X1 N6 Y$ _' Tbegin
( u! m# P8 q+ s8 T" }  G2 P   if aStr = 'close' then begin
      exit;
   end;
1 B' ^: c4 L% f% t) H" I1 {2 k, ?2 B   if aStr = 'goroom' then begin
- ?/ M% r6 n- d      print ('mapregen 32');
0 ?7 s9 [4 Z# q1 u( Q) O      Name := callfunc ('getsendername');
      Str := 'movespace ' + Name;
8 W3 @! G( i) F% b      Str := Str + ' user 32 23 18';
( Z$ V' X9 C* a' D  w      print (Str);
$ p& M7 ?6 l. t. x7 O1 V5 U       exit;
      end;
   if aStr = 'goshamu' then begin
      print ('mapregen 44');
  b1 K5 L# ]% ^4 D8 z# J8 q      Name := callfunc ('getsendername');
$ j) D1 H5 q. @0 F7 b5 Z" }4 M6 N      Str := 'movespace ' + Name;
$ R) A# s7 `% E8 j- N7 k* P      Str := Str + ' user 44 110 120';
print (Str);      
   exit;
      end;
7 [9 ?5 E" A) l! l' g7 L. C' |   if aStr = 'goshigu' then begin
      print ('mapregen 46');
      Name := callfunc ('getsendername');
3 D4 s) _/ ?- W      Str := 'movespace ' + Name;
      Str := Str + ' user 46 35 35';
1 M* r3 n  x' c( Zprint (Str);
       exit;
      end;
: n# ~) y& ?4 B( Wend;
end.
/ q5 T+ g1 t8 N. E* A. E------------------------------------------------
- \; |5 ]) {7 Q5 \1 a7 G在tgs1000/script文件夹里得script.sdb里
; f  x$ Y% s0 n0 E& t最后一行加入
  @/ g5 a- ^' A3 E6 I; ]5 F. h! r7 L: j. w--------------------
72,传送员.txt,,  
7 s) k" l9 i6 F# [8 C--------------------
" l& |4 _5 e$ `5 r# r/ b1 l, h: s然后在tgs1000/help里建个文本文件 名字: 传送员
" z& _7 M# G! n0 t内容如下
------------------------------------------------
9 ]2 K' X# V% \
想要传送到哪里？我可以帮忙
关闭
太极密室
) Z0 b* ]& n) }+ ~" b- H8 p, ]黄金沙漠
/ j/ {) W  M' m% Z- @$ k- s帝王石谷
-----------------------------------------------------
) ]$ j) c. R8 V% r/ C/ o: X最后在tgs1000/Setting文件夹里得CreateNpc1.sdb里加
-----------------------------
( X' H& ?/ q% e( |79,传送员,500,500,1,5,72,,
* O, t7 C! v% S-----------------------------
(79是我里面得最后一行 具体数字可以设定你这个文件里得最后一行)

  @6 a7 G! _5 R* `