Remove equipment records

src/Dodge/Item/Draw/SPic.hs

@@ -144,7 +144,7 @@ fractionLoadedAmmo rs = fromIntegral (_iaLoaded rs) / fromIntegral (_iaMax rs)
 equipItemSPic :: EquipItemType -> Item -> SPic
 equipItemSPic et _ = case et of
     WRIST_ECG -> defSPic
-    MAGSHIELD -> defSPic
+    MAGSHIELD _ -> defSPic
     FLAMESHIELD -> defSPic
     FRONTARMOUR -> defSPic
     --        ( mempty

src/Dodge/Item/Equipment.hs

@@ -23,11 +23,11 @@ import Dodge.Data.Item
 import Dodge.Default
 import LensHelp
 
-magShield :: Item
-magShield =
+magShield :: MagnetBuBu -> Item
+magShield mt =
     defaultEquipment
-        & itUse . uequipEffect . eeUse .~ EMagShield MagnetRepulse
-        & itType .~ EQUIP MAGSHIELD
+--        & itUse . uequipEffect . eeUse .~ EMagShield MagnetRepulse
+        & itType .~ EQUIP (MAGSHIELD mt)
 
 flameShield :: Item
 flameShield =
@@ -43,14 +43,14 @@ wristArmour :: Item
 wristArmour =
     defaultEquipment
 --        & itUse . uequipEffect . eeOnEquip .~ EonWristShield
-        & itUse . uequipEffect . eeUse .~ EWristShield
+--        & itUse . uequipEffect . eeUse .~ EWristShield
 --        & itUse . uequipEffect . eeOnRemove .~ EoffWristShield
         & itType .~ EQUIP WRISTARMOUR
 
 batteryPack :: Item
 batteryPack =
     defaultEquipment
-        & itUse . uequipEffect . eeUse .~ EDoNothing
+--        & itUse . uequipEffect . eeUse .~ EDoNothing
         & itConsumables
             .~ AmmoMag
                 { _magParams = NoAmmoParams
@@ -80,7 +80,7 @@ fuelPack =
 bulletBeltPack :: Item
 bulletBeltPack =
     defaultEquipment
-        & itUse . uequipEffect . eeUse .~ EDoNothing
+--        & itUse . uequipEffect . eeUse .~ EDoNothing
         & itConsumables
             .~ AmmoMag
                 { _magParams = BulletParams defaultBullet
@@ -95,7 +95,7 @@ bulletBeltPack =
 bulletBeltBracer :: Item
 bulletBeltBracer =
     defaultEquipment
-        & itUse . uequipEffect . eeUse .~ EDoNothing
+--        & itUse . uequipEffect . eeUse .~ EDoNothing
         & itConsumables
             .~ AmmoMag
                 { _magParams = BulletParams defaultBullet
@@ -116,7 +116,7 @@ hat = defaultEquipment & itType .~ EQUIP HAT
 headLamp :: Item
 headLamp =
     defaultEquipment
-        & itUse . uequipEffect . eeUse .~ EHeadLamp
+--        & itUse . uequipEffect . eeUse .~ EHeadLamp
         & itType .~ EQUIP HEADLAMP
 
 powerLegs :: Item

src/Dodge/Item/Info.hs

@@ -138,7 +138,8 @@ heldInfo hit = case hit of
 
 equipInfo :: EquipItemType -> String
 equipInfo eit = case eit of
-    MAGSHIELD -> "A device designed to repulse nearby metallic objects."
+    MAGSHIELD mt -> "A device designed to repulse nearby metallic objects. Of type: "
+        <> show mt <> "."
     FLAMESHIELD -> "A device designed to repulse nearby flames."
     FRONTARMOUR -> "A device designed to shield from the front."
     WRISTARMOUR -> "A device that projects a forcefield."