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.