Make item use mods an external function

src/Dodge/Creature/AutoCrit.hs

@@ -12,7 +12,7 @@ import Control.Lens
 
 autoCrit :: Creature
 autoCrit = defaultCreature
-    { _crInv = IM.fromList [(0,autoGun),(1,medkit 100)]
+    { _crInv = IM.fromList [(0,autoRifle),(1,medkit 100)]
     , _crRad = 10
     , _crHP = 300
     , _crMvType = defaultAimMvType

src/Dodge/Creature/Impulse/UseItem.hs

@@ -26,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 ($) (useHeld eff) usemods it cr
+                    -> hammerTest $ tryReload cr it w $ foldr ($) (useHeld eff) (useMod usemods) it cr
     Just LeftUse {} -> doequipmentchange
     Just EquipUse{} -> doequipmentchange
     -- ConsumeUse will cause problems if the item is not selected