SCAR Code:
program AutoMiner;
{.include SRL\SRL.scar}
Var
x,y: integer;
Const
Username= '';
Password= '';
OreColor = 7044095;
Ore := DTMFromString('78DA633461626078C380028A631D191881340' +
'8FF0702465BA09A7B0C6880118904D2764035F78950F38808352F' +
'09A801B9E7150135964035AF09A801F9FD310135C640352F88B08' +
'B40F8000026DF1073');
begin
if findcolor(x,y,Orecolor,0,0,515,337)then
begin
movemousesmoothEx(x,y +random(5),10,30,500,10,0);
wait(100+random(300));
If IsUpText('Text here') then
Mouse(x,y,1,1,true);
end else
writeln('Could Not find rock');
end;
if findDTM(Ore,x,y,687,436,711,459)then
begin
If findDTM(Ore,x,y,550,208,736,465)then
begin
movemousesmooth(x,y +random(12))
wait(100+random(250))
Mouse(x,y,1,1,false)
ChooseOption('rop')
end;
end;
end;
Here you go.