Allow for more complex item composition

2024-09-26 00:00:46 +01:00
parent 61f07be08b
commit 772886c8c6
8 changed files with 285 additions and 191 deletions
@@ -40,7 +40,7 @@ doWdWd we = case we of
        cr <- w ^? cWorld . lWorld . creatures . ix crid
        --it <- getItem itid w
        itRef <- cr ^? crManipulation . manObject . imSelectedItem
-        it <- invTrees (_crInv cr) ^? ix itRef
+        it <- invTrees' (_crInv cr) ^? ix itRef
        return $ doItCrWdWd f it cr w
    WdWdFromItCrixWdWd it crid f -> \w -> fromMaybe w $ do
        cr <- w ^? cWorld . lWorld . creatures . ix crid