equal
deleted
inserted
replaced
411 var Controller: array [0..5] of PSDL_Joystick; |
411 var Controller: array [0..5] of PSDL_Joystick; |
412 |
412 |
413 procedure ControllerInit; |
413 procedure ControllerInit; |
414 var i, j: Integer; |
414 var i, j: Integer; |
415 begin |
415 begin |
|
416 SDL_InitSubSystem(SDL_INIT_JOYSTICK); |
|
417 |
416 ControllerEnabled:= 0; |
418 ControllerEnabled:= 0; |
417 ControllerNumControllers:= SDL_NumJoysticks; |
419 ControllerNumControllers:= SDL_NumJoysticks(); |
418 |
420 |
419 if ControllerNumControllers > 6 then ControllerNumControllers:= 6; |
421 if ControllerNumControllers > 6 then ControllerNumControllers:= 6; |
420 |
422 |
421 WriteLnToConsole('Number of game controllers: ' + inttostr(ControllerNumControllers)); |
423 WriteLnToConsole('Number of game controllers: ' + inttostr(ControllerNumControllers)); |
422 |
424 |