Partially refactor ammo extraction, work on pulse rifle

src/Dodge/Data/Muzzle.hs

@@ -10,7 +10,7 @@ data Muzzle = Muzzle
     { _mzPos :: V2 Float
     , _mzRot :: Float
     , _mzInaccuracy :: Float
-    , _mzAmmoSlot :: Int
+    , _mzAmmoSlot :: AmmoExtractPosition
     , _mzFlareType :: FlareType
     , _mzEffect :: MuzzleEffect
     , _mzAmmoPerShot :: AmmoPerShot
@@ -18,6 +18,9 @@ data Muzzle = Muzzle
     }
     deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
+data AmmoExtractPosition = MagBelow Int | CapacitorBelow Int | CapacitorSelf
+    deriving (Eq, Ord, Show, Read) --Generic, Flat)
+
 data FlareType
     = NoFlare
     | BasicFlare
@@ -32,6 +35,7 @@ data MuzzleEffect
     = MuzzleShootBullet
     | MuzzleLaser
     | MuzzlePulseLaser
+    | MuzzlePulseBall
     | MuzzleTesla
     | MuzzleTractor
     | MuzzleRLauncher