Correctly update root status of item in _ilIsRoot

2024-11-05 18:25:30 +00:00
parent 38ab6a35da
commit 9b3518e4eb
16 changed files with 40 additions and 25 deletions
@@ -25,7 +25,7 @@ import qualified IntMapHelp as IM
 useRootItem :: Int -> World -> World
 useRootItem crid w = fromMaybe w $ do
    cr <- w ^? cWorld . lWorld . creatures . ix crid
-    itRef <- cr ^? crManipulation . manObject . imRootItem
+    itRef <- cr ^? crManipulation . manObject . imRootSelectedItem
    it <- invRootTrees (_crInv cr) ^? ix itRef
    return $
        itemUseEffect' cr it w