Commit before moving targeting

src/Dodge/Item/Display.hs

@@ -75,9 +75,14 @@ showConsumption :: ItemUse -> String
 showConsumption iu = case iu of
     HeldUse{} -> showReloadProgress' (_heldConsumption iu)
     LeftUse{} -> showAutoRechargeProgress (_leftConsumption iu)
-    EquipUse{} -> ""
+    EquipUse ee -> showEUseNumber ee
     _ -> show $ iu ^?! useAmount . getItAmount
 
+showEUseNumber :: EquipEffect -> String
+showEUseNumber ee = case _eeUse ee of
+    EFuelSource x _ -> show x
+    _ -> ""
+
 showReloadProgress' :: HeldConsumption -> String
 showReloadProgress' ic = case ic ^? laProgress . _Just . ix 0 of
     Nothing -> show $ _laLoaded ic

src/Dodge/Item/Equipment.hs

@@ -65,6 +65,7 @@ fuelPack =
         & itUse . equipEffect . eeSite .~ GoesOnBack
         & itType . iyBase .~ EQUIP FUELPACK
         & itUse . equipEffect . eeAttachPos .~ V3 (-9) 0 10
+        & itUse . equipEffect . eeUse .~ EFuelSource 10000 10000
 
 jetPack :: Item
 jetPack =