Results 1 to 14 of 14

Thread: A dropper.

  1. #1
    Join Date
    Jun 2006
    Posts
    694
    Mentioned
    0 Post(s)
    Quoted
    31 Post(s)

    Lightbulb A dropper.

    I made this script due to being to lazy powerchopping for hour`s on end.

    Just start it and when you need your dtm dropped press the dash and it will drop it.

    It deletes the dash so your chat so the dash doesn't get spammed overtime.

    Credit to person with dtm.


    Change the dtm for your use.

    Version 1.0
    Last edited by Sir R. M8gic1an; 11-14-2009 at 03:28 PM.

  2. #2
    Join Date
    Feb 2009
    Posts
    1,447
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

  3. #3
    Join Date
    Feb 2007
    Posts
    3,616
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    You could just have it drop if the inventory is full.

    That way, you don't need to press the minus key every time you want to drop, which can become a little suspicious anyway.

    Good job though Keep it up!

  4. #4
    Join Date
    Sep 2007
    Location
    British Columbia, Canada
    Posts
    4,047
    Mentioned
    1 Post(s)
    Quoted
    2 Post(s)

    Default

    Just use this
    SCAR Code:
    Program Dropper;
    Procedure DropAllEx(Skip: TIntegerArray);
    var
      i: Integer;
    Begin
      for i := 1 to 28 do
        if not InIntArray(Skip, i) then
          DropItem(i);
    End;

    Begin
      DropAllEx([0]);
    End.
    Credit

    http://villavu.com/forum/showthread.php?p=631261
    Oh Hai Dar

  5. #5
    Join Date
    Jun 2006
    Posts
    694
    Mentioned
    0 Post(s)
    Quoted
    31 Post(s)

    Default

    Quote Originally Posted by TRiLeZ View Post
    Why not just use DropAll?
    Not trying to discourage you..
    I was getting a runtime error with the inventory.scar in the includes I believe.

    Quote Originally Posted by Main_Ftw View Post
    Just use this
    SCAR Code:
    Program Dropper;
    Procedure DropAllEx(Skip: TIntegerArray);
    var
      i: Integer;
    Begin
      for i := 1 to 28 do
        if not InIntArray(Skip, i) then
          DropItem(i);
    End;

    Begin
      DropAllEx([0]);
    End.
    Credit

    http://villavu.com/forum/showthread.php?p=631261
    I don`t feel like pressing control alt r everytime I want to drop something.

  6. #6
    Join Date
    Jan 2008
    Location
    C:\
    Posts
    1,483
    Mentioned
    2 Post(s)
    Quoted
    2 Post(s)

    Default

    SCAR Code:
    {.include SRL\SRL.scar}
    var
      thedtm :Integer;

    procedure DropStuff;
    begin
      TypeByte(VK_BACK);
      ClickAllItems('dtm', thedtm, 'Drop', Random(250), []);
    end;

    procedure LoadDTMs;
    begin
      thedtm := DTMFromString('78DA63CC646260B8C3800618E1E47F2060CC0' +
      '0AAF9805B0D98AE06AA794E404D2C50CD4B026A92806ADE125093' +
      '4E847B8A816A6E1250938CDFEF60BA14A8E6350135D94035EFF1A' +
      'B010036CF115F');
    end;

    begin
      setupsrl;
      LoadDTMs;
      mousespeed := 12+random(5);
      while (not(IsKeyDown('-'))) do
      Wait(100+random(250));
      if (IsKeyDown('-')) then
      repeat
        DropStuff;
      until(not(IsKeyDown('-'));
    end.

    That way you don't have to use "crtl+alt+r"

  7. #7
    Join Date
    Jun 2006
    Posts
    694
    Mentioned
    0 Post(s)
    Quoted
    31 Post(s)

    Default

    Guy`s every hear the word simple? Lawl.

  8. #8
    Join Date
    Sep 2007
    Location
    British Columbia, Canada
    Posts
    4,047
    Mentioned
    1 Post(s)
    Quoted
    2 Post(s)

    Default

    @wyn10:
    The thing I posted will drop all your item except for item in the 0 slot which doesn't exist.. (The procedure will drop all your item from the 1st inventory slot to the 28th if you make it skip 0).

    @Runawaycop:
    Go fix your application, quit messing around lol.
    Oh Hai Dar

  9. #9
    Join Date
    Feb 2007
    Posts
    3,616
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    This is the most simple and convenient way to do it:

    SCAR Code:
    Program New;
    {.include SRL/SRL.scar}

    begin
      SetupSRL;
      repeat
        wait(50);
        if(InvFull)then DropAll;
      until(False);
    end.

    You don't need to press any buttons. Each time the inventory is full, it just drops.

  10. #10
    Join Date
    Sep 2007
    Location
    British Columbia, Canada
    Posts
    4,047
    Mentioned
    1 Post(s)
    Quoted
    2 Post(s)

    Default

    Now they will beg for chopping procedure lawl.


    Here is a chopping procedure which I think is worthy of people at this section.
    SCAR Code:
    Procedure Choptree;
    var Tx, Ty: Integer;
    Begin
      repeat
        Tx:=mscx+random(300)-random(300);
        Ty:=mscy+random(300)-random(300);
       Mmouse( Tx, Ty, 0, 0);
      Until (IsUpTextMultiCustom(['ree','ak','illow','ew','agic']))
      Wait(random(300));
      Mouse( Tx, Ty, 0, 0, true);
    End;
    Last edited by Main; 09-13-2009 at 12:31 PM.
    Oh Hai Dar

  11. #11
    Join Date
    Nov 2007
    Posts
    326
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    @JAD. When I run that it moves my mouse around heckaz. It moves my character as well. Which is weird.
    Last edited by IPwnz; 09-14-2009 at 05:32 AM.

  12. #12
    Join Date
    Jun 2006
    Posts
    694
    Mentioned
    0 Post(s)
    Quoted
    31 Post(s)

    Default

    I was just making a simple dropper lmao...

  13. #13
    Join Date
    Feb 2007
    Location
    Alberta, Canada
    Posts
    4,615
    Mentioned
    50 Post(s)
    Quoted
    429 Post(s)

    Default

    Quote Originally Posted by wyn10 View Post
    I was just making a simple dropper lmao...
    At least fix your standards pl0x?

    Scripts: Edgeville Chop & Bank, GE Merchanting Aid
    Tutorials: How to Dominate the Grand Exchange

    Quote Originally Posted by YoHoJo View Post
    I like hentai.

  14. #14
    Join Date
    May 2007
    Location
    England
    Posts
    4,140
    Mentioned
    11 Post(s)
    Quoted
    266 Post(s)

    Default

    Sorted out standards on your script:

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

    var
      TheDTM : Integer;

    procedure Drop;
    begin
      TypeByte(VK_BACK);
      ClickAllItems('dtm', TheDTM, 'Drop', Random(250), []);
    end;

    procedure LoadDTM;
    begin
      TheDTM := DTMFromString('78DA63CC646260B8C3800618E1E47F2060CC0' +
                '0AAF9805B0D98AE06AA794E404D2C50CD4B026A92806ADE125093' +
                '4E847B8A816A6E1250938CDFEF60BA14A8E6350135D94035EFF1A' +
                'B010036CF115F');
    end;

    begin
      SetupSRL;
      LoadDTM;
      MouseSpeed:= RandomRange(11, 17);
      repeat
        if (IsKeyDown('-')) then
          Drop;
      until(False);
    end.

    A script I just made like this:

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

    var
      I, D : Integer;
      DD : TIntegerArray;

    procedure DontDrop; //Fill in this    -------------------------------
    begin
      DD:= [1]; //Slots to NOT drop
    end;

    procedure DropAllEx(Skip: TIntegerArray); //Credits to Main_FTW
    var
      I: Integer;
     
    begin
      for I:= 1 to 28 do
        if not InIntArray(Skip, I) then
          DropItem(I);
    end;

    procedure Drop;
    begin
     
    begin
      SetupSRL;
      if InvFull then
      begin
        I:= RandomRange(2500, 7500);
        Alert('Dropping in ' + IntToStr(Round(I / 1000)) + ' seconds');
        Wait(I);
        DropAllEx(DD);
        Inc(D);
      end;
      WriteLn('Dropped ' + IntToStr(D) + 'times.');
    end.

    Richard
    <3

    Quote Originally Posted by Eminem
    I don't care if you're black, white, straight, bisexual, gay, lesbian, short, tall, fat, skinny, rich or poor. If you're nice to me, I'll be nice to you. Simple as that.

Thread Information

Users Browsing this Thread

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

Posting Permissions

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