Here's some help:
Simba Code:
program MineIt;
{$i SRL\SRL.scar}
{$i SRL\SRL\Misc\Debug.scar}
function MineTin: Boolean;
var
CTS, x, y, i: Integer;
Hue, Sat: Extended;
TPA: TPointArray;
ATPA: T2DPointArray;
begin
if not(LoggedIn) then
Exit;
CTS := GetColorToleranceSpeed; //Storing start CTS to change back to later
SetColorToleranceSpeed(2); //Changing to CTS 2
GetColorspeed2Modifiers(Hue, Sat); //Storing start Hue/Sat mods to change back to later
SetColorspeed2Modifiers(0.19, 0.07); //Changing Hue/Sat mods
FindColorsTolerance(TPA, 7961216, MSX1, MSY1, MSX2, MSY2, 15); //Finding colors
SetColorspeed2Modifiers(Hue, Sat); //Changing back Hue/Sat mods
SetColorToleranceSpeed(CTS); //Changing back CTS
if (Length(TPA) < 1) then //Making sure we found some colors
Exit;
SortTPAFrom(TPA, Point(MSCX, MSCY)); //Sorting the TPA from center of the screen -- faster than FindColorsSpiralTolerance by a bit
ATPA := TPAtoATPA(TPA, 35); //Splitting into an ATPA, boxes of 35x35 pixels
DebugATPA(ATPA, '');
for i := 0 to High(ATPA) do //looping through ATPA
begin
MiddleTPAEx(ATPA[i], x, y); //Calculating center of ATPA
if PointInBox(Point(x, y), IntToBox(MSCX - 15, MSCY - 15, MSCX + 15, MSCY + 15)) then
Continue; //Checks if the point is within 15 pixels of player - if so, "Continue;" goes to the next TPA
MMouse(x - 3, y - 3, 6, 6); //Moving mouse to the point
if WaitUptextMulti(['Mine', 'ine R', 'ne Ro', 'e Roc', 'Rock', 'ocks'], 750 + Random(200)) then //checking for uptexts
begin
Wait(50 + Random(80)); //random wait for human-ness
ClickMouse2(True); //left clicking mouse (Via SRL proc)
Result := DidRedClick; //checking for red crosshairs that come up after clicking
end;
if Result then //exits the function so it doesn't click all over the place
Break;
end;
if Result then
Flag; //Waits to finish walking in case rock was > 1 tile away (Only if it clicked the rock!)
end;
begin
SetupSRL;
writeln(BoolToStr(MineTin));
end.
Heres the ATPA Debug:

read comments for how it works.