Broken commit

2023-12-23 15:14:02 +00:00
parent f26d380c1b
commit 210787d2dc
15 changed files with 107 additions and 38 deletions
@@ -271,6 +271,9 @@ updateAutoRecharge it = case it ^? itUse . leftConsumption of
        | l < m -> it & itUse . leftConsumption . arProgress -~ 1
    _ -> it

+-- I feel like there should be a centralised function that supersumes this
+-- i.e. a function that deals with all states that depend upon item positioning
+-- in the inventory
 crGetTargeting :: Creature -> Maybe TargetType
 crGetTargeting cr = do
    i <- cr ^? crManipulation . manObject . inInventory . ispItem