Work on mouse wheel scrolling

src/Dodge/Data/Item/Effect.hs

@@ -13,14 +13,14 @@ data ItEffect = ItEffect
     { _ieInv :: ItInvEffect --Item -> Creature -> World -> World
     , _ieOnInsert :: ItInvEffect
     , _ieOnDrop :: ItInvEffect --Item -> Creature -> World -> World
-    , _ieOnHeld :: ItInvEffect
-    , _ieOnStash :: ItInvEffect
+    , _ieWhileAiming :: ItInvEffect
     }
     deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
 data ItInvEffect
     = NoInvEffect
     | RewindEffect
+    | TimeScrollEffect
     | EffectIfHeld ItInvEffect ItInvEffect
     | CreateHeldLight
     | CreateShieldWall

src/Dodge/Data/Item/Use/Consumption.hs

@@ -26,6 +26,8 @@ data HeldConsumption
         , _laCycle :: [LoadAction]
         , _laProgress :: Maybe [LoadAction]
         }
+    | ChargingAmmo { _caCharge :: Int 
+        , _caMax :: Int }
     | NoConsumption
     deriving (Eq, Show, Read) --Generic, Flat)