diff -r 1ec44dde5eb9 -r b8f3d8991e92 hedgewars/uInputHandler.pas
--- a/hedgewars/uInputHandler.pas	Wed May 02 12:24:44 2012 +0200
+++ b/hedgewars/uInputHandler.pas	Wed May 02 11:43:43 2012 +0100
@@ -28,7 +28,9 @@
 function  KeyNameToCode(name: shortstring): word;
 procedure ProcessKbd;
 procedure ProcessMouse(event: TSDL_MouseButtonEvent; ButtonDown: boolean);
-procedure ProcessKey(event: TSDL_KeyboardEvent);
+procedure ProcessKey(event: TSDL_KeyboardEvent); inline;
+procedure ProcessKey(code: LongInt; KeyDown: boolean);
+
 procedure ResetKbd;
 procedure FreezeEnterKey;
 procedure InitKbdKeyTable;
@@ -60,10 +62,7 @@
 end;
 
 procedure ProcessKbd;
-var  i, j, k: LongInt;
-     s: shortstring;
-     Trusted: boolean;
-     pkbd: PByteArray;
+//var  i, j, k: LongInt;
 begin
 
 // move cursor/camera
@@ -72,9 +71,8 @@
 movecursor(5 * CursorMovementX, 5 * CursorMovementY);
 
 
-{$IFNDEF MOBILE}
-
 //TODO reimplement
+{$IFDEF 0}
 // Controller(s)
 k:= j; // should we test k for hitting the limit? sounds rather unlikely to ever reach it
 for j:= 0 to Pred(ControllerNumControllers) do
@@ -155,7 +153,7 @@
 
 end;
 
-procedure ProcessKey(event: TSDL_KeyboardEvent); 
+procedure ProcessKey(event: TSDL_KeyboardEvent); inline;
 begin
     ProcessKey(event.keysym.sym, event.type_ = SDL_KEYDOWN);
 end;