Improve static bullets

src/Dodge/Update.hs

@@ -5,7 +5,9 @@ Description : Simulation update
 -}
 module Dodge.Update ( updateUniverse ) where
 import Dodge.Data
+import Dodge.PosEvent
 import Dodge.Spark
+import Dodge.EnergyBall
 import Dodge.Flame
 import Dodge.Bullet
 import Dodge.Update.Cloud
@@ -84,7 +86,9 @@ functionalUpdate cfig w = checkEndGame
     . dbArg _worldEvents
     . updateIMl _modifications _mdUpdate
     . updateSparks 
+    . updatePosEvents 
     . updateFlames
+    . updateEnergyBalls
     . updateParticles 
     . updateBullets 
     . updateRadarBlips 
@@ -229,10 +233,20 @@ updateFlames w = w' & flames .~ catMaybes newflames
   where
     (w',newflames) = mapAccumR moveFlame w $ _flames w
 
+updateEnergyBalls :: World -> World
+updateEnergyBalls w = w' & energyBalls .~ catMaybes newebs
+  where
+    (w',newebs) = mapAccumR moveEnergyBall w $ _energyBalls w
+
 updateSparks :: World -> World
 updateSparks w = w' & sparks .~ catMaybes newsparks
   where
     (w',newsparks) = mapAccumR moveSpark w $ _sparks w
+updatePosEvents :: World -> World
+updatePosEvents w = w' & posEvents .~ catMaybes newposEvents
+  where
+    (w',newposEvents) = mapAccumR updatePosEvent w $ _posEvents w
+
 
 {- Apply internal particle updates, delete 'Nothing's.  -}
 updateParticles :: World -> World