hedgewars/uInputHandler.pas
changeset 7071 c431a4a8ab0f
parent 7049 35d762458d66
child 7088 dbec9bae4de1
equal deleted inserted replaced
7070:8d4189609e90 7071:c431a4a8ab0f
   250                 s[t]:= '_';
   250                 s[t]:= '_';
   251         KeyNames[i]:= LowerCase(s)
   251         KeyNames[i]:= LowerCase(s)
   252         end;
   252         end;
   253     end;
   253     end;
   254 
   254 
   255 quitKeyCode:= KeyNameToCode('q');
   255 quitKeyCode:= KeyNameToCode(_S'q');
   256 
   256 
   257 // get the size of keyboard array
   257 // get the size of keyboard array
   258 SDL_GetKeyState(@k);
   258 SDL_GetKeyState(@k);
   259 
   259 
   260 // Controller(s)
   260 // Controller(s)
   287 
   287 
   288 //numpad
   288 //numpad
   289 //DefaultBinds[265]:= '+volup';
   289 //DefaultBinds[265]:= '+volup';
   290 //DefaultBinds[256]:= '+voldown';
   290 //DefaultBinds[256]:= '+voldown';
   291 
   291 
   292 DefaultBinds[KeyNameToCode('0')]:= '+volup';
   292 DefaultBinds[KeyNameToCode(_S'0')]:= '+volup';
   293 DefaultBinds[KeyNameToCode('9')]:= '+voldown';
   293 DefaultBinds[KeyNameToCode(_S'9')]:= '+voldown';
   294 DefaultBinds[KeyNameToCode('c')]:= 'capture';
   294 DefaultBinds[KeyNameToCode(_S'c')]:= 'capture';
   295 DefaultBinds[KeyNameToCode('h')]:= 'findhh';
   295 DefaultBinds[KeyNameToCode(_S'h')]:= 'findhh';
   296 DefaultBinds[KeyNameToCode('p')]:= 'pause';
   296 DefaultBinds[KeyNameToCode(_S'p')]:= 'pause';
   297 DefaultBinds[KeyNameToCode('s')]:= '+speedup';
   297 DefaultBinds[KeyNameToCode(_S's')]:= '+speedup';
   298 DefaultBinds[KeyNameToCode('t')]:= 'chat';
   298 DefaultBinds[KeyNameToCode(_S't')]:= 'chat';
   299 DefaultBinds[KeyNameToCode('y')]:= 'confirm';
   299 DefaultBinds[KeyNameToCode(_S'y')]:= 'confirm';
   300 
   300 
   301 DefaultBinds[KeyNameToCode('mousem')]:= 'zoomreset';
   301 DefaultBinds[KeyNameToCode('mousem')]:= 'zoomreset';
   302 DefaultBinds[KeyNameToCode('wheelup')]:= 'zoomout';
   302 DefaultBinds[KeyNameToCode('wheelup')]:= 'zoomout';
   303 DefaultBinds[KeyNameToCode('wheeldown')]:= 'zoomin';
   303 DefaultBinds[KeyNameToCode('wheeldown')]:= 'zoomin';
   304 
   304