Cleanup damages further

src/Dodge/Creature/Damage.hs

@@ -7,6 +7,8 @@ import Color
 import Geometry
 import LensHelp
 
+import Control.Monad.State
+import System.Random
 import Data.List
 
 defaultApplyDamage :: [Damage] -> Creature -> (World -> World, Creature)
@@ -39,8 +41,9 @@ applyDamageEffect dm de (f,cr) = case de of
         reflectVel = magV bulVel *.* newDir
         newDir = squashNormalizeV (p -.- _crPos cr)
         bulVel = _ptVel bt
-    SparkBullet _ -> (f, cr) -- TODO
-    _ -> (f,cr)
+    DamageSpawn f -> (instantParticles .:~ thepart, cr)
+      where
+        thepart = evalState (f (Left cr) dm) $ mkStdGen 0
   where
     fromDir = _dmFrom dm
     p = _dmAt dm