Improve static bullets

src/Dodge/PosEvent.hs

@@ -0,0 +1,25 @@
+module Dodge.PosEvent where
+import Dodge.Data
+import Dodge.Spark
+import Geometry.Data
+import Color
+import LensHelp
+
+import Control.Monad.State
+import RandomHelp
+
+updatePosEvent :: World -> PosEvent -> (World, Maybe PosEvent)
+updatePosEvent w pv
+    | _pvTimer pv < 1 = (w,Nothing)
+    | otherwise       = (posEventEffect pv w,Just $ pv & pvTimer -~ 1)
+
+posEventEffect :: PosEvent -> World -> World
+posEventEffect pv = case _pvType pv of
+    SparkSpawner -> spawnElectricalSparks (_pvPos pv)
+
+spawnElectricalSparks :: Point2 -> World -> World
+spawnElectricalSparks p = randSpark ELECTRICAL rspeed rcol rdir p
+  where
+    rspeed = state (randomR (3,6))
+    rcol = brightX 100 1.5 <$> takeOne [white,azure,blue,cyan]
+    rdir = state $ randomR (0,2*pi)