Continue inventory tweak

2023-02-16 17:07:59 +00:00
parent 934dd64704
commit 4afc216b25
28 changed files with 106 additions and 94 deletions
@@ -38,7 +38,8 @@ tryPutItemInInv cid flit w = case maybeInvSlot of
 createAndSelectItem :: Item -> World -> World
 createAndSelectItem itm w = case createPutItem itm w of
    (Just i, w') -> w' 
-        & cWorld . lWorld . creatures . ix 0 . crManipulation .~ Manipulator (SelItem i NoInvSelAction)
+        & cWorld . lWorld . creatures . ix 0 . crManipulation . manObject
+            .~ InInventory (SelItem i NoInvSelAction)
    (Nothing, w') -> w'

 createPutItem :: Item -> World -> (Maybe Int, World)