Hey i recently made a powermine based on torrent of flames tut, i changed a few things like DropTo(doesnt work anymore)ect. it doesnt work though it will hove over rocks but thats it, could you please give it the once over and tell me whats wrong, also any CONSTRUCTIVE critiscm is welcome.
Thank you much appreciated Minkino.
EDIT: replace RockMining with narcles, try now thanks.Would try myself but internet is currently to slow to run runescape.
Heres the script:
SCAR Code:
program New;
{.include SRL/SRL.scar}
var x, y, Tries: integer;
const
RockColor1 = 2437977;
RockColor2 = 2306390;
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:= 0
Players[0].Name := '';
Players[0].Pass := '';
Players[0].Nick := '';
Players[0].Active := True;
Players[0].Booleans[0] := True;//True for equipped Pickaxe. False for in Inv
end;
{ ____
NO /____\ Entrance
<><><><><><><><><><><><><><>|Master|<><><><><><><><><><><><><><><><>
|______| }
Procedure AntiRandoms;
begin
If(FindFight)then
RunAway('N', True,1,15000);
FindNormalRandoms;
FindLamp('Mining');
end;
procedure AntiBan;
begin
if not LoggedIn then Exit;
case Random(30) of
1: RandomRClick;
2: HoverSkill('Woodcutting', False);
3: RandomMovement;
4: BoredHuman;
5: DoEmote(400 +Random(90));
end;
end;
procedure RockMining;
begin
repeat //move repeat up here
if not LoggedIn then //place failsafe inside repeat
Exit;
if FindObjCustom(x, y, ['Min', 'ine'], [RockColor1, RockColor2], 7) then//just this one is needed
begin//added a begin
case Random(2) of
0: begin
Mouse(x, y, 4, 4,false);
ChooseOption('ine');
end;
1:Mouse(x, y, 4, 4, True);
end;
Wait(2000+random(1000));//wait for it to be mined
end;//added a end
until (InvFull)
end;
procedure DropOres;
var
i: integer;
begin
if (InvFull) then
case Players[CurrentPlayer].Booleans[0] of
True: DropAll;
False: begin
for i := 2 to 28 do
DropItem(i);
end;
end;
Wait(500 + random(1501));
end;
Procedure Signature;
begin
Writeln(' ___ ___ ___ __ __ ___ ___ ');
wait(50)
Writeln(' | \ / | | | | \ | | |/ / ');
wait(50)
Writeln(' | \/ | | | | \ | | / ');
wait(50)
Writeln(' | |\/| | | | | \| | \ ');
wait(50)
Writeln(' | | | | | | | |\ | \ ');
wait(50)
Writeln(' |___| |___| |___| |__| \___|___/\___\ ');
end;
begin
Signature;
SetupSRL;
ActivateClient;
repeat
RockMining;
AntiBan;
DropOres;
AntiBan;
until (False)
end.