Tweak gibs

2022-06-04 11:19:14 +01:00
parent 4f4c039fec
commit 2b9ad58f6f
16 changed files with 79 additions and 33 deletions
@@ -76,7 +76,9 @@ checkDeath cr w
  where
    removecr
        | _crID cr == 0 = (creatures . ix (_crID cr) . crUpdate .~ const id)
-            . addGibsAt (_crPos cr)
+            . (creatures . ix (_crID cr) . crPict .~ const mempty)
+            . addGibsAt (_crSkinColor cr) (_crPos cr)
+            . addGibsAt (_crSkinColor cr) (_crPos cr)
        | otherwise  = creatures . at (_crID cr) .~ Nothing
    addCorpse = IM.insertNewKey 
        $ uncurryV translate (_crOldPos cr)