Remove _crTwist

2025-05-30 10:23:37 +01:00
parent 3efa01bf09
commit 0bcf263db7
14 changed files with 304 additions and 259 deletions
@@ -29,7 +29,8 @@ crCurrentEquipment = IM.filter (isJust . (^? itLocation . ilEquipSite . _Just))
 strFromHeldItem :: Creature -> Int
 strFromHeldItem cr
 --x---    | _posture (_crStance cr) == Aiming || crIsReloading cr = negate $ fromMaybe 0 $ do
-    | _posture (_crStance cr) == Aiming = negate $ fromMaybe 0 $ do
+--    | _posture (_crStance cr) == Aiming = negate $ fromMaybe 0 $ do
+    | Aiming {} <- _posture (_crStance cr) = negate $ fromMaybe 0 $ do
        i <- cr ^? crManipulation . manObject . imRootSelectedItem
        cr ^? crInv . ix i . itUse . heldAim . aimWeight
    | otherwise = 0