Results 1 to 5 of 5

Thread: Auto Dropper

  1. #1
    Join Date
    Mar 2007
    Posts
    14
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Auto Dropper

    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.

  2. #2
    Join Date
    Dec 2006
    Location
    Sweden
    Posts
    10,812
    Mentioned
    3 Post(s)
    Quoted
    16 Post(s)

    Default

    SCAR Code:
    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.


    Send SMS messages using Simba
    Please do not send me a PM asking for help; I will not be able to help you! Post in a relevant thread or make your own! And always remember to search first!

  3. #3
    Join Date
    Apr 2007
    Location
    The Netherlands
    Posts
    5,553
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    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.
    ~Hermen

  4. #4
    Join Date
    Mar 2007
    Posts
    14
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    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.

  5. #5
    Join Date
    Apr 2007
    Location
    The Netherlands
    Posts
    5,553
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

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

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. Auto Dropper Help
    By lilmike in forum OSR Help
    Replies: 3
    Last Post: 09-04-2007, 11:22 PM
  2. Auto dropper
    By e370 in forum OSR Help
    Replies: 1
    Last Post: 07-25-2007, 07:29 PM
  3. auto dropper
    By Flame Guard in forum RS3 Outdated / Broken Scripts
    Replies: 4
    Last Post: 06-13-2007, 02:18 PM
  4. auto dropper need help
    By phonokin in forum OSR Help
    Replies: 3
    Last Post: 01-19-2007, 04:27 AM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •