传送员脚本的实现方法

可以传太极密室(直接去挑公子 有2分时间 随便说明 传太极密室某固定点 里面得老人可以喊开始别得点好象不行) 黄金沙漠 帝王石谷 (主要本人知道可以传送得地图点少估建3个)
  ?( j7 C6 T9 s: t  T' s% |+ Q在 tgs1000/init/npc.sdb里加
传送员,传送员,0,,,,,,,,,,62,81,235,0,0,,,,20000,0,0,0,0,,0,,,,,,,,,,,,,,,TRUE,
在tgs1000/script文件加里创建一个文本 名字:传送员
7 s+ b, K7 F0 l0 y0 n" v& b2 W# |里面内容
& j/ a) R: c3 S# F/ g-----------------------------------------
unit 传送员;
4 J) |7 K! T4 Q$ j" iinte**ce
function  GetToken (aStr, aToken, aSep : String) : String;
function  CompareStr (aStr1, aStr2 : String) : Boolean;
function  callfunc (aText: string): string;
procedure print (aText: string);
% n! R; V5 ]- ~# [8 R' m# Efunction  Random (aScope: integer): integer;
function  Length (aText: string): integer;
3 D* l1 ?4 T: u  U' S* l: mprocedure Inc (aInt: integer);
3 W( S7 i  o1 k' e3 Uprocedure Dec (aInt: integer);
function  StrToInt (astr: string): integer;
function  IntToStr (aInt: integer): string;
procedure exit;
! Z. c) t' f. U. E2 U- d' f' @% N$ Nprocedure OnLeftClick (aStr : String);
procedure OnGetResult (aStr : String);
implementation
procedure OnLeftClick (aStr : String);
var
   Str : String;
   Race : Integer;
begin
   Str := callfunc ('getsenderrace');
   Race := StrToInt (Str);
   if Race = 1 then begin
* I; \% t5 l4 Z8 i: L5 ~/ A8 z$ E      Str := 'showwindow ./help/传送员.txt 1';
% v2 l# b$ z" M$ G      print (Str);
      exit;
   end;
end;
( l/ N; n$ K  m. f. [" J2 j) mprocedure OnGetResult (aStr : String);
% s. v1 ^" F( ?4 b  Ivar
   Str, Name : String;
% E( T' f. L5 ^  K( [   iCount, iKind : Integer;
begin
$ k1 R7 @( @5 d6 @7 }. X   if aStr = 'close' then begin
+ x( \  c& L" U2 n4 m3 l8 l      exit;
5 E9 p' b* s& O   end;
2 a$ y. J( E' g3 k* L   if aStr = 'goroom' then begin
& T! R! q3 i' N) ]% k& U      print ('mapregen 32');
      Name := callfunc ('getsendername');
      Str := 'movespace ' + Name;
      Str := Str + ' user 32 23 18';
" ~1 Z0 a: Z5 V/ Z      print (Str);
5 y! a1 u3 R! Y  K' B8 H       exit;
, n/ T8 ]5 H  I4 v! J- \      end;
& l- T, w/ d% J* L" H   if aStr = 'goshamu' then begin
# K5 o3 ?- Q% p  z      print ('mapregen 44');
+ d: C/ i* u3 G3 o      Name := callfunc ('getsendername');
      Str := 'movespace ' + Name;
1 f5 [0 s  Z( Q" H2 p! k7 G      Str := Str + ' user 44 110 120';
print (Str);      
   exit;
      end;
; {0 p. D& L5 {4 F4 v. s  y" c- U# ^   if aStr = 'goshigu' then begin
      print ('mapregen 46');
& ^4 b& d, z4 j. u. N      Name := callfunc ('getsendername');
      Str := 'movespace ' + Name;
      Str := Str + ' user 46 35 35';
. a! X; p( E( }' q" g& i! Qprint (Str);
4 q+ R# j1 A( G' U  [4 V       exit;
% a. x" j9 `  C* a3 j4 l+ t      end;
end;
# ]) H  X/ k& N# Y) Cend.
$ F, p0 s7 V* Q3 }------------------------------------------------
在tgs1000/script文件夹里得script.sdb里
最后一行加入
! n% A) l$ V$ s* }- w--------------------
72,传送员.txt,,  
--------------------
然后在tgs1000/help里建个文本文件 名字: 传送员
) b* h) j/ A7 ~- S2 f内容如下
, `4 O2 M. d+ H! m5 a  k& M------------------------------------------------

7 P+ X9 ?4 J0 a( R8 x$ Y9 `想要传送到哪里？我可以帮忙
关闭
* {: b: ~% [: Y% E3 i- O太极密室
黄金沙漠
帝王石谷
7 }  Z% _1 @8 |; g  l-----------------------------------------------------
9 ]$ @% S# ]& @& a最后在tgs1000/Setting文件夹里得CreateNpc1.sdb里加
1 a/ S4 C7 A5 |9 {% \: L-----------------------------
79,传送员,500,500,1,5,72,,
-----------------------------
(79是我里面得最后一行 具体数字可以设定你这个文件里得最后一行)

. f* B& }: M  Z1 T( g