Work on inventory management

2023-02-16 16:12:03 +00:00
parent ff5fa6321a
commit 934dd64704
30 changed files with 129 additions and 111 deletions
@@ -12,7 +12,7 @@ youc w = w ^?! lWorld . creatures . ix 0

 yourItem :: World -> Maybe Item
 yourItem w = do
-    i <- you w ^? crInvSel . isel . ispItem
+    i <- you w ^? crManipulation . isel . ispItem
    _crInv (you w) IM.!? i

 yourInv :: World -> IM.IntMap Item