Tweak explosions

src/Dodge/EnergyBall.hs

@@ -5,6 +5,8 @@ module Dodge.EnergyBall
     , makeFlamelet
     ) where
 
+import Dodge.Base.Collide
+import Data.Maybe
 import Dodge.DamageCircle
 import Dodge.Data.World
 import Geometry
@@ -47,8 +49,12 @@ updateEnergyBall w eb
     | _ebTimer eb <= 0 = (w, Nothing)
     | 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 .+.+~ _ebVel eb & ebVel .*.*~ 0.9
+        , Just $ eb & ebTimer -~ 1 & ebPos .~ bp & ebVel .~ 0.7 * bv
         )
+  where
+    p = eb ^. ebPos + eb ^. ebVel
+    (bp,bv) = fromMaybe (p,eb^.ebVel) $ bouncePoint (const True) 0 (eb ^. ebPos) p w
 
 incBallAt :: Point2 -> World -> World
 incBallAt p w =