Just for the kicks, will detect the ram/horned dog. No, atm no solver planned.
SCAR Code:
{.include srl/level1.scar}
var p : TPointArray;
d : T2DPointArray;
x, y : integer;
begin
ColorToleranceSpeed(2);
SetColorspeed2Modifiers(0.16, 1.08);
FindColorsTolerance(p, 8990110, msx1, msy1, msx2, msy2, 33);
d := SplitTPAEx(p, 1, 1);
SortATPASize(d, true);
CleanATPA(250, 400, d);
MiddleTPAEx(d[0], x, y);
MoveMouse(x, y);
writeln(inttostr(GetTimeRunning));
end.
CleanATPA -> Ray's plugin XFindRock.dll, see his smither thread for it.