Keep track of seen walls in external list

2023-01-03 22:36:44 +00:00
parent 5b4e8d75bb
commit 0b7da0489a
10 changed files with 30 additions and 727 deletions
@@ -126,6 +126,7 @@ data LWorld = LWorld
    , _linearShockwaves :: IM.IntMap LinearShockwave
    , _tractorBeams :: [TractorBeam]
    , _walls :: IM.IntMap Wall
+    , _seenWalls :: IS.IntSet
    , _wallDamages :: IM.IntMap [Damage]
    , _doors :: IM.IntMap Door
    , _machines :: IM.IntMap Machine
@@ -19,7 +19,7 @@ data Wall = Wall
    { _wlLine :: (Point2, Point2)
    , _wlID :: Int
    , _wlColor :: Color
-    , _wlSeen :: Bool
+--    , _wlSeen :: Bool
    , _wlOpacity :: Opacity
    , _wlPathable :: Bool
    , _wlPenetrable :: Bool