program loadminerv3;
{.include SRL/SRL.scar}
{.include SRL/Srl/Misc/Debug.scar}
Const
RockColor=1977165 ; //color picker
loadcount= 28 ; //total ore to be mined
wtime= 5000 ; //total time to wait between mining rocks
//setting this too low results in clicking a rock multiple times
var
x, y: integer;
TPA:TPointArray;
ATPA:T2DPointArray;
I: Integer;
counter: Integer;
begin
counter:=0;
repeat
counter:=counter+1;
begin
mousespeed:=(5+random(5));
FindColorsTolerance(TPA, RockColor, MSX1, MSY1, MSX2, MSY2,6);
ATPA := TPAToATPAEx(TPA, 20, 20);
begin
if ( Length(ATPA)=0 ) then
repeat
wait(1000+random(2000));
FindColorsTolerance(TPA, RockColor, MSX1, MSY1, MSX2, MSY2,6);
ATPA := TPAToATPAEx(TPA, 20, 20);
until (Length(ATPA)>0)
end;
SortATPAFrom(ATPA, Point(MSCX, MSCY));
MiddleTPAEx(ATPA[i], x, y);
wait(50+random(500));
MMouse(x, y, 20, 20);
MMouse(x, y, 8, 8);
wait(random(500)+300);
getmousepos(x,y);
if ( WaitUpTextMulti(['Min', 'ine', 'Roc', 'ocks'], 200) ) then
wait(5);
clickmouse(x,y,true);
end;
wait(wtime+random(1000));
until(counter>=loadcount)
end.