Stop equip after combining

2023-05-15 06:46:09 +01:00
parent 1cec50c5ab
commit 0735b46266
13 changed files with 38 additions and 112 deletions
@@ -253,7 +253,8 @@ 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 $ createAndSelectItem it (foldr (rmInvItem 0) w (sort is))
+        & cWorld . lWorld . creatures . ix 0 . crHammerPosition .~ HammerDown

 maybeExitCombine :: Universe -> Universe
 maybeExitCombine u