!!!Help with my autodropper!!!

OK, so I found an AutoDropper which is very good though it doesn't drop the bottom two rows. It completely messes up. Please fix it, although don't recommend me SRL or completely re-write/give me a new script.

Code:

Program AutoDrop_Beta;

Const
  Interval = 45;
  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.

 

This is VERY detectable. Try using:

Code:

program TheDropper;
{.include /SRL/SRL.scar}
begin
DropAll;
end.