Remove old ammo code, add magazines to some test loadouts

src/Dodge/Creature.hs

@@ -22,6 +22,7 @@ module Dodge.Creature (
     module Dodge.Creature.YourControl,
 ) where
 
+import Dodge.Item.Ammo
 import Dodge.Item.Scope
 import Control.Lens
 import Dodge.Creature.Action
@@ -124,8 +125,11 @@ inventoryX c = case c of
         , wristArmour
         , wristArmour
         , autoRifle
+        , tinMag
         , smg
+        , tinMag
         , machinePistol
+        , tinMag
         , makeTypeCraftNum 4 MICROCHIP
         , makeTypeCraftNum 2 TIN
         , makeTypeCraftNum 2 HARDWARE
@@ -174,7 +178,9 @@ inventoryX c = case c of
         ]
     'G' ->
         [ autoPistol
+        , tinMag
         , pistol
+        , tinMag
         , makeTypeCraftNum 2 HARDWARE
         , makeTypeCraftNum 2 MAGNET
         , makeTypeCraftNum 5 (ENERGYBALLCRAFT IncBall)
@@ -199,6 +205,7 @@ inventoryX c = case c of
         ]
     'K' ->
         [ autoRifle
+        , tinMag
         , targetingHat TargetRBPress
         , makeTypeCraftNum 7 MICROCHIP
         , makeTypeCraftNum 4 HARDWARE
@@ -246,16 +253,20 @@ testInventory =
 stackedInventory :: [Item]
 stackedInventory =
     [ burstRifle
+    , tinMag
     , pipe
     , scrollWatch
     , rewindWatch
     , stopWatch
     , tractorGun
     , autoPistol
+    , tinMag
     , pistol
+    , tinMag
     , teslaGun
     , blinkGun
     , miniGunX 3
+    , beltMag
     , boosterGun
     , remoteLauncher
     , flatShield