Fix minigun inter-frame bullet speed

src/Dodge/Item/Ammo.hs

@@ -44,3 +44,22 @@ beltMag :: Item
 beltMag =
     tinMag & itType . iyBase .~ ATTACH (AMMOATTACH BULLETBELT)
         & itUse . attachParams . ammoLoadStatus . iaMax .~ 2000
+
+shellMag :: Item
+shellMag =
+    defaultHeldItem & itType . iyBase .~ ATTACH (AMMOATTACH SHELLMAG)
+        & itUse
+            .~ AttachUse
+                { _attachParams =
+                    AmmoAttachParams
+                        { _ammoParams = BulletParams defaultBullet
+                        , _ammoLoadStatus =
+                            InternalAmmo
+                                { _iaMax = 15
+                                , _iaLoaded = 15
+                                , _iaPrimed = True
+                                , _iaCycle = [loadEject 10, loadInsert 10, loadPrime 10]
+                                , _iaProgress = Nothing
+                                }
+                        }
+                }

src/Dodge/Item/Weapon/Bullet.hs

@@ -4,12 +4,13 @@ module Dodge.Item.Weapon.Bullet (
     defaultBullet,
 ) where
 
-import Dodge.Data.Item.Use.Consumption.Ammo
 import Control.Lens
+import Dodge.Data.Item.Use.Consumption.Ammo
 import Geometry.Data
 
 basicBulletAmmo :: AmmoType
 basicBulletAmmo = SmallBulletAmmo
+
 --        , _amBullet = defaultBullet
 
 defaultBullet :: Bullet
@@ -34,10 +35,11 @@ basicBulDams =
     ]
 
 hvBulletAmmo :: Bullet
-hvBulletAmmo = defaultBullet
-                & buWidth .~ 6
-                & buVel .~ V2 80 0
-                & buDamages .~ heavyBulDams
+hvBulletAmmo =
+    defaultBullet
+        & buWidth .~ 6
+        & buVel .~ V2 80 0
+        & buDamages .~ heavyBulDams
 
 heavyBulDams :: [Damage]
 heavyBulDams =