Remove some creature vocalization records

src/Dodge/Creature/ReaderUpdate.hs

@@ -13,6 +13,7 @@ module Dodge.Creature.ReaderUpdate (
     setViewPos,
 ) where
 
+import Dodge.Creature.Vocalization
 import Dodge.Creature.Radius
 import RandomHelp
 import Dodge.Creature.Perception
@@ -123,7 +124,7 @@ chaseCritMv w cr = case _apStrategy (_crActionPlan cr) of
             & crActionPlan . apStrategy .~ WarningCry
       where
         thejitter = RandImpulseCircMove 3
-        soundid = evalState (takeOne (_vcWarnings (_crVocalization cr))) (_randGen w)
+        soundid = evalState (takeOne (crWarningSounds cr)) (_randGen w)
         numjits = fst $ randomR (15, 25) (_randGen w)
     _ -> case cr ^? crIntention . mvToPoint . _Just of
         Just p