Make scrolling reduce selected items to 1

2024-10-25 12:50:36 +01:00
parent 90862b0c69
commit bd505b072a
2 changed files with 3 additions and 3 deletions
@@ -34,8 +34,8 @@ updateWheelEvent yi w = case w ^. hud . hudElement of
            EquipOptions{} -> w & rbOptions . opSel %~ scrollRBOption yi rbscrollmax
            NoRightButtonOptions -> w
        | bdown ButtonLeft -> w & wCam . camZoom +~ y
-        | invKeyDown -> changeSwapSel yi w
-        | otherwise -> scrollAugInvSel yi w
+        | invKeyDown -> changeSwapSel yi $ w & hud . hudElement . diSelectionExtra .~ 0
+        | otherwise -> scrollAugInvSel yi $ w & hud . hudElement . diSelectionExtra .~ 0
    DisplayInventory{_subInventory = ExamineInventory}
        | invKeyDown -> scrollAugInvSel yi w
        | otherwise -> w