Refactor close objects hud display

2024-11-24 16:12:35 +00:00
parent e6c2b659fd
commit 81fcfea1be
11 changed files with 205 additions and 220 deletions
@@ -453,7 +453,7 @@ pauseGame u = u & uvScreenLayers .~ [pauseMenu u]
 spaceAction :: World -> World
 spaceAction w = case w ^. hud . hudElement of
    DisplayCarte -> w & hud . carteCenter .~ theLoc
-    DisplayInventory{_subInventory = NoSubInventory{}} -> case selectedCloseObject w of
+    DisplayInventory{_subInventory = NoSubInventory{}} -> case Left <$> selectedCloseItem w of
        Just (Left flit) ->
            pickUpItem 0 flit w
                & worldEventFlags . at InventoryChange ?~ ()