Partially working scrolling below list to floor items

2021-12-01 00:04:54 +00:00
parent 42d7ca3ba8
commit 0ed260c9b7
4 changed files with 99 additions and 56 deletions
@@ -110,7 +110,7 @@ wheelEvent y w = case (_carteDisplay w, _inventoryMode w) of
            Nothing -> closeObjScrollDir y w
            Just f  -> w & creatures . ix 0 . crInv . ix (_crInvSel $ you w) %~ f y (you w)
        | lbDown -> w & cameraZoom +~ y
-        | invKeyDown -> swapInvDir yi $ stopSoundFrom (CrReloadSound 0) $ changeInvPos yi w
+        | invKeyDown -> stopSoundFrom (CrReloadSound 0) $ changeSwapInvPos yi w
        | otherwise -> stopSoundFrom (CrReloadSound 0) $ changeInvCloseObjectsPos yi w
    (_, TweakInventory)
        | invKeyDown && rbDown -> w & moveTweakSel yi