Here is my powerminer I said I was going to post. Give me feedback on how to do it better please.
SCAR Code:
{My first powerminer, all you have to do is put in the rock
colors and run it,Has antirandoms.
credits:
all the tuts on srl
Timer for helping me a lot. }
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 : integer;
procedure antirandoms; //basic antirandoms
begin
FindNormalRandoms;
FFlag(0);
ftwait(2);
if FindFight then
begin
RunAwayDirection(rundir);
wait (15000 + random(3000));
Runback;
end;
end;
procedure miner;
begin
if FindColorTolerance(x,y, color1,0, 0,274,162,4) Or
FindcolorTolerance(x,y,color2,0, 0,274,162,4) Then
begin
Mouse(x, y, 0, 0, false);
wait(50+random(60))
chooseoption('ine');
antirandoms;
wait(waittime+500)
end;
end;
begin
SetupSRL;
activateclient;
If Not LoggedIn Then
Exit;
repeat
miner;
If InvFull Then
begin
DropToPosition(2, 28);
i := i + 1;
end;
until (i) >= Loads;
logout;
end.