Remove some creature vocalization records

src/Dodge/Data/Creature.hs

@@ -43,13 +43,11 @@ data Creature = Creature
     , _crHP :: Int
     , _crInv :: IM.IntMap Item
     , _crManipulation :: Manipulation
---    , _crInvLock :: Bool
     , _crEquipment :: M.Map EquipSite Int
     , _crState :: CreatureState
     , _crPastDamage :: Int
     , _crStance :: Stance
     , _crActionPlan :: ActionPlan
---    , _crMeleeCooldown :: Int
     , _crPerception :: Perception
     , _crMemory :: Memory
     , _crVocalization :: Vocalization

src/Dodge/Data/Creature/Misc.hs

@@ -16,7 +16,6 @@ import Data.Aeson.TH
 import Dodge.Data.CamouflageStatus
 import Dodge.Data.FloatFunction
 import Geometry.Data
-import Sound.Data
 
 data CreatureStatistics = CreatureStatistics
     { _strength :: Int
@@ -28,9 +27,9 @@ data CreatureStatistics = CreatureStatistics
 data Vocalization
     = Mute
     | Vocalization
-        { _vcSound :: SoundID
-        , _vcWarnings :: [SoundID]
-        , _vcMaxCoolDown :: (Int, Int)
+--        { _vcSound :: SoundID
+--        , _vcWarnings :: [SoundID]
+        { _vcMaxCoolDown :: (Int, Int)
         , _vcCoolDown :: Int
         }
     deriving (Eq, Ord, Show, Read) --Generic, Flat)