Remove external corpses, handle them as creatures

src/Dodge/Data/Creature.hs

@@ -17,6 +17,7 @@ module Dodge.Data.Creature (
     module Dodge.Data.Item.Use.Consumption.LoadAction,
 ) where
 
+import ShapePicture.Data
 import NewInt
 import Dodge.Data.Item.Use.Consumption.LoadAction
 import Dodge.Data.Equipment.Misc
@@ -45,7 +46,7 @@ data Creature = Creature
     , _crMvAim :: Float
     , _crType :: CreatureType
     , _crID :: Int
-    , _crHP :: Int
+    , _crHP :: CrHP
     , _crInv :: NewIntMap InvInt Int
     , _crManipulation :: Manipulation
     , _crEquipment :: M.Map EquipSite (NewInt ItmInt)
@@ -68,8 +69,9 @@ data Creature = Creature
 
 data CrHP
     = HP Int
-    | CrIsCorpse
+    | CrIsCorpse SPic
     | CrIsGibs
+    | CrIsPitted
 
 data Intention = Intention
     { _targetCr :: Maybe Creature