Fix more item bugs

2025-08-24 23:50:16 +01:00
parent c2daa86463
commit d776c91cfd
9 changed files with 113 additions and 99 deletions
@@ -111,7 +111,7 @@ tryPutItemInInvAt i cid itid w = do
 --    return (Just i, w')

 createItemYou :: Item -> World -> World
-createItemYou itm w = w' -- fromMaybe w' $ fmap snd $ tryPutItemInInv 0 itid w'
+createItemYou itm w = fromMaybe w' $ fmap snd $ tryPutItemInInv 0 itid w'
  where
    itid = IM.newKey $ w ^. cWorld . lWorld . items
    pos = w ^?! cWorld . lWorld . creatures . ix 0 . crPos