PureBasic Forums - English

Code: Select all

;norms global mouser using joystick
quit.l=0
If InitJoystick()=0
	MessageRequester("Mouser Error","No controller detected",#MB_ICONSTOP)
	End
EndIf
holdingX.l=0
holdingY.l=0
holddelayX.l=0
holddelayY.l=0
lbhold.l=0
rbhold.l=0
Repeat
	
	If ExamineJoystick(0)
		dx=JoystickAxisX(0)
		dy=JoystickAxisY(0)
		lb=Bool(JoystickButton(0,1) Or JoystickButton(0,5))
		rb=Bool(JoystickButton(0,4) Or JoystickButton(0,6))
		If JoystickButton(0,3)
			quit=1
		EndIf
		;now, read the mouse position
		GetCursorPos_(mouse.POINT) : x=mouse\x : y=mouse\y
		;now to move the mouse
		If dx
			If holddelayX
				If GetTickCount_()-holddelayX>300
					holdingX=4*dx
				EndIf
			Else
				holddelayX=GetTickCount_()
			EndIf
			x=x+dx+holdingX
			
			
		Else
			holdingx=0
			holddelayX=0
		EndIf
		If dy
			If HoldDelayY
				If GetTickCount_()-HoldDelayY>300
					holdingY=4*dy
				EndIf
			Else
				HoldDelayY=GetTickCount_()
			EndIf
			y=y+dy+holdingY
			
		Else
			holdingY=0
			HoldDelayY=0
		EndIf
		
		SetCursorPos_(x,y)
		If lb
			If lbhold=0
				mouse_event_(#MOUSEEVENTF_LEFTDOWN,0,0,0,0)
				lbhold=1
			EndIf
			
			
		Else
			If lbhold
				mouse_event_(#MOUSEEVENTF_LEFTUP,0,0,0,0)
				lbhold=0
			EndIf
		EndIf
		If rb
			If rbhold=0
				mouse_event_(#MOUSEEVENTF_RIGHTDOWN,0,0,0,0)
				rbhold=0
			EndIf
		Else
			If rbhold
				mouse_event_(#MOUSEEVENTF_RIGHTUP,0,0,0,0)
				rbhold=0
			EndIf
		EndIf
	EndIf
	Delay(1)
	
	
Until quit