Start adding mouse control of inventory

2024-10-15 23:26:08 +01:00
parent e745238b8f
commit cf0873d73b
18 changed files with 333 additions and 269 deletions
@@ -30,7 +30,8 @@ import Regex

 toggleCombineInv :: Universe -> Universe
 toggleCombineInv uv = case uv ^? uvWorld . hud . hudElement . subInventory of
-    Just CombineInventory{} -> uv & uvWorld . hud . hudElement . subInventory .~ NoSubInventory
+    Just CombineInventory{} -> uv & uvWorld . hud . hudElement . subInventory 
+        .~ NoSubInventory Nothing Nothing
    _ -> uv & uvWorld %~ enterCombineInv (uv ^. uvConfig)

 updateCombinePositioning :: Universe -> Universe