传送员脚本的实现方法

可以传太极密室(直接去挑公子 有2分时间 随便说明 传太极密室某固定点 里面得老人可以喊开始别得点好象不行) 黄金沙漠 帝王石谷 (主要本人知道可以传送得地图点少估建3个)
在 tgs1000/init/npc.sdb里加
: x5 m! l$ U# C* A* a$ n传送员,传送员,0,,,,,,,,,,62,81,235,0,0,,,,20000,0,0,0,0,,0,,,,,,,,,,,,,,,TRUE,
在tgs1000/script文件加里创建一个文本 名字:传送员
里面内容
; Z& m6 B  J, f" R! {' U-----------------------------------------
3 F+ Y4 I8 G) U! K) \% v* i( xunit 传送员;
inte**ce
2 V5 z2 c+ T: O  I* Kfunction  GetToken (aStr, aToken, aSep : String) : String;
: ]9 j- c0 u3 r; |# E' qfunction  CompareStr (aStr1, aStr2 : String) : Boolean;
function  callfunc (aText: string): string;
procedure print (aText: string);
function  Random (aScope: integer): integer;
function  Length (aText: string): integer;
1 k7 D& p/ N5 r5 U# `# pprocedure Inc (aInt: integer);
procedure Dec (aInt: integer);
, a0 W9 s; {3 R8 N, V  R0 h5 k6 A8 hfunction  StrToInt (astr: string): integer;
" d$ S( ?  Q6 m; }& l) s' Jfunction  IntToStr (aInt: integer): string;
& p  a7 W( j7 l% }. gprocedure exit;
procedure OnLeftClick (aStr : String);
! n7 h5 C+ P: q1 [  Y  Q  wprocedure OnGetResult (aStr : String);
implementation
procedure OnLeftClick (aStr : String);
var
   Str : String;
   Race : Integer;
7 U, K& y* L7 p# V) _begin
% I4 _0 X+ t/ g) @& q0 t   Str := callfunc ('getsenderrace');
! d  a4 x+ [( j; u4 c- }   Race := StrToInt (Str);
; d' W  V& s% `% T# _   if Race = 1 then begin
      Str := 'showwindow ./help/传送员.txt 1';
0 D3 x7 D2 L: ?      print (Str);
      exit;
- J) N0 V% _3 ]5 I   end;
& w( W. H2 z! F: D% Bend;
procedure OnGetResult (aStr : String);
var
# ~2 Z$ D8 w' H$ x% r* I' S   Str, Name : String;
% @1 t+ w: Z! m7 [6 Q' J% V% @" a   iCount, iKind : Integer;
begin
: \0 ^2 u' f( I  O' N- Z" J5 {5 O( a   if aStr = 'close' then begin
      exit;
   end;
; u; Z, k9 h% X4 Q  h" c! L   if aStr = 'goroom' then begin
9 G1 }2 _! r- ]  t      print ('mapregen 32');
4 S& _- `# X- D# _      Name := callfunc ('getsendername');
      Str := 'movespace ' + Name;
      Str := Str + ' user 32 23 18';
      print (Str);
       exit;
      end;
) O" d$ m/ w! d- c1 Y   if aStr = 'goshamu' then begin
      print ('mapregen 44');
9 j4 a* J! S" \# P9 W4 S      Name := callfunc ('getsendername');
      Str := 'movespace ' + Name;
      Str := Str + ' user 44 110 120';
print (Str);      
   exit;
0 N9 u0 s2 C; I" Q8 `2 ]      end;
8 b% r9 X7 P/ F  z' ]   if aStr = 'goshigu' then begin
- z/ d0 u$ O9 m      print ('mapregen 46');
      Name := callfunc ('getsendername');
      Str := 'movespace ' + Name;
- N6 o: T: Z% Q: ]! `      Str := Str + ' user 46 35 35';
  Z$ J! _/ }' h5 z- r  E6 cprint (Str);
       exit;
      end;
end;
end.
; `+ i  E- I# K, D------------------------------------------------
在tgs1000/script文件夹里得script.sdb里
最后一行加入
8 I/ g, y( G5 K7 T7 k1 }--------------------
72,传送员.txt,,  
--------------------
- J" S4 g8 D2 E3 q' b然后在tgs1000/help里建个文本文件 名字: 传送员
内容如下
------------------------------------------------
' z3 w2 ]8 Y/ m/ W( E% p) |# P9 b+ t/ i
, |: x) n" ?1 R- G想要传送到哪里？我可以帮忙
( }8 K1 p$ L- Z* [8 \& ^关闭
太极密室
黄金沙漠
0 P8 ~# |( J! e帝王石谷
  u  v1 K0 ?% A! P6 g- }. i3 P/ `-----------------------------------------------------
最后在tgs1000/Setting文件夹里得CreateNpc1.sdb里加
-----------------------------
, \, W+ T0 [2 [- q7 ^" y0 _79,传送员,500,500,1,5,72,,
-----------------------------
$ H' B3 ]+ V3 P1 C& k8 c(79是我里面得最后一行 具体数字可以设定你这个文件里得最后一行)

; u( w/ c3 Q8 R* Z4 f