hedgewars/uInputHandler.pas
branchwebgl
changeset 9127 e350500c4edb
parent 8833 c13ebed437cb
parent 9082 d971f88c71c0
child 9521 8054d9d775fd
equal deleted inserted replaced
8860:bde641cf53c8 9127:e350500c4edb
     1 (*
     1 (*
     2  * Hedgewars, a free turn based strategy game
     2  * Hedgewars, a free turn based strategy game
     3  * Copyright (c) 2004-2012 Andrey Korotaev <unC0Rr@gmail.com>
     3  * Copyright (c) 2004-2013 Andrey Korotaev <unC0Rr@gmail.com>
     4  *
     4  *
     5  * This program is free software; you can redistribute it and/or modify
     5  * This program is free software; you can redistribute it and/or modify
     6  * it under the terms of the GNU General Public License as published by
     6  * it under the terms of the GNU General Public License as published by
     7  * the Free Software Foundation; version 2 of the License
     7  * the Free Software Foundation; version 2 of the License
     8  *
     8  *
   287 DefaultBinds[KeyNameToCode(_S's')]:= '+speedup';
   287 DefaultBinds[KeyNameToCode(_S's')]:= '+speedup';
   288 DefaultBinds[KeyNameToCode(_S't')]:= 'chat';
   288 DefaultBinds[KeyNameToCode(_S't')]:= 'chat';
   289 DefaultBinds[KeyNameToCode(_S'y')]:= 'confirm';
   289 DefaultBinds[KeyNameToCode(_S'y')]:= 'confirm';
   290 
   290 
   291 DefaultBinds[KeyNameToCode('mousem')]:= 'zoomreset';
   291 DefaultBinds[KeyNameToCode('mousem')]:= 'zoomreset';
   292 DefaultBinds[KeyNameToCode('wheelup')]:= 'zoomout';
   292 DefaultBinds[KeyNameToCode('wheelup')]:= 'zoomin';
   293 DefaultBinds[KeyNameToCode('wheeldown')]:= 'zoomin';
   293 DefaultBinds[KeyNameToCode('wheeldown')]:= 'zoomout';
   294 
   294 
   295 DefaultBinds[KeyNameToCode('f12')]:= 'fullscr';
   295 DefaultBinds[KeyNameToCode('f12')]:= 'fullscr';
   296 
   296 
   297 
   297 
   298 DefaultBinds[KeyNameToCode('mousel')]:= '/put';
   298 DefaultBinds[KeyNameToCode('mousel')]:= '/put';