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.
SCAR 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.