Simba Code:
Procedure MouseKeyDrop;
var
I, X, Y, Q, W, OreMid: Integer;
SlotBox:TBox;
RockPattern: TIntegerArray;
Begin
RockPattern:=[1,5,9,13,17,21,2,6,10,14,18,22,3,7,11,15,19,23,4,8,12,16,20,24];
OreMid := DTMFromString('mrAAAAHic42BgYBAAYl4g5gZiESAWB2IuBgiQAWJ+IOaE8kHyEkAsDFXHCsRmCiARJpz4PwN+wEgAwwAA/qACeA==');
For I:=0 to 23 Do
Begin
If InIntArray([0,6,12,18], I) Then
Begin
SlotBox:= InvBox(RockPattern[I]);
If FindDTm(OreMid, X, Y, SlotBox.X1, SlotBox.Y1, SlotBox.X2, SlotBox.Y2) Then
MMouse(X, Y, 5, 3);
End;
SmartGetMousePos(X, Y);
Mouse(X, Y, 0, 0, False);
WaitFindColor(Q, W, 131843, MIX1, MIY1, MIX2, MIY2, 0, 5000);
SmartMoveMouse(X, Y+37);
SmartGetMousePos(X, Y);
Wait( RandomRange(50,70) );
SmartClickMouse(X, Y, True);
WaitColorGone(131843, X, Y, 0, 5000);
Wait(50 + Random(20));
End;