Nazwa forum

Const
  MonsterToCheck = 'Stalker'
  MinHealth = 300
  MinMana = 200

function CountMonstersBesideYou:Integer;
begin
  Result := 0;
  UpdateWorld;
  for i := 0 to creatures.Count -1 do
  begin
        if i >= Creatures.Count then break
        for x := -1 to 1 do
        begin
            if x >= 2 then break
            for y := -1 to 1 do
            begin
                if y > 1 then break;
                if Creatures.Creature[i].NPC then
                if (Creatures.Creature[i].x = Self.X +x) and (Creatures.Creature[i].y = Self.y + y) then
        if Creatures.Creature[i].Name = MonsterToCheck then
        Result := Result + 1;
            end;
        end;
  end;
end;

while not terminated do
begin
  UpdateWorld;
  if CountMonstersBesideYou >= 1 then
    if Self.Mana >= MinMana then
  if Self.Health > MinHealth then
  Self.Say('exori');
    sleep(200);
end;