Simplify vocalization

2026-04-01 20:30:31 +01:00
parent b77170c4bc
commit 735cc8d92d
11 changed files with 144 additions and 142 deletions
@@ -19,10 +19,13 @@ chaseCritInternal w cr =
        , targetYouWhenCognizant
        , const searchIfDamaged
        , const (crType . meleeCooldown %~ max 0 . subtract 1)
-        , const (crVocalization . vcCoolDown %~ max 0 . subtract 1)
-        , const (crVocalization . vcTimer +~ 1)
+        , const (crVocalization %~ updateVocTimer)
        ]

+updateVocTimer :: Vocalization -> Vocalization
+updateVocTimer VocTimer {_vcTime=x,_vcMaxTime=y} | x < y = VocTimer (x+1) y
+updateVocTimer _ = VocReady
+
 --    SpreadGunAI ->
 --        defaultImpulsive
 --            [ performActions