Temat: [8.54][NG Bot] Kicki & crash

const
Spell = 'eXuRa GraN ""mLVL'
Food_Id = 3578;
MinMana = 70;
StrongWeaponID = 3287;
HealAtHp = 720;
UhAtHp = 100;
ITEM_RUNE_UH = 316;
KillAtHp=250;
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(GetItemFromOpenBac kpack(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;

Const
SmallID = 1781
SmallAmount = 5

Function GetItemFromOpenBackpack(ID, Index: 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;
if x = Index then Continue;
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 CountItemAmountFromOpenBackpack(ID: integer): integer;
var
x: integer;
y: integer;
begin
Result := 0;
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 := Result + Self.Containers.Container[x].Item[y].Amount;
end;
end;
end;
end;

while not terminated do
begin
UpdateWorld;

SmallStone := GetItemFromOpenBackpack(SmallID, Self.Containers.Count);
if SmallStone <> nil then SmallStone.MoveToContainer(Self.Containers.Contain er[0], 0, 0);
if (Self.LeftHand.ID = SmallID) then
begin
if (Self.LeftHand.Amount < 90) then
begin
SmallStone := GetItemFromOpenBackpack(SmallID, Self.Containers.Count);
if SmallStone <> nil then SmallStone.MoveToBody(Self.LeftHand, 0);
end;
end else begin
SmallCount := CountItemAmountFromOpenBackpack(SmallID);
if SmallCount >= SmallAmount then
begin
Self.LeftHand.MoveToBody(Self.Arrow, 0);
Sleep(500);
SmallStone := GetItemFromOpenBackpack(SmallID, Self.Containers.Count);
if SmallStone <> nil then SmallStone.MoveToBody(Self.LeftHand, 0);
end else if Self.LeftHand.ID = 0 then Self.Arrow.MoveToBody(Self.LeftHand, 0);
end;

Sleep(500);
end;