Add extra warning cries to chaseCrits

2023-05-01 14:01:27 +01:00
parent b34a9f5b09
commit 60e5e6ecae
14 changed files with 39 additions and 24 deletions
@@ -80,7 +80,7 @@ chaseCritAwarenessUpdate w cr = case _cpAttention $ _crPerception cr of
        oldAwareness = _cpAwareness $ _crPerception cr
        newAwareness = (IM.mapMaybe decreaseAwareness . IM.unionWith combineAwareness is) oldAwareness
        becomesCognizant = any isCognizant $ IM.unionWith cogRaised oldAwareness newAwareness
-        thejitter = RandImpulseCircMove 2
+        thejitter = RandImpulseCircMove 3
        maybeBark
            | becomesCognizant -- && randBool
                && cr ^? crVocalization . vcCoolDown == Just 0 =