Refactor

2021-05-04 18:11:59 +02:00
parent 6d4c17fc07
commit f0e5095b5f
28 changed files with 477 additions and 584 deletions
@@ -48,6 +48,10 @@ roomTreex = do
        t = treeFromTrunk 
            [[StartRoom]
            ,[Corridor]
+            ,[Corridor]
+            ,[SpecificRoom . pure . pure . Right $ roomGlassOctogon 200]
+            ,[Corridor]
+            ,[Corridor]
            ,[SpecificRoom . fmap (pure . Right) $ twinSlowDoorChasers 30]
            ,[Corridor]
            ,[DoorAno]