Work towards adding external ammo sources

src/Dodge/Item/Equipment.hs

@@ -12,6 +12,7 @@ module Dodge.Item.Equipment (
     jetPack,
     fuelPack,
     batteryPack,
+    bulletBeltPack,
     speedLegs,
     jumpLegs,
     flameShield,
@@ -59,6 +60,7 @@ batteryPack =
         & itUse . equipEffect . eeSite .~ GoesOnBack
         & itType . iyBase .~ EQUIP BATTERYPACK
         & itUse . equipEffect . eeAttachPos .~ V3 (-8) 0 10
+        & itUse . equipEffect . eeUse .~ EBatterySource 10000 10000
 
 fuelPack :: Item
 fuelPack =
@@ -68,6 +70,14 @@ fuelPack =
         & itUse . equipEffect . eeAttachPos .~ V3 (-9) 0 10
         & itUse . equipEffect . eeUse .~ EFuelSource 10000 10000
 
+bulletBeltPack :: Item
+bulletBeltPack =
+    defaultEquipment
+        & itUse . equipEffect . eeSite .~ GoesOnBack
+        & itType . iyBase .~ EQUIP BULLETBELTPACK
+        & itUse . equipEffect . eeAttachPos .~ V3 (-9) 0 10
+        & itUse . equipEffect . eeUse .~ EAmmoSource 10000 10000 BulletSource Nothing
+
 jetPack :: Item
 jetPack =
     defaultEquipment