Ahaw Slime Trainer [Old] edited by Hiho

Hiho said:
1) in my edited script it will use the UH, it didn't work before.
2) it will attack slimes even if they come to you with red HP!
3) if paladin train you would prefer exura gran, you can choose the spell when lowHP !
4) just the order of the script i moved some lines

const 
      Spell = 'exura'
      Food_Id = 3578; //change this to the food you have on you 
      MinMana = 150;  // change this to the mana when it starts to eat 
      StrongWeaponID = 3295 // The weapon that will kill mother slime When KillAtHP 
      HealAtHp = 500  // will use exura when get this hp  
      UhAtHp = 100  // will uh you if it get this HP 
      ITEM_RUNE_UH = 3160 // enter here UH or IH to use in desired HP.
      KillAtHp=200 // when it get this exp it will kill the mother slime 
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;
Unless otherwise stated, the content of this page is licensed under Creative Commons Attribution-NonCommercial-ShareAlike 3.0 License