Combine Door and AutoDoor type constructors, add doorPathable field

2021-03-21 13:33:57 +01:00
parent 8108772894
commit a34c578786
6 changed files with 8 additions and 22 deletions
@@ -28,13 +28,14 @@ basicWall = Wall { _wlLine = [(0,0),(50,0)]
                   , _wlSeen = False
                   , _wlIsSeeThrough = False
                   }
-basicAutoDoor = AutoDoor { _wlLine = [(0,0),(50,0)]
+basicAutoDoor = Door { _wlLine = [(0,0),(50,0)]
                   , _wlID = 0
                   , _doorMech = id
                   , _wlColor = light $ dim $ dim $ dim $ yellow
                   , _wlDraw = Nothing
                   , _wlSeen = False
                   , _wlIsSeeThrough = False
+                   , _doorPathable = True
                   }
 basicDoor = Door { _wlLine = [(0,0),(50,0)]
                   , _wlID = 0
@@ -43,6 +44,7 @@ basicDoor = Door { _wlLine = [(0,0),(50,0)]
                   , _wlDraw = Nothing
                   , _wlSeen = False
                   , _wlIsSeeThrough = False
+                   , _doorPathable = False
                   }
 basicCreature :: Creature
 basicCreature = Creature