Fix crsHitRadial, unify some radial damages

2025-06-20 22:17:10 +01:00
parent 67d77fcb2b
commit 3019d95520
5 changed files with 20 additions and 33 deletions
@@ -100,7 +100,7 @@ ebColor eb = case eb ^. ebEff of
    FlashBall -> white

 ebDamage :: Point2 -> EnergyBallType -> World -> World
-ebDamage sp dt w = damageInCircle (return . (const $ ebtToDamage sp dt)) sp r w
+ebDamage sp dt = damageInCircle (const $ ebtToDamage sp dt) sp r
  where
    r = fromMaybe 5 $ dt ^? fbSize