Remove ptCrIgnore

src/Dodge/Creature/Damage.hs

@@ -38,7 +38,7 @@ applyDamageEffect dm de cr w = case de of
         & creatures . ix (_crID cr) . crDir +~ rot
     BounceBullet bt | crIsArmouredFrom p cr -> w & instantParticles .:~ bouncer
       where
-        bouncer = (aBulAt Nothing id (Just (_ptColor bt)) Nothing pOut reflectVel (_btDrag bt)
+        bouncer = (aBulAt Nothing id (Just (_ptColor bt)) pOut reflectVel (_btDrag bt)
                                           (_ptHitEff bt) (_ptWidth bt)
                   ) {_ptTimer = _ptTimer bt - 1}
         pOut = p +.+ 2 *.* newDir

src/Dodge/Creature/Inanimate.hs

@@ -71,7 +71,7 @@ updateExpBarrel cr w
     damages = _csDamage $ _crState cr
     pierceSparks :: [World -> World]
     pierceSparks 
-      = zipWith4 (\p a -> createBarrelSpark (_crPos cr +.+ p) (a + argV p) (Just $ _crID cr))
+      = zipWith4 (\p a -> createBarrelSpark (_crPos cr +.+ p) (a + argV p))
                             poss as times colids
     as =  randomRs (-0.7,0.7) g
     colids = randomRs (0,11) g

src/Dodge/Creature/State.hs

@@ -179,7 +179,6 @@ movementSideEff cr w
                 (oldPos +.+ (_crRad cr + 3) *.* unitVectorAtAngle (_crDir cr + pi))
                 20
                 (momentum +.+ 1 *.* rotateV randDir (vInverse v)) 
-                Nothing
                 1
                 20
         _   -> w