Ian was right:
SCAR Code:
program New;
{.Include SRL/SRL.Scar}
{.Include SRL/SRL/Misc/Debug.Scar}
Var x, y : Integer;
Function HumanRockFinder(Number : Byte) : Boolean;
Var
TPA : TPointArray;
ATPA : Array Of TPointArray;
TB : TBox;
Begin
FindColorsTolerance(TPA, 2371405, MSX1, MSY1, MSX2, MSY2, 8);
ATPA := TPAToATPAEx(TPA, 30, 35);
SortATPAFromFirstPoint(ATPA, Point(205, 165));
TB := GetTPABounds(ATPA[Number-1]);
MouseBox(TB.X1, TB.Y1, TB.X2, TB.Y2, 1);
End;
Begin
SetupSRL;
HumanRockFinder(1);
End.
Will act out according to your pic.