Cleanup

2024-09-30 12:54:31 +01:00
parent 65564c993b
commit fc5539cb38
58 changed files with 802 additions and 1255 deletions
@@ -112,7 +112,7 @@ crIsArmouredFrom = hasFrontArmour
 hasFrontArmour :: Point2 -> Creature -> Bool
 hasFrontArmour p cr = fromMaybe False $ do
    invid <- cr ^? crEquipment . ix OnChest
-    ittype <- cr ^? crInv . ix invid . itType . iyBase
+    ittype <- cr ^? crInv . ix invid . itType
    return $
        EQUIP FRONTARMOUR == ittype
            && p /= _crOldPos cr