Cleanup

2025-01-07 00:39:59 +00:00
parent beaf65f3f7
commit 1e7611ab81
13 changed files with 76 additions and 60 deletions
@@ -49,8 +49,14 @@ data Item = Item
    , _itTargeting :: ItemTargeting
    , _itAmmoSlots :: IM.IntMap AmmoType
    , _itParams :: ItemParams
+    , _itScroll :: ItemScroll
    }

+data ItemScroll
+    = NoItemScroll
+    | ItemScrollInt {_itsInt :: Int}
+    | ItemScrollIntRange {_itsMax :: Int, _itsRangeInt :: Int}
+
 data ItemTargeting = NoItTargeting
    | ItTargeting
    { _itTgPos :: Maybe Point2
@@ -61,6 +67,8 @@ data ItemTargeting = NoItTargeting
 makeLenses ''ItemTargeting
 makeLenses ''Consumables
 makeLenses ''Item
+makeLenses ''ItemScroll
+deriveJSON defaultOptions ''ItemScroll
 deriveJSON defaultOptions ''Consumables
 deriveJSON defaultOptions ''ItemTargeting
 deriveJSON defaultOptions ''ItID