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
@@ -190,7 +190,7 @@ dropItem cr invid = rmInvItem cid invid . copyInvItemToFloor cr invid -- . maybe
 -- | Get your creature to drop the item under the cursor.
 youDropItem :: World -> World
 youDropItem w = fromMaybe w $ do
-    curpos <- you w ^? crInvSel . isel . ispItem
+    curpos <- you w ^? crManipulation . isel . ispItem
    guard $ not $ _crInvLock (you w) || cursed
    return $ w
            & dropItem cr curpos