Commit before only putting item locations in single itemLocations intmap

2024-09-24 09:31:20 +01:00
parent 77e5f684aa
commit a6eb5cf982
8 changed files with 242 additions and 216 deletions
@@ -253,7 +253,7 @@ tryCombine :: SelectionSections CombinableItem -> World -> World
 tryCombine sss w = fromMaybe w $ do
    (i, j) <- sss ^? sssExtra . sssSelPos . _Just
    CombinableItem is it _ <- sss ^? sssSections . ix i . ssItems . ix j . siPayload
-    return $ createAndSelectItem it (foldr (rmInvItem 0) w (sort is))
+    return $ snd (createItemYou it (foldr (destroyInvItem 0) w (sort is)))
        & cWorld . lWorld . creatures . ix 0 . crHammerPosition .~ HammerDown

 maybeExitCombine :: Universe -> Universe