Tweak explosions

src/Dodge/EnergyBall.hs

@@ -17,8 +17,6 @@ import RandomHelp
 makeFlamelet ::
     -- | Position
     Point2 ->
-    -- | z position
-    Float ->
     -- | Velocity
     Point2 ->
     -- | Size
@@ -27,7 +25,7 @@ makeFlamelet ::
     Int ->
     World ->
     World
-makeFlamelet (V2 x y) z vel size time w =
+makeFlamelet (V2 x y) vel size time w =
     w
         & randGen .~ g
         & cWorld . lWorld . energyBalls
@@ -50,7 +48,7 @@ updateEnergyBall w eb
     | otherwise =
         ( ebFlicker eb $ uncurry (damageCircle 5 (_ebPos eb)) (_ebEff eb) w
 --        , Just $ eb & ebTimer -~ 1 & ebPos .+.+~ _ebVel eb & ebVel .*.*~ 0.9
-        , Just $ eb & ebTimer -~ 1 & ebPos .~ bp & ebVel .~ 0.7 * bv
+        , Just $ eb & ebTimer -~ 1 & ebPos .~ bp & ebVel .~ 0.8 * bv
         )
   where
     p = eb ^. ebPos + eb ^. ebVel