blob: 7b58fdf5696a6c68c5e98b1be82742620e21b8e7 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
module Chelleport.Control where
import Chelleport.Types
import Control.Concurrent (threadDelay)
import Foreign.C (CInt)
import qualified Graphics.X11 as X11
import qualified Graphics.X11.XTest as X11
import qualified SDL
triggerMouseLeftClick :: DrawContext -> IO ()
triggerMouseLeftClick (DrawContext {ctxX11Display = display}) = do
threadDelay 30_000 -- Wrap with delay to prevent async window close issues. TODO: Remove maybe?
X11.fakeButtonPress display X11.button1
X11.sync display False
threadDelay 30_000
moveMouse :: DrawContext -> CInt -> CInt -> IO ()
moveMouse _ x y = do
SDL.warpMouse SDL.WarpGlobal (SDL.P $ SDL.V2 x y)
currentMousePosition :: DrawContext -> IO (SDL.V2 CInt)
currentMousePosition _ctx = do
(SDL.P p) <- SDL.getAbsoluteMouseLocation
pure p
isKeyPress :: SDL.KeyboardEventData -> Bool
isKeyPress = (== SDL.Pressed) . SDL.keyboardEventKeyMotion
isKeyPressWith :: SDL.KeyboardEventData -> SDL.Keycode -> Bool
isKeyPressWith keyboardEvent keyCode =
isKeyPress keyboardEvent && SDL.keysymKeycode (SDL.keyboardEventKeysym keyboardEvent) == keyCode
|
