Refactor floor items, removing ids (not fully checked)

2025-08-23 22:10:33 +01:00
parent 32d7120177
commit fcccd63844
24 changed files with 94 additions and 109 deletions
@@ -234,7 +234,7 @@ yourAugmentedItem f x g w = case you w ^? crManipulation . manObject of
    Just (SelectedItem i _ _) -> f $ yourInv w ^?! ix i
    Just (SelCloseItem i) -> fromMaybe x $ do
        j <- w ^? hud . closeItems . ix i . unNInt
-        flit <- w ^? cWorld . lWorld . floorItems . unNIntMap . ix j
+        flit <- w ^? cWorld . lWorld . floorItems . ix j
        return . g $ Left flit
    Just (SelCloseButton i) -> fromMaybe x $ do
        j <- w ^? hud . closeButtons . ix i