Fix bullet particle spawn

src/Dodge/WorldEvent/SpawnParticle.hs

@@ -115,14 +115,14 @@ moveFlame rotd w pt
         +.+ (0.2 *.* vel)
 
 incBall :: RandomGen g => Point2 -> State g Particle
-incBall vel = do
+incBall p = do
     rot <- state $ randomR (0,3)
     return PtZ 
         { _ptDraw       = drawFlameletZ rot
         , _ptUpdate     = moveFlamelet
-        , _ptVel        = vel
+        , _ptVel        = 0
         , _ptColor      = red
-        , _ptPos        = V2 0 0
+        , _ptPos        = p
         , _ptCrIgnore   = Nothing
         , _ptWidth      = 3
         , _ptTimer      = 20
@@ -131,11 +131,11 @@ incBall vel = do
         }
 
 concBall :: Point2 -> State g Particle
-concBall _ = return Shockwave
+concBall p = return Shockwave
     { _ptDraw      = drawShockwave
     , _ptUpdate    = mvShockwave []
     , _ptColor     = white
-    , _ptPos       = 0
+    , _ptPos       = p
     , _ptRad       = 15
     , _ptDam       = 4
     , _ptPush      = 1
@@ -145,12 +145,12 @@ concBall _ = return Shockwave
 
 
 aStaticBall :: Point2 -> State g Particle
-aStaticBall vel = return PtZ 
+aStaticBall p = return PtZ 
     { _ptDraw       = drawStaticBall
     , _ptUpdate     = moveStaticBall
-    , _ptVel        = vel
+    , _ptVel        = 0
     , _ptColor      = blue
-    , _ptPos        = 0
+    , _ptPos        = p
     , _ptCrIgnore   = Nothing
     , _ptWidth      = 3
     , _ptTimer      = 20