hedgewars/uInputHandler.pas
changeset 7192 e6c379b486d5
parent 7191 9419294e5f33
child 7193 65a022bf6bde
child 7194 d8e68cbca7ee
--- a/hedgewars/uInputHandler.pas	Thu Jun 07 01:10:57 2012 +0200
+++ b/hedgewars/uInputHandler.pas	Thu Jun 07 01:28:39 2012 +0200
@@ -59,18 +59,13 @@
     code:= cKeyMaxIndex;
     while (code > 0) and (KeyNames[code] <> name) do dec(code);
 
-
     MaskModifier(Modifier, code);
-    WriteLnToConsole(inttostr(code));
-
     KeyNameToCode:= code;
 end;
 
 procedure MaskModifier(var code: LongInt; Modifier: LongWord);
 begin
-    WriteLnToConsole(inttostr(code));
     code:= code or (modifier shl 10);
-    WriteLnToConsole(inttostr(code));
 end;
 
 procedure MaskModifier(Modifier: shortstring; var code: LongInt);
@@ -89,7 +84,6 @@
     begin 
     mod_:= '';
     SplitByChar(Modifier, mod_, ':');
-    WriteLnToConsole(Modifier + ' baaaaa' );
     if (Modifier = 'lshift')                    then code:= code or (KMOD_LSHIFT shl 10);
     if (Modifier = 'rshift')                    then code:= code or (KMOD_RSHIFT shl 10);
     if (Modifier = 'lalt')                      then code:= code or (KMOD_LALT   shl 10);
@@ -105,7 +99,6 @@
     Trusted: boolean;
     s      : string;
 begin
-WriteLnToConsole(inttostr(code) + ' KeyDown:' + inttostr(ord(keydown)) + CurrentBinds[code]) ; 
 if not(tkbd[code] xor KeyDown) then exit;
 tkbd[code]:= KeyDown;