Add basic corpse shapes

2022-06-04 13:23:31 +01:00
parent 5f5b1dd422
commit 63af928a1a
4 changed files with 44 additions and 19 deletions
@@ -69,10 +69,10 @@ checkDeath cr w
    | _crHP cr > 0 = w
    | otherwise = w 
 --        & creatures . at (_crID cr) .~ Nothing
+        & dropByState cr
        & removecr
        & stopSoundFrom (CrWeaponSound (_crID cr) 0) 
        & plNew corpses cpID thecorpse
-        & dropByState cr
  where
    removecr
        | _crID cr == 0 = (creatures . ix (_crID cr) . crUpdate .~ const id)