Add basic vocalizations to chase creatures

src/Dodge/Data.hs

@@ -218,11 +218,19 @@ data Creature = Creature
     , _crMeleeCooldown  :: !Int
     , _crPerception     :: PerceptionState
     , _crMemory         :: MemoryState
+    , _crVocalization   :: Vocalization
     , _crFaction        :: Faction
     , _crGroup          :: CrGroup
     , _crIntention      :: Intention
     , _crMvType         :: CrMvType
     }
+data Vocalization 
+    = Mute
+    | Vocalization
+        {_vcSound :: SoundID
+        ,_vcMaxCoolDown :: Int
+        ,_vcCoolDown    :: Int
+        }
 data Intention = Intention
     { _targetCr     :: Maybe Creature
     , _mvToPoint    :: Maybe Point2
@@ -649,7 +657,7 @@ data Impulse
     | DropItem
 --    | PickupNearby Int
 --    | UseWorldObject Int
---    | Bark -- placeholder for various communication types
+    | Bark SoundID -- placeholder for various communication types
 --    | UseIntrinsicAbility
     | Melee Int
     | ChangePosture Posture
@@ -820,3 +828,4 @@ makeLenses ''Machine
 makeLenses ''MachineType
 makeLenses ''Zone
 makeLenses ''ItemDimension
+makeLenses ''Vocalization