Commit before implementing positional inventory

2023-05-18 09:52:46 +01:00
parent 7df81559d9
commit 2f0bb5115b
12 changed files with 132 additions and 78 deletions
@@ -13,6 +13,7 @@ module Dodge.Item.Equipment (
    fuelPack,
    batteryPack,
    bulletBeltPack,
+    bulletBeltBracer,
    speedLegs,
    jumpLegs,
    flameShield,
@@ -76,7 +77,15 @@ bulletBeltPack =
        & itUse . equipEffect . eeSite .~ GoesOnBack
        & itType . iyBase .~ EQUIP BULLETBELTPACK
        & itUse . equipEffect . eeAttachPos .~ V3 (-9) 0 10
-        & itUse . equipEffect . eeUse .~ EAmmoSource 10000 10000 BulletSource Nothing
+        & itUse . equipEffect . eeUse .~ EAmmoSource 2000 2000 BulletSource Nothing
+
+bulletBeltBracer :: Item
+bulletBeltBracer =
+    defaultEquipment
+        & itUse . equipEffect . eeSite .~ GoesOnWrist
+        & itType . iyBase .~ EQUIP BULLETBELTBRACER
+        & itUse . equipEffect . eeAttachPos .~ V3 (-9) 0 10
+        & itUse . equipEffect . eeUse .~ EAmmoSource 100 100 BulletSource Nothing

 jetPack :: Item
 jetPack =