Allow for creature death sounds

src/Dodge/Data/Config.hs

@@ -52,7 +52,7 @@ data Config = Config
     , _gr_upscale_filter :: Bool
     , _gr_cloud_shadows :: Bool
     , _gr_distortions :: Bool
-    , _gr_bloom :: Bool
+--    , _gr_bloom :: Bool
     , _gr_shadow_rendering :: ShadowRendering
     , _gr_shadows_on_clouds :: ShadowRendering
     , _gr_shadow_size :: Importance
@@ -156,7 +156,7 @@ defaultConfig =
         , _volume_music = 0
         , _gr_upscale_filter = True
         , _gr_cloud_shadows = True
-        , _gr_bloom = True
+--        , _gr_bloom = True
         , _gr_shadow_rendering = GeoObjShads
         , _gr_shadows_on_clouds = NoObjShads
         , _gr_shadow_size = Typical

src/Dodge/Data/Creature.hs

@@ -65,6 +65,8 @@ data CrHP
     | CrIsGibs
     | CrIsPitted
 
+data DeathType = CookDeath | PoisonDeath | PlainDeath | GibsDeath
+
 data Intention = Intention
     { _targetCr :: Maybe Int
     , _mvToPoint :: Maybe Point2