传送员脚本的实现方法

可以传太极密室(直接去挑公子 有2分时间 随便说明 传太极密室某固定点 里面得老人可以喊开始别得点好象不行) 黄金沙漠 帝王石谷 (主要本人知道可以传送得地图点少估建3个)
4 N- I" x% R  O, l8 v2 X" D在 tgs1000/init/npc.sdb里加
+ P4 P4 p4 s' b9 {$ G+ p0 |传送员,传送员,0,,,,,,,,,,62,81,235,0,0,,,,20000,0,0,0,0,,0,,,,,,,,,,,,,,,TRUE,
在tgs1000/script文件加里创建一个文本 名字:传送员
; D$ C, L) f+ R' f里面内容
-----------------------------------------
unit 传送员;
# n# L  C4 K" c: i; z( J6 h3 Pinte**ce
* V( u- J% p4 M7 R3 U2 I9 `function  GetToken (aStr, aToken, aSep : String) : String;
4 @& w" [9 W9 c) n. ?  ]0 \function  CompareStr (aStr1, aStr2 : String) : Boolean;
+ M1 I3 ?4 R& p  q4 R" |function  callfunc (aText: string): string;
procedure print (aText: string);
function  Random (aScope: integer): integer;
: I3 V0 I3 {2 c' a: j6 y, t0 _, Ifunction  Length (aText: string): integer;
$ G$ |6 q0 j/ g% @: {( Z4 h( u' bprocedure Inc (aInt: integer);
; J0 C! Y( Z5 e# N2 w0 K7 [" C( [procedure Dec (aInt: integer);
function  StrToInt (astr: string): integer;
: u  e9 R8 A- T) j( Efunction  IntToStr (aInt: integer): string;
procedure exit;
procedure OnLeftClick (aStr : String);
procedure OnGetResult (aStr : String);
4 L" e, q. w- T- s6 @4 Q# J; M* oimplementation
procedure OnLeftClick (aStr : String);
% ~- Z4 R; p+ w  h' n7 K# gvar
   Str : String;
6 ~# A* d2 y& G, ]4 ]( _* p2 m! x   Race : Integer;
begin
$ m6 X, X/ v2 ^. o5 X/ `+ A   Str := callfunc ('getsenderrace');
   Race := StrToInt (Str);
( d6 [+ f. |  k9 ^   if Race = 1 then begin
      Str := 'showwindow ./help/传送员.txt 1';
" T1 i2 D' q( y$ N- }7 {8 R4 p      print (Str);
      exit;
   end;
# X0 y4 Q7 J. W% k0 F3 i9 oend;
procedure OnGetResult (aStr : String);
: q8 g" J: y! x. s/ y+ r3 Evar
3 n3 h6 w& u& q, s   Str, Name : String;
   iCount, iKind : Integer;
5 H0 O$ c1 I6 S$ J! D3 Lbegin
   if aStr = 'close' then begin
0 G, H* w' J' H* Q3 T      exit;
   end;
   if aStr = 'goroom' then begin
$ a% K2 \- @2 q+ P      print ('mapregen 32');
' r0 b) m$ |# C7 p& m      Name := callfunc ('getsendername');
* K3 l4 q, p% x0 E) k( s6 }      Str := 'movespace ' + Name;
- u1 A7 ~, e# e& N0 `      Str := Str + ' user 32 23 18';
      print (Str);
       exit;
- M& P- Y# T% f: c! ^: ?2 d2 F! @      end;
   if aStr = 'goshamu' then begin
      print ('mapregen 44');
      Name := callfunc ('getsendername');
      Str := 'movespace ' + Name;
' Z! b/ c0 b5 N2 }( n3 f      Str := Str + ' user 44 110 120';
; Y$ p/ L7 q* x# n: z! X, W# z3 Yprint (Str);      
$ \. t, U3 m0 t3 ^% c   exit;
      end;
8 Q) O9 B4 `8 b5 V% M) X7 |# ?! R   if aStr = 'goshigu' then begin
( |9 Q; Q$ V% o* V" Y) m      print ('mapregen 46');
      Name := callfunc ('getsendername');
      Str := 'movespace ' + Name;
1 R/ ~# \, o# Y3 X+ ~      Str := Str + ' user 46 35 35';
print (Str);
1 Y( Q1 l4 P1 F9 ?$ A       exit;
2 o3 e) x# M: t' `      end;
4 Z! d  t: Z/ m) d! j  ]7 n- Yend;
end.
------------------------------------------------
7 k  Y, i) [- ]2 j- i6 Z在tgs1000/script文件夹里得script.sdb里
最后一行加入
7 S' k' ~5 w7 N--------------------
$ a0 E4 o; i7 z2 A. L72,传送员.txt,,  
--------------------
! R4 t* S4 `; m" d3 d然后在tgs1000/help里建个文本文件 名字: 传送员
内容如下
------------------------------------------------
, F" q( p; ?; [. V9 }/ a
6 N& f& Z5 }5 `+ g0 f/ Z想要传送到哪里？我可以帮忙
关闭
太极密室
黄金沙漠
8 h  z4 D3 E6 j" M' K. t帝王石谷
0 @" y3 s# R' a  m9 p-----------------------------------------------------
最后在tgs1000/Setting文件夹里得CreateNpc1.sdb里加
/ p, q1 M% R$ F/ G! w+ E+ W-----------------------------
# |' q% u1 E$ g5 Q6 `* C79,传送员,500,500,1,5,72,,
8 y. e( S2 K. z5 S8 v: n-----------------------------
4 \) b( j0 ^: k9 m" }(79是我里面得最后一行 具体数字可以设定你这个文件里得最后一行)