传送员脚本的实现方法

可以传太极密室(直接去挑公子 有2分时间 随便说明 传太极密室某固定点 里面得老人可以喊开始别得点好象不行) 黄金沙漠 帝王石谷 (主要本人知道可以传送得地图点少估建3个)
在 tgs1000/init/npc.sdb里加
# \* a0 z! q$ |6 u5 H传送员,传送员,0,,,,,,,,,,62,81,235,0,0,,,,20000,0,0,0,0,,0,,,,,,,,,,,,,,,TRUE,
在tgs1000/script文件加里创建一个文本 名字:传送员
+ R1 k8 X' l6 b5 i% _, w3 h里面内容
1 Y0 o, p5 G' \2 M! |- @" q-----------------------------------------
unit 传送员;
. ]. u" x7 Z6 P: l& K* b& \2 dinte**ce
9 t: j6 Z6 \9 pfunction  GetToken (aStr, aToken, aSep : String) : String;
function  CompareStr (aStr1, aStr2 : String) : Boolean;
function  callfunc (aText: string): string;
& o/ a. x& v  \% m7 E, tprocedure print (aText: string);
: `* B- V% Z8 E9 S: X; [% yfunction  Random (aScope: integer): integer;
function  Length (aText: string): integer;
0 ~1 _- ^$ G) F7 l5 y) jprocedure Inc (aInt: integer);
4 u# Y$ F; p. ~2 d+ G; _procedure Dec (aInt: integer);
/ c) @- z6 [) h# J6 A3 S; e- bfunction  StrToInt (astr: string): integer;
5 x$ f; _1 o1 C1 z7 Vfunction  IntToStr (aInt: integer): string;
procedure exit;
( n: n# J  Y1 b5 K# p% ~procedure OnLeftClick (aStr : String);
procedure OnGetResult (aStr : String);
9 F- t0 s" \: \) F2 J5 @0 J4 }( A/ ximplementation
procedure OnLeftClick (aStr : String);
var
( A9 T. P5 h8 c   Str : String;
   Race : Integer;
begin
' N* k# w4 ?8 q# w4 N* V   Str := callfunc ('getsenderrace');
   Race := StrToInt (Str);
9 y9 e# @% _% n' r4 c0 j; x   if Race = 1 then begin
      Str := 'showwindow ./help/传送员.txt 1';
      print (Str);
      exit;
+ i3 K) Z$ }* Q4 t9 `, L3 x   end;
end;
$ K. g$ e* I  j+ O) Z- M% fprocedure OnGetResult (aStr : String);
var
& A2 `' Y6 N+ H' z2 U4 B4 O   Str, Name : String;
   iCount, iKind : Integer;
( J$ i) I5 x1 m4 Ibegin
   if aStr = 'close' then begin
      exit;
   end;
: z% X, H. V$ ^' t' p- K   if aStr = 'goroom' then begin
      print ('mapregen 32');
: S) c( V7 r, ?9 J, q      Name := callfunc ('getsendername');
      Str := 'movespace ' + Name;
0 w1 K% j0 u' q! c7 q6 m  [      Str := Str + ' user 32 23 18';
! ^6 a7 T2 X# D+ z, y8 [6 ^      print (Str);
       exit;
      end;
- \: g3 c; e% r/ Y   if aStr = 'goshamu' then begin
      print ('mapregen 44');
      Name := callfunc ('getsendername');
      Str := 'movespace ' + Name;
7 C3 V  `; _9 r5 i- Y      Str := Str + ' user 44 110 120';
print (Str);      
   exit;
  |# z0 L  @0 M$ w$ t      end;
  a2 E! F. G+ C4 ^$ r- b   if aStr = 'goshigu' then begin
, _: I0 g6 K8 }9 G* Y% c      print ('mapregen 46');
      Name := callfunc ('getsendername');
      Str := 'movespace ' + Name;
, N" |/ K9 ]0 e) G- ^4 v; D% N      Str := Str + ' user 46 35 35';
print (Str);
9 K4 g+ i; J4 w6 @+ K* q) s       exit;
      end;
end;
end.
------------------------------------------------
在tgs1000/script文件夹里得script.sdb里
最后一行加入
--------------------
72,传送员.txt,,  
--------------------
然后在tgs1000/help里建个文本文件 名字: 传送员
内容如下
------------------------------------------------
! l+ ^+ f* r$ }' H. G
想要传送到哪里？我可以帮忙
关闭
太极密室
黄金沙漠
帝王石谷
! X: r# l# }% F/ ^& x-----------------------------------------------------
. @2 C: R& v+ S" a( F8 D4 o' q最后在tgs1000/Setting文件夹里得CreateNpc1.sdb里加
-----------------------------
1 k; k$ j* a! q79,传送员,500,500,1,5,72,,
-----------------------------
  ?: U8 x2 S- a. }& M: s# ]4 Y(79是我里面得最后一行 具体数字可以设定你这个文件里得最后一行)

+ |. r, t4 y" O( P! C. `% J# D