Remove some creature vocalization records

2025-06-06 15:01:20 +01:00
parent 467f241d7a
commit e9b69be7de
7 changed files with 115 additions and 94 deletions
@@ -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)