Remove some creature vocalization records

2025-06-06 15:01:20 +01:00
parent 467f241d7a
commit e9b69be7de
7 changed files with 115 additions and 94 deletions
@@ -85,7 +85,7 @@ chaseCritAwarenessUpdate w cr = case _cpAttention $ _crPerception cr of
        maybeBark
            | becomesCognizant -- && randBool
                && cr ^? crVocalization . vcCoolDown == Just 0 =
-                let soundid = evalState (takeOne (_vcWarnings (_crVocalization cr))) (_randGen w)
+                let soundid = evalState (takeOne (crWarningSounds cr)) (_randGen w)
                    numjits = fst $ randomR (15, 25) (_randGen w)
                 in crActionPlan . apStrategy
                        .~ StrategyActions