Tell me what you make of this:
SCAR Code:
Function FindRock(var x,y: Integer): Boolean;
Var
RockP: TPointArray;
TP: Tpoint;
Rock: T2DPointArray;
I, Times: Integer;
Begin
Times:=0;
If Not LoggedIn then Exit;
SetAngle(True);
ColorToleranceSpeed(2);
FindColorsSpiralTolerance(MSCX, MSCY, RockP, 2371664, MSX1, MSY1, MSX2, MSY2, 5);
Rock:= TPAtoATPAEx(RockP, 10, 10);
for i := 0 to Length(Rock)-1 do
begin
TP := MiddleTPA(Rock[i]);
MMouse (TP.x, TP.y, 3, 3);
Inc(Times);
Wait(200+Random(100));
If IsUpText('Mine') then
begin
GetMousePos(x, y);
Result:= True;
Writeln('Rock found at X: '+inttostr(x)+' Y: '+inttostr(y));
ColorToleranceSpeed(1);
Exit;
end;
If Times = 8 then
Begin
Writeln('Not Found Rock, Exiting');
Exit;
end;
Wait(800+random(500));
end;
end;
xoxoxox