justin/loop
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Fix drag pickup bug

Browse Source
This commit is contained in:
justin
2025-08-25 10:33:05 +01:00
parent 3f6f1b4019
commit 79abdfb33a
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Update/Input/InGame.hs
+1 -1
View File
@@ -138,7 +138,7 @@ tryPickupSelected k mpos w = do
guard $ nfreeslots >= slotsneeded guard $ nfreeslots >= slotsneeded
return $ case mpos of return $ case mpos of
Just (0, j) -> Just (0, j) ->
foldr (pickUpItemAt j 0) w (IS.toList xs) foldr (pickUpItemAt j 0) w (map (_unNInt . _itID) itmstopickup)
& hud . hudElement . diSelection & hud . hudElement . diSelection
?~ ( 0 ?~ ( 0
, j , j