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
@@ -64,7 +64,7 @@ crCurrentEquipment lw = fmap f . _crEquipment

 strFromHeldItem :: LWorld -> Creature -> Int
 strFromHeldItem lw cr = fromMaybe 0 $ do
-    Aiming <- cr ^? crStance . posture
+    Aiming {} <- cr ^? crStance . posture
    i <- cr ^? crManipulation . manObject . imRootSelectedItem
    j <- cr ^? crInv . ix i
    fmap (negate . itemWeight) $ lw ^? items . ix j