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.