Remove creature records

2025-06-06 14:52:52 +01:00
parent 05f250f928
commit 467f241d7a
15 changed files with 37 additions and 28 deletions
@@ -28,7 +28,8 @@ updateWheelEvent yi w = case w ^. hud . hudElement . subInventory of
 -- yi should be nonzero
 updateBaseWheelEvent :: Int -> World -> World
 updateBaseWheelEvent yi w
-    | Just True <- w ^? cWorld . lWorld . creatures . ix 0 . crInvLock = w
+--    | Just True <- w ^? cWorld . lWorld . creatures . ix 0 . crInvLock = w
+    | Just True <- w ^? cWorld . lWorld . lInvLock = w
    | bdown ButtonRight = case _rbOptions w of
        EquipOptions{} -> w & rbOptions . opSel %~ scrollRBOption yi rbscrollmax
        NoRightButtonOptions -> fromMaybe w (selectedItemScroll yi w)