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
@@ -116,7 +116,7 @@ triggerDoorPane c cond n closedPos openPos = Door
    , _wlDraw = Nothing
    , _wlSeen = False
    , _wlIsSeeThrough = False
--    , _doorLine = [a,b,a',b']
+    , _doorPathable = False
    }
    where 
        a = closedPos !! 0