Results 1 to 16 of 16

Thread: need a simple auto dropper

  1. #1
    Join Date
    Apr 2008
    Posts
    1
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    need a simple auto dropper

    ok i need an auto dropper that works

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

    Default

    Wrote this up just for you

    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.


    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
    Mar 2007
    Posts
    4,810
    Mentioned
    3 Post(s)
    Quoted
    3 Post(s)

    Default

    SCAR Code:
    Procedure DropIt;
    var i, x, y: Integer;
    begin
     For i := 3 to 28 do
      If ExistsItem(i) then
       Begin
        Mouse(x,y,1,1,faLSE);
        ChooseOption('rop')
      end;
    end;

    There you go, simple auto dropper

    Hope I Helped

  4. #4
    Join Date
    Jan 2007
    Posts
    133
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Thanks Hy.

  5. #5
    Join Date
    Jul 2008
    Posts
    8
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    i doesn;t work of me

  6. #6
    Join Date
    Dec 2006
    Location
    Sydney, New South Wales, Australia
    Posts
    4,603
    Mentioned
    15 Post(s)
    Quoted
    42 Post(s)

    Default

    A better one:
    SCAR Code:
    begin
      DropAll;
    end.

    You may contact me with any concerns you have.
    Are you a victim of harassment? Please notify me or any other staff member.

    | SRL Community Rules | SRL Live Help & Chat | Setting up Simba | F.A.Q's |

  7. #7
    Join Date
    Dec 2007
    Location
    Canada
    Posts
    187
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Haha heres a neat little one I typed up

    SCAR Code:
    program Dropper;
    {.include SRL/SRL.scar}

    Var
    x,y,item: integer;

    Const
    ItemName= 'log'; //Single item name
    ItemColor= 3366269; //Set the item color of the item you want to keep dropping.

    Procedure DropItAll;
    begin
      repeat
        if(FindColorSpiralTolerance(x,y,(ItemColor), MIX1, MIY1, MIX2, MIY2, 5)) then
        Mouse(x,y,3,3,false);
        ChooseOption('rop');
        Item := item + 1
        wait(600)
      until(Not(FindColorTolerance(x,y,(ItemColor), MIX1, MIY1, MIX2, MIY2, 5)))
    end;

    Procedure Proggy;
    begin
      Writeln('----------------------------------------');
      Writeln('- Dropped ' + IntToStr(Item) + ' ' + (ItemName) +'s');      // Insert this into your own proggy if you want.
      Writeln('----------------------------------------');
    end;

    begin
     SetupSRL;
     DropItAll;
     Proggy;
    end.

    And heres the neat proggy it will give you
    SCAR Code:
    ----------------------------------------
    - Dropped 6 logs                          // Will say whatever you set the name to. :D
    ----------------------------------------
    I'm baaaack

  8. #8
    Join Date
    Jul 2007
    Location
    Slovakia
    Posts
    12
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Hy71194 View Post
    Wrote this up just for you

    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.
    uaaaaaaaaaaaaa
    Line 205: [Error] (364:1): Semicolon (';') expected in script C:\Program Files\SCAR 3.15\includes\SRL/SRL/Core/Math.scar
    help

  9. #9
    Join Date
    Aug 2008
    Location
    Planet Earth.
    Posts
    53
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    On the line with the error add a ; onto the end. .
    Learning: Italian!
    Code:
    <Jason2G's> I just sprayed WD-40 on my dog's nuts. He was sleeping. And now he can't get back to sleep ^_^

  10. #10
    Join Date
    Oct 2006
    Posts
    36
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default as you play?

    is there a way that you could edit this so you can be cutting logs and then the script recognizes there is a log in the last slot....then it starts dropping them?

    THANKS

  11. #11
    Join Date
    Mar 2008
    Location
    ::1
    Posts
    915
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    This can be made a ton easier.

    SCAR Code:
    if(InvFull) then
      DropAll;

    Records and Types Save Code (and make you look better)
    Quote Originally Posted by Wizzup? View Post
    Is it possible to make Runescape a 2D game with this?... That would greatly simplify... Just about anything.

  12. #12
    Join Date
    Oct 2007
    Location
    #srl
    Posts
    6,102
    Mentioned
    39 Post(s)
    Quoted
    62 Post(s)

    Default

    Add:
    Code:
    begin
      repeat
        treecutting code here
      until(InvFull);
      DropAll; //or whatever your drop procedure is
    end;

  13. #13
    Join Date
    Oct 2006
    Posts
    36
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default thanks

    Hey thank you for that.

    This is my script

    begin
    repeat
    program DropItAll;
    {.include SRL/SRL.scar}

    Var
    x,y,item: integer;

    Const
    ItemName= 'Willow logs'; //Single item name
    ItemColor= 1985364; //Set the item color of the item you want to keep dropping.

    Procedure DropItAll;
    begin
    repeat
    if(FindColorSpiralTolerance(x,y,(ItemColor), MIX1, MIY1, MIX2, MIY2, 5)) then
    Mouse(x,y,3,3,false);
    ChooseOption('rop');
    Item := item + 1
    wait(500)
    until(Not(FindColorTolerance(x,y,(ItemColor), MIX1, MIY1, MIX2, MIY2, 5)))
    end;

    Procedure Proggy;
    begin
    Writeln('----------------------------------------');
    Writeln('- Dropped ' + IntToStr(Item) + ' ' + (ItemName) +'s'); // Insert this into your own proggy if you want.
    Writeln('----------------------------------------');
    end;

    begin
    SetupSRL;
    DropItAll;
    Proggy;
    end.
    until(InvFull);
    DropItAll; //or whatever your drop procedure is
    end;

    I get

    Failed when compiling
    Line 3: [Error] (3:1): Identifier expected in script

  14. #14
    Join Date
    Mar 2008
    Location
    ::1
    Posts
    915
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    You can't have the begin and repeat before the program line. You've got many things wrong. You might want to consider reading some tutorials before trying this kind of script.

    Records and Types Save Code (and make you look better)
    Quote Originally Posted by Wizzup? View Post
    Is it possible to make Runescape a 2D game with this?... That would greatly simplify... Just about anything.

  15. #15
    Join Date
    Oct 2006
    Posts
    36
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Thanks

    Thanks

  16. #16
    Join Date
    Mar 2009
    Posts
    10
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Nice auto droppers!

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Fish Auto Dropper (simple)
    By mynameisjoe in forum RS3 Outdated / Broken Scripts
    Replies: 5
    Last Post: 04-14-2008, 11:46 AM
  2. xtarcs simple auto dropper
    By xtarc in forum First Scripts
    Replies: 1
    Last Post: 11-26-2007, 12:55 AM
  3. Simple Dropper!!!!!
    By yanix in forum RS3 Outdated / Broken Scripts
    Replies: 14
    Last Post: 08-31-2007, 05:57 PM
  4. A simple dropper, needs some work =//
    By grimey in forum OSR Help
    Replies: 4
    Last Post: 06-20-2007, 04:28 PM

Posting Permissions

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