SCAR Code:
program Powerminer;
{.include SRL/SRL.scar}
const
loads = 5;//how many loads do you want to do?
color1 =9869218;//first color of rock
color2 =7697790;//second color of rock
waittime = 7000; //time to wait before clicking rock
rundir = 'S';//direction to run incase of fight
var
x , y , i , minerocks: integer;
procedure antirandoms; //basic antirandoms
begin
mouse(x,y,0,0,true);
findnormalrandoms;
flag;
ftwait(2);
if (findFight=true) then
begin
RunAwayDirection(rundir);
wait (15000 + random(3000));
Runback
end;
end;
procedure Delcarebmps;
begin
minerocks := BitmapFromString(58, 10, 'beNrVU0sWgCAI5HZdoG3' +
'3PwZZBuGA+alNPBYjAm/EgWhbl7840cGWmTPIDsfhnsnPDoeNV/Ww' +
'TaZUP2PbQWCObQLKU9nm8bxiKx3IeJEpEVvlEyhSQm6uRz/wMKLBg' +
'q2I4QqqNiT5johmoAoSmroFAA+BHwnZ3kEdiAONqtN7tuwZsHt7oI' +
'RRtqAEmdHEbCGTjTW3rCoPGR1U2Vtga4FdLg/CTL+MtUL8BSfLEIT' +
'HH9gOZM8BuQ==');
end;
procedure miner;
begin
wait(waittime+500)
if(FindColorTolerance(x,y, color1,0, 0,700,500,4)) and
(FindcolorTolerance(x,y,color2,0, 0,720,520,4)) then
begin
Mouse(x, y, 0, 0, false);
wait(1000)
end;
begin
if(findBitmap(minerocks,x,y))then
movemouse(x,y);
clickmouse(x,y,true);
end;
end;
Procedure Logout1;
begin
mouse(637,484,2,2,false)
mouse(632,374,4,4,false)
end;
procedure antiban;
begin;
wait(100*100);
typesend('mining lvls?');
wait(1000+random(1000))
typesend('argghh');
end;
begin
SetupSRL;
Delcarebmps;
Antiban;
repeat
miner;
i:= i + 1
DropToPosition(2, 28)
until(i >= Loads)
begin;
logout1;
end;
end.