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;
Wyszukiwarka

Podobne podstrony:
czas i ruch na ekranie
Wymiary znakow na ekranie
Wymiary znakow na ekranie
pisanie na ekranie
wyswietlanie na ekranie
Whitman na ekranie
ClickIt program do tworzenia aktywnych miejsc na ekranie komputera(1)
Ukrycie konta na ekranie powitalnym
Linijka na ekranie komputera Info
Kierowca niewinny, gdy policja siedzi mu na zderzaku wyrok sadu
na;szklanym;ekranie,kategoria,432
gdy zostajesz u mnie na noc
Gdy na ten swiat

więcej podobnych podstron