Move bullet modifications from weapons to magazines

src/Dodge/HeldUse.hs

@@ -368,7 +368,8 @@ useMod hm = case hm of
       where
         p = fromMaybe (_crPos cr) $ cr ^? crTargeting . ctPos . _Just
         a = argV (mouseWorldPos (w ^. input) (w ^. wCam) -.- p)
-    moddelay x = itUse . heldConsumption . laAmmoType . amBullet . buDelayFraction .~ x
+    moddelay x = id
+    --moddelay x = itUse . heldConsumption . laAmmoType . amBullet . buDelayFraction .~ x
     modcrpos x cr =
         cr & crDir %~ tweenAngles x (_crOldDir cr)
             & crPos %~ alongSegBy x (_crOldPos cr)
@@ -493,9 +494,10 @@ bangStickSoundChoice :: Item -> SoundID
 bangStickSoundChoice = caneStickSoundChoice
 
 coneRandItemUpdate :: State StdGen (Item -> Item)
-coneRandItemUpdate = do
-    wth <- state $ randomR (1, 5)
-    return (itUse . heldConsumption . laAmmoType . amBullet . buWidth .~ wth)
+coneRandItemUpdate = return id
+-- do
+--    wth <- state $ randomR (1, 5)
+--    return (itUse . heldConsumption . laAmmoType . amBullet . buWidth .~ wth)
 
 coneRandItemParams :: State StdGen (Item -> Item)
 coneRandItemParams = do