Temat: Szukasz skryptu? Zajrzyj tutaj!

const
  minMana =200// Change this to when you want it to heal. 

while not terminated do
begin
  UpdateWorld;
  if Self.Mana < minMana then
      Self.Containers.UseItemWithSelf(237); //  Change this to the HEALTH potion's ID. 239 is Great. 236 is Strong. 
      Sleep(1000);
end;

Const 
  //	Dodaj lub usuń graczy tutaj ...
  SioPlayers = ['Player1', 'Player2']; 
  //Procent zdrowia, w którym do nich Sio ... 
  SioAt = 40 
  // To zostaw
  Delay = 1000 

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 Creatures.Creature[x].Name = Name then 
    begin 
      Result := Creatures.Creature[x]; 
      Exit; 
    end; 
  end; 
end; 

begin 
  while not Terminated do 
  begin 
    UpdateWorld; 
    for i := low(SioPlayers) to high(SioPlayers) do 
    begin 
      Creature := GetCreatureByName(SioPlayers[i]); 
      if Creature <> nil then 
        if SioPlayers[i] = Creature.Name then 
          if Creature.Health <= SioAt then 
              Self.Say('Exura Sio "' + SioPlayers[i]); 
    end; 
    Sleep(Delay); 
  end;

Const MiniCreatureHP =50; // if your firned has 50% of his hp it will heal..change it as you like it.
const ITEM_RUNE_UH = 3160;
// Follow first the friend you want to sio and then start script //
var
  Creature: TCreature;
  CreatureName: string;
 
function IsCreatureVisible(Name: string): boolean;
var
  x: integer;
begin
  Result := False;
  for x := 0 to Creatures.Count - 1 do
  begin
    if x >= Creatures.Count then Break;
    if Creatures.Creature[x].Name = Name then
    begin
      if Creatures.Creature[x].Visible then
      begin
        Result := True;
        Exit;
      end;
    end;
  end;
end; 

function GetFollowedCreature: TCreature;
var
  x: integer;
begin
  Result := nil;
  for x := 0 to Creatures.Count - 1 do
  begin
    if x >= Creatures.Count then Break;
    if Creatures.Creature[x].Following then
    begin
      Result := Creatures.Creature[x];
      Exit;
    end;
  end;
end;

begin
  UpdateWorld;
  Creature := GetFollowedCreature;
  while not Terminated do
  begin
    UpdateWorld;
       If Creature<> nil then
       If IsCreatureVisible(Creature.Name) then
      begin
      if ((Creature.Health) <(MiniCreatureHP)) and ((Self.Mana)>(70)) then
      Self.Say('exura sio "'+ Creature.Name) //name of friend
       else
       if ((Creature.Health) <(MiniCreatureHP)) then Self.Containers.UseItemWithCreature(ITEM_RUNE_UH, Creature);
       end;
      Sleep(1000);
   end;
   
end;

Const 
  SpearID = 3277  
  Spell = 'Exeta con' 
  MinMana = 600 
  MinSoul = 5 
  WeaponID = 3272  

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; 

While not terminated do 
begin 
  UpdateWorld; 
  if Self.Mana >= MinMana then 
  if Self.Soul >= MinSoul then 
  begin 
    Spear := GetItemFromOpenBackpack(SpearID); 
    if Spear <> nil then 
    Spear.MoveToBody(Self.RightHand,1); 
    Sleep(800); 
    UpdateWorld; 
    If Self.RightHand.ID = SpearID then 
    Self.Say(Spell); 
    UpdateWorld; 
    Weapon := GetItemFromOpenBackpack(WeaponID); 
    if Weapon <> nil then 
    Weapon.MoveToBody(Self.RightHand,0); 
  end; 
  sleep(500); 
end;