| changeset 2699 | 249adefa9c1c |
| parent 2695 | ed789a7ef68d |
| child 2714 | c85ffe57d971 |
| 2698:90585aba87ad | 2699:249adefa9c1c |
|---|---|
481 procedure ControllerButtonEvent(joy, button: Byte; pressed: Boolean); |
481 procedure ControllerButtonEvent(joy, button: Byte; pressed: Boolean); |
482 begin |
482 begin |
483 if pressed then ControllerButtons[joy][button]:= 1 else ControllerButtons[joy][button]:= 0; |
483 if pressed then ControllerButtons[joy][button]:= 1 else ControllerButtons[joy][button]:= 0; |
484 end; |
484 end; |
485 |
485 |
486 initialization |
|
487 |
486 |
488 end. |
487 end. |