Remove debugging code
authorWuzzy <Wuzzy2@mail.ru>
Mon, 10 Dec 2018 21:06:37 +0100
changeset 14412 70fe783d0548
parent 14411 71359339a493
child 14413 04231f066ada
Remove debugging code
hedgewars/uInputHandler.pas
--- a/hedgewars/uInputHandler.pas	Mon Dec 10 21:04:37 2018 +0100
+++ b/hedgewars/uInputHandler.pas	Mon Dec 10 21:06:37 2018 +0100
@@ -500,20 +500,15 @@
 {$ELSE}
 var i, code: LongInt;
 begin
-    WriteLnToConsole('Check');
     for i:=1 to cMaxSlotIndex do
         begin
         code:= KeyNameToCode('f'+IntToStr(i));
-        WriteLnToConsole('f'+IntToStr(i));
-        WriteLnToConsole(CurrentBinds.binds[CurrentBinds.indices[code]]);
         if CurrentBinds.binds[CurrentBinds.indices[code]] <> 'slot '+char(i+48) then
             begin
-            WriteLnToConsole('false');
             CheckDefaultSlotKeys:= false;
             exit;
             end;
         end;
-    WriteLnToConsole('true');
     CheckDefaultSlotKeys:= true;
 {$ENDIF}
 end;