传送员脚本的实现方法

可以传太极密室(直接去挑公子 有2分时间 随便说明 传太极密室某固定点 里面得老人可以喊开始别得点好象不行) 黄金沙漠 帝王石谷 (主要本人知道可以传送得地图点少估建3个)
在 tgs1000/init/npc.sdb里加
传送员,传送员,0,,,,,,,,,,62,81,235,0,0,,,,20000,0,0,0,0,,0,,,,,,,,,,,,,,,TRUE,
% M$ t# C  K: i; I- U: |在tgs1000/script文件加里创建一个文本 名字:传送员
里面内容
5 B* j6 ^- w9 D( M6 s0 x-----------------------------------------
9 r8 R, P  Q, R4 X* K1 bunit 传送员;
% k9 {  W% F; k. p* d. P0 Sinte**ce
function  GetToken (aStr, aToken, aSep : String) : String;
function  CompareStr (aStr1, aStr2 : String) : Boolean;
7 I% [( p+ w% Vfunction  callfunc (aText: string): string;
procedure print (aText: string);
2 J. T/ d0 P; G% x1 Ifunction  Random (aScope: integer): integer;
function  Length (aText: string): integer;
procedure Inc (aInt: integer);
- f: X) Y& `0 Fprocedure Dec (aInt: integer);
% F; h9 j0 k3 _# O% l. h6 y6 U0 S3 Hfunction  StrToInt (astr: string): integer;
6 m6 F- e" \  {7 Zfunction  IntToStr (aInt: integer): string;
( g$ c( l0 U7 Y' _4 }5 vprocedure exit;
procedure OnLeftClick (aStr : String);
% o0 t) c* e: m: e+ Rprocedure OnGetResult (aStr : String);
implementation
% \: y& s2 @+ I2 `/ @# eprocedure OnLeftClick (aStr : String);
8 m( m" ]3 D: o. |5 L7 Evar
   Str : String;
   Race : Integer;
begin
% Z( G/ d* j/ C' D8 E   Str := callfunc ('getsenderrace');
   Race := StrToInt (Str);
   if Race = 1 then begin
      Str := 'showwindow ./help/传送员.txt 1';
      print (Str);
      exit;
8 G& w5 S- s. U   end;
7 }! N# O9 c4 U1 ^end;
( b: K4 d4 T3 U  ?5 o  z. gprocedure OnGetResult (aStr : String);
4 x, B  e5 ~  t4 Qvar
   Str, Name : String;
8 Q- e3 ^  k" W3 k   iCount, iKind : Integer;
5 a( j5 L8 Y! A4 N0 `; k; \: jbegin
) U0 f2 ~- I( v. `% Y. R   if aStr = 'close' then begin
0 y: _! n$ j! h- I- W1 T      exit;
* [2 ~* Q& @, @$ v   end;
% |4 o  e) m+ \   if aStr = 'goroom' then begin
      print ('mapregen 32');
      Name := callfunc ('getsendername');
      Str := 'movespace ' + Name;
. E" x/ e  Z: l" ^) w+ ~      Str := Str + ' user 32 23 18';
) u, @' D$ ~' r% M      print (Str);
       exit;
      end;
% j6 N5 ]+ s6 ]! X$ ^" \9 A' o   if aStr = 'goshamu' then begin
; X. z, n1 q2 L" Q9 c( J      print ('mapregen 44');
& ^- c- q1 {! _2 ~6 W6 h      Name := callfunc ('getsendername');
      Str := 'movespace ' + Name;
# x! `$ u  u6 K8 Q& D8 h6 Y      Str := Str + ' user 44 110 120';
print (Str);      
   exit;
8 N+ b  G$ l& Q6 |% C5 T# P      end;
   if aStr = 'goshigu' then begin
% g- g* J! A3 `0 o$ H" c4 |+ n      print ('mapregen 46');
, k/ x& D/ ?- P  S# o: @      Name := callfunc ('getsendername');
8 s# {8 S8 ]8 u2 ?0 v* U" \      Str := 'movespace ' + Name;
      Str := Str + ' user 46 35 35';
print (Str);
       exit;
      end;
/ u" z' `2 T/ o1 ?5 [* r7 R9 mend;
end.
3 C$ q, ?: J8 q1 Y+ N# E) Y9 J------------------------------------------------
在tgs1000/script文件夹里得script.sdb里
+ a6 g! V/ n. U9 Z( H% w7 Z% a最后一行加入
--------------------
72,传送员.txt,,  
--------------------
1 Z" S. Z: N! `3 b( t+ T3 t然后在tgs1000/help里建个文本文件 名字: 传送员
1 H+ e" |0 W4 I: r内容如下
------------------------------------------------

0 C2 s" i, {9 p0 t- a8 `% W想要传送到哪里？我可以帮忙
0 N: c8 l# {2 F. M关闭
太极密室
黄金沙漠
  G7 I1 q* L4 G( L4 u帝王石谷
* }+ G. e) g9 t-----------------------------------------------------
最后在tgs1000/Setting文件夹里得CreateNpc1.sdb里加
. e2 p0 t2 O5 F* w0 z6 _# c/ `-----------------------------
79,传送员,500,500,1,5,72,,
4 q9 ~) E% X. M4 S( S8 J, I" p7 D-----------------------------
(79是我里面得最后一行 具体数字可以设定你这个文件里得最后一行)