Program Powerminer;
{.include Si.scar}
//must be by 2 iron rocks\\
//also, if in draynor mines, will mistake rocks ford drorves if no rocks are spawned\\
//must be able to see one of the rocks when starting\\
//if u dont follow these rules on script, it wont work it thats simple\\
//dont be mad if it doesnt work cuz it works when i tested it\\

Var x,y : Integer;

Procedure minerocks;
Begin
Findcolor(x,y,1976644,5,5,515,340)
Mouse(x,y,1,1,true)
Wait(2300)
Findcolor(x,y,1976644,5,5,515,340)
Mouse(x,y,1,1,true)
Wait(2300)
Findcolor(x,y,4086127,544,184,756,486)
mouse(x,y,1,1,false)
wait(500)
Findcolor(x,y,16777215,574,266,605,270)
mouse(x,y,1,1,true)
wait(500)
Findcolor(x,y,4086127,544,184,756,486)
mouse(x,y,1,1,false)
wait(500)
Findcolor(x,y,16777215,574,266,605,270)
mouse(x,y,1,1,true)
wait(2500)
Findcolor(x,y,1976644,5,5,515,340)
Mouse(x,y,1,1,true)
Wait(2300)
Findcolor(x,y,1976644,5,5,515,340)
Mouse(x,y,1,1,true)
Wait(2300)
Findcolor(x,y,4086127,544,184,756,486)
mouse(x,y,1,1,false)
wait(500)
Findcolor(x,y,16777215,574,266,605,270)
mouse(x,y,1,1,true)
wait(500)
Findcolor(x,y,4086127,544,184,756,486)
mouse(x,y,1,1,false)
wait(500)
Findcolor(x,y,16777215,574,266,605,270)
mouse(x,y,1,1,true)
wait(2500)
end;

begin
minerocks
repeat minerocks;
until(false)
end.