Continue refactoring reloading

2022-06-21 13:06:55 +01:00
parent 37eb69c661
commit 14a7189b44
12 changed files with 80 additions and 60 deletions
@@ -28,6 +28,9 @@ crIsReloading cr = case cr ^? crStance . posture of
    Just Reloading -> True
    _ -> False

+crWeaponReady :: Creature -> Bool
+crWeaponReady cr = isNothing $ cr ^? crInv . ix (_crInvSel cr) . itConsumption . laProgress . _Just
+
 crCanSeeCr :: Creature -> (World, Creature) -> Bool
 crCanSeeCr tcr (w,cr) = hasLOS (_crPos cr) (_crPos tcr) w