Simplify shockwave damages

2025-06-23 18:15:28 +01:00
parent 4e008366f4
commit 54eab6dd9e
12 changed files with 468 additions and 457 deletions
@@ -1,4 +1,4 @@
-module Dodge.Item.Weapon.Shatter where
+module Dodge.Item.Weapon.Shatter (shootShatter) where

 import Dodge.Base.Collide
 import Dodge.Block.Debris
@@ -31,7 +31,7 @@ shatterWall w sp ep p wl =
            1
            2
            (pi / 2)
-            (argV $ vNormal $ uncurry (-.-) $ _wlLine wl)
+            (argV $ vNormal $ uncurry (-) $ _wlLine wl)
            (_wlMaterial wl)
            (_wlColor wl)
            p