SRL Archive - RS3 Outdated / Broken Scripts

Well, yeah, id say its pretty chitty, seeing as its my second script that i made about 3 months ago. I just started using it on an account a week ago, and im lvl 69 mining, hopping to get 70 by tomorow. I thought it did better than i expected, so im posting it here.

Features:
-Anti Randoms(Well, the SRL antirandoms dont really work =p);

Lolz, thats pretty much it. No antiban, no multiplayer… Oh, it is SMART though.

OverView:
-If your like me, and have 1 player, and your just looking for that first warning offense, but some fast mining xp(15-20k per hour) this is the script for you!! It will run anywhere from 20 minutes to 4 hours, it will pretty much stop on the first random. Features like MultiPlayer and AntiBan Could be easily added. NOTE: It will go to the first Rock Color it finds, it does not use FindColorsSpiral, just FindColorTolerances.
-You Must Wield a Fire Staff… otherwise it wont detect when not mining.


I used Scar 3.15B, not sure what rev. I was fairly satisfied with it.

BestProggy:

######################################
#SuperBatmans''s Miner Thing
#Xp gained: 60480
#Time Running: 3 Hours, 16 Minutes and 0 Seconds

KNOWN BUGS:
- Doesnt Find Gems, Kinda Inacurate XP COunter, no pick head finder =p

Conclusion:
-It pretty much stinks compared to other scripts, but seeing as this was my second or third script i ever wrote, im hapy with it.

program TempMiner;
{.include SRL/SRL/Misc/SMART.scar}
{.include SRL/SRL.scar}

var
  RockColour: Array[0..5] of integer;
  RockColour2: Array[0..2] of Integer;
  x, y, CF, t, xp, CP, Loads: integer;

const
  FireStaff = 1715413;
  LoadsToDo = 20;
  RestTime = 30;
  SwitchPlayers = True;

procedure DeclarePlayers;
begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := CP;
  
  Players[0].Name := '';
  Players[0].Pass := '';
  Players[0].Nick := '';
  Players[0].Active := True;
end;

procedure SetupColors;
begin
  RockColour[0]:=2832734;
  RockColour[1]:=2701146;
  RockColour[2]:=2239818;
  RockColour[3]:=2898785;
  RockColour[4]:=2767197;
  RockColour[5]:=3096424;
  RockColour2[0]:=2174023;
  RockColour2[1]:=4744831;
  RockColour2[2]:=1712953;
end;

procedure MineThaRocks;
var
  i: integer;
begin
  if(not(LoggedIn))then
  begin
    Writeln('not logged in');
    TerminateScript;
  end;
  if(not(FindColorTolerance(x, y, RockColour[i], MSX1, MSY1, MSX2, MSY2, 5)))then
  begin
    repeat
     FindNormalRandoms;
     if(not(FindColorTolerance(x, y, RockColour[i], MSX1, MSY1, MSX2, MSY2, 5)))then
       begin
         Inc(i);
       end;
       Wait(200+Random(300));
       if(i = 6)then
       begin
         Writeln('could not find rock colour');
         TerminateScript;
       end;
    until(FindColorTolerance(x, y, RockColour[i], MSX1, MSY1, MSX2, MSY2, 5));
    Mouse(x, y, 6, 6, True);
  end;
  if(FindColorTolerance(x, y, RockColour[i], MSX1, MSY1, MSX2, MSY2, 5))then
  begin
    i := CF;
    FindNormalRandoms;
    Mouse(x, y, 6, 6, True);
  end;
end;

function NotMining: Boolean;
begin
  if(FindColorTolerance(x, y, FireStaff, MSX1, MSY1, MSX2, MSY2, 5))then
  begin
    Result := True;
  end;
end;

procedure DropOres;
var
  i: integer;
begin
  if(ExistsItem(28))then
  begin
    if(not(FindColorTolerance(x, y, RockColour2[i], MIX1, MIY1, MIX2, MIY2, 5)))then
    begin
      if(ExistsItem(28))then
      begin
        Writeln('cannot find ore');
        TerminateScript;
      end;
    end;
    if(FindColortolerance(x, y, RockColour2[i], MIX1, MIY1, MIX2, MIY2, 5))then
    begin
      repeat
        FindNormalRandoms;
        FindColorTolerance(x, y, RockColour2[i], MIX1, MIY1, MIX2, MIY2, 5);
        Mouse(x, y, 4, 4, False);
        Wait(50+Random(100));
        ChooseOption('rop');
        Wait(100+Random(300));
      until(not(FindColorTolerance(x, y, RockColour2[i], MIX1, MIY1, MIX2, MIY2, 5)));
      IncEx(xp, 945);
      Inc(Loads);
    end;
  end;
end;

procedure Proggy;
begin
  ClearDebug;
  Writeln('######################################');
  Writeln('#SuperBatmans''s Miner Thing');
  Writeln('#Xp gained: '+ inttostr(xp));
  Writeln('#Time Running: '+TimeRunning);
end;

procedure PDisguise;
var
  d: integer;
begin
  case 3 of
    0: begin
         Disguise('SuperBatman''s Miner');
         Inc(d);
       end;
       
    1: begin
         Disguise(IntToStr(xp)+' XP Gained');
         Inc(d);
       end;
       
    2: begin
         Disguise('Running for '+TimeRunning);
         d := 0;
       end;
  end;
end;

begin
  SMARTSetUpEX(55, False, True, False);
  SetTargetDC(SMARTGetDC);
  SetupSRL;
  SetupColors;
  DeclarePlayers;
  Wait(10000+Random(5000));
  SetAudioOff;
  Wait(200+Random(300))
  LoginPlayer;
  GameTab(7);
  Wait(200+Random(200));
  SetAngle(True);
  Wait(200+Random(200));
  MakeCompass('n');
  Wait(300+Random(300));
  GameTab(4);
  Disguise('SuperBatman''s Miner');
  repeat
    PDisguise;
    FindNormalRandoms;
    if(not(FindColorTolerance(x, y, RockColour[CF], MSX1, MSY1, MSX2, MSY2, 5)))then
    begin
      repeat
        Wait(100+Random(200));
        Inc(t);
        if(t > 300)then
        begin
          Writeln('Could not find Rock Colour');
          TerminateScript;
        end;
      until(FindColorTolerance(x, y, RockColour[CF], MSX1, MSY1, MSX2, MSY2, 5));
      t := 0;
    end;
    MineThaRocks;
    Wait(500+Random(1000));
    repeat
      Wait(300+Random(200));
      Proggy;
    until(NotMining);
    DropOres;
  until(False);
end.

standardized and changed the Disguise to a case cuz I was bored ;)

and moved the DeclarePlayers to the beginning..

your Main Loop looks a little weird (some things should be in different places) but if it works, it's fine :p

:D keep it up

(btw, your pass was in script and I was gonna change it for you but it didn't work.. so if it's stolen I didn't do it)

Next time you post a script make sure youre password is not in it and you might place the declare players as first procedure that way its easier to use

What did the pass say? ( PM me it plz) i could have sworn that i changed that right before i saved it…. Oh well…. It got me 70 mining today!

Edit: Wow wait… i just saw that you wrote inc(t); is that like c's t++? ive been looking for something like that!