Refactor bullet particles

src/Dodge/WorldEvent/SpawnParticle.hs

@@ -12,7 +12,8 @@ import Dodge.WorldEvent.HitEffect
 import Dodge.WorldEvent.ThingsHit
 import Dodge.WorldEvent.Cloud
 import Dodge.WorldEvent.Flash
-import Dodge.WorldEvent.Bullet
+import Dodge.Particle.Bullet.Draw
+import Dodge.Particle.Bullet.Update
 import Dodge.SoundLogic
 import Dodge.RandomHelp
 import Dodge.Debug
@@ -418,8 +419,25 @@ createSpark time colid pos dir maycid w
       where 
         sp = head (_btTrail' bt)
         ep = sp +.+ _btVel' bt
+createSparkCol :: Int -> Color -> Point2 -> Float -> Maybe Int -> World -> World
+createSparkCol time col pos dir maycid w 
+    = w & worldEvents %~ ( (over particles (spark :) . sparkFlashAt pos') . )
+  where 
+    spark = Bul'
+        { _ptDraw = drawBul
+        , _ptUpdate' = mvGenBullet'
+        , _btVel' = rotateV dir (5,0)
+        , _btColor' = col
+        , _btTrail' = [pos]
+        , _btPassThrough' = maycid
+        , _btWidth' = 1
+        , _btTimer' = time
+        , _btHitEffect' = destroyOnImpact sparkEff noEff noEff
+        }
+    pos' = pos +.+ rotateV dir (5,0)
+    sparkEff bt p cr
+        = creatures . ix (_crID cr) . crState . crDamage %~ ( SparkDam 1 sp p ep : )
+      where 
+        sp = head (_btTrail' bt)
+        ep = sp +.+ _btVel' bt
 
-drawBul :: Particle -> Picture
-drawBul pt = setLayer 1 . color thecolor $ thickLine (take 2 $ _btTrail' pt) (_btWidth' pt)
-  where
-    thecolor = _btColor' pt