Distinguish between selected item and root-selected item

2024-09-21 21:59:53 +01:00
parent 2154abfb1d
commit 31b5db6e9e
33 changed files with 313 additions and 281 deletions
@@ -39,7 +39,7 @@ doWdWd we = case we of
    WdWdFromItixCrixWdWd _ crid f -> \w -> fromMaybe w $ do
        cr <- w ^? cWorld . lWorld . creatures . ix crid
        --it <- getItem itid w
-        itRef <- cr ^? crManipulation . manObject . inInventory . ispItem
+        itRef <- cr ^? crManipulation . manObject . inInventory . imSelectedItem
        it <- invTrees (_crInv cr) ^? ix itRef
        return $ doItCrWdWd f it cr w
    WdWdFromItCrixWdWd it crid f -> \w -> fromMaybe w $ do