Partial removal of reloading

2024-09-08 10:21:35 +01:00
parent 581d2494dc
commit e03c8dd830
16 changed files with 256 additions and 187 deletions
@@ -36,7 +36,8 @@ crCurrentEquipment cr =

 strFromHeldItem :: Creature -> Int
 strFromHeldItem cr
-    | _posture (_crStance cr) == Aiming || crIsReloading cr = negate $ fromMaybe 0 $ do
+--x---    | _posture (_crStance cr) == Aiming || crIsReloading cr = negate $ fromMaybe 0 $ do
+    | _posture (_crStance cr) == Aiming = negate $ fromMaybe 0 $ do
        i <- cr ^? crManipulation . manObject . inInventory . ispItem
        cr ^? crInv . ix i . itUse . heldAim . aimWeight
    | otherwise = 0