Cleanup

2024-09-30 12:54:31 +01:00
parent 65564c993b
commit fc5539cb38
58 changed files with 802 additions and 1255 deletions
@@ -20,7 +20,7 @@ strFromEquipment :: Creature -> Int
 strFromEquipment = sum . fmap equipmentStrValue . crCurrentEquipment

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