hedgewars/uInputHandler.pas
changeset 9464 901e363d5837
parent 9082 d971f88c71c0
child 9466 8b48c27201af
equal deleted inserted replaced
9462:4cbc9a8fd559 9464:901e363d5837
   312 DefaultBinds[KeyNameToCode('j0a0d')]:= '+right';
   312 DefaultBinds[KeyNameToCode('j0a0d')]:= '+right';
   313 DefaultBinds[KeyNameToCode('j0a1u')]:= '+up';
   313 DefaultBinds[KeyNameToCode('j0a1u')]:= '+up';
   314 DefaultBinds[KeyNameToCode('j0a1d')]:= '+down';
   314 DefaultBinds[KeyNameToCode('j0a1d')]:= '+down';
   315 for i:= 1 to 10 do DefaultBinds[KeyNameToCode('f'+IntToStr(i))]:= 'slot '+IntToStr(i);
   315 for i:= 1 to 10 do DefaultBinds[KeyNameToCode('f'+IntToStr(i))]:= 'slot '+IntToStr(i);
   316 for i:= 1 to 5  do DefaultBinds[KeyNameToCode(IntToStr(i))]:= 'timer '+IntToStr(i);
   316 for i:= 1 to 5  do DefaultBinds[KeyNameToCode(IntToStr(i))]:= 'timer '+IntToStr(i);
   317 
       
   318 SetDefaultBinds();
       
   319 end;
   317 end;
   320 
   318 
   321 procedure SetBinds(var binds: TBinds);
   319 procedure SetBinds(var binds: TBinds);
   322 {$IFNDEF MOBILE}
   320 {$IFNDEF MOBILE}
   323 var
   321 var