Tweaks concerning item types

src/Dodge/Data/Creature/Misc.hs

@@ -60,11 +60,18 @@ data HumanoidAI
     | MultGunAI
     deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
+data Pulse = PulseStatus
+    { _pulseRate :: Int
+    , _pulseProgress :: Int
+    }
+    deriving (Eq, Ord, Show, Read) --Generic, Flat)
+
 data CreatureType
     = Avatar
         { _skinHead :: Color
         , _skinUpper :: Color
         , _skinLower :: Color
+        , _avatarPulse :: Pulse
         }
     | Humanoid
         { _skinHead :: Color
@@ -80,10 +87,12 @@ data CreatureType
 data BarrelType = PlainBarrel | ExplosiveBarrel
     deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
+makeLenses ''Pulse
 makeLenses ''CreatureStatistics
 makeLenses ''Vocalization
 makeLenses ''CrMvType
 makeLenses ''CreatureType
+deriveJSON defaultOptions ''Pulse
 deriveJSON defaultOptions ''CreatureStatistics
 deriveJSON defaultOptions ''Vocalization
 deriveJSON defaultOptions ''CrMvType