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
@@ -22,7 +22,7 @@ updateWheelEvent yi w = case w ^. hud . hudElement of
    DisplayCarte
        | bdown ButtonRight -> w & hud . carteZoom %~ min 0.75 . max 0.05 . ((1 + y * 0.1) *)
        | otherwise -> w & cWorld . lWorld . selLocation %~ (`mod` numLocs) . (+ yi)
-    DisplayInventory{_subInventory = NoSubInventory}
+    DisplayInventory{_subInventory = NoSubInventory{}}
        -- functions that modify the inventory should be centralised so that
        -- this lock can be sensibly applied, perhaps
        | w ^?! cWorld . lWorld . creatures . ix 0 . crInvLock -> w