在中央常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');
//这里是检测死亡的是不是玩家
内容来自dedecms
if str <> '1' then exit;
//下面这一段和普通传送有点不同,这个是利用本地图的npc传送的,如果本地图没有中央管理员,那么这段就无效了。
name := callfunc ('getsendername');
str := 'movespacebyname ' + name;
str := str + ' user 6 84 81 中央管理员 npc 300';
print (str);
end;
end.