[mazimazi]

Const
spelltouse = 'exevo gran san tera'
CreatureName = 'Hydra Boss'
NumberOfMonsters = 1
MinHealth = 0
MinMana = 0

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) and (Creatures.Creature[i].Z = Self.Z) and (Creatures.Creature[i].Name = CreatureName) then
Result := Result + 1;
end;
end;
end;
end;

while not terminated do
begin
UpdateWorld;
if CountMonstersBesideYou >= NumberOfMonsters then
if Self.Mana >= MinMana then
if Self.Health > MinHealth then
Self.Say(spelltouse);
sleep(1000);
end;



1 i 2 linijka najważniejsza czyli CZAR i na jakiego potwora ma działac. Jak wiecej potworów na exp dodajemy osobny skrypt z nazwa potwora Pozdro!