function GetInvSpot(spot): TBox;
begin
  if ((spot >= 1) and (spot <= 30)) then
    Result := IntToBox(265 + (((spot - 1) mod 5) * 49), 37 + (((spot - 1) div 5) * 34), 312 + (((spot - 1) mod 5) * 49), 69 + (((spot - 1) div 5) * 34));
end;

function InvSpotSearch(itemid, spot: Integer): Boolean;
var
  bx: TBox;
  bmp: Integer;
begin
  if ((spot < 1) or (spot > 30)) then
  begin
    if OpenGameTab(5) then
    begin
      Wait(100);
      if LoadItem(itemid, bmp, item_name) then
      begin
        bx := GetInvSpot(spot);
        Result := FindDeformedBitmapToleranceIn(bmp, X, Y, bx.X1, bx.Y1, bx.X2, bx.Y2, 0, 5, False, accuracy);
        if Result then
          WriteLn('Found ' + item_name + ' in inventory spot: ' + IntToStr(spot))
        else
          WriteLn('Could NOT locate ' + item_name + ' in inventory spot: ' + IntToStr(spot));
        FreeBitmap(bmp);
      end;
    end;
  end else
    WriteLn('Please enter a correct inventory spot!');
end;

function BoxCenter(bx: TBox): TPoint;
begin
  if ((bx.X1 > bx.X2) or (bx.Y1 > bx.Y2)) then
    Exit;
  Result.X := Round(bx.X1 + ((bx.X2 - bx.X1) / 2));
  Result.Y := Round(bx.Y1 + ((bx.Y2 - bx.Y1) / 2));
end;