Cleanup, fix menu lock on restarting level after game over

2021-12-06 23:44:10 +00:00
parent 19540bd19e
commit 763b771928
18 changed files with 88 additions and 119 deletions
@@ -128,7 +128,7 @@ wheelEvent y w = case (_carteDisplay w, _inventoryMode w) of
    (_, TopInventory)
            -- functions that modify the inventory should be centralised so that
            -- this lock can be sensibly applied, perhaps
-        | _crInvLock (_creatures w IM.! (_yourID w)) -> w
+        | _crInvLock (_creatures w IM.! _yourID w) -> w
        | rbDown -> case yourItem w ^? _Just . itScroll of
            Nothing -> closeObjScrollDir y w
            Just f  -> w & creatures . ix 0 . crInv . ix (_crInvSel $ you w) %~ f y (you w)