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
@@ -100,7 +100,7 @@ hasFrontArmour :: Point2 -> Creature -> Bool
 hasFrontArmour p cr = fromMaybe False $ do
    invid <- cr ^? crEquipment . ix OnChest
    ittype <- cr ^? crInv . ix invid . itType . iyBase
-    return $ FRONTARMOUR == ittype
+    return $ EQUIP FRONTARMOUR == ittype
        && p /= _crOldPos cr 
        && angleVV (unitVectorAtAngle (_crDir cr + frontarmdirection)) (p -.- _crOldPos cr) < pi/2
 -- even though angleVV can generate NaN, the comparison seems to deal with it