Start refactoring held item use

src/Dodge/Creature/Impulse/UseItem.hs

@@ -6,6 +6,7 @@ import Dodge.Data
 import Dodge.Inventory
 import Dodge.Reloading
 import Dodge.Item.Location
+import Dodge.HeldUse
 
 import qualified Data.IntMap.Strict as IM
 import qualified Data.Map.Strict as M
@@ -25,7 +26,7 @@ useItem cr' w = fromMaybe (f w) $ do
 itemEffect :: Creature -> Item -> World -> World
 itemEffect cr it w = case it ^? itUse of
     Just RightUse {_rUse = eff,_useMods = usemods} 
-                    -> hammerTest $ tryReload cr it w $ foldr ($) eff usemods it cr
+                    -> hammerTest $ tryReload cr it w $ foldr ($) (useHeld eff) usemods it cr
     Just LeftUse {} -> doequipmentchange
     Just EquipUse{} -> doequipmentchange
     -- ConsumeUse will cause problems if the item is not selected