Add AimStance to creature posture when Aiming

2025-08-27 11:46:41 +01:00
parent 5cb8be1363
commit 2e6b7a1b41
9 changed files with 44 additions and 23 deletions
@@ -99,7 +99,7 @@ crInAimStance as m cr = crIsAiming cr && mitstance == Just as
        i <- cr ^? crManipulation . manObject . imRootSelectedItem
        --itm <- invRootTrees' (cr ^. crInv) ^? ix i
        itm <- fmap (fmap (\(a,b,_) -> (a,b))) $ invIMDT (fmap (\k -> m ^?! ix k) (cr ^. crInv)) ^? ix (_unNInt i)
-        return $ aimStance itm
+        return $ itemAimStance itm
        --cr ^? crInv . ix i . itUse . heldAim . aimStance

 oneH :: IM.IntMap Item -> Creature -> Bool