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
@@ -288,7 +288,7 @@ checkTermDist w = fromMaybe w $ do
    btid <- w ^? cWorld . lWorld . terminals . ix tmid . tmButtonID
    btpos <- w ^? cWorld . lWorld . buttons . ix btid . btPos
    guard $ dist btpos (_crPos $ you w) > 40
-    return (w & hud . hudElement . subInventory .~ NoSubInventory)
+    return (w & hud . hudElement . subInventory .~ NoSubInventory Nothing Nothing)


 updateWheelEvents :: World -> World