Fix placement shifting

2021-10-03 18:24:36 +01:00
parent 2c5cdbdc73
commit b526517404
3 changed files with 17 additions and 11 deletions
@@ -71,16 +71,16 @@ initialRoomTree = do
 ----            ,[Corridor]
 ----            ,[Corridor]
 --            --,[SpecificRoom $ pure . Right <$> twinSlowDoorChasers]
-            ,[SpecificRoom $ pure $ (pure . Right) (twinSlowDoorRoom 80 200 40)]
-            ,[Corridor]
-            ,[DoorAno]
-            ,[SpecificRoom $ pure . Right <$> centerVaultExplosiveExit]
-            ,[SpecificRoom blockedCorridor]
-            ,[OrAno [[DoorAno]
-                    ,[Corridor]
-                    ,[DoorNumAno 0,AirlockAno]] 
-                    ]
-            ,[FirstWeapon]
+---            ,[SpecificRoom $ pure $ (pure . Right) (twinSlowDoorRoom 80 200 40)]
+---            ,[Corridor]
+---            ,[DoorAno]
+---            ,[SpecificRoom $ pure . Right <$> centerVaultExplosiveExit]
+---            ,[SpecificRoom blockedCorridor]
+---            ,[OrAno [[DoorAno]
+---                    ,[Corridor]
+---                    ,[DoorNumAno 0,AirlockAno]] 
+---                    ]
+---            ,[FirstWeapon]
            ,[CorridorDebug]
            ,[SpecificRoom $ fmap (pure . Right) randomFourCornerRoom]
            ,[Corridor]