Hey could someone please try this script and see if it works, fixed the wait id try but my internet speed has been slowed (too much downloading) so runescape takes too long to load.
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.