MIniDrop

procedure TMiner.IntenseDrop();
var
  p: TPoint;
  slots: TIntegerArray;
  n: Int32 = 3;
begin
  if Random(5) = 0 then
    n := Random(2,4);

  p := Mouse.GetPosition();
  slots := Inventory.GetUsedSlots();
  if (Length(Slots) >= n) then
  begin
    SetLength(slots, Min(Length(Slots), n));
    Inventory.ShiftDrop(Inventory.ErrorPattern(slots,3));
    Mouse.Move(p,25);
  end;
end;