Add basic vocalizations to chase creatures

src/Dodge/Creature/Perception.hs

@@ -8,6 +8,7 @@ import Dodge.Data
 import Dodge.Creature.Perception.Data
 import Dodge.Creature.Memory.Data
 import Dodge.Base.Collide
+import Dodge.SoundLogic
 import Geometry.Vector
 --import Geometry.Data
 import Geometry.Data
@@ -25,7 +26,8 @@ perceptionUpdate
     :: [Int]    -- ^ List of creature ids that may direct attention and awareness
     -> Creature
     -> Reader World Creature
-perceptionUpdate is cr = basicAttentionUpdate is cr >>= basicAwarenessUpdate
+perceptionUpdate is cr = basicAttentionUpdate is cr 
+    >>= basicAwarenessUpdate
     >>= rememberSounds
 
 {- | Update a creatures awareness based upon the creatures' current direction
@@ -33,11 +35,34 @@ perceptionUpdate is cr = basicAttentionUpdate is cr >>= basicAwarenessUpdate
 basicAwarenessUpdate 
     :: Creature -> Reader World Creature
 basicAwarenessUpdate cr = case _crAttentionDir $ _crPerception cr of
-    AttentiveTo is  -> pure $ cr & crPerception . crAwarenessLevel 
-        %~ (IM.mapMaybe decreaseAwareness . IM.unionWith combineAwareness is)
+    AttentiveTo is  -> pure $ cr 
+        & crPerception . crAwarenessLevel 
+            %~ (IM.mapMaybe decreaseAwareness . IM.unionWith combineAwareness is)
+        & maybeBark
+      where
+        oldAwareness = _crAwarenessLevel $ _crPerception cr
+        newAwareness = (IM.mapMaybe decreaseAwareness . IM.unionWith combineAwareness is) oldAwareness
+        becomesCognizant = any isCognizant $ IM.unionWith cogRaised oldAwareness newAwareness
+        maybeBark  | becomesCognizant = case vocalizationTest cr of
+            Just sid -> crActionPlan . crImpulse .~ [Bark sid]
+            Nothing -> id
+                   | otherwise = id
     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
+
+isCognizant :: AwarenessLevel -> Bool
+isCognizant Cognizant {} = True
+isCognizant _ = False
+
 combineAwareness :: AwarenessLevel -> AwarenessLevel -> AwarenessLevel
 combineAwareness (Suspicious x) (Suspicious y) 
     | x + y < 10000 = Suspicious $ x + y