Add skin colors

2022-06-04 12:25:16 +01:00
parent 2b9ad58f6f
commit 602a004e87
14 changed files with 68 additions and 37 deletions
@@ -77,8 +77,7 @@ checkDeath cr w
    removecr
        | _crID cr == 0 = (creatures . ix (_crID cr) . crUpdate .~ const id)
            . (creatures . ix (_crID cr) . crPict .~ const mempty)
-            . addGibsAt (_crSkinColor cr) (_crPos cr)
-            . addGibsAt (_crSkinColor cr) (_crPos cr)
+            . addCrGibs cr
        | otherwise  = creatures . at (_crID cr) .~ Nothing
    addCorpse = IM.insertNewKey 
        $ uncurryV translate (_crOldPos cr)