hedgewars/uInputHandler.pas
branchqmlfrontend
changeset 10434 1614b13ad35e
parent 10392 5012e1f9e893
child 10515 7705784902e1
equal deleted inserted replaced
10432:b0abef0ee78c 10434:1614b13ad35e
   329 DefaultBinds[KeyNameToCode('j0a1u')]:= '+up';
   329 DefaultBinds[KeyNameToCode('j0a1u')]:= '+up';
   330 DefaultBinds[KeyNameToCode('j0a1d')]:= '+down';
   330 DefaultBinds[KeyNameToCode('j0a1d')]:= '+down';
   331 for i:= 1 to 10 do DefaultBinds[KeyNameToCode('f'+IntToStr(i))]:= 'slot '+char(i+48);
   331 for i:= 1 to 10 do DefaultBinds[KeyNameToCode('f'+IntToStr(i))]:= 'slot '+char(i+48);
   332 for i:= 1 to 5  do DefaultBinds[KeyNameToCode(IntToStr(i))]:= 'timer '+IntToStr(i);
   332 for i:= 1 to 5  do DefaultBinds[KeyNameToCode(IntToStr(i))]:= 'timer '+IntToStr(i);
   333 
   333 
   334 loadBinds('dbind', cPathz[ptData] + '/settings.ini');
   334 loadBinds('dbind', cPathz[ptConfig] + '/settings.ini');
   335 end;
   335 end;
   336 
   336 
   337 procedure SetBinds(var binds: TBinds);
   337 procedure SetBinds(var binds: TBinds);
   338 {$IFNDEF MOBILE}
   338 {$IFNDEF MOBILE}
   339 var
   339 var
   470     f: PFSFile;
   470     f: PFSFile;
   471     p, l: shortstring;
   471     p, l: shortstring;
   472     b: byte;
   472     b: byte;
   473 begin
   473 begin
   474     if cOnlyStats then exit;
   474     if cOnlyStats then exit;
   475     
   475 
   476     AddFileLog('[BINDS] Loading binds from: ' + s);
   476     AddFileLog('[BINDS] Loading binds from: ' + s);
   477 
   477 
   478     l:= '';
   478     l:= '';
   479     if pfsExists(s) then
   479     if pfsExists(s) then
   480         begin
   480         begin