传送员脚本的实现方法

可以传太极密室(直接去挑公子 有2分时间 随便说明 传太极密室某固定点 里面得老人可以喊开始别得点好象不行) 黄金沙漠 帝王石谷 (主要本人知道可以传送得地图点少估建3个)
+ K  o% T; s7 d8 H在 tgs1000/init/npc.sdb里加
. T0 Q9 a2 J& Z" o9 w传送员,传送员,0,,,,,,,,,,62,81,235,0,0,,,,20000,0,0,0,0,,0,,,,,,,,,,,,,,,TRUE,
在tgs1000/script文件加里创建一个文本 名字:传送员
里面内容
. @& J$ ?$ J5 O8 ^$ R-----------------------------------------
% k8 v1 r# o- H  L  q0 m  G4 J& Sunit 传送员;
inte**ce
function  GetToken (aStr, aToken, aSep : String) : String;
0 `4 E  A& i% c: Wfunction  CompareStr (aStr1, aStr2 : String) : Boolean;
1 m! D8 x( L( \- bfunction  callfunc (aText: string): string;
4 w& v1 ]1 ]! Q6 tprocedure print (aText: string);
7 J7 |7 b. T% ?) m' Qfunction  Random (aScope: integer): integer;
" }9 f) F. o9 p+ ?- jfunction  Length (aText: string): integer;
procedure Inc (aInt: integer);
procedure Dec (aInt: integer);
function  StrToInt (astr: string): integer;
: W$ U. W) ^) Z6 ]0 ^function  IntToStr (aInt: integer): string;
procedure exit;
procedure OnLeftClick (aStr : String);
2 x. I+ [$ w. b* n7 d- j: Eprocedure OnGetResult (aStr : String);
implementation
procedure OnLeftClick (aStr : String);
var
   Str : String;
   Race : Integer;
begin
3 J! A: [( }! p( g7 C' V# g( H   Str := callfunc ('getsenderrace');
. Y  C: |2 C3 a  K* e/ _1 O8 Z   Race := StrToInt (Str);
   if Race = 1 then begin
      Str := 'showwindow ./help/传送员.txt 1';
      print (Str);
      exit;
; e9 f5 [2 Q9 q8 d0 K' k   end;
end;
4 r* B, w9 h( J+ Yprocedure OnGetResult (aStr : String);
var
   Str, Name : String;
   iCount, iKind : Integer;
5 p! q1 t. H. T# l$ F: Cbegin
2 F3 i  c  n3 S9 i; {3 ]   if aStr = 'close' then begin
      exit;
1 Y) m% i' l/ y9 k; p1 M0 @- ~   end;
   if aStr = 'goroom' then begin
9 P' z3 ~* R; ?3 b4 c/ }      print ('mapregen 32');
      Name := callfunc ('getsendername');
) G; z, H# V. [9 i& P! m! Y) t      Str := 'movespace ' + Name;
$ X" \% e  c% Q5 V# d" `' M      Str := Str + ' user 32 23 18';
      print (Str);
6 l1 v; M) ~- J* x       exit;
& C, R. _6 v4 X1 j0 P" N: g      end;
   if aStr = 'goshamu' then begin
8 ^' X) K: x: z4 T. i      print ('mapregen 44');
      Name := callfunc ('getsendername');
3 M2 N) L( u: z6 E8 D% g      Str := 'movespace ' + Name;
      Str := Str + ' user 44 110 120';
print (Str);      
   exit;
      end;
   if aStr = 'goshigu' then begin
7 v* i9 i' E) t6 y! d1 f      print ('mapregen 46');
      Name := callfunc ('getsendername');
2 N/ a1 }- M8 A7 m" w* H      Str := 'movespace ' + Name;
      Str := Str + ' user 46 35 35';
7 |+ P& o3 ?. G# p# }9 A' Yprint (Str);
' b# l! K+ [6 o! p( q       exit;
      end;
2 ~" p% ?2 _, ~2 k) C6 S# T3 t% {end;
; R8 g( [! e. `5 T. Lend.
+ s& S) ~+ o; i" q( x; v' B( L+ `. @) o------------------------------------------------
8 K* |8 v1 m* x5 b在tgs1000/script文件夹里得script.sdb里
最后一行加入
7 n) \( X3 D6 m) a/ ]--------------------
72,传送员.txt,,  
--------------------
6 S* Q! `: [% H2 @然后在tgs1000/help里建个文本文件 名字: 传送员
内容如下
' j7 [7 L) j) B( m" k5 v------------------------------------------------
2 W; B' c6 c' Q: Y/ \5 _. F
6 r) t( |. E" p4 T" K! P想要传送到哪里？我可以帮忙
关闭
太极密室
黄金沙漠
帝王石谷
1 p: w& n* F: a8 G8 [' ]-----------------------------------------------------
最后在tgs1000/Setting文件夹里得CreateNpc1.sdb里加
-----------------------------
% k4 K, x/ g1 K) l; d( t79,传送员,500,500,1,5,72,,
-----------------------------
(79是我里面得最后一行 具体数字可以设定你这个文件里得最后一行)