Make creature vocalizations stop on death

src/Dodge/Creature/Perception.hs

@@ -6,9 +6,10 @@ module Dodge.Creature.Perception
     where
 import Dodge.Data
 import Dodge.Creature.Perception.Data
+import Dodge.Creature.Vocalization
 import Dodge.Creature.Memory.Data
 import Dodge.Base.Collide
-import Dodge.SoundLogic
+--import Dodge.SoundLogic
 import Geometry.Vector
 --import Geometry.Data
 import Geometry.Data
@@ -50,11 +51,6 @@ basicAwarenessUpdate cr = case _crAttentionDir $ _crPerception cr of
     Fixated i       -> pure $ cr & crPerception . crAwarenessLevel 
                          %~ ( IM.insert i (Cognizant 10000) . IM.mapMaybe decreaseAwareness)
 
-vocalizationTest :: Creature -> Maybe SoundID
-vocalizationTest cr = case cr ^? crVocalization . vcCoolDown of
-    Just 0 -> Just $ _vcSound $ _crVocalization cr
-    Nothing -> Nothing
-
 cogRaised :: AwarenessLevel -> AwarenessLevel -> AwarenessLevel
 cogRaised Suspicious{} Cognizant{} = Cognizant 100
 cogRaised _ _ = Suspicious 0