
How do I fix this? Basically I want the Point R to be the middle of my ATPA[i][k] That way I can move to that point, check for uptext then click the rock if it is indeed there, but Im lost..
Code
Simba Code:
Function FindRocks: Boolean;
Var
TPA : TPointArray;
ATPA : T2DPointArray;
I, X, Y, K : Integer;
R:TPoint;
begin
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(0.02, 0.19);
if FindColorsSpiralTolerance(X, Y, TPA, 4224658, MMX1, MMY1, MMX2, MMY2, 13) then
begin
if (Length(TPA) >= 5) then
begin
ATPA := TPAtoATPAEx(TPA, 15, 15);
SortATPAFromFirstPoint(ATPA, Point(MSCX, MSCY));
for i := Low(ATPA) to High(ATPA) do
for k := Low(ATPA[i]) to High(ATPA[i]) do
begin
if GetArrayLength(ATPA[i][k]) > 5 then
begin
R := MiddleTPA(ATPA[i][k]);