Multi-Exura Sio

//-------------------------------------------------------//
Const
MinSelfHP = 0; //LIFE PRA DAR EXURA SIO EM VOCE
MinPlayerHP = 30; // % DA HP DE OTROS PLAYERS
PlayerName = ['Ash Katchup','Guido']; //Players PARA HEALAR

//-------------------------------------------------------//

var
Creature: TCreature;
CreatureName: string;

function GetCreatureByName(Name: string): TCreature;
var
x: integer;
begin
Result := nil;
for x := 0 to Creatures.Count - 1 do
begin
if x >= Creatures.Count then Break;
if (AnsiLowerCase(Creatures.Creature[x].Name) = AnsiLowerCase(Name)) and (Creatures.Creature[x].Visible) then
begin
Result := Creatures.Creature[x];
Exit;
end;
end;
end;


while not Terminated do
begin
UpdateWorld;
if (Self.Health < MinSelfHP) and (Self.Mana>140) then
begin
Self.Say('exura sio "'+Self.Name);
Sleep(1000);
end else for i := Low(PlayerName) to High(PlayerName) do
begin
Creature := GetCreatureByName(PlayerName[i]);
If Creature<> nil then
begin
if (Creature.Health < MinPlayerHP) and (Self.Mana > 140) then
begin
Self.Say('Exura Sio "'+PlayerName[i])
Sleep(1000);
break;
end;
end;
end;
Sleep(100);
end;