jabol123
Administrator
Dołączył: 05 Mar 2009
Posty: 26
Przeczytał: 0 tematów
Ostrzeżeń: 0/5
|
Wysłany: Czw 21:09, 05 Mar 2009 |
|
|
Jeżeli expisz w miejscu w którym nie ma Scarabów a gdzie można je lurnąć ten skrypt jest dla Ciebie ;] Komputer będzie Cię alarmował gdy Scarab będzie na Ekranie ; ]
Kod: |
function IsCreatureVisible(Name: string): boolean;
var
x: integer;
begin
Result := False;
for x := 0 to Creatures.Count - 1 do
begin
if x >= Creatures.Count then Break;
if Creatures.Creature[x].Name = Name then
begin
if Creatures.Creature[x].Visible then
begin
Result := True;
Exit;
end;
end;
end;
end;
begin
while not Terminated do
begin
UpdateWorld;
if IsCreatureVisible('Scarab') then PlaySound('c:\windows\media\notify.wav');
Sleep(1000);
end;
end;
|
Post został pochwalony 0 razy
|
|