Move sparks into dedicated datatype

2022-07-18 12:15:05 +01:00
parent 13f2255ba7
commit 5495d33389
16 changed files with 99 additions and 104 deletions
@@ -70,11 +70,10 @@ updateExpBarrel cr w
    damages = _csDamage $ _crState cr
    pierceSparks :: [World -> World]
    pierceSparks 
-      = zipWith4 (\p a -> createBarrelSpark (_crPos cr +.+ p) (a + argV p))
-                            poss as times colids
+      = zipWith3 (\p a -> createBarrelSpark (_crPos cr +.+ p) (a + argV p))
+                            poss as colids
    as =  randomRs (-0.7,0.7) g
    colids = randomRs (0,11) g
-    times = randomRs (2,5) g
    poss = _piercedPoints $ _csSpState $ _crState cr
    newCr = Just $ applyFuseDamage $ set (crState . csDamage) [] $ damToExpBarrel damages cr
    applyFuseDamage cr' = cr' & crHP %~