You can test mine if you want to
Im pretty sure it works well, but it doesn't have multiplayer
SCAR Code:
{|---------------------------------------------------------------------|)
(|_____________________________________________________________________|)
(| |)
(| PowerMiner by __ |)
(| _____________ __ /_/ ______ |)
(| /_____ _____// / ____ ___ ___ __ / ____/ |)
(| / / / /___ / | / | / | / / / /___ |)
(| / / / ___ \ / /| | / /| |/ /| | / / /___ / |)
(| / / / / / / | |/ / / / |___/ | | / / _____/ / |)
(| /_/ /_/ /_/ |____/ /_/ |_| /_/ /______/ |)
(| |)
(|_____________________________________________________________________|)
(| |)
(|---------------------------------------------------------------------|}
{| /------------\ |)
(|---------------------------|INSTRUCTIONS|---------------------------|)
(| \------------/ |)
(| |)
(| 1. Place your player, LOGGED IN, near the rocks |)
(| 2. You have to have your pick WEILDED!!! |)
(| 3. Pick the color of your ore |)
(| 4. Drag the crosshair in Runescape and hit RUN |)
(| |)
(|--------------------------------------------------------------------|}
program Auto;
{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/Mining.scar}
var fx, fy, Clicks: Integer;
Loads: Integer;
const
color= 0; //Pick color yourself
procedure DoAntiRandoms;
begin
FindTalk;
FindNormalRandoms;
if (FindFight = true) then
begin
RunAwayDirection('N');
Wait(10000 + random(2000));
RunBack;
end;
end;
procedure ProgressReport;
begin
ClearDebug;
Writeln('[]========================================[]');
Writeln('---------------->Our Proggy<----------------');
Writeln(' did ' + IntToStr(Loads) + ' Loads' + ' ');
Writeln('---------------------------------------------');
Writeln(' Did ' + IntToStr(Clicks) + ' Clicks' + ' ');
Writeln('[]========================================[]');
end;
function FindOre: Boolean;
var PipoCount: Integer;
begin
PipoCount:=0;
repeat
if(FindObjMultiText(fx,fy,'ine','Min','Mine',color,6))then
if (FindGas(fx,fy)=true) then
continue
else
Result:=True
else
Result:=False;
PipoCount:=PipoCount+1;
until (Result = True) or (PipoCount > 6)
if (PipoCount > 6) then
logout;
Writeln('Could not find color')
end;
procedure LookAtMiningXp;
begin
if (Random(15)=8) then
HoverSkill('Mining',False)
end;
procedure ClickOnIt;
begin
Repeat
LookAtMiningXp;
if (FindOre = True) then
MMouse(fx,fy,0,0);
wait(100+random(50));
Mouse(fx,fy,0,0,true);
wait(500+random(250));
DoAntiRandoms;
Clicks:=Clicks+1;
until(InvFull);
end;
procedure Drop;
begin
Loads:=Loads+1;
DropAll;
end;
begin
SetupSRL;
ActivateClient;
repeat
if(not(LoggedIn))then
Exit;
else
FindOre;
ClickOnIt;
Drop;
ProgressReport;
until(false);
end.