scar Code:
Function FindMiningSite:TPoint;
var
fires,fires2,fires3,fires4 : TpointArray;
FilteredFires,FilteredFiresx : T2DPointArray;
x,y,i,timer : integer;
grabtime : integer;
begin
try
FindColorsTolerance(fires,2836599,556,5,706,167,5);
FindColorsTolerance(fires2,1649728,556,5,706,167,5);
FindColorsTolerance(fires3,2902644,556,5,706,167,5);
FindColorsTolerance(fires4,1916496,556,5,706,167,5);
except
end;
try
fires := CombineTPA(fires,fires2);
fires := CombineTPA(fires,fires3);
fires := CombineTPA(fires,fires4);
FilteredFires := SplitTpaex(fires,3,3);//TpaToAtpaEx(fires,50,50);
x:= 627;
y:= 659;
FilteredFiresx:=Killboxes(filteredfires,10,100,45,150);
SortATPASize(FilteredFiresx,TRUE);
except
end;
try
//debugatpabounds(filteredfires,'');
except
end;
try
MiddleTPAEx(FilteredFiresx[0],x,y);
except
end;
If high(FilteredFiresx) >0 then
result := Point(x,y);
end;