Allow shadow fidelity option, fix bug in rendering box shadows

2023-03-25 17:22:58 +00:00
parent cdc4a84d4b
commit d989acd6f2
26 changed files with 410 additions and 258 deletions
@@ -118,7 +118,7 @@ mouseActionsCr pkeys cr
 pressedMBEffectsTopInventory :: M.Map SDL.MouseButton Bool -> World -> World
 pressedMBEffectsTopInventory pkeys w
    | isDown SDL.ButtonLeft && isDown SDL.ButtonRight && inTopInv = useItem (you w) w
-    | isDown SDL.ButtonLeft && inTopInv = useLeftItem 0 w
+    | isDown SDL.ButtonLeft && inTopInv = doTopInvLeftClick (you w) w
    | isDown SDL.ButtonMiddle =
        w & cWorld . cwCamPos . camRot -~ rotation
            & input . clickMousePos .~ _mousePos (_input w)