Tweaks concerning item types

src/Dodge/Data/ComposedItem.hs

@@ -26,8 +26,9 @@ data ComposeLinkType
     deriving (Eq, Ord, Show, Read)
 
 data ItemStructuralFunction
-    = WeaponPlatformSF
+    = HeldPlatformSF
     | EquipmentPlatformSF
+    | GadgetPlatformSF
     | WeaponScopeSF
     | WeaponTargetingSF
     | AugmentedHUDSF

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

src/Dodge/Data/Item/Combine.hs

@@ -114,7 +114,7 @@ data EquipItemType
     | BULLETBELTBRACER
     | BATTERYPACK
     | AUTODETECTOR Detector
-    | PULSECHECKER
+    | WRIST_ECG
     deriving (Eq, Ord, Show, Read)
 
 data LeftItemType
@@ -160,10 +160,10 @@ data HeldItemType
     | POISONSPRAYER
     | DRONELAUNCHER
     | SHATTERGUN
-    | HELDDETECTOR Detector
     | TORCH
     | FLATSHIELD
     | KEYCARD Int
+    | DETECTOR Detector
     deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
 data Detector