Add various item info

2023-01-03 15:58:54 +00:00
parent 6c1862b2a1
commit 5fc39bd12d
11 changed files with 310 additions and 50 deletions
@@ -9,6 +9,7 @@ module Dodge.Item.Equipment (
    frontArmour,
    headLamp,
    jetPack,
+    fuelPack,
    speedLegs,
    jumpLegs,
    flameShield,
@@ -49,6 +50,11 @@ wristArmour =
        & itUse . equipEffect . eeOnRemove .~ EoffWristShield
        & itType . iyBase .~ EQUIP WRISTARMOUR

+fuelPack :: Item
+fuelPack =
+    defaultEquipment
+        & itUse . equipEffect . eeSite .~ GoesOnBack
+        & itType . iyBase .~ EQUIP FUELPACK

 jetPack :: Item
 jetPack =