Tweaks to make playable

2021-04-26 12:03:22 +02:00
parent 3bc57ff650
commit f8351fb150
4 changed files with 16 additions and 13 deletions
@@ -47,8 +47,8 @@ armouredChasers :: RandomGen g => State g Room
 armouredChasers = do
    ps <- takeN 5 [(x,y) | x <- [-200,-120 .. 200] ,y <- [-200,-120 .. 200] ]
    as <- replicateM 5 . state $ randomR (0,2*pi)
-    let theCrits = zipWith3 (\p a c -> PS p a (PutCrit armourChaseCrit)) ps as cs
+    let theCrits = zipWith3 (\p a c -> PS p a (PutCrit c)) ps as cs
    pure $ roomOctogon 300 & rmPS %~ (++ theCrits)
  where
    cs = (armourChaseCrit & crState . crDropsOnDeath .~ DropSpecific [0]) 
-            : replicate 4 (armourChaseCrit & crState . crDropsOnDeath .~ DropSpecific [1])
+            : replicate 4 chaseCrit