Add hammer for left click items when holding down right click

2022-05-23 14:04:10 +01:00
parent a870457f2a
commit dcd3fdf563
5 changed files with 9 additions and 2 deletions
@@ -19,9 +19,12 @@ updateUsingInput w = case _hudElement $ _hud w of
 updatePressedButtons :: S.Set MouseButton -> World -> World
 updatePressedButtons pkeys w 
    | isDown ButtonLeft && isDown ButtonRight && inTopInv 
-        = useItem (you w) w
+        = useItem (you w) w & doubleMouseHammer .~ HammerDown
    | isDown ButtonLeft && (inTopInv || _timeFlow w == RewindingLastFrame)
+            && _doubleMouseHammer w == HammerUp
        = useLeftItem (_yourID w) w
+    | isDown ButtonLeft && (inTopInv || _timeFlow w == RewindingLastFrame)
+        = w & doubleMouseHammer .~ HammerDown
    | isDown ButtonMiddle 
        = w & cameraRot     -~ rotation
            & clickMousePos .~ _mousePos w