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;
page revision: 4, last edited: 01 Jun 2007 17:36