Remove _crTwist

2025-05-30 10:23:37 +01:00
parent 3efa01bf09
commit 0bcf263db7
14 changed files with 304 additions and 259 deletions
@@ -54,7 +54,9 @@ crCanSeeCr tcr (w, cr) = hasLOS (_crPos cr) (_crPos tcr) w
 --    return $ hasLOS (_crPos cr) (_crPos tcr) w

 crIsAiming :: Creature -> Bool
-crIsAiming cr = _posture (_crStance cr) == Aiming
+crIsAiming cr = case _posture (_crStance cr) of
+    Aiming {} -> True
+    _ -> False

 crHasTarget :: Creature -> Bool
 crHasTarget cr = isJust $ cr ^? crIntention . targetCr . _Just