Extend inv item location information to include "attached" items

2024-09-24 21:26:26 +01:00
parent fbb60bf358
commit fe00af0e73
17 changed files with 184 additions and 131 deletions
@@ -125,7 +125,7 @@ floorItemPickupInfo n itm
 -- it is probably desirable for this to crash hard for now
 yourAugmentedItem :: (Item -> a) -> a -> (Either FloorItem Button -> a) -> World -> a
 yourAugmentedItem f x g w = case you w ^? crManipulation . manObject of
-    Just (InInventory (SelectedItem i _)) -> f $ yourInv w ^?! ix i
+    Just (InInventory (SelectedItem i _ _)) -> f $ yourInv w ^?! ix i
    Just (InNearby (SelCloseObject i)) -> g $ w ^?! hud . closeObjects . ix i
    _ -> x