Move held item scrolling into dedicated datatype

src/Dodge/Data/Item/Consumption.hs

@@ -2,3 +2,30 @@
 {-# LANGUAGE StrictData #-}
 module Dodge.Data.Item.Consumption where
 import Control.Lens
+import Dodge.Data.Ammo
+import Dodge.Data.LoadAction
+import Dodge.Data.ItemAmount
+data ItemConsumption
+    = LoadableAmmo
+        { _laAmmoType   :: AmmoType
+        , _laMax        :: Int
+        , _laLoaded     :: Int
+        , _laPrimed     :: Bool
+        , _laCycle      :: [LoadAction]
+        , _laProgress   :: Maybe [LoadAction]
+        }
+    | AutoRecharging
+        { _arLoaded     :: Int
+        , _arMax        :: Int
+        , _arTime       :: Int
+        , _arProgress   :: Int
+        }
+    | ChargeableAmmo
+        { _wpMaxCharge  :: Int
+        , _wpCharge     :: Int
+        }
+    | ItemItselfConsumable
+        { _icAmount   :: IcAmount
+        }
+    | NoConsumption
+makeLenses ''ItemConsumption

src/Dodge/Data/Item/HeldScroll.hs

@@ -0,0 +1,4 @@
+--{-# LANGUAGE StrictData #-}
+module Dodge.Data.Item.HeldScroll where
+
+data HeldScroll = HeldScrollDoNothing | HeldScrollZoom | HeldScrollCharMode