Refactoring, add screen when generating level

src/Dodge/Floor.hs

@@ -15,6 +15,8 @@ import Dodge.Room.Door
 import Dodge.Room.Branch
 import Dodge.Room.Boss
 import Dodge.Room.Airlock
+import Dodge.Room.LongDoor
+import Dodge.Room.NoNeedWeapon
 import Dodge.Base
 import Dodge.Layout
 import Dodge.Layout.Tree.Polymorphic
@@ -46,12 +48,11 @@ roomTreex = do
         t = treeFromTrunk 
             [[StartRoom]
             ,[Corridor]
-            ,[BossAno $ addArmour launcherCrit & crHP +~ 800
-                & crState . crDropsOnDeath .~ DropSpecific [0] ]
+            ,[SpecificRoom . fmap (pure . Right) $ twinSlowDoorChasers 30]
             ,[Corridor]
             ,[DoorAno]
             ,[SpecificRoom $ fmap (pure . Right) 
-                $ randomiseLinksBy shuffleTail =<< centerVaultRoom 1 200 200 50]
+                $ centerVaultExplosiveExit 50]
             ,[SpecificRoom blockedCorridor]
             ,[OrAno [[DoorAno]
                     ,[Corridor]
@@ -62,7 +63,7 @@ roomTreex = do
             ,[SpecificRoom $ fmap (pure . Right) randomFourCornerRoom]
             ,[Corridor]
             ,[OrAno 
-                [[SpecificRoom $ branchRectWith $ fmap (pure . Left) armouredChasers]
+                [[SpecificRoom $ branchRectWith $ fmap (fmap Left) armouredChasers]
                 ,[BossAno $ addArmour launcherCrit & crHP +~ 800
                     & crState . crDropsOnDeath .~ DropSpecific [0] ]
                 ]