在中央常PK的地方放置一个NPC叫——中央管理员，建议放在500 500的位置。

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 OnChangeState (aStr : String);

implementation

//下面是当玩家状态改变时，也就是检测到玩家死亡了。
procedure OnChangeState (aStr : String);
var
   Str, Name : String;
begin
   if aStr <> 'die' then exit;

   Str := callfunc ('getsenderrace');   //这里是检测死亡的是不是玩家
   if Str <> '1' then exit;
  

//下面这一段和普通传送有点不同，这个是利用本地图的NPC传送的，如果本地图没有中央管理员，那么这段就无效了。
      Name := callfunc ('getsendername');
      Str := 'movespacebyname ' + Name;
      Str := Str + ' user 6 84 81 中央管理员 npc 300';      
      print (Str);
end;

end.