Cleanup, redo damage direction

2025-06-08 20:40:58 +01:00
parent 5b1e4fba4e
commit 70c78824f3
12 changed files with 105 additions and 147 deletions
@@ -27,7 +27,7 @@ updateExpBarrel cr w
    pierceSparks :: [World -> World]
    pierceSparks =
        zipWith
-            (\p a -> createBarrelSpark (_crPos cr +.+ p) (a + argV p))
+            (\p a -> sparkRandDir 0.1 (_crPos cr +.+ p) (a + argV p))
            poss
            as
    as = randomRs (-0.7, 0.7) g