Ahaw Slime Trainer Old

Attack first mother slime to less than 70% of health then put follow on mother slime and run script.

const Food_Id = 3606; //change this to the desired itemid
      MinMana = 30;
      StrongWeaponID = 3320
      HealAtHp =400
      UhAtHp=300
      KillAtHp=320
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;

var
   MotherSlime, X1, Y1: integer;
begin
updateworld;

updateworld;
   MotherSlime := GetFollowedCreatureID;
   while not Terminated do
   begin
      UpdateWorld;
      if self.LogoutBlock=false then self.Logout(false)

  begin
    UpdateWorld;
      if ((Self.Health) <(HealAtHp)) and ((Self.Mana)>(25)) then
      Self.Say('exura')
       UpdateWorld;
       //if ((Self.Health) <(UhAtHp)) then Self.Containers.UseItemWithSelf(ITEM_RUNE_UH);
      Sleep(1000);
   end;

      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 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
                        if Creatures.Creature[x].Health>70 then
                           Begin
                           Creatures.Creature[x].Attacking := true;
                           Break;
                           end;
                     end;
                  end;
               end;
            end;
         end;
      end;
      else
          begin
          if self.Health < KillAtHp then
             Begin
             PlaySound('d:\ouch.wav');
         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 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