Temat: [Poradnik] Jak trenować na Slimie przy pomocy Tibia Auto, TibiaBot NG oraz Blackd Proxy

const 
      Spell = 'exura'
      Food_Id = 3578;
      MinMana = 78;  
      StrongWeaponID = 3317;
      HealAtHp = 650;
      UhAtHp = 100; 
      ITEM_RUNE_UH = 316;
      KillAtHp=100;
var 
StrongWeapon:TItem; 

function GetItemFromOpenBackpack(ID: integer): TItem; 
var 
  x: integer; 
  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; 

function Attacking: boolean; 
begin 
   UpdateWorld; 
   for x := 0 to Creatures.Count - 1 do 
   begin 
     UpdateWorld; 
     if Creatures.Creature[x].Attacking then 
     begin 
        Result := True; 
        Exit; 
     end; 
   end; 
   Result := False; 
   Exit; 
end; 

function GetFollowedCreatureID: integer; 
begin 
   UpdateWorld; 
   for x := 0 to Creatures.Count - 1 do 
   begin 
      UpdateWorld; 
      if Creatures.Creature[x].Following then 
      begin 
         Result := Creatures.Creature[x].ID; 
         Exit; 
      end; 
   end; 
end; 
 
begin
  updateworld; 
  MotherSlime := GetFollowedCreatureID; 
  while not Terminated do 
  begin 
    UpdateWorld; 
    if self.LogoutBlock=false then self.Logout(false);  
    if ((Self.Health) <(HealAtHp)) and ((Self.Mana)>(25)) then 
    Self.Say(Spell) 
    UpdateWorld; 
    if ((Self.Health) <(UhAtHp)) then Self.Containers.UseItemWithSelf(GetItemFromOpenBackpack(ITEM_RUNE_UH)); 
    Sleep(1000); 
    if not Attacking then 
    begin 
      UpdateWorld; 
      for x := 0 to Creatures.Count - 1 do 
      begin 
        UpdateWorld; 
        if Creatures.Creature[x].ID <> MotherSlime then 
        begin 
          if (Creatures.Creature[x].Name <> Self.Name) and (Creatures.Creature[x].NPC) and (Creatures.Creature[x].Z = Self.Z) then 
          begin 
            UpdateWorld; 
            X1 := Creatures.Creature[x].X; 
            Y1 := Creatures.Creature[x].Y; 
            if (X1 - Self.X = 1) or (X1 - Self.X = 0) or (X1 - Self.X = -1) then 
            begin 
              UpdateWorld; 
              if (Y1 - Self.Y = 1) or (Y1 - Self.Y = 0) or (Y1 - Self.Y = -1) then 
              begin
                Creatures.Creature[x].Attacking := true; 
                Break; 
              end; 
            end; 
          end; 
        end; 
      end; 
    end; 
    else 
    begin 
      if self.Health < KillAtHp then 
      Begin 
        UpdateWorld; 
        for x := 0 to Creatures.Count - 1 do 
        begin 
          UpdateWorld; 
          if Creatures.Creature[x].ID = MotherSlime then 
          begin 
            if (Creatures.Creature[x].Name <> Self.Name) and (Creatures.Creature[x].NPC) and (creatures.creature[x].Z = self.Z) then 
            Creatures.Creature[x].Attacking := true; 
            StrongWeapon:= GetItemFromOpenBackpack(StrongWeaponID); 
            if  StrongWeapon <> nil then 
            StrongWeapon.MoveToBody(Self.RightHand, 0); 
            Break; 
          end; 
        end; 
      end; 
      if Self.Mana < MinMana then 
      begin 
        UpdateWorld; 
        for container := 0 to Self.Containers.Count - 1 do 
        begin 
          UpdateWorld; 
          for item := 0 to Self.Containers.Container[container].Count - 1 do 
          begin 
            UpdateWorld; 
            if Self.Containers.Container[container].Item[item].ID = Food_Id then 
            Self.Containers.Container[container].Item[item].Use; 
          end; 
        end; 
      end; 
    end; 
    Sleep(1000); 
  end;
end;