Allow filtering of combinations with mouse click on inventory

2024-11-04 00:07:37 +00:00
parent adca54c1ef
commit fafef1275b
11 changed files with 125 additions and 80 deletions
@@ -294,7 +294,7 @@ checkTermDist w = fromMaybe w $ do
    guard $ dist btpos (_crPos $ you w) > 40
    return $
        w & hud . hudElement . subInventory
-            .~ NoSubInventory MouseInvNothing Nothing
+            .~ NoSubInventory MouseInvNothing

 updateMouseInventorySelection :: Configuration -> World -> World
 updateMouseInventorySelection cfig w = fromMaybe w $ do
@@ -382,7 +382,7 @@ updateMouseOverInventory :: Configuration -> World -> World
 updateMouseOverInventory cfig w = fromMaybe w $ do
    sss <- w ^? hud . hudElement . diSections
    return $
-        w & hud . hudElement . subInventory . nsMouseOver
+        w & hud . hudElement . diMouseOver
            .~ inverseSelNumPos cfig ldp sss (w ^. input . mousePos)
  where
    ldp = invDisplayParams w