Improve control over floor items and buttons

2021-03-09 01:18:44 +01:00
parent 13cc9501a7
commit 2310bd1b09
7 changed files with 72 additions and 11 deletions
@@ -86,6 +86,7 @@ data World = World
                , _mapDisplay :: (Bool, Float)
                , _lightSources :: !(IM.IntMap LightSource)
                , _tempLightSources :: ![TempLightSource]
+                , _closeActiveObjects :: [Either FloorItem Button]
                } --deriving (Show)

 type Drawing = Picture