From 9da80a042947ce11394ae1f686a064c110316236 Mon Sep 17 00:00:00 2001 From: justin Date: Mon, 25 Nov 2024 22:21:36 +0000 Subject: [PATCH] Partial fix on selecting unselectable items using mouse --- src/Dodge/Update.hs | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) 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