function TrackItemSlotsInInv(itemid: Integer): TIntegerArray;
var
  i, r, bmp: Integer;
  bx: TBox;
begin
  if OpenGameTab(5) then
    if LoadItem(itemid, bmp, item_name) then
    begin
      SetLength(Result, 30);
      for i := 1 to 30 do
      begin
        bx := GetInvSpot(i);
        if FindDeformedBitmapToleranceIn(bmp, X, Y, bx.X1, bx.Y1, bx.X2, bx.Y2, 0, 5, False, accuracy) then
        begin
          Result[r] := i;
          Inc(r);
        end;
      end;
      FreeBitmap(bmp);
      SetLength(Result, r);
    end;
end;