SRL Archive - OSR Outdated / Broken Scripts

From: mafia miles
Yes it would, but I am having trouble getting it to drop every time its full. So I went with a more simple dropper.

From: mafia miles
Thanks, feel free to post the code here, and with you permission Ill add your adjusted code into the script(with credits ofc)!

From: redd228
Exception in Script: Unable to find file 'SRL-OSR/SRL.Simba' used from ''

From: tsaopower
Script doesnt detect randoms and lost my fly fishing rod :(

begin
    oo:= RandomRange(200, 400)
    for i:= 4 to 28 do
    if ExistsItem(i) then
    begin
      MouseItem(i, mouse_right);
      WaitOptionEx('rop', 'action', ClickLeft, oo);
    end;
end; 

begin
    oo:= RandomRange(200, 400)
    for i:= 8 to 28 do
    if ExistsItem(i) then
    begin
      MouseItem(i, mouse_right);
      WaitOptionEx('rop', 'action', ClickLeft, oo);
    end;
end; 

procedure Fish;
var
x, y, i: integer;
begin
      if not(isfishing) then
      begin        
      wait(500);
       if (FindObjCustom(x, y, ['ure', 'ishin', 'ot'], [14597535, 15123609, 14794914, 14858129, 13216647, 14597268, 15123625, 14398100, 14729121], 3) ) then
        begin
        wait(600 + random(500));
        mouse(x,y,1,1,1)
        wait(5000 + random(100));

         Repeat
         if(InvFull) then
         DropFish;
         Until (InvCount=7);
        end;
      end;
end;

From: flynn1
Hi, I get this error, could anybody help me please I would appriciate it [Error] C:\Simba\Includes\SRL-OSR/SRL/misc/SmartParams.Simba(229:203): Invalid number of parameters at line 228
Compiling failed.

From: skree
Lots of problems with this. It hops fishing spots constantly, I've had it drop my feathers twice now (I was babysitting, looked away for 3 minutes, came back to no feathers) Also it doesn't change from the one location (Fish icon on minimap) to the other when the spots are gone 90% of the time. Even babysitting seems useless; every time I look back I'm either tele'd by a random or have no feathers. And before you ask, yes my feathers are in the first slot. Appreciate the work you've put into this but it needs many fixes to be useable.

From: dieg0
hi, i would really like the silk thiever since i need 53 thiefing haha,
does it drop full inventory when its full? because that would be the best.
you should release it ! or share with me haha XD

program Fisher1;
{$DEFINE SMART8}
{$I SRL-OSR/SRL.Simba}
{$I SRL-OSR/SRL/Misc/Debug.Simba}
{$I SRL-OSR/SRL/misc/SmartGraphics.Simba}

var x, y, i: integer;
const
  AccountLogin = '';
  AccountPass = '';
  CharacterName = '';
  version = '1.1';               //fish1drop1  Wont Drop Featers or Rod When Placed In
                                 //the first 2 inventory spots.

//Declare your username and password
procedure DeclarePlayer;
begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;
      Players[0].Name := AccountLogin;
      Players[0].Pass := AccountPass;
      Players[0].Nick := CharacterName; //Important for antirandoms
      Players[0].Active := True;
  end;
Procedure SetupCamera;
begin
 KeyDown(VK_UP);
 wait(randomrange(1500, 2500));
 KeyUp(VK_UP);
 wait(randomrange(300, 500));
 MakeCompass('E');
end;
Procedure AntiBan;
begin
  //writeln('antiban debug!');
  Case Random(130) Of
    1: HoverSkill(skill_fishing, false);
    2: Wait(2500 + random(4500));
    3: PickUpMouse;
    4: RandomRClick;
  end;
end;



Procedure DebugShiftCount;
Var
PBox: TBox;

Begin
  PBox := IntToBox(245, 130, 285, 195);
  Writeln(IntToStr(AveragePixelShift(PBox, 250, 500)));
End;


Function isfishing: Boolean;   //Average PixelShift from Flights TuT (THANKS FLIGHT!!)
  var
    PBox: TBox;
  begin
    PBox := IntToBox(230, 165, 290, 260);
    SMART_DrawBox(intToBox(230, 165, 290, 260));
    Writeln('Checking if we are fishing in this box.');
    Result := (AveragePixelShift(PBox, 300, 600) > 100);
  end;



Procedure DropFish;
var
  i: Integer;
begin
  Writeln('Inventory full! Dropping Fish!');
  if(InvFull) then
  for i := 3 to 28 do
  begin
    if ExistsItem(i) then
      DropItem(i);
      wait(50+random(50));
  end;
end;

procedure Fish;
var
x, y, i: integer;
begin
Repeat
 if not(isfishing) then
  begin
  wait(500);
  if (FindObjCustom(x, y, ['ure', 'ishin', 'ot'], [14597535, 15123609, 14794914, 14858129, 13216647, 14597268, 15123625, 14398100, 14729121], 3) ) then
   begin
    wait(600 + random(500));
    mouse(x,y,1,1,1)
    wait(5000 + random(100));
   end;
  end
  else Writeln('We are fishing!');
Until not(isfishing) or (InvFull)
if (InvFull) then
 begin
  DropAllExcept([1, 2]);
 end;
end;





begin
SetupSRL;
  activateclient;
  DeclarePlayer;
  LoginPlayer;
  wait(500);
  SetupCamera;
  repeat
    Antiban;
    Fish;
     begin
      Case Random(50) Of
       1: SetupCamera;
      end;
     end;
  until(false);
end.