Add airlocks

src/Dodge/Room/Procedural.hs

@@ -260,6 +260,10 @@ centerVaultRoom n w h d = do
             ,PS (w-5,5-h) 0 putLamp
             ,PS (5-w,h-5) 0 putLamp
             ,PS (5-w,5-h) 0 putLamp
+            ,PS (0,h-5) 0 $ PutCrit explosiveBarrel
+            ,PS (5,h-5) 0 $ PutCrit explosiveBarrel
+            ,PS (0,h) 0 $ PutCrit explosiveBarrel
+            ,PS (-4,h-5) 0 $ PutCrit explosiveBarrel
             ,PS (0,0) 0 $ PutCrit (cr & crState . crDropsOnDeath .~ DropAll)
             ]
             ++ concat (zipWith (\i r -> map (shiftPSBy ((0,0),r)) $ theDoor i) 
@@ -269,7 +273,7 @@ centerVaultRoom n w h d = do
   where
     col = dim $ dim $ bright red
     theDoor i = 
-        [ PS (0,d-10) 0 $ PutTriggerDoor col (cond i) (-19,0) (19,0)
+        [ PS (0,d-10) 0 $ PutDoubleDoor col (cond i) (-19,0) (19,0)
         , PS (35,d+4) 0 $ PutButton $ makeSwitch col 
                            (over worldState (M.insert (DoorNumOpen i) True))
                            (over worldState (M.insert (DoorNumOpen i) False))