Destroying mounted lights flashes, move equipment datatype

2022-07-13 19:45:23 +01:00
parent cede677560
commit 33e9b5b1f0
16 changed files with 118 additions and 96 deletions
@@ -21,8 +21,8 @@ strFromEquipment = sum . fmap equipmentStrValue . crCurrentEquipment

 equipmentStrValue :: Item -> Int
 equipmentStrValue itm = case _iyBase $ _itType itm of
-    FRONTARMOUR -> negate 3
-    POWERLEGS   -> 3
+    EQUIP FRONTARMOUR -> negate 3
+    EQUIP POWERLEGS   -> 3
    _ -> 0

 crCurrentEquipment :: Creature -> IM.IntMap Item