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
@@ -29,11 +29,11 @@ centerVaultExplosiveExit
 centerVaultExplosiveExit drID = do
    cr <- takeOne [miniGunCrit, autoCrit]
    let extraPS = 
-            [PS (0,175) 0 $ PutCrit explosiveBarrel
-            ,PS (5,195) 0 $ PutCrit explosiveBarrel
-            ,PS (0,200) 0 $ PutCrit explosiveBarrel
-            ,PS (-4,195) 0 $ PutCrit explosiveBarrel
-            ,PS (0,0) 0 $ PutCrit (cr & crState . crDropsOnDeath .~ DropAll)
+            [sPS (0,175) 0 $ PutCrit explosiveBarrel
+            ,sPS (5,195) 0 $ PutCrit explosiveBarrel
+            ,sPS (0,200) 0 $ PutCrit explosiveBarrel
+            ,sPS (-4,195) 0 $ PutCrit explosiveBarrel
+            ,sPS (0,0) 0 $ PutCrit (cr & crState . crDropsOnDeath .~ DropAll)
            ]
    r <- centerVaultRoom drID 200 200 50 <&> rmPS %~ (extraPS ++)
    randomiseLinksBy shuffleTail r <&> rmLinks %~ take 2