Simplify sparks

2025-06-07 10:07:16 +01:00
parent 7bee1549bf
commit b4bdfbf2c3
13 changed files with 101 additions and 102 deletions
@@ -25,13 +25,11 @@ updateExpBarrel cr w
    damages = _csDamage $ _crState cr
    pierceSparks :: [World -> World]
    pierceSparks =
-        zipWith3
+        zipWith
            (\p a -> createBarrelSpark (_crPos cr +.+ p) (a + argV p))
            poss
            as
-            colids
    as = randomRs (-0.7, 0.7) g
-    colids = randomRs (0, 11) g
    poss = _piercedPoints $ _csSpState $ _crState cr
    newCr = Just $ applyFuseDamage $ set (crState . csDamage) [] $ damsToExpBarrel damages cr
    applyFuseDamage cr' =