Commit before messing with item tree orientation etc

2025-06-26 20:29:48 +01:00
parent ab82bcbe20
commit 494c7a4f89
9 changed files with 73 additions and 71 deletions
@@ -140,7 +140,7 @@ setAimPosture = (crStance . posture .~ Aiming) . doAimTwist (- twoHandTwistAmoun
 doAimTwist :: Float -> Creature -> Creature
 doAimTwist x cr = fromMaybe cr $ do
    itRef <- cr ^? crManipulation . manObject . imRootSelectedItem
-    astance <- fmap aStance $ cr ^? crInv . ix itRef
+    astance <- fmap itemBaseStance $ cr ^? crInv . ix itRef
    guard $ astance == TwoHandOver || astance == TwoHandUnder
    return $ cr & crDir +~ x