diff --git a/src/Dodge/Update.hs b/src/Dodge/Update.hs index e89eaf42a..6cedc4073 100644 --- a/src/Dodge/Update.hs +++ b/src/Dodge/Update.hs @@ -332,11 +332,14 @@ updateMouseContextGame cfig u = case u ^. uvWorld . input . mouseContext of return $ OverInvDrag i' (Just (i, j)) above bneath overinv = do sss <- w ^? hud . hudElement . diSections - selpos <- inverseSelNumPos cfig (invDisplayParams w) sss mpos + selpos@(i,j) <- inverseSelNumPos cfig (invDisplayParams w) sss mpos case w ^? hud . hudElement . subInventory . ciSelection of - Just _ -> return $ OverInvFilt selpos + Just _ -> do + guard (i == 0) + return $ OverInvFilt selpos _ -> do guard $ ButtonRight `M.notMember` (w ^. input . mouseButtons) + guard =<< sss ^? ix i . ssItems . ix j . siIsSelectable return $ OverInvSelect selpos overcomb = do sss <- w ^? hud . hudElement . subInventory . ciSections