Make ammo magazines into own item type

src/Dodge/Item.hs

@@ -24,14 +24,19 @@ itemFromBase ibt = case ibt of
     CONSUMABLE et -> itemFromConsumableType et
     CRAFT cr -> makeTypeCraft cr
     ATTACH at -> itemFromAttachType at
+    AMMOMAG t -> itemFromAmmoMag t
+
+itemFromAmmoMag :: AmmoMagType -> Item
+itemFromAmmoMag at = case at of
+    DRUMMAG -> drumMag
+    TINMAG -> tinMag
+    REVOLVEMAG -> revolveMag
+    BELTMAG -> beltMag
+    SHELLMAG -> shellMag
 
 itemFromAttachType :: AttachType -> Item
 itemFromAttachType at = case at of
     SCROLLATTACH ZOOMSCOPE -> zoomScope
-    AMMOATTACH DRUMMAG -> drumMag
-    AMMOATTACH TINMAG -> tinMag
-    AMMOATTACH REVOLVEMAG -> revolveMag
-    AMMOATTACH BULLETBELT -> beltMag
     TARGETATTACH tt -> targetingScope tt