I don't know if this works. It's late and I don't have time to test but it should give you an idea of what to do 
SCAR Code:
function FindMonk(var T: TPoint): Boolean;
var
Head, LB, DB, i, H: Integer;
x, y: Integer;
TPA: array of TPoint;
ATPA: T2DPointArray;
begin
Head := 7642573;
LB := 4284787;
DB := 2639703;
FindColorsSpiralTolerance(MSCX, MSCY, TPA, Head, MSX1, MSY1, MSX2, MSY2, 10);
ATPA := TPAtoATPA(TPA, 20);
H := High(ATPA);
for i := 0 to H do
begin
T := MiddleTPA(ATPA[i]);
if FindColorTolerance(x, y, LB, T.x - 10, T.y - 10, T.x + 10, T.x + 10, 10) and
FindColorTolerance(x, y, DB, T.x - 10, T.y - 10, T.x + 10, T.x + 10, 10) then
begin
MMouse(T.x, T.y, 5, 5);
Wait(50 + Random(50));
if IsUpText('onk') then
begin
Result := True;
Exit;
end;
end;
end;
Result := False
end;