SCAR Code:
function Moving : Boolean;
var
PointArray : TPointArray;
ColourArray, ColourArrayCheck : TIntegerArray;
I, ChangedPoints : Integer;
begin
FindColorsTolerance(PointArray, 0, MMCX, MMCY, MMX2, MMY2, 422);
ColourArray := GetColors(PointArray);
Wait(250);
FindColorsTolerance(PointArray, 0, MMCX, MMCY, MMX2, MMY2, 422);
ColourArrayCheck := GetColors(PointArray);
for I := 0 to High(ColourArray) do
if not(ColourArray[I] = ColourArrayCheck[I]) then
Inc(ChangedPoints);
Result := ChangedPoints >= 20;
end;
Maybe that would work?