SRL Archive - RS3 Outdated / Broken Scripts

I'm in need of a simple autodropper. An ideal setup would be constants that I can change so I can set what inventory slot it starts dropping from and what slot it ends dropping at. Idealy it would drop an entire inventory in under 10 seconds, and obviously it wouldn't drop at a constant rate. Nothing else needs to be added to the script, just dropping items.

program New;
{.include SRL/SRL.scar}

var i,DroppedTot: integer;

{*******************************************************************************
procedure DropeItem(i: Integer);
By: Lorax / Hy71194 made quicker
Description: Drops item at given position (1-28)
*******************************************************************************}

function DropeItem(i: Integer): Boolean;
var
  Pr: TPoint;
begin
  GameTab(4);
  if ExistsItem(i) then
  begin
    Pr := ItemCoords(i);
    Mouse(Pr.x, Pr.y, 8, 8, False);
    Wait(50 + Random(75));
    if (ChooseOption('rop')) then
    begin
      Result := True;
      Wait(10 + Random(50));
    end;
  end;
end;

procedure Proggy;
begin
  ClearDebug;
  WriteLn('Dropped '+Inttostr(DroppedTot)+' loads of stuff.');
end;

procedure DropDe;
var Hmm: integer;
begin
  Hmm := MouseSpeed;
  MouseSpeed := 25+Random(7);
  for i := 2 to 28 do
    DropeItem(i);
  WriteLn('All Dropped!');
  MouseSpeed := Hmm;
  Inc(DroppedTot);
  Proggy;
end;

begin
  SetupSRL;
  Proggy;
  Wait(250+Random(250));
  repeat
    if InvFull then
      DropDe;
    Wait(500+Random(500));
  until(False);
end.

Just change the 'for i := 2 to 28 do' to whatever slots you wanna drop from.

Program LMAO;
{.Include SRL/SRL.Scar}
Var
  X, Y:Integer;

Function DropFromTo(From,toSlot:integer):boolean;
var
  I:Integer;
Begin
  For I:=from To toSlot Do
  Begin
    If ExistsItem(I) Then DropItem(I);
    Wait(10 + Random(50));
  End;
End;

Begin
  SetUpSRL;
  DropFromTo(1,9);
End.

Is there any way to speed up the rate it drops the stuff at? Because I can just drop it much faster than your script does Hy711

Other than that, it works great.

MouseSpeed:=100; use man and put that after setupsrl;