Partial refactor of bullet weapon effect chain

src/Dodge/Default/Item/Use.hs

@@ -5,6 +5,7 @@ module Dodge.Default.Item.Use (
     module Dodge.Default.Item.Use.Equipment,
 ) where
 
+import Dodge.SoundLogic.ExternallyGeneratedSounds
 import Dodge.Data.Item.Use
 import Dodge.Default.Item.Use.AimParams
 import Dodge.Default.Item.Use.Consumption
@@ -33,12 +34,15 @@ defaultHeldUse =
         , _heldMods = DoNothingMod
         , _heldHammer = HammerUp
         , _heldAim = defaultAimParams
-        , _heldAmmoTypes = []
+        , _heldAmmoTypes = mempty
         , _heldParams = BulletShooterParams
             { _muzVel = 0.8
             , _rifling = 0.8
             , _recoil = 10
             , _torqueAfter = 0.2
             , _randomOffset = 0
+            , _sidePush = 0
+            , _bulGunSound = tap3S
             }
+        , _heldTriggerType = HammerTrigger
         }

src/Dodge/Default/Item/Use/AimParams.hs

@@ -13,10 +13,20 @@ defaultAimParams =
         , _aimStance = OneHand
         , --, _aimHandlePos = 10
           _aimHandlePos = V2 3 0
-        , _aimMuzzles = [Muzzle (V2 20 0) 0 0 0]
+        , _aimMuzzles = [defaultMuzzle]
         --        , _aimMuzPos = 20
         }
 
+defaultMuzzle :: Muzzle
+defaultMuzzle = Muzzle
+    { _mzPos = V2 20 0
+    , _mzRot = 0
+    , _mzInaccuracy = 0.05
+    , _mzAmmoSlot = 0
+    , _mzFlareType = DefaultFlareType
+    }
+
+
 defaultItZoom :: ItZoom
 defaultItZoom =
     ItZoom