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;[/hide]