Move toward not removing creatures on death

src/Dodge/Data/Creature.hs

@@ -66,6 +66,11 @@ data Creature = Creature
 
 --deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
+data CrHP
+    = HP Int
+    | CrIsCorpse
+    | CrIsGibs
+
 data Intention = Intention
     { _targetCr :: Maybe Creature
     , _mvToPoint :: Maybe Point2
@@ -76,10 +81,12 @@ data Intention = Intention
 
 makeLenses ''Creature
 makeLenses ''Intention
+makePrisms ''CrHP
 
 concat
     <$> mapM
         (deriveJSON defaultOptions)
         [ ''Creature
         , ''Intention
+        , ''CrHP
         ]

src/Dodge/Data/Machine/Sensor.hs

@@ -36,6 +36,7 @@ data ProximitySensorType
 data ProximityRequirement
     = RequireHealth {_proxReqMinHealth :: Int}
     | RequireEquipment {_proxReqEquipment :: ItemType}
+    | RequireDeadCreatures {_proxReqDead :: [Int]}
     deriving (Show)
 
 makeLenses ''DamageSensor