Start keeping track of item equip status internally (partially done)

2024-12-19 00:55:14 +00:00
parent 5600b29714
commit 331a9a2f9b
17 changed files with 209 additions and 202 deletions
@@ -67,8 +67,18 @@ fuelPack =
    defaultEquipment
        & itUse . uequipEffect . eeSite .~ GoesOnBack
        & itUse . uequipEffect . eeAttachPos .~ V3 (-9) 0 10
-        & itUse . uequipEffect . eeUse .~ EFuelSource 10000 10000
+--        & itUse . uequipEffect . eeUse .~ EFuelSource 10000 10000
        & itType .~ EQUIP FUELPACK
+        & itConsumables
+            .~ AmmoMag
+                { _magParams = GasParams ChemFuel
+                , _magType = GasAmmo
+                , _magLoadStatus =
+                    ReloadStatus
+                        { _iaMax = 100000
+                        , _iaLoaded = 100000
+                        }
+                }

 bulletBeltPack :: Item
 bulletBeltPack =