Remove creature records

src/Dodge/Data/Creature/Misc.hs

@@ -8,6 +8,7 @@ module Dodge.Data.Creature.Misc (
     module Dodge.Data.CamouflageStatus,
 ) where
 
+import Dodge.Data.Material
 import Color
 import Control.Lens
 import Data.Aeson
@@ -67,9 +68,9 @@ data Pulse = PulseStatus
     deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
 data CreatureType
-    = Avatar { _avatarPulse :: Pulse }
+    = Avatar { _avatarPulse :: Pulse , _avatarMaterial :: Material}
     | AvatarDead
-    | ChaseCrit
+    | ChaseCrit {_meleeCooldown :: Int}
     | SwarmCrit
     | AutoCrit
     | BarrelCrit{_barrelType :: BarrelType}

src/Dodge/Data/Creature/State.hs

@@ -16,7 +16,7 @@ import Geometry.Data
 data CreatureState = CrSt
     { _csDamage :: [Damage]
     , _csSpState :: CrSpState
-    , _csDropsOnDeath :: CreatureDropType
+--    , _csDropsOnDeath :: CreatureDropType
     }
     deriving (Eq, Ord, Show, Read) --Generic, Flat)