Mouse functions

I rule so much. Even my kick-ass mouse functions rule.

Function MouseX(gadget=0)
If Not gadget gadget=Desktop()
hwnd=QueryObject(gadget,1)
buffer=CreateBank (8) 
GetCursorPos (buffer)
ScreenToClient (hwnd, buffer) 
x=PeekInt(buffer,0) 
FreeBank buffer
Return x
End Function

Function MouseY(gadget=0)
If Not gadget gadget=Desktop()
hwnd=QueryObject(gadget,1)
buffer=CreateBank(8) 
GetCursorPos(buffer)
ScreenToClient(hwnd, buffer)
y=PeekInt(buffer,4) 
FreeBank buffer
Return y
End Function

Function MoveMouse(x,y,gadget=0)
If Not gadget gadget=Desktop()
hwnd=QueryObject(gadget,1)
buffer=CreateBank(8)
PokeInt buffer,0,x
PokeInt buffer,4,y
ClientToScreen(hwnd,buffer)
x=PeekInt(buffer,0)
y=PeekInt(buffer,4)
SetCursorPos(x,y)
FreeBank buffer
MouseXSpeed
MouseYSpeed
End Function

Function MouseDown(button)
Select button
	Case 1 Return GetAsyncKeyState(1)
	Case 2 Return GetAsyncKeyState(2)
	Case 3 Return GetAsyncKeyState(4)
	End Select
End Function

;)