千年建传送员脚本

    可以传太极密室(直接去挑公子 有2分时间 随便说明 传太极密室某固定点 里面得老人可以喊开始别得点好象不行) 黄金沙漠 帝王石谷 (主要本人知道可以传送得地图点少估建3个)

在 tgs1000/init/npc.sdb里加
传送员,传送员,0,,,,,,,,,,62,81,235,0,0,,,,20000,0,0,0,0,,0,,,,,,,,,,,,,,,TRUE,

在tgs1000/script文件加里创建一个文本 名字:传送员
里面内容
-----------------------------------------
unit 传送员;

interface

function  GetToken (aSp, aToken, aSep : Sping) : Sping;
function  CompareSp (aSp1, aSp2 : Sping) : Boolean;
function  callfunc (aText: sping): sping;
procedure print (aText: sping);
function  Random (aScope: integer): integer;
function  Length (aText: sping): integer;
procedure Inc (aInt: integer);
procedure Dec (aInt: integer);
function  SpToInt (asp: sping): integer;
function  IntToSp (aInt: integer): sping;
procedure exit;

procedure OnLeftClick (aSp : Sping);
procedure OnGetResult (aSp : Sping);

implementation
procedure OnLeftClick (aSp : Sping);
var
   Sp : Sping;
   Race : Integer;
begin
   Sp := callfunc ('getsenderrace');
   Race := SpToInt (Sp);
   if Race = 1 then begin
      Sp := 'showwindow ./help/传送员.txt 1';
      print (Sp);
      exit;
   end;
end;

procedure OnGetResult (aSp : Sping);
var
   Sp, Name : Sping;
   iCount, iKind : Integer;
begin
   if aSp = 'close' then begin
      exit;
   end;
   if aSp = 'goroom' then begin
      print ('mapregen 32');
      Name := callfunc ('getsendername');
      Sp := 'movespace ' + Name;
      Sp := Sp + ' user 32 23 18';
      print (Sp);
       exit;
      end;
   if aSp = 'goshamu' then begin
      print ('mapregen 44');
      Name := callfunc ('getsendername');
      Sp := 'movespace ' + Name;
      Sp := Sp + ' user 44 110 120';
print (Sp);     
   exit;
      end;
   if aSp = 'goshigu' then begin
      print ('mapregen 46');
      Name := callfunc ('getsendername');
      Sp := 'movespace ' + Name;
      Sp := Sp + ' user 46 35 35';
print (Sp);
       exit;
      end;
end;
end.

------------------------------------------------
在tgs1000/script文件夹里得script.sdb里
最后一行加入
--------------------
72,传送员.txt,, 
--------------------

然后在tgs1000/help里建个文本文件 名字: 传送员
内容如下
------------------------------------------------

想要传送到哪里？我可以帮忙

关闭
太极密室
黄金沙漠
帝王石谷

-----------------------------------------------------

最后在tgs1000/Setting文件夹里得CreateNpc1.sdb里加
-----------------------------
79,传送员,500,500,1,5,72,,
-----------------------------
(79是我里面得最后一行 具体数字可以设定你这个文件里得最后一行)