Simplify vocalization

2026-04-01 20:30:31 +01:00
parent b77170c4bc
commit 735cc8d92d
11 changed files with 144 additions and 142 deletions
@@ -124,7 +124,7 @@ chaseCritMv w cr = case _apStrategy (_crActionPlan cr) of
    WarningCry -> cr
    MeleeStrike -> cr
    CloseToMelee cid
-        | Just 0 == (cr ^? crVocalization . vcCoolDown) ->
+        | VocReady == (cr ^. crVocalization) ->
            cr
                & crActionPlan . apAction
                    .:~ ImpulsesList
@@ -132,7 +132,7 @@ chaseCritMv w cr = case _apStrategy (_crActionPlan cr) of
                          replicate numjits [RandomImpulse thejitter]
                            ++ [[ChangeStrategy (CloseToMelee cid)]]
                        )
-                & crVocalization . vcCoolDown .~ 10
+                & resetCrVocCoolDown w
                & crActionPlan . apStrategy .~ WarningCry
      where
        thejitter = RandImpulseCircMove 3