Tweak gibs

src/Dodge/Creature.hs

@@ -59,13 +59,15 @@ spawnerCrit :: Creature
 spawnerCrit = defaultCreature
     { --_crUpdate = stateUpdate $ spawnerAI chaseCrit
      _crHP = 300
-    , _crPict = basicCrPict blue
+    , _crPict = basicCrPict
+    , _crSkinColor =  blue
     , _crInv = IM.empty -- IM.fromList [(0,frontArmour)]
     }
 
 miniGunCrit :: Creature
 miniGunCrit = defaultCreature
-    { _crPict = basicCrPict red
+    { _crPict = basicCrPict
+    , _crSkinColor =  red
     , _crUpdate = defaultImpulsive [sentinelFireType (const shootTillEmpty)]
     , _crActionPlan = ActionPlan
         { _crImpulse    = []
@@ -84,7 +86,8 @@ miniGunCrit = defaultCreature
     }
 longCrit :: Creature
 longCrit = defaultCreature
-    { _crPict = basicCrPict red
+    { _crPict = basicCrPict
+    , _crSkinColor =  red
 --    , _crUpdate = stateUpdate sniperAI
     , _crUpdate = defaultImpulsive [sentinelFireType $ const shootTillEmpty]
     , _crActionPlan = ActionPlan
@@ -100,7 +103,8 @@ longCrit = defaultCreature
     }
 multGunCrit :: Creature
 multGunCrit = defaultCreature
-    { _crPict = basicCrPict red
+    { _crPict = basicCrPict
+    , _crSkinColor =  red
 --    , _crUpdate = stateUpdate (twitchMissAI 300 350)
     , _crInv = IM.fromList [(0,bangCaneX 4),(1,medkit 100)]
     , _crInvSel = 0
@@ -147,7 +151,8 @@ startCr = defaultCreature
     , _crDir = pi/2
     , _crMvDir  = pi/2
     , _crID = 0
-    , _crPict = basicCrPict black
+    , _crPict = basicCrPict
+    , _crSkinColor = black
     , _crUpdate = stateUpdate yourControl
     , _crRad = 10
     , _crMass = 10
@@ -197,7 +202,9 @@ inventoryX c = case c of
         [ blinkGun
         , unsafeBlinkGun
         , autoDetector WALLDETECTOR
-        , effectGun "GIBBER" (addGibsAt . _crPos)
+        , effectGun "GIBBER" 
+            (\cr -> addGibsAt (_crSkinColor cr) (_crPos cr)
+            . addGibsAt (_crSkinColor cr) (_crPos cr))
         ]
     _ -> []