Const
Message = 'no kill plx i am training'
Delay = 3 // in seconds

Function PlayerOnScreen:boolean;
Begin
Result := false;
for i := 0 to creatures.count - 1 do
begin
if Creatures.Creature[i].npc = false then
if Creatures.Creature[i].Name <> Self.Name then
if Creatures.Creature[i].Z = Self.Z then
begin
Result := true;
exit;
end;
end;
end;

while not terminated do
begin
UpdateWorld;
A := PlayerOnScreen;
if A then
begin
Self.Say(Message);
Sleep(Delay*1000 - 200);
end;
sleep(200);
end;