Fix bugs in drag pickup when releasing mouse outside of inventory list

2025-08-25 12:59:12 +01:00
parent 65803c11c9
commit a2c32907f0
9 changed files with 312 additions and 365 deletions
@@ -21,6 +21,7 @@ checkInvSlotsYou it w = do
    guard $ crNumFreeSlots (w ^. cWorld . lWorld . items) ycr >= itInvHeight it
    Just . NInt . IM.newKey . _unNIntMap $ _crInv ycr

+-- the intmap should be _items
 crNumFreeSlots :: IM.IntMap Item -> Creature -> Int
 crNumFreeSlots m cr = maxInvSlots - invSize (fmap f (_crInv cr))
  where