Help with my AutoDropper

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:

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.

 

I don't reccommend using scripts without the SRL. That one will get you banned extremely quickly.

 

Really, it's alright. I've been using it for a while and I use multiple accounts anyways.