Partially implement separate blocks

2021-10-26 22:53:49 +01:00
parent d136fd910c
commit 12d43f9cf0
15 changed files with 145 additions and 115 deletions
@@ -35,6 +35,7 @@ initialRoomTree = do
        t = treeFromTrunk 
            [[StartRoom]
            ,[Corridor]
+            ,[SpecificRoom roomCCrits]
            ,[Corridor]
            ,[AirlockAno]
            ,[Corridor]
@@ -78,7 +79,7 @@ initialRoomTree = do
                ]
             ]
            ,[Corridor]
-            ,[SpecificRoom $ fmap (pure . Right) armouredCorridor]
+--            ,[SpecificRoom $ fmap (pure . Right) armouredCorridor]
            ,[Corridor]
            ,[TreasureAno [addArmour autoCrit,addArmour autoCrit] [launcher]]
            ]