Refactor damages

2025-06-07 14:26:00 +01:00
parent 7a192e7631
commit 81a7dcd962
24 changed files with 271 additions and 277 deletions
@@ -23,7 +23,8 @@ fallSmallBounceDamage pr w =
    dodamage' cr
        | dist (_crPos cr) p < crRad (cr ^. crType) + 5 =
            cr & crState . csDamage
-                .:~ Damage CRUSHING (floor . (* 10) . max 0 . subtract 5 . abs $ _prVelZ pr) (p -.- v) p (p +.+ v)
+                .:~ Crushing (floor . (* 10) . max 0 . subtract 5 . abs $ _prVelZ pr) v
+                    --(p -.- v) p (p +.+ v)
        | otherwise = cr

 fallSmallBounce :: Prop -> World -> World