Add airlocks

src/Dodge/Data.hs

@@ -26,10 +26,12 @@ import Dodge.Data.DamageType
 import Dodge.Config.Data
 import Dodge.Config.KeyConfig
 import Dodge.Item.Attachment.Data
+import Dodge.World.Trigger.Data
 import Preload.Data
 import Picture.Data
 import Geometry.Data
 import Sound.Data
+import qualified DoubleStack as DS
 
 import Control.Lens
 import Control.Monad.State
@@ -162,10 +164,6 @@ data WorldState
     | CrNumAlive Int
   deriving (Eq,Ord)
 
-data WorldTrigger
-    = ResetLevel Int
-  deriving (Eq,Ord)
-
 data Button = Button 
     { _btPict :: Picture
     , _btPos :: Point2
@@ -434,12 +432,14 @@ data Wall
         , _wlIsSeeThrough :: Bool
         }
     | Door 
-        { _wlLine :: [Point2] , _wlID :: Int 
+        { _wlLine :: [Point2] 
+        , _wlID :: Int 
         , _doorMech :: World -> World
         , _wlColor :: Color
         , _wlSeen :: Bool
         , _wlIsSeeThrough :: Bool
         , _doorPathable :: Bool
+        , _drPositions :: DS.DS [Point2]
         }
     | Block 
         { _wlLine :: [Point2]