SRL Archive - RS3 Outdated / Broken Scripts

as the title says… a script that you can run whilst putting your character near some agressive monsters allowing you to go do something else for 15-20 minutes, it could also include a run direction if FoodLeft=1 or something like that

Pretty simple script.

Had a go at making it?

meh, it's 3:11 am but it compiles and should theoretically work from what I can see.

It will only eat lobster.

program Czepa;
{.include SRL/SRL/misc/SMART.scar}
{.include srl/srl.scar}

const
  HPToEat = 30; // Percentage of HP you want to eat at.
  dir = 'n'; // Direction to run away to. Valid arguments: n,e,s,w.

procedure DeclarePlayers;
begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;

  Players[0].Name := '';
  Players[0].Pass := '';
  Players[0].Nick := '';
  Players[0].Active := True;
end;

procedure StayLoggedIn;
var x, y: Integer;
begin
  case Random(150) of //if you feel the script is too active make that number higher.
    1, 33, 56 : HoverSkill('random', False);
    16, 24, 88 : begin
                       GetMousePos(x, y);
                       MoveMouseSmoothEx(x + Random(65),y + Random(120), 1,
                          3, 45, 20, 10);
                     end;
    53, 44, 122 : ExamineInv;
    97, 133, 146 : BoredHuman;
    94, 95, 149 : PickUpMouse;
  end;
end;

procedure StayAlive;
var i, x, y, lobster: Integer; iBox: TBox; Find: Boolean;
begin
  if HPPercent > HPToEat then Exit;
  
  lobster := BitmapFromString(4, 3, 'beNoLFrlXLvs/VeJ/huR/UdF' +
       'XdfLfWhQYGBg7vYQgjF5voVkAD4YNJQ==');

  for i := 1 to 28 do
  begin
    iBox := InvBox(i);
    
    if FindBitmapToleranceIn(lobster, x, y, iBox.x1, iBox.y1, iBox.x2,
       iBox.y2, 5) then
    begin
      Find := True;
      Mouse(x, y, 5, 1 + Random(2), True);
      Wait(RandomRange(800, 1600));
      
      if not HPCheck(HPToEat) then
        Exit;
    end;
    
    if i = 28 then
      if not Find then
    begin
      RunTo(dir, True);
      NextPlayer(False);
    end;
  end;
end;

begin
  SetUpSRL;
  ClearDebug;
  Writeln('Author := NCDS;');
  ActivateClient;
  DeclarePlayers;
  LogInPlayer;
  SetAngle(True);
  FindNormalRandoms;
  
  while Players[CurrentPlayer].Active = True do
  begin
    StayAlive;
    StayLoggedIn;
    Wait(RandomRange(5000, 15000));
  end;
  
  if AllPlayersInActive then
    TerminateScript;
end.

Want it for rising Ep? lol :p

Most likely for afking somewhere. Aggressive mobs attack you without you doing anything.

Why not just use some of the autofighters we already have?
*cough cough* i just updated mine *cough cough*

yeh thats a better idea. ill do that