Implement burstRifle using attachment weapon chain

src/Dodge/Item/Held/Rod.hs

@@ -18,18 +18,11 @@ import LensHelp
 bangRod :: Item
 bangRod =
     defaultBulletWeapon
-        & itUse . heldParams
-            .~ BulletShooterParams
-                { _muzVel = ConstFloat 0.8
-                , _rifling = ConstFloat 1
-                , _recoil = 50
-                , _torqueAfter = 0.3
-                , _randomOffset = 0
-                , _sidePush = 0
-                , _bulGunSound = bangEchoS
-                }
+        & itUse . heldParams . rifling .~ ConstFloat 1
+        & itUse . heldParams . recoil .~ 50
+        & itUse . heldParams . torqueAfter .~ 0.3
+        & itUse . heldParams . bulGunSound .~ bangEchoS
         & itUse . heldDelay . rateMax .~ 12
-        & itUse . heldMods .~ BangRodMod
         & itDimension . dimRad .~ 12
         & itDimension . dimCenter .~ V3 5 0 0
         & itType . iyBase .~ HELD BANGROD
@@ -38,7 +31,7 @@ bangRod =
         & itUse . heldAim . aimStance .~ OneHand
         & itUse . heldAim . aimZoom .~ defaultItZoom{_izFac = 1.5}
         -- & itUse . heldAim . aimHandlePos .~ 5
-        & itUse . heldAim . aimMuzzles .~ [Muzzle (V2 30 0) 0 0.1 0 DefaultFlareType]
+        & itUse . heldAim . aimMuzzles .~ [Muzzle (V2 30 0) 0 0.1 0 HeavySmokeFlare]
 --        & itUse . heldConsumption . laAmmoType .~ hvBulletAmmo
 
 elephantGun :: Item
@@ -47,7 +40,6 @@ elephantGun =
         & itType . iyBase .~ HELD ELEPHANTGUN
         & itUse . heldAim . aimStance .~ TwoHandUnder
         & itUse . heldAim . aimMuzzles . ix 0 . mzInaccuracy .~ 0.05
-        & itUse . heldMods .~ ElephantGunMod
         & itUse . heldParams . recoil .~ 50
 
 amr :: Item
@@ -59,7 +51,6 @@ autoAmr :: Item
 autoAmr =
     amr
         & itType . iyBase .~ HELD AUTOAMR
-        & itUse . heldMods .~ AutoAmrMod
 
 sniperRifle :: Item
 sniperRifle =