Allow for item use when not root

2024-12-20 16:07:58 +00:00
parent 3a72bd366f
commit d9aaa8cc05
26 changed files with 436 additions and 493 deletions
@@ -24,7 +24,7 @@ newHotkey lw = fromMaybe maxBound $
 -- to swap with instead
 assignHotkey :: Int -> Hotkey -> LWorld -> LWorld
 assignHotkey invid hk lw = fromMaybe lw $ do
-    guard $ lw ^? creatures . ix 0 . crInv . ix invid . itUse . useCondition
+    guard $ lw ^? creatures . ix 0 . crInv . ix invid . itUseCondition
        == Just UseableAnytime
    return $ (setHotkey invid hk . moveOldHotkey invid hk) lw