Refactor bullet particles

src/Dodge/Floor.hs

@@ -8,7 +8,7 @@ module Dodge.Floor
 import Dodge.Data
 --import Dodge.Room
 import Dodge.Creature.State.Data
---import Dodge.Creature.SwarmCrit
+import Dodge.Creature.SwarmCrit
 import Dodge.Room.Procedural
 import Dodge.Room.RoadBlock
 import Dodge.Room.Data
@@ -31,7 +31,7 @@ import Dodge.Creature
 --import Dodge.RandomHelp
 --import Dodge.LightSources
 import Dodge.LevelGen.Data
---import Dodge.LevelGen.SwarmPlacement
+import Dodge.LevelGen.SwarmPlacement
 import Dodge.Item.Weapon
 
 --import Data.Tree
@@ -50,13 +50,17 @@ roomTreex = do
         t = treeFromTrunk 
             [[StartRoom]
             ,[Corridor]
+            ,[SpecificRoom . pure . pure . Right $ roomGlassOctogon 400 
+                & rmPS %~ ([swarmPS 0 (x,y) 0 swarmCrit | x <- [-20,-19.5.. 20] , y <- [200] ]++)
+             ]
+            ,[Corridor]
+            ,[SpecificRoom . pure . pure . Right $ roomGlassOctogon 400 
+                & rmPS %~ ([sPS (0,50) 0 $ PutCrit autoCrit ]++)
+             ]
+            ,[Corridor]
             ,[SpecificRoom . pure . pure . Right $ roomGlassOctogon 400 
                 & rmPS %~ ([sPS (0,50) 0 $ PutCrit pistolCrit ]++)
              ]
---            ,[Corridor]
---            ,[SpecificRoom . pure . pure . Right $ roomGlassOctogon 400 
---                & rmPS %~ ([swarmPS 0 (x,y) 0 swarmCrit | x <- [-20,-19.5.. 20] , y <- [200] ]++)
---             ]
             ,[Corridor]
             ,[Corridor]
             ,[SpecificRoom $ pure . Right <$> twinSlowDoorChasers 30]