Remove equipment records

2025-06-05 15:54:33 +01:00
parent 5f3b932338
commit 4b326433ab
15 changed files with 78 additions and 69 deletions
@@ -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."