Commit before moving to external weapon magazines

src/Dodge/Item.hs

@@ -7,6 +7,7 @@ module Dodge.Item (
     itemFromBase,
 ) where
 
+import Dodge.Item.Ammo
 import Dodge.Data.Item
 import Dodge.Item.Consumable
 import Dodge.Item.Craftable
@@ -20,9 +21,15 @@ itemFromBase ibt = case ibt of
     HELD ht -> itemFromHeldType ht
     LEFT lt -> itemFromLeftType lt
     EQUIP et -> itemFromEquipType et
+    AMMO at -> itemFromAmmoType at
     Consumable et -> itemFromConsumableType et
     CRAFT cr -> makeTypeCraft cr
 
+itemFromAmmoType :: AmmoItemType -> Item
+itemFromAmmoType at = case at of
+    TINMAGAZINE -> tinMagazine
+    DRUMMAGAZINE -> drumMagazine
+
 itemFromConsumableType :: ConsumableItemType -> Item
 itemFromConsumableType ct = case ct of
     MEDKIT i -> medkit i