| jabol123 |
 Wysłany: Czw 21:09, 05 Mar 2009 Temat postu: Alarm Gdy Scarab Na Ekranie |
|
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;
|
|
|
