千年服务端新建一个传送员脚本

可以传太极密室(直接去挑公子 有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 (aStr, aToken, aSep : String) : String;

function  CompareStr (aStr1, aStr2 : String) : Boolean;

function  callfunc (aText: string): string;

procedure print (aText: string);

function  Random (aScope: integer): integer;

function  Length (aText: string): integer;

procedure Inc (aInt: integer);

procedure Dec (aInt: integer);

function  StrToInt (astr: string): integer;

function  IntToStr (aInt: integer): string;

procedure exit;

procedure 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

     Str := 'showwindow .\help\传送员.txt 1';

     print (Str);

     exit;

  end;

end;