'$Include:'gx/gx.bi'
GXSceneCreate 500, 300
GXFrameRate 10
GXDeviceInputDetect dleft
PrintDeviceInput dleft
GXDeviceInputDetect dright
PrintDeviceInput dright
GXDeviceInputDetect djump
PrintDeviceInput djump
GXSceneStart
Sub GXOnGameEvent
(e
As GXEvent
) If GXKeyDown
(GXKEY_ESC
) Then GXSceneStop
GXDrawText GXFONT_DEFAULT, 10, 10, "Press one or more mapped inputs:"
If GXDeviceInputTest
(dleft
) Then GXDrawText GXFONT_DEFAULT, 100, 100, "Left"
If GXDeviceInputTest
(dright
) Then GXDrawText GXFONT_DEFAULT, 150, 100, "Right"
If GXDeviceInputTest
(djump
) Then GXDrawText GXFONT_DEFAULT, 125, 125, "Jump"
Sub PrintDeviceInput
(di
As GXDeviceInput
) Print GXDeviceName
(di.deviceId
) + " : ";
Print GXInputTypeName
(di.inputType
) + " : ";
If di.deviceType
= GXDEVICE_KEYBOARD
Then Print " [ "; GXKeyButtonName
(di.inputId
);
" ]";
Print " : "; di.inputValue
'$Include:'gx/gx.bm'