Commit before changing thingsHit to use stream

2022-06-26 11:37:43 +01:00
parent 6c571d1878
commit f47059ae9b
5 changed files with 15 additions and 35 deletions
@@ -110,8 +110,8 @@ moveInverseShockwave w pt
    r = _ptRad pt
    t = _ptTimer pt
    rad = r - 0.1 * r * fromIntegral (10 - t)
-    dams = over creatures (IM.map damCr) . flip (foldr (damageBlocksBy 1)) hitBlocks
-    hitBlocks = wallsOnCirc' p rad $ wallsNearPoint' p w 
+    dams = over creatures (IM.map damCr) -- . flip (foldr (damageBlocksBy 1)) hitBlocks
+--    hitBlocks = wallsOnCirc' p rad $ wallsNearPoint' p w 
    damCr cr 
        | dist (_crPos cr) p >= rad + _crRad cr = cr
        | otherwise = cr & crState . csDamage .:~