Tweak switch doors

2021-04-22 17:10:53 +02:00
parent 6c65515381
commit fdac382c61
5 changed files with 77 additions and 71 deletions
@@ -77,10 +77,11 @@ spaceAction w = if _carteDisplay w
    else 
        case listToMaybe $ _closeActiveObjects w of
            Just (Left flit) -> pickUpItem' flit w
-            Just (Right but) -> _btEvent but but w
+            Just (Right but) -> updateTopCloseObject (_btID but) $ _btEvent but but w
            Nothing -> w
  where
    theLoc = fst (_seenLocations w IM.! _selLocation w) w
+    updateTopCloseObject i w = w & closeActiveObjects %~ ( Right (_buttons w IM.! i) : ) . tail 

 pauseGame :: World -> World
 pauseGame w = w {_menuLayers = [PauseMenu]}