Commit mid add time scroll

2022-10-24 10:44:23 +01:00
parent 21dc670c9f
commit 86a9ab7582
17 changed files with 62 additions and 55 deletions
@@ -107,7 +107,7 @@ wheelEvent y w = case _hudElement $ _hud (_cWorld w) of
        | rbDown -> case (yourItem w ^? _Just . itUse . heldScroll, _rbOptions w) of
            (_, EquipOptions{}) -> scrollRBOption y w
            (Nothing, _) -> closeObjScrollDir y w
-            (Just f, _) -> w & cWorld . creatures . ix 0 . crInv . ix (crSel $ you w) %~ doHeldScroll f y (you w)
+            (Just f, _) -> doHeldScroll f y (you w) w
        | lbDown -> w & cWorld . cwCam . cwcZoom +~ y
        | invKeyDown -> changeSwapInvSel yi w
        | otherwise -> stopSoundFrom (CrReloadSound 0) $ changeAugInvSel yi w