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
@@ -18,7 +18,7 @@ fallSmallBounceDamage pr w =
    p = _prPos pr
    v = _prVel pr
    dodamage
-        | _prPosZ pr < 25 = damageInCircle (const [thedam]) p 5
+        | _prPosZ pr < 25 = damageInCircle (const thedam) p 5
                -- cWorld . lWorld . creatures . each %~ dodamage'
        | otherwise = id
    thedam = Crushing (floor . (* 10) . max 0 . subtract 5 . abs $ _prVelZ pr) v