Remove creature records

src/Dodge/Data/Creature.hs

@@ -40,21 +40,17 @@ data Creature = Creature
     , _crMvAim :: Float
     , _crType :: CreatureType
     , _crID :: Int
-    , _crRad :: Float
---    , _crMass :: Float
     , _crHP :: Int
-    , _crMaxHP :: Int
     , _crInv :: IM.IntMap Item
     , _crManipulation :: Manipulation
     , _crInvCapacity :: Int
     , _crInvLock :: Bool
     , _crEquipment :: M.Map EquipSite Int
     , _crState :: CreatureState
-    , _crMaterial :: Material
     , _crPastDamage :: Int
     , _crStance :: Stance
     , _crActionPlan :: ActionPlan
-    , _crMeleeCooldown :: Int
+--    , _crMeleeCooldown :: Int
     , _crPerception :: Perception
     , _crMemory :: Memory
     , _crVocalization :: Vocalization

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)