Fix aiming with scope

2023-12-26 21:45:59 +00:00
parent 3b4bef944d
commit 26c55ee7f5
14 changed files with 85 additions and 114 deletions
@@ -26,13 +26,9 @@ updateWheelEvent yi w = case w ^. hud . hudElement of
        -- functions that modify the inventory should be centralised so that
        -- this lock can be sensibly applied, perhaps
        | w ^?! cWorld . lWorld . creatures . ix 0 . crInvLock -> w
--        | rbDown -> case (yourItem w ^? _Just . itUse . heldScroll, _rbOptions w) of
--            (_, EquipOptions{}) -> w & rbOptions . opSel %~ scrollRBOption yi rbscrollmax
--            (Nothing, _) -> closeObjScrollDir y w
--            (Just f, _) -> doHeldScroll f y (you w) w
        | rbDown -> case  (yourScrollAttachment w, _rbOptions w) of
            (_,EquipOptions{}) -> w & rbOptions . opSel %~ scrollRBOption yi rbscrollmax
-            (Nothing, _) -> w -- closeObjScrollDir y w
+            (Nothing, _) -> w
            (Just (invid,hs), _) -> doHeldScroll invid hs y w
        | lbDown -> w & wCam . camZoom +~ y
        | invKeyDown -> changeSwapSel yi w