Fix item location bug

This commit is contained in:
2026-05-16 12:21:19 +01:00
parent db2ce72076
commit 4bcea5e772
10 changed files with 159 additions and 148 deletions
+1 -1
View File
@@ -273,7 +273,7 @@ invSetSelection sel w =
& worldEventFlags . at InventoryChange ?~ ()
-- & crUpdateItemLocations
& setInvPosFromSS -- is this necessary here?
-- & crUpdateItemLocations
& crUpdateItemLocations
invSetSelectionPos :: Int -> Int -> World -> World
invSetSelectionPos i j = invSetSelection (Sel i j)