Fix room bugs

src/Dodge/Room/Airlock.hs

@@ -16,8 +16,8 @@ import Picture
 import qualified Data.IntMap.Strict as IM
 {- | A passage with a switch that opens forward access while closing backwards access. -}
 airlock :: RandomGen g => State g Room
-airlock = takeOne [airlock0,airlock90,airlockCrystal,airlockZ]
---airlock = takeOne [airlockZ]
+--airlock = takeOne [airlock0,airlock90,airlockCrystal,airlockZ]
+airlock = takeOne [airlockCrystal]
 {- | Straight airlock -}
 airlock0 :: Room
 airlock0 = defaultRoom
@@ -145,7 +145,9 @@ airlockCrystal = defaultRoom
         , mntLS vShape (V2 150 70) (V3 110 70 70)
         ]
     , _rmBound = 
-        [         ]
+        [ rectNSWE 120 20 0 40
+        , orderPolygon $ map toV2 [ (39,20) , (150,60) , (150,80) , (39,120) ]
+        ]
     }
   where 
     --cond w = or $ M.lookup (DoorNumOpen n) (_worldState w)