Continue to tweak death effects

src/Dodge/Damage.hs

@@ -1,8 +1,15 @@
 module Dodge.Damage where
 import Dodge.Data
 import Dodge.Wall.Damage
+import FoldableHelp
+import Geometry.Vector
 import LensHelp
 
 damageCrWall :: Damage -> Either Creature Wall -> World -> World
 damageCrWall dt (Left cr) = creatures . ix (_crID cr) . crState . crDamage .:~ dt
 damageCrWall dt (Right wl) = damageWall dt wl
+
+damageDirection :: [Damage] -> Maybe Float
+damageDirection ds = do
+    dm <- safeMinimumOn (negate . _dmAmount) ds
+    safeArgV (_dmTo dm -.- _dmFrom dm)