SRL Archive - Outdated / Broken

I strongly suggest someone make a varock miner or or some other script that can deposit loads of coal and iron because with SRL you could have mutiple accounts logging in and out and could easily run a script for hours.

Im trying to learn this whole SRL thing and hopefully someday ill be making my own scripts

There is no coal in Varrock I think.

Maybe he means West of Varrock, Barbarian Village?

last i heard the coal rocks in barbarian village are gone ?

I think I saw them in the middle

From: yachibu
I strongly suggest someone make a varock miner or or some other script that can deposit loads of coal and iron because with SRL you could have mutiple accounts logging in and out and could easily run a script for hours.

Im trying to learn this whole SRL thing and hopefully someday ill be making my own scripts

I dont think there is any coal in Varrock, but there is Iron. Here is a non-SRL script for a West Varrock Iron Miner Banker. I'm not shure how up-to-date it is thought.

All credit goes to Mopar on this one:)

{==================================================]
[        Moparisthebest's Ironminerbanker v2.1     ]
[ Based in part on: Stupid3ooo's GuildMiner v3.83  ]
[==================================================]
| Instructions:                                    |
|   1.V-bright, 32bit resolution.                  |
|   2.Need SCAR version 2.0.3.                     |
|   3.START SCRIPT IN THE WEST FALLY, EAST VARROCK |
|     OR EAST ARDOUGNE BANK.                       |
|   4.Start with a pickaxe in your fist            |
|     inventory slot or equiped.                   |
|   5.Recomended to have extra pickaxes in your    |
|     first bank slot.                             |
|   6.Setup is in lines 54-59.                     |
|   7.Press the green arrow to start.              |
|   8.For general SCAR help go to                  |
|     http://www.kaitnieks.com/files/SCARGUIDE/SCARGUIDE.htm |
[==================================================}
program moparsironminerbanker;

{.include SSI2.txt}
{.include moparsroadrunner.txt}
{.include BoxBreaker.txt}

var
  MapPickColor,MapOreColor,BankColor,Report,Report2,minewaittime,
  TotalOres,Banks,Mark,IAmLostCount,MaxWait,Town,exp:integer;
  NoPick,Look4Gas,EquipPick,UnderGround,iron:boolean;
  RockDirection,RunDirection:string;

procedure Setup;
begin
//=//=========Main Screen Colors(Leave as 0 to let script find)========\\=\\
OreColor1:= 0;       //Colors of Iron/Coal rocks
OreColor2:= 0;
OreColor3:= 0;
//=\\=================================================================//=\\
//=//==========Mini Map Colors(Leave as 0 to let script find)==========\\=\\
BankColor:= 0;       //Bank symbol color (SS:3060683)
moparsroadcolor:= 0; //road color (SS:5592411)
MapOreColor:= 0;     //ore color (SS:4010803)
MapPickColor:= 0;    //Pick symbol color (SS:207695)
//=\\=================================================================//=\\
//=\\============================Setup================================//=\\
Username:= 'Username';//Username.
Password:= 'Password';//Password.
ScarScape:= false;//Set to true if you are using ScarScape.
LogsOut:= true;//If you want to log out every so often for antiban.
Chats:= true;//If you want to randomly chat for anti-ban.
Look4Gas:= true;//Set to false if you are having trouble with it constantly finding gas.
Rotates:= true;//If you want to randomly rotate the screen for anti-ban.
MaxWait:= 10;//Maximum time in seconds to wait while mining a rock.
minewaittime:= 100;//increase if you lag while mining, default 100
EquipPick:= true;//If you can/want to equip your pick.
RunDirection:= 'E';//Direction to run away from. 'E' is default.
town:=0; //leave 0 to autopick, town to start in, 1=fally 2=varrock 3=ardy
iron:=true; //iron or coal, ardougne only
//=\\=================================================================//=\\
end;

//DO NO TOUCH BELOW

procedure ProgressReport;
var
  RHours,Minutes,Seconds,RMinutes,RSeconds,avtime:LongInt;
  Time:String;
begin
if(GetSystemTime-report2 > report*60000)then
begin
  Seconds:=(GetSystemTime-ST) div 1000;
  Minutes:=Seconds div 60;
  RHours:=Minutes div 60;
  Time:=IntToStr(Seconds)+' Seconds';
  avtime:=Seconds/banks;
  if Minutes<>0 then
  begin
   RSeconds:=Seconds Mod (Minutes*60);
   Time:=IntToStr(Minutes)+' Minutes and '+IntToStr(RSeconds)+' Seconds';
  end;
  if RHours<>0 then
  begin
   RMinutes:=Minutes Mod (RHours*60);
   RSeconds:=Seconds Mod (Minutes*60);
   Time:=IntToStr(RHours)+' Hours, '+IntToStr(RMinutes)+' Minutes and '
   +IntToStr(RSeconds)+' Seconds';
  end;
  begin
  WriteLn(' ');
  WriteLn('<=================Progress Report================>');
  WriteLn('Worked for '+Time);
  WriteLn('Banked '+IntToStr(banks)+' loads[s].');
  WriteLn('Banked '+IntToStr(TotalOres)+' ore[s].');
  WriteLn('Gained '+floattostr(exp*TotalOres)+'xp.');
  WriteLn('Currently Averaging about '+IntToStr(3600/avtime*(TotalOres/banks))+
  ' ores and '+floattostr(3600/avtime*(exp*(TotalOres/banks)))+' xp an hour.');
  WriteLn('Random Event Report:');
  if(fights>0)then WriteLn('  Fought '+IntToStr(fights)+' time[s].');
  if(talks>0)then WriteLn('  Talked to '+IntToStr(talks)+' Random event[s].');
  if(lamps>0)then WriteLn('  Used lamps '+IntToStr(lamps)+' time[s].');
  if(boxes>0)then WriteLn('  Solved '+IntToStr(boxes)+' box[es].');
  if(logs>0)then WriteLn('  Logged in '+IntToStr(logs)+' time[s].');
  WriteLn('<================================================>');
  Report2:=GetSystemTime;
  end;
end;
end;

//===========================Color Finding procedures=========================\\
procedure SetRoadColorifneeded;
var
  dtmGetRoad:integer;
begin
if(moparsroadcolor=0)then
begin
// 1= fallador, thx to sdouble for making the dtm
// 2= varrock
// 3= ardougne
case town of
1:dtmGetRoad:= DTMFromString('78DA636C636460900362206006622620CE484' +
       'C60B001D220D1FF40C05807642940D4C0C0BF7FC2703520C00832' +
       '4711D59C3F7F9850D5F40259CAF8D50000A9480ED1');
2:dtmGetRoad:= DTMFromString('78DA63AC65626048660003662006F21872525' +
       '3196C80342310FF0702C62AA0681CAA9A3F7F98E06A4080B11928' +
       '1A8FAAE6ED5B0654354D9876A19B0300F1470F94');
3:dtmGetRoad:= DTMFromString('78DA632C66626088640003662006F21852626' +
       '3186C80342310FF0702C602A0680CAA9A18533E060DA81A10602C' +
       '25524D1801350584D50000A99A0C99');
end;
  if(FindDtm(dtmGetRoad, x, y, 570, 5, 725, 155 ))then
    moparsroadcolor:= GetColor(x,y);
end;
if(moparsroadcolor=0)then
  begin
  writeln('cant find road color, pick manually or restart');
  terminatescript;
  end;
end;

procedure SetTownifneeded;
var c:integer;
begin
if(town=0)then
begin
while(town=0)do
  begin
  c:=c+1;
if(findcolorspiraltolerance(x,y,10321002,573,93,603,131,20))then
  begin
  town:=1;
  writeln('Starting in Falador');
  iron:=true;
  exp:=35;
  end
else if(findcolorspiraltolerance(x,y,10321002,647,139,669,164,20))then
  begin
  town:=3;
  writeln('Starting in Ardougne');
  if(not(iron))then
  exp:=50;
  if(iron)then
  exp:=35;
  end
else if(not(findcolorspiraltolerance(x,y,10321002,570,5,725,155,20)))then
  begin
  town:=2;
  writeln('Starting in Varrock');
  iron:=true;
  exp:=35;
  end;
if(c>20)then
  begin
  writeln('cant decide which city your starting in, set town yourself');
  terminatescript;
  end;
wait(random(50)+500);
end;
end;
end;

procedure FindRockDirection;
begin
  if(MapPickColor>0)then
  begin
    if(FindColorSpiral(x,y,MapPickColor,668,5,725,160))then
      RockDirection:='W';
    if(FindColorSpiral(x,y,MapPickColor,575,5,628,160))then
      RockDirection:='E';
    if(FindColorSpiral(x,y,MapPickColor,575,103,725,160))then
      RockDirection:='N';
    if(FindColorSpiral(x,y,MapPickColor,575,5,725,68))then
      RockDirection:='S';
  end;
end;

function FindMapOreColor:integer;
var
  MapOre,MapOre2:integer;
begin
  MapOre := BitmapFromString(3, 3,
         '3D2C345948546D5D624A39416D5D626D5D625948546D5D626D5D62' +
         '');
  MapOre2 := BitmapFromString(3, 3,
         '061115222D35364243131E22364243364243222D35364243364243' +
         '');
  if(FindBitmapsProgressiveTol(MapOre,MapOre2,0,0,0,65,5,587,41,705,118))then
    Result:=GetColor(x+1,y+1);
  Freebitmap(MapOre);
  Freebitmap(MapOre2);
end;

procedure CouldNotFindColors;
begin
  WriteLn('ERROR, script could not find colors, please run the script again'
  +' or set your own colors.');
  TerminateScript;
end;

procedure FindBottomColorsIfNeeded;
var c:integer;
begin
if(UnderGround)and((MapPickColor=0)or(MapOreColor=0)or((orecolor1=0)or(orecolor2=0)or(orecolor3=0)))then
  begin
  writeln('Finding bottom colors please wait...');
if(MapPickColor=0)then
begin
  while(MapPickColor=0)do
    begin
    c:=c+1;
    if(MapPickColor=0)then
      MapPickColor:=GetSymbolColor('mining spot');
    if(c>20)then
      CouldNotFindColors;
    wait(500+random(100));
    end;
  if(FindMMColor(MapPickColor))then
    begin
      Status('To iron')
      Wait(200)
      Mouse(x,y,5,5,True)
      Flag;
    wait(1500+random(500));
    end;
end;
  if(orecolor1=0)or(orecolor2=0)or(orecolor3=0)then
  begin
  if(((iron)and(town=3))or(not(town=3)))then
  FindOreColors(2371664,5,25);
  if((not(iron))and(town=3))then
  FindOreColors(2900546,5,13);
  end;
  if(MapOreColor=0)then
  MapOreColor:=FindMapOreColor;
  if((MapPickColor=0)or(MapOreColor=0)or((orecolor1=0)or(orecolor2=0)or(orecolor3=0)))then
    CouldNotFindColors;
  writeln('MapPickColor:'+inttostr(MapPickColor)+' MapOreColor:'+inttostr(MapOreColor));
  FindRockDirection;
  end;
end;

procedure FindTopColorsIfNeeded;
var c:integer;
begin
if(not(Underground))and((BankColor=0)or(moparsroadcolor=0))then
begin
writeln('Finding top colors please wait...');
while(BankColor=0)or(moparsroadcolor=0)do
  begin
  c:=c+1;
  if(BankColor=0)then
    BankColor:=GetSymbolColor('bank');
    SetRoadColorifneeded;
  if(c>20)then
    CouldNotFindColors;
  wait(random(50)+500);
  end;
writeln('BankColor:'+inttostr(BankColor)+' Roadcolor:'+inttostr(moparsroadcolor));
end;
end;

//========================Map Walking procedures==============================\\

procedure ToCenter;
begin
  if(FindColorSpiral(x,y,MapPickColor,570,63,725,160))then
  begin
    Mouse(x-20,y-20,40,40,true);
    Flag;
    Wait(1000+Random(100));
  end else
  begin
    RoadWalk(MapOreColor,'S');
    if(FindColorSpiral(x,y,MapPickColor,570,63,725,160))then
    begin
      Mouse(x-20,y-20,40,40,true);
      Flag;
      Wait(1000+Random(100));
    end;
  end;
end;

procedure ToBankers;
var
  c,ax,ay:integer;
begin
  while c<30 do
  begin
    c:=c+5;
    if(FindMMColor(BankColor))then
    begin
      if(FindColorSpiralTolerance(ax,ay,195836,x-c,y-c,x+c,y+c,10))then
      begin
        x:=ax;
        y:=ay;
        MouseFindFlag(x,y-5,0,-2);
        FlagAtColor(BankColor);
        Wait(1000+Random(100));
        Break;
      end;
    end;
  end;
end;

procedure banktomine;
begin
case town of
  1:fallybanktomine(MapPickColor);
  2:varrockbanktomine(MapPickColor);
  3:ardybanktomine(MapPickColor);
end;
UnderGround:=true;
FindBottomColorsIfNeeded;
if((findMMcolor(MapPickColor))and(town=1))then
roadrunnermouse(x-31,y);
end;

procedure minetobank;
begin
case town of
  1:fallyminetobank(BankColor);
  2:varrockminetobank(BankColor);
  3:ardyminetobank(BankColor);
end;
if(town=1)or(town=2)then
ToBankers;
end;


//==========================Random Event procedures===========================\\


procedure TerminateIfLost;
begin
  if(LoggedIn)then
  begin
    if(not(FindMMColor(BankColor)))and(not(FindMMColor(MapOreColor)))and
    (not(FindMMColor(MapPickColor)))then
    begin
      IAmLostCount:=IAmLostCount+1;
      if(IAmLostCount>10)then
      begin
        WriteLn('Lost!!!');
        TerminateScript;
      end;
    end else
      IAmLostCount:=0;
  end;
end;

procedure FindRandoms;
begin
  FindNormalRandoms;
  AntiBan;
  if(FindFight)then
  begin
    RunAwayDirection(RunDirection);
    Wait(5000+random(1000));
    RunBack;
  end;
  FindDoctor;
  FindBox;
  if(UnderGround)then
  begin
    if(not(FindPick))then
      NoPick:=true;
    if(FindColorSpiral(x,y,OreColor,210,130,300,220))then
    begin
      if(Look4Gas)then
      begin
        if(FindGas(x,y))then
          ToCenter;
      end;
    end;
  end;
end;

//=========================Main Screen procedures=============================\\

procedure ClickAllItemsColorWaitfixed(option:string;color,waitnum:integer);//based off PPLSUQBAWLZ's InventoryCount
var
  i,e:integer;
begin
e:=0; i:=0;
//GameTab(4);
while(i < 6) do
 begin
 if (i = 5) and (e < 8) then
 begin
   i:= 0; e:= e + 1;
 end;
 if(FindColor(x,y,color,(570+39*i),(214+35*e),(609+39*i),(249+35*e)))then
 begin
   if(not(option=''))then
   begin
     Mouse(x,y,r,r,false);
     ChooseOption(option);
   end
   else
     Mouse(x,y,r,r,true);
   wait(waitnum);
 end;
 i:= i + 1;
 end;
end;

procedure Bank;
begin
  if(not(UnderGround))then
  begin
    FindBox;
    TotalOres:=TotalOres+(CountItemBmpTol(Ore,50));
    if(NoPick=true)and(EquipPick=true)then
    begin
      GameTab(5);
      Mouse(593,303,r,r,true);
      Wait(Random(50)+1000);
      GameTab(4);
    end;
    OpenBank;
    if(BankScreen)then
    begin
      if(NoPick=true)then
      begin
        ClickAllItemsColorWaitfixed('All',65536,1000+Random(100));
        Withdraw(1,1,1);
      end else
      begin
        if(EquipPick=false)then
          Deposit(2,28,2);
        if(EquipPick=true)then
          ClickAllItemsColorWaitfixed('All',65536,1000+Random(100));
      end;
      CloseWindow;
      if(NoPick=true)and(EquipPick=true)then
      begin
        FindPickHeadColor;
        ClickItemColor(hc1,true);
      end;
      Banks:=Banks+1;
      ProgressReport;
      NoPick:=false
    end;
  end;
end;

procedure Mine;
var
  SysTime:integer;
begin
  SetRandomOreColor;
  if(FindObj('Mine',OreColor,5))then
  begin
    if(not(FindGas(x,y)))then
    begin
      Mouse(x,y,r,r,true);
      if(FlagPresent)then
      begin
        Flag;
        Wait(500+random(500));
      end;
      MarkTime(SysTime);
      repeat
      if(not(FindColorSpiral(x,y,OreColor,210,130,300,220)))then
        Break;
      FindRandoms;
      Wait(500+Random(500));
      until(not(GetColor(109,430)=0)and(not(GetColor(195,426)=0)))or
      (TimeFromMark(SysTime)>=MaxWait*1000)
    end;
  end
  else
  begin
  wait(minewaittime+random(50));
  end;
end;
//======================================Main Line=============================\\

begin
GetClientDimensions(x,y);
if(not((x=766)and(y=504)))then
  begin
  if(not(FindWindowBySize(766,504)))then
    begin
    writeln('cannot find client, please select client manually');
    end;
  end;
SetupSSI;
Setup;
PrepClient;
SetTownifneeded;
FindTopColorsIfNeeded;
if(FindPickHeadColor)then
begin
  repeat
  FindRandoms;
  SetRun(true);
  banktomine;
  if(Underground)then
  begin
    MarkTime(Mark);
    repeat
    FindRandoms;
    Mine;
    until(InventoryFull)or(NoPick=true)or(TimeFromMark(Mark)>1800000)
  end;
  minetobank;
  UnderGround:=false;
  TerminateIfLost;
  Bank;
  until(false)
end;
end.

A SRL Varrock Iron/Copper Miner will be released this weekend :cool:

lol, i was just gonna say mine should still work in varrock, but he already posted it ;)

yea mopar you did to good on that script cuz i still pay around with it. :D right now i'm breaking down some of the old scripts and it one of my favs.

just checked coal is definitely gone