SRL Archive - Jr. Member OSRS Scripts

so I am a very oldschool SRL scripter and am probably the only person still using SRL-6 but should you want to use my crappy fishing script it will detect and try to fix lagouts and will logout if out of bait.

you may have to play with the colors and cords for your screen size as I coded it for classic resizable on my laptop.

the script will automatically fish and open all the clue jars you will find it works well with the treasure hunter relic

getting srl-6 to work is a pain in the butt so if you need a working simba with srl-6 you can get my copy here https://villavu.com/forum/showthread.php?t=177826&p=1455817

program karamFisher;
{$I SRL-6/SRL.Simba}

var
Count, noBait, X, Y: Integer;

 procedure checkIfLoggedOut
 begin
  if(findcolor(X,Y, 0, 588, 517, 773, 577))then
  begin
    writeln('We were Lagged out');
    wait(randomRange(7000, 10000));
    Mouse(934, 264, 1, 1, MOUSE_LEFT);
    wait(randomRange(10000, 15000));
    Mouse(911, 331, 1, 1, MOUSE_LEFT);
    wait(randomRange(2000, 3000));
  end
 end;

 procedure checkBait
 begin
  if(not(findcolor(X,Y, 4683594, 1736, 732, 1736, 732))
  and not(findcolor(X,Y, 0, 588, 517, 773, 577)))then
  begin
    writeln('We ran out of bait');
    wait(randomRange(2000, 3000));
    Mouse(1763, 993, 1, 1, MOUSE_LEFT);
    wait(randomRange(1000, 1500));
    Mouse(1766, 943, 1, 1, MOUSE_LEFT);
    wait(randomRange(2000, 3000));
    noBait := noBait +1;
  end
 end;

procedure doFishing

 begin
    checkBait;
    mouseSpeed := (randomRange(26, 45));
    Mouse(936, 602, 5, 6, MOUSE_LEFT);
    if(findcolor(X,Y, 2700606, 1824, 950, 1824, 950))then
    begin
      repeat
      wait(2000);
      until(not(findcolor(X,Y, 2700606, 1824, 950, 1824, 950)));
    end
    if(findcolor(X,Y, 0, 1824, 950, 1824, 950))then
    begin
     checkIfLoggedOut;
     checkBait;
    end
    Mouse(1783, 736, 5, 1, MOUSE_LEFT);
    wait(randomRange(700, 1000));
 end;

procedure findThemClueJars
begin
    if(findcolor(X,Y, 6447977, 1671, 751, 1852, 969))then
      begin
       mouseSpeed := (randomRange(26, 45));
      repeat
       Mouse(X, Y, 3, 3, MOUSE_LEFT);
       wait(randomRange(700, 1000));
       until(not(findcolor(X,Y, 6447977, 1671, 751, 1852, 969)));
      end
    if(findcolor(X,Y, 3542316, 1671, 751, 1863, 932))then
      begin
       mouseSpeed := (randomRange(26, 45));
      repeat
       Mouse(X, Y, 3, 3, MOUSE_LEFT);
       wait(randomRange(700, 1000));
       until(not(findcolor(X,Y, 3542316, 1671, 751, 1852, 969)));
      end
    if(findcolor(X,Y, 1854776, 1671, 751, 1852, 969))then
      begin
       mouseSpeed := (randomRange(26, 45));
      repeat
       Mouse(X, Y, 3, 3, MOUSE_LEFT);
       wait(randomRange(700, 1000));
       until(not(findcolor(X,Y, 1854776, 1671, 751, 1852, 969)));
      end
    if(findcolor(X,Y, 4344633, 1671, 751, 1852, 969))then
      begin
       mouseSpeed := (randomRange(26, 45));
      repeat
       Mouse(X, Y, 3, 3, MOUSE_LEFT);
       wait(randomRange(700, 1000));
       until(not(findcolor(X,Y, 4344633, 1671, 751, 1852, 969)));
      end
    if(findcolor(X,Y, 4344633, 1671, 751, 1852, 969))then
      begin
       mouseSpeed := (randomRange(26, 45));
      repeat
       Mouse(X, Y, 3, 3, MOUSE_LEFT);
       wait(randomRange(700, 1000));
       until(not(findcolor(X,Y, 4344633, 1671, 751, 1852, 969)));
      end
      Count := Count +1;
end;

 begin
   Count := 0;
   noBait := 0;
    repeat
    doFishing;
    findThemClueJars;
    checkIfLoggedOut;
    checkBait;
    writeln('count is '+IntToStr(Count));
  until(Nobait=1);
  wait(randomRange(300, 456));
 end.