scn EBxOnMiddleClick

int	iKeyID
ref rItem
ref rBottle

begin function { iKeyID }

	if iKeyID != 258 ; not middle click
		return
	endif

	set rItem to GetSelectedItemRef

	if IsFormValid rItem
		if rItem.GetType == 47 ; ingestible

			set rBottle to call EBxGetBottleByDrink rItem

			if IsFormValid rBottle
				set rItem to rItem.GetBaseObject
				playerRef.RemoveItem rItem 1 1
				playerRef.AddItem rBottle 1 1
				PlaySound ITMBottleDown 1
				MessageExAlt 1 ($rBottle + " " + $(GetStringSetting "sAddItemtoInventory")) ; ShowMessage causes CTD in MenuMode 1002
				RefreshItemsList
			endif

		endif
	endif

end