It still works, I fixed the dropping issues that have always haunted it (for me atleast) just by waiting for some uptext before right clicking.
Code:
procedure P07_DropInventorySlot(SlotToDrop: Integer);
var
xsx, ysy, R, C: Integer;
begin
SlotToDrop := SlotToDrop - 1;
xsx := 565;
ysy := 215;
C := (Round(SlotToDrop / 4));
R := (SlotToDrop - (C * 4));
SlotToDrop := SlotToDrop + 1;
if P07_ItemExists(SlotToDrop) then
begin
MMouse(RandomRange((xsx + (R * 42)), (xsx + (R * 42) + 27)), RandomRange((ysy + (C * 36)), (ysy + (C * 36) + 25)), 0, 0);
P07_WaitUpTextMultiCustom(['ions'], RandomRange(100, 200)) ClickMouse2(mouse_right);
P07_ChooseOptionMulti(['rop']);
end;
end;