Improve static bullets

src/Dodge/Data.hs

@@ -10,6 +10,8 @@ circular imports are probably not a good idea.
 {-# LANGUAGE DerivingStrategies #-}
 module Dodge.Data 
     ( module Dodge.Data
+    , module Dodge.Data.PosEvent
+    , module Dodge.Data.EnergyBall
     , module Dodge.Data.Flame
     , module Dodge.Data.Magnet
     , module Dodge.Data.Spark
@@ -50,6 +52,8 @@ module Dodge.Data
     , module Dodge.Data.RadarBlip
     , module Dodge.Data.PathGraph
     ) where
+import Dodge.Data.PosEvent
+import Dodge.Data.EnergyBall
 import Dodge.Data.Flame
 import Dodge.Data.Magnet
 import Dodge.Data.Spark
@@ -153,6 +157,8 @@ data World = World
     , _bullets              :: [Bullet]
     , _instantParticles     :: [Particle]
     , _particles            :: [Particle]
+    , _energyBalls          :: [EnergyBall]
+    , _posEvents            :: [PosEvent]
     , _flames               :: [Flame]
     , _sparks               :: [Spark]
     , _radarBlips           :: [RadarBlip]
@@ -556,17 +562,6 @@ data Particle
         , _ptPoints :: [Point2]
         , _ptColor  :: Color
         }
-    | PtIncBall  
-        { _ptUpdate :: World -> Particle -> (World, Maybe Particle)
-        , _ptVel    :: Point2
-        , _ptColor  :: Color
-        , _ptPos :: Point2
-        , _ptWidth :: Float 
-        , _ptTimer :: Int
-        , _ptHitEff :: HitEffect
-        , _ptZ :: Float
-        , _ptRot :: Float
-        }
     | PtStaticBall  
         { _ptUpdate :: World -> Particle -> (World, Maybe Particle)
         , _ptVel    :: Point2