Continue inventory tweak

2023-02-16 17:07:59 +00:00
parent 934dd64704
commit 4afc216b25
28 changed files with 106 additions and 94 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 ^? crManipulation . isel . ispItem
+    curpos <- you w ^? crManipulation . manObject . inInventory . ispItem
    guard $ not $ _crInvLock (you w) || cursed
    return $ w
            & dropItem cr curpos