Simplify vocalization

src/Dodge/Data/Creature/Misc.hs

@@ -16,12 +16,8 @@ import Dodge.Data.Material
 import Geometry.Data
 
 data Vocalization
-    = Mute
-    | Vocalization
-        { _vcMaxCoolDown :: (Int, Int)
-        , _vcCoolDown :: Int
-        , _vcTimer :: Int
-        }
+    = VocTimer {_vcTime :: Int ,_vcMaxTime :: Int }
+    | VocReady
     deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
 data CrMvType