Add support for group placements

2021-05-14 19:46:52 +02:00
parent 0b26761be5
commit 2b09bf2072
18 changed files with 307 additions and 266 deletions
@@ -30,6 +30,7 @@ import Dodge.SoundLogic
 import Dodge.RandomHelp
 import Dodge.LightSources
 import Dodge.LevelGen.Data
+import Dodge.LevelGen.SwarmPlacement
 import Dodge.Item.Weapon

 import Data.Tree
@@ -50,7 +51,7 @@ roomTreex = do
            [[StartRoom]
            ,[Corridor]
            ,[SpecificRoom . pure . pure . Right $ roomGlassOctogon 400 
-                                                 & rmPS %~ (PS (0,200) 0 (PutCrit spreadGunCrit) :)
+                & rmPS %~ ([swarmPS 0 (x,y) 0 smallChaseCrit | x <- [-20,-19.5.. 20] , y <- [200,200.5..202] ]++)
             ]
            ,[Corridor]
            ,[Corridor]