Simba Code:
var
MyTPA : TPointArray;
MyPoint : TPoint;
x, y, i : Integer;
begin
FindColorsSpiralTolerance(MSCX,MSCY,MyTPA,12539990,MSX1,MSY1,MSX2,MSY2,6);
if Length(MyTPA) = 0 then
FindColorsSpiralTolerance(MSCX,MSCY,MyTPA,12539990,MSX1,MSY1,MSX2,MSY2,6);
for i := 0 to High(MyTPA)do
begin
MyPoint := MyTPA[i]
MMouse (MyPoint.x, MyPoint.y, 3, 3);
if (IsUpTextMultiCustom(['Icosa', 'ile','Pile','edron Pil','hedron','cosahedro','cosahedron Pil'])) then
begin
GetMousePos(x, y);
Mouse(x, y, 0, 0, true);
exit;
end;
end;
this start searching from middle of the screen but sometimes it doesnt get the closest one
thats what im using......works 50/50 of the times, im looking for something better =p