[EdsonJunior ;*]

 //-------------------------------------------------------// 
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; 

Colocar Stone Skin Amulet e Might Ring 

var 
RingID: integer; 
AmuletID: integer; 
ShieldID: integer; 
XbowID: integer; 


function GetItemFromOpenBackpack(ID: integer): TItem; 
var 
y: integer; 
begin 
Result := nil; 
for x := 0 to Self.Containers.Count - 1 do 
begin 
if x >= Self.Containers.Count then Break; 
for y := 0 to Self.Containers.Container[x].Count - 1 do 
begin 
if y >= Self.Containers.Container[x].Count then Break; 
if Self.Containers.Container[x].Item[y].ID = ID then 
begin 
Result := Self.Containers.Container[x].Item[y]; 
Exit; 
end; 
end; 
end; 
end; 

begin 
RingID := 3048; //ID Number de algum anel que vc queira no caso mana ou migth 
AmuletID := 3081; //ID number do stone skin amulet 
while not Terminated do 
begin 
UpdateWorld; 
if RingID <> 0 then 
begin 
if Self.Ring.ID = 0 then 
begin 
Ring := GetItemFromOpenBackpack(RingID); 
if Ring <> nil then 
begin 
Ring.MoveToBody(Self.Ring, 0); 
end; 
end; 
end; 
UpdateWorld; 
if AmuletID <> 0 then 
begin 
if Self.Amulet.ID = 0 then 
begin 
Amulet := GetItemFromOpenBackpack(AmuletID); 
if Amulet <> nil then 
begin 
Amulet.MoveToBody(Self.Amulet, 0); 
end; 
end; 
end; 
Sleep(100); 
end; 
end;