Mid implementation of external ammo sources

src/Dodge/Item/Held/Cane.hs

@@ -1,5 +1,6 @@
 module Dodge.Item.Held.Cane (
     volleyGun,
+    multiGun,
     repeater,
     rifle,
     autoRifle,
@@ -49,6 +50,19 @@ volleyGun i =
         & itParams . torqueAfter .~ 0.15 + 0.05 * fromIntegral i
         & itType . iyBase .~ HELD (VOLLEYGUN i)
 
+multiGun :: Int -> Item
+multiGun i =
+    defaultBangCane
+        & itUse . heldMods .~ MultiGunMod
+        & itUse . heldAim . aimWeight .~ 6
+        & itUse . heldAim . aimRange .~ 1
+        & itUse . heldAim . aimStance .~ TwoHandFlat
+        & itUse . heldAim . aimZoom .~ defaultItZoom{_izFac = 1.5}
+        & itUse . heldAim . aimMuzzles .~ [Muzzle (V2 15 x) 0 0.01 | x <- spreadAroundCenter i 3]
+        & itUse . heldConsumption . laSource . _InternalSource . iaMax .~ i
+        & itParams . torqueAfter .~ 0.15 + 0.05 * fromIntegral i
+        & itType . iyBase .~ HELD (MULTIGUN i)
+
 rifle :: Item
 rifle =
     defaultBangCane

src/Dodge/Item/Held/Stick.hs

@@ -55,8 +55,7 @@ pistol =
     bangStick 1
         & itUse . heldConsumption
             .~ ( defaultBulletLoadable
-                    & laSource . _InternalSource . iaMax .~ 15
-                    & laSource . _InternalSource . iaCycle .~ [loadEject 5, loadInsert 5, loadPrime 5]
+                    & laSource .~ BelowSource
                )
         & itUse . heldDelay . rateMax .~ 6
         & itUse . heldMods .~ PistolMod