Add basic vocalizations to chase creatures

src/Dodge/Creature/ChaseCrit.hs

@@ -13,6 +13,7 @@ import Dodge.Creature.State
 import Dodge.Creature.State.Data
 import Dodge.Item.Consumable
 import Dodge.Picture.Layer
+import Dodge.SoundLogic
 --import Geometry
 import Picture
 --import Dodge.RandomHelp
@@ -40,7 +41,6 @@ chaseCrit = defaultCreature
         overrideMeleeCloseTargetR >=>
         setViewPos >=>
         setMvPos >=>
---        setTargetMv (pure . _crTarget) >=>
         goToTarget >=>
         perceptionUpdate [0] >=>
         targetYouWhenCognizantR >=>
@@ -50,6 +50,7 @@ chaseCrit = defaultCreature
     , _crInv = IM.fromList [(0,medkit 200)]
     , _crMeleeCooldown = 0
     , _crFaction = ColorFaction green
+    , _crVocalization = Vocalization seagullBarkS 50 0
     , _crMvType = ChaseMvType
         { _mvSpeed = 3
         , _mvTurnRad = f