Allow rewinding after combining items

2022-02-19 11:04:52 +00:00
parent 9923897fe2
commit 3f20398ed0
7 changed files with 25 additions and 19 deletions
@@ -19,7 +19,9 @@ updateUsingInput w = if _carteDisplay w
 updatePressedButtons :: S.Set MouseButton -> World -> World
 updatePressedButtons pkeys w 
    | lbPressed && rbPressed = tryUseItem (you w) w
-    | lbPressed = useLeftItem (_yourID w) w
+    | lbPressed && 
+        (_inventoryMode w == TopInventory || _rewinding w == RewindingLastFrame)
+        = useLeftItem (_yourID w) w
 --    | lbPressed = w
    | mbPressed = w & clickMousePos .~ _mousePos w 
        & cameraRot -~ rotation