Merge branch 'master' of ssh://git.xkjq.uk:30001/justin/dodge

2021-03-21 17:53:01 +00:00
parent 3cfbf3dacc 279f928375
commit b91f056d63
52 changed files with 350 additions and 394 deletions
@@ -29,14 +29,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
-                   , _wlCastShadow = True
+                   , _doorPathable = True
                   }
 basicDoor = Door { _wlLine = [(0,0),(50,0)]
                   , _wlID = 0
@@ -45,6 +45,7 @@ basicDoor = Door { _wlLine = [(0,0),(50,0)]
                   , _wlDraw = Nothing
                   , _wlSeen = False
                   , _wlIsSeeThrough = False
+                   , _doorPathable = False
                   }
 basicCreature :: Creature
 basicCreature = Creature