Results 1 to 6 of 6

Thread: Help with an AutDropper

  1. #1
    Join Date
    Sep 2006
    Posts
    23
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Help with an AutDropper

    Hi Guys, I have a problem with an AutoDropper I found. For some reason it does not drop my bottom two rows of my inventory. It attempts to but it seems like it misses the drop button. So I would hope that you could fix the AutoDropper and fix any other stuff you see fit. Though I don't want you to add SRL-ize it, thanks and don't worry about it being detectable. Lastly, please try and keep the speed of the AutoDropper the same or somewhere near it.

    Here it is:
    SCAR Code:
    Program AutoDrop_Beta;

    Const
      Interval = 60;
      SkipItems = 0;

    Var CurrentX, CurrentY, x, y, CounterA, CounterB, RandomY: Integer;

    Begin
      CounterA := 1;
      CounterB := 1 + SkipItems;
      x := 570 + (SkipItems * 42);
      y := 214;
      Repeat
      Begin
        Repeat
        Begin
          MoveMouseSmooth(x + Random(26), y + Random(24));
          GetMousePos(CurrentX, CurrentY);
          If(CounterA > 5)Then
          Begin
            RandomY := 421 + Random(9);
          End Else
          Begin
            RandomY := CurrentY + 35 + Random(12)
          End;
          Wait(Interval + Random(Interval / 4));
          ClickMouse(CurrentX, CurrentY, False);
          Wait(Interval + Random(Interval / 4));
          If(CounterB = 1)Then
          Begin
            MoveMouseSmooth(CurrentX - 10 + Random(40), RandomY);
          End Else If(CounterB = 4)Then
          Begin
            MoveMouseSmooth(CurrentX - 20 + Random(40), RandomY);
          End Else
          Begin
            MoveMouseSmooth(CurrentX - 30 + Random(30), RandomY);
          End;
          GetMousePos(CurrentX, CurrentY);
          Wait(Interval + Random(Interval / 4));
          ClickMouse(CurrentX, CurrentY, True);
          Wait(Interval + Random(Interval / 4));
          x := 570 + (CounterB) * 42;
          CounterB := CounterB + 1;
        End;
        Until(CounterB = 5);
        x := 570;
        y := y + 37;
        CounterA := CounterA + 1;
        CounterB := 1;
      End;
      Until(CounterA = 8);
    End.

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

    Default

    MoveMouseSmooth = BAN


    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
    Location
    Maryland, USA
    Posts
    184
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Albo23 View Post
    Hi Guys, I have a problem with an AutoDropper I found. For some reason it does not drop my bottom two rows of my inventory. It attempts to but it seems like it misses the drop button. So I would hope that you could fix the AutoDropper and fix any other stuff you see fit. Though I don't want you to add SRL-ize it, thanks and don't worry about it being detectable. Lastly, please try and keep the speed of the AutoDropper the same or somewhere near it.

    Here it is:
    SCAR Code:
    Program AutoDrop_Beta;
    {.include SRL\SRL}

    Const
      Interval = 60;
      SkipItems = 0;

    Var CurrentX, CurrentY, x, y, CounterA, CounterB, RandomY: Integer;

    Begin
      CounterA := 1;
      CounterB := 1 + SkipItems;
      x := 570 + (SkipItems * 42);
      y := 214;
      Repeat
      Begin
        Repeat
        Begin
          MMouse(x + Random(26), y + Random(24));
          GetMousePos(CurrentX, CurrentY);
          If(CounterA > 5)Then
          Begin
            RandomY := 421 + Random(9);
          End Else
          Begin
            RandomY := CurrentY + 35 + Random(12)
          End;
          Wait(Interval + Random(Interval / 4));
          ClickMouse(CurrentX, CurrentY, False);
          Wait(Interval + Random(Interval / 4));
          If(CounterB = 1)Then
          Begin
            MMouse(CurrentX - 10 + Random(40), RandomY);
          End Else If(CounterB = 4)Then
          Begin
            MMouse(CurrentX - 20 + Random(40), RandomY);
          End Else
          Begin
            MMouse(CurrentX - 30 + Random(30), RandomY);
          End;
          GetMousePos(CurrentX, CurrentY);
          Wait(Interval + Random(Interval / 4));
          ClickMouse(CurrentX, CurrentY, True);
          Wait(Interval + Random(Interval / 4));
          x := 570 + (CounterB) * 42;
          CounterB := CounterB + 1;
        End;
        Until(CounterB = 5);
        x := 570;
        y := y + 37;
        CounterA := CounterA + 1;
        CounterB := 1;
      End;
      Until(CounterA = 8);
    End.


    Ok first of all put {.include SRL\SRL} at the very top under program and instead of using MoveMouseSmooth (HUGE BAN) change all of them to MMouse like i did above!

  4. #4
    Join Date
    Mar 2007
    Location
    In your computer
    Posts
    244
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Lol all of that does not have to be made.Here much easier.

    SCAR Code:
    Program Dropper;
    {.include SRL/SRL.scar}
    //This will drop 27 items in your inventory.
    //Not includeing first inventory spot.
    //Press F6 to drop all of the items in your inventory.
    Const
    Speed = 7;//The cursor speed,lesser=faster,higher=less detectable.


    Procedure Drop;
    Begin
    If IsFKeyDown(6)then
    Begin
    MouseSpeed:=Speed;
    DropTo(2,28);
    End;
    End;

    Begin
    SetupSRL;
    Begin
    Repeat
    Drop;
    Until(False);
    End;
    End.
    -Hope that helps -Pie
    Even If You Are On Your Way, You Will Get Run Over If You Just Sit There.
    -ILikePie1995.

    My Best Script I Yet Made, Go Check It Out, Its In The Fighting Section. Look For UndeadKiller!

    GET FREE CASH!!!READ ALL ABOUT IT!!!
    http://www.AdPaid.com/ptr/pages/join...d=ilikepie1995

    JOIN AdPaid.Com NOW!!!ITS OWNAGE!!!
    http://www.AdPaid.com/ptr/pages/conf...d=ilikepie1995

  5. #5
    Join Date
    Mar 2007
    Location
    Maryland, USA
    Posts
    184
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Heres an autodropper

    SCAR Code:
    program AutoDropper;
    begin
     DropAll; //Will drop all items in inv
    end.

    //Credit to Lorax for the procedure

  6. #6
    Join Date
    May 2007
    Posts
    468
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    he asked to not srl-ize it. if u dun care if its detectable, then by all mean just use clickmouse but thats X_X
    Originally Posted by YoHoJo
    I like hentai.

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
  •