JoyType ([port])

Blitz3D Forums/Blitz3D Beginners Area/JoyType ([port])

DNielsen
 #1
And here is my result:
Function Display_JoySticks()
Local		PortCount%		=	0
		PortID%		=	0
		PortString$		=	""
		Text (Cursor_X2Pos,Cursor_Y2Pos,"Joystick(s) connected   : ",False,False)
		For PortCount = 0 To 3
		PortID = JoyType(PortCount)
		Select PortID
		Case 0 : PortString$ = "None"
		Case 1 : PortString$ = "Digital"
		Case 2 : PortString$ = "Analog"
		End Select
		Text (Cursor_X2Pos,Cursor_Y2Pos,"                          Port" + " " + PortCount + " - " + PortString$,False,False)
		Cursor_Y2Pos = Cursor_Y2Pos + Cursor_Size
		Next
End Function