Code:
procedure main;
var x,y,auto,ox,oy: Integer;
first :boolean;
spoint :Tpoint;
begin
while (true) do
begin
Antiban;
AntiRandoms;
if FindColorSpiralTolerance(x, y, 12369349, MIX1, MIY1, MIX2, MIY2, 10) then
begin
Mouse(x, y, 4, 4, True);
Wait(700);
end;
auto := ColorBone;
if FindColorSpiralTolerance(x, y, 1840372, MMX1, MMY1, MMX2, MMY2, 70) then
begin
spoint:=MMtoMS(Point(x,y));
writeln(IntToStr(spoint.x)+' '+IntToStr(spoint.y));
writeln(IntToStr(max(spoint.x - 40,0))+' '+IntToStr(max(0,spoint.y - 40))+' '+IntToStr(max(0,spoint.x + 40))+' '+IntToStr(max(0,spoint.y + 40)));
FindObjEx(ox,oy,['on','es'],[auto],10,50,max(spoint.x - 40,0),max(0,spoint.y - 40),max(0,spoint.x + 40) ,max(0,spoint.y + 40));
writeln(IntToStr(ox)+' '+ IntToStr(oy));
Mouse(ox, oy, 4, 4, True);
Wait(6000);
end;
end;
end;