TBDI module Alpha 2

[Michael Hartlef]

Hi folks,

friends are gone and I had some more time with the DirectInput module.
Say goodbye to 2 functions (TBDI_INIT and TBDI_CLOSE)!
Say hello to 18 new functions to make your life regarding joysticks easier.

Here is the current command set:

[code=thinbasic]n = TBDI_JoyButton ( buttonnumber AS LONG) 'Check if a button is pressed
n = TBDI_JoyX 'Retrieve the X-Axxis (default= -1024 to 1024)
n = TBDI_JoyY 'Retrieve the Y-Axxis (default= -1024 to 1024)
n = TBDI_JoyZ 'Retrieve the Z-Axxis (default= -1024 to 1024)

n = TBDI_JoyRX 'Retrieve the rotation X-Axxis (default= -1024 to 1024)
n = TBDI_JoyRY 'Retrieve the rotation Y-Axxis (default= -1024 to 1024)
n = TBDI_JoyrZ 'Retrieve the rotation Z-Axxis (default= -1024 to 1024)

n = TBDI_JoyAvail 'Returns %TRUE if Joystick is available.
n = TBDI_JoyCountBtn 'Returns the amount of buttons available
n = TBDI_JoyCountAxes 'Returns the amount of axxis available
n = TBDI_JoyCountPOV 'Returns the amount of POV switches available

n = TBDI_JoyPOV( POVnumber as LONG) 'Retrieve the POV data in degree*100, POVNUMBER starts with 1
n = TBDI_JoySlider( slidernumber as LONG) 'Retrieve slider data

TBDI_JoySetRangeXYZ(min as LONG, max as LONG) 'Sets the range for all axxis
TBDI_JoySetRangeX(min as LONG, max as LONG) 'Sets the range for X-axxis
TBDI_JoySetRangeY(min as LONG, max as LONG) 'Sets the range for Y-axxis
TBDI_JoySetRangeZ(min as LONG, max as LONG) 'Sets the range for Z-axxis

TBDI_JoySetDeadZoneXYZ(percent as LONG) 'Sets the deadzone for all axxis
TBDI_JoySetDeadZoneX(percent as LONG) 'Sets the deadzone for X-axxis
TBDI_JoySetDeadZoneY(percent as LONG) 'Sets the deadzone for Y-axxis
TBDI_JoySetDeadZoneZ(percent as LONG) 'Sets the deadzone for Z-axxis
[/code]

Suggestions, critics and other things are allways welcome.

Cheers
Michael