Used this:
http://villavu.com/forum/showthread.php?t=3197Pretty simple though it's just MoveMouse/ClickMouse, and when you use the key/button to move the mouse down, it moves down in X amounts of Y units (Like Y +50) always, no matter what. Also the '50' can be anything depending on your mouse settings/etc, but I found I think 48? to be the amount needed to move down in order to click the 'Drop' option.
Here it is, pretty basic:
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;
I can explain anything you need, a few things might be a bit ambiguous.