Start refactoring held item use

src/Dodge/Item/Weapon/Utility.hs

@@ -101,25 +101,25 @@ unsafeBlinkGun = blinkGun
     & itUse . lUse .~ hammerCheckL (shootL $ const unsafeBlinkAction)
     & itUse . eqEq . eqViewDist ?~ 400
 
-effectGun :: String -> (Creature -> World -> World) -> Item
-effectGun name eff = defaultWeapon
-    { _itUse = defaultrUse
-        & rUse .~ const eff
-        & useMods .~ [hammerCheckI]
-    }
-    & itType . iyBase .~ EFFGUN name
-autoEffectGun :: String -> (Creature -> World -> World) -> Item
-autoEffectGun name eff = defaultWeapon
-    { _itUse = defaultrUse {_rUse = const eff}
-    }
-    & itType . iyBase .~ AUTOEFFGUN name
+--effectGun :: String -> (Creature -> World -> World) -> Item
+--effectGun name eff = defaultWeapon
+--    { _itUse = defaultrUse
+--        & rUse .~ const eff
+--        & useMods .~ [hammerCheckI]
+--    }
+--    & itType . iyBase .~ EFFGUN name
+--autoEffectGun :: String -> (Creature -> World -> World) -> Item
+--autoEffectGun name eff = defaultWeapon
+--    { _itUse = defaultrUse {_rUse = const eff}
+--    }
+--    & itType . iyBase .~ AUTOEFFGUN name
 forceFieldGun :: Item
 forceFieldGun = defaultWeapon 
     { _itConsumption = defaultLoadable & laAmmoType .~ ForceFieldAmmo forceField
     , _itTargeting = targetRBPress & tgDraw .~ targetDistanceDraw
     , _itParams = ParamMID Nothing
     }
-    & itUse . rUse .~ useForceFieldGun
+    & itUse . rUse .~ HeldForceField --useForceFieldGun
     & itUse . useDelay .~ NoDelay
     & itUse . useMods .~
         [ hammerCheckI , ammoCheckI , useAmmoAmount 1]