SCAR Code:
Var RockPattern: Array Of TIntegerArray;
Procedure BasicSetup;
Begin
SetArrayLength(RockPattern, 2);
RockPattern[0]:=[1, 5, 9, 13, 17, 21, 25, 2, 6, 10, 14, 18, 22, 26, 3, 7, 11, 15, 19, 23, 27, 4, 8, 12, 16, 20, 24, 28];
RockPattern[1]:=[1, 5, 9, 13, 17, 21, 25, 26, 22, 18, 14, 10, 6, 2, 3, 7, 11, 15, 19, 23, 27, 28, 24, 20, 16, 12, 8, 4];
End;
For I:=0 to 27 Do
Begin
If Not(LoggedIn) Then Break;
StatsGuise('Dropping Ores: ' + IntToStr(InvCount));
RT:=GetSystemTime;
If FindNormalRandoms Then
IncEx(WeMined, GetSystemTime - RT);
SlotBox:=InvBox(RockPattern[R][I]);
If FindDTm(OreMid, x, y, SlotBox.X1, SlotBox.Y1, SlotBox.X2, SlotBox.Y2) Then
Begin
MouseItem(RockPattern[R][I], False);