Utana Vid com tal Criatura

Const
CastInvisible = ['Vampire', 'Hydra'] //pode ser alterado
MinMana = 600

function CreatureOnScreen:boolean;
begin
UpdateWorld;
result := false
for i := 0 to Creatures.Count -1 do
begin
if i >= Creatures.Count then break;
for x := Low(CastInvisible) to High(CastInvisible) do
begin
if x > High(CastInvisible) then break;
if (CastInvisible[x] = Creatures.Creature.Name) and (Creatures.Creature.Z = Self.Z) then
begin
result := true
end;
end;
end;
end;

while not terminated do
begin
UpdateWorld;
ProcessEvents;
if CreatureOnScreen then
if Self.Mana >= MinMana then
Self.Say('utana vid');
sleep(1000);
end;