SCAR Code:
{*******************************************************************************
function FindItemEx(var x, y: Integer; IdentType: string; Ident: Integer; Area: TBox; Tol: TIntegerArray): Boolean;
By: Nava2
Description: Finds an item in Area specified by TBox in Area. Valid IdentTypes are:
bmp, mask, color, dtm. The Tol variable is:
Tol[0] : Color Tolerance;
Tol[1] : Contour Tolerance or minimum Colors to Find to be True.
*******************************************************************************}
function FindItemEx(var x, y: Integer; IdentType: string; Ident: Integer; Area: TBox; Tol: TIntegerArray): Boolean;
var
Pts: TPointArray;
begin
Result := False;
SetLength(Tol, 2);
<<<<<<< .mine//<----- this is the line
case Lowercase(IdentType) of
'bitmap mask', 'bmpmask', 'bmp mask', 'mask': Result := FindBitmapMaskTolerance(Ident, x, y, Area.x1, Area.y1, Area.x2, Area.y2, Tol[0], Tol[1]);
'bitmap', 'bmp': FindBitmapToleranceIn(Ident, x, y, Area.x1, Area.y1, Area.x2, Area.y2, Tol[0]);
=======
case Lowercase(IdentType) of
'bitmap mask', 'bmpmask', 'bmp mask', 'mask': Result := FindBitmapMaskTolerance(Ident, x, y, Area.x1, Area.y1, Area.x2, Area.y2, Tol[0], Tol[1]);
'bitmap', 'bmp': Result := FindTransparentBitmapTolerance(Ident, x, y, 0, Area.x1, Area.y1, Area.x2, Area.y2, Tol[0]);
>>>>>>> .r33
'dtm': Result := FindDTM(Ident, x, y, Area.x1, Area.y1, Area.x2, Area.y2);
'colour', 'color':
begin
FindColorsTolerance(Pts, Ident, Area.x1, Area.y1, Area.x2, Area.y2, Tol[0]);
if Tol[1] < 1 then Tol[1] := 1;
Result := Length(Pts) >= Tol[1];
if Result then
MiddleTPAEx(Pts, x, y);
end;
else
SRL_Warn('FindItem', 'Invalid identifier input as IdentType.', -1);
end;
end;
here is the script i ran