Add movement on chaseCrit vocalization

2026-04-01 16:45:35 +01:00
parent c1bddbae20
commit 97134e2652
5 changed files with 8 additions and 2 deletions
@@ -64,6 +64,7 @@ vocalizationTest cr = case cr ^? crVocalization . vcCoolDown of
 resetCrVocCoolDown :: World -> Creature -> Creature
 resetCrVocCoolDown w cr = case cr ^? crVocalization . vcMaxCoolDown of
    Just (i, j) -> cr & crVocalization . vcCoolDown .~ x
+        & crVocalization . vcTimer .~ 0
      where
        x = fst $ randomR (i, j) (_randGen w)
    Nothing -> cr