SRL Archive - SRL Archives

Here it is. It will go through your inventory and put everything in the first open slot.

{.include SRL\SRL.scar}

procedure DragMyItem(inv1, inv2: Integer);
var
  x, y: Integer;
begin
  MMouseItem(Inv1);
  GetMousePos(x, y);
  HoldMouse(x, y, True);
  Wait(200 + Random(100));
  MMouseItem(Inv2);
  Wait(200 + Random(100));
  GetMousePos(x, y);
  ReleaseMouse(x, y, True);
  Wait(200 + Random(100));
  MMouse(x, y, 2, 2)
end;

procedure InventArrange;
var
StartAmount,EmptyBlock,A:integer;
Moving,AllMoved: boolean;
begin
 StartAmount := InvCount
 Moving := False
 AllMoved := False
  for A := 1 to 28 do
   begin
   if Moving = False then
   begin
    if ExistsItem(A) = False then
    begin
     EmptyBlock := A
     Moving := True
     Wait(500+random(500))
    end;
   end;
   if Moving = true then
   begin
    if ExistsItem(A) = True then
    Begin
     DragMyItem(A,EmptyBlock)
     Moving := false
     A := 1
     Wait(500+random(500))
    end;
   end;
  end;
end;

Begin
setupSRL
ActivateClient
InventArrange
end.

Cool. Useful for droppers.

I use it in my bone picker. Its a good anti-ban feature.