Implement (partially) updating pathing grid when opening doors

src/Dodge/Data.hs

@@ -135,7 +135,6 @@ data World = World
     , _floorTiles           :: [(Point3,Point3)]
     , _randGen              :: StdGen
     , _testString           :: Configuration -> World -> [String]
-    , _debugPicture         :: Picture
     , _modifications        :: IM.IntMap Modification
     , _yourID               :: Int
     , _worldEvents          :: World -> World
@@ -947,12 +946,11 @@ data Block = Block
     , _blHP         :: Int
     , _blShadows    :: [Int]   -- a list of blocks/walls? that are not shown when this block exists
     , _blFootprint  :: [Point2]
-    , _blObstructs  :: [(Point2,Point2)]
     , _blPos        :: Point2
     , _blDir        :: Float
     , _blDraw       :: Block -> SPic
     , _blDeath      :: Block -> World -> World
-    , _blPaths      :: [(Int,Int,PathEdge)]
+    , _blObstructs  :: [(Int,Int,PathEdge)]
     }
 data TerminalStatus = TerminalOff | TerminalBusy | TerminalReady
   deriving (Eq,Ord,Show)
@@ -1043,6 +1041,8 @@ data Door = Door
     , _drPushedBy :: PushSource
     , _drPushes :: Maybe Int
     , _drMounts :: [MountedObject]
+    , _drObstructs  :: [(Int,Int,PathEdge)]
+    , _drObstacleType   :: EdgeObstacle
     }
 data MountedObject
     = MountedLS Int