Nazwa forum

Const
  Soft_In_Use_ID = 3549
  Soft_Boots_ID = 6529

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

while not terminated do
begin
  UpdateWorld;
  if Self.Feet.ID <> Soft_In_Use_ID then
  begin
    Soft := GetItemFromOpenBackpack(Soft_Boots_ID);
    if Soft <> nil then
    Soft.MoveToBody(Self.Feet,0);
    else Self.DisplayText('Soft Boots werent found in open BP!');
  end;
  sleep(100);
end;