Implement introspection items

2025-01-01 15:20:46 +00:00
parent dae0e0591c
commit 08685909be
11 changed files with 181 additions and 154 deletions
@@ -22,8 +22,14 @@ data ItemType
    | BULLETMOD {_ibtBulletMod :: BulletMod}
    | STICKYMOD
    | ITEMSCANNER
+    | INTROSCAN {_ibtIntroScanType :: IntroScanType}
    deriving (Eq, Ord, Show, Read)

+data IntroScanType
+    = HEALTH
+    | MAXHEALTH
+    deriving (Eq, Ord, Show, Read, Enum, Bounded)
+
 data CraftType
    = PIPE
    | TUBE
@@ -168,6 +174,7 @@ data Detector
 makeLenses ''ItemType
 makeLenses ''HeldItemType
 makeLenses ''AttachType
+deriveJSON defaultOptions ''IntroScanType
 deriveJSON defaultOptions ''CraftType
 deriveJSON defaultOptions ''ConsumableItemType
 deriveJSON defaultOptions ''AmmoMagType