421 var Controller: array [0..5] of PSDL_Joystick;

   421 var Controller: array [0..5] of PSDL_Joystick;

   422     

   422     

   423 procedure ControllerInit;

   423 procedure ControllerInit;

   424 var i, j: Integer;

   424 var i, j: Integer;

   425 begin

   425 begin

   426 SDL_InitSubSystem(SDL_INIT_JOYSTICK);

   427 SDL_InitSubSystem(SDL_INIT_JOYSTICK);

   427 

   429 

   428 ControllerEnabled:= 0;

   430 ControllerEnabled:= 0;

   429 ControllerNumControllers:= SDL_NumJoysticks();

   431 ControllerNumControllers:= SDL_NumJoysticks();

   430 

   432 

   431 if ControllerNumControllers > 6 then ControllerNumControllers:= 6;

   433 if ControllerNumControllers > 6 then ControllerNumControllers:= 6;