Tweak item dropping

2024-11-25 15:22:42 +00:00
parent 4e4cc92939
commit bbf95c91d8
3 changed files with 3 additions and 2 deletions
@@ -24,6 +24,7 @@ copyItemToFloorID pos it w =
        w'
            & cWorld . lWorld . floorItems . unNIntMap %~ IM.insert flid theflit
            & cWorld . lWorld . itemLocations %~ IM.insert (_unNInt $ _itID it) (OnFloor $ NInt flid)
+            & hud . closeItems %~ (NInt flid:)
  where
    (p', w') = findWallFreeDropPoint (_dimRad $ _itDimension it) pos w
    rot = fst . randomR (- pi, pi) $ _randGen w