hedgewars/uKeys.pas
changeset 3598 a8aa06bae895
parent 3523 6592fbb969da
child 3649 bc35f8fee587
equal deleted inserted replaced
3597:978c30ef50fc 3598:a8aa06bae895
   410 end;
   410 end;
   411 {$ENDIF}
   411 {$ENDIF}
   412 
   412 
   413 procedure FreezeEnterKey;
   413 procedure FreezeEnterKey;
   414 begin
   414 begin
   415 tkbd[13]:= 1;
   415     tkbd[13]:= 1;
   416 tkbd[271]:= 1;
   416     tkbd[271]:= 1;
   417 end;
   417 end;
   418 
   418 
   419 var Controller: array [0..5] of PSDL_Joystick;
   419 var Controller: array [0..5] of PSDL_Joystick;
   420     
   420     
   421 procedure ControllerInit;
   421 procedure ControllerInit;