Add airlocks

src/Dodge/LevelGen/AutoDoor.hs

@@ -10,6 +10,7 @@ import Dodge.SoundLogic
 import Dodge.Creature.Property
 import Geometry
 import Picture
+import qualified DoubleStack as DS
 
 import Data.List
 import Data.Maybe
@@ -85,6 +86,7 @@ autoDoorPane (trigx,trigy) n closedPos openPos = Door
     , _wlSeen = False
     , _wlIsSeeThrough = False
     , _doorPathable = True
+    , _drPositions = DS.singleton closedPos
     }
   where 
     a = closedPos !! 0