Add support for left click actions

2021-05-25 14:23:04 +02:00
parent 62c4baaec8
commit f737897b18
9 changed files with 141 additions and 34 deletions
@@ -21,6 +21,7 @@ updatePressedButtons :: S.Set MouseButton -> World -> World
 updatePressedButtons pkeys w 
    | lbPressed && rbPressed 
                = useItem (_yourID w) w
+    | lbPressed = useLeftItem (_yourID w) w
    | mbPressed = w & clickMousePos .~ _mousePos w 
                    & cameraRot     -~ rotation
    | otherwise = w