equal
deleted
inserted
replaced
37 |
37 |
38 procedure SetBinds(var binds: TBinds); |
38 procedure SetBinds(var binds: TBinds); |
39 procedure SetDefaultBinds; |
39 procedure SetDefaultBinds; |
40 |
40 |
41 procedure ControllerInit; |
41 procedure ControllerInit; |
42 procedure ControllerClose; |
|
43 procedure ControllerAxisEvent(joy, axis: Byte; value: Integer); |
42 procedure ControllerAxisEvent(joy, axis: Byte; value: Integer); |
44 procedure ControllerHatEvent(joy, hat, value: Byte); |
43 procedure ControllerHatEvent(joy, hat, value: Byte); |
45 procedure ControllerButtonEvent(joy, button: Byte; pressed: Boolean); |
44 procedure ControllerButtonEvent(joy, button: Byte; pressed: Boolean); |
46 |
45 |
47 implementation |
46 implementation |
417 end |
416 end |
418 else |
417 else |
419 WriteLnToConsole('Not using any game controller'); |
418 WriteLnToConsole('Not using any game controller'); |
420 end; |
419 end; |
421 |
420 |
422 procedure ControllerClose; |
|
423 var j: Integer; |
|
424 begin |
|
425 if ControllerEnabled > 0 then |
|
426 for j:= 0 to pred(ControllerNumControllers) do |
|
427 SDL_JoystickClose(Controller[j]); |
|
428 end; |
|
429 |
|
430 procedure ControllerAxisEvent(joy, axis: Byte; value: Integer); |
421 procedure ControllerAxisEvent(joy, axis: Byte; value: Integer); |
431 begin |
422 begin |
432 ControllerAxes[joy][axis]:= value; |
423 ControllerAxes[joy][axis]:= value; |
433 end; |
424 end; |
434 |
425 |
450 wheelUp:= false; |
441 wheelUp:= false; |
451 wheelDown:= false; |
442 wheelDown:= false; |
452 end; |
443 end; |
453 |
444 |
454 procedure freeModule; |
445 procedure freeModule; |
455 begin |
446 var j: LongInt; |
456 |
447 begin |
|
448 // close gamepad controllers |
|
449 if ControllerEnabled > 0 then |
|
450 for j:= 0 to pred(ControllerNumControllers) do |
|
451 SDL_JoystickClose(Controller[j]); |
457 end; |
452 end; |
458 |
453 |
459 end. |
454 end. |