--- a/hedgewars/uInputHandler.pas	Mon Dec 10 19:20:36 2018 +0100
+++ b/hedgewars/uInputHandler.pas	Mon Dec 10 21:04:37 2018 +0100
@@ -38,6 +38,10 @@
 procedure ProcessKey(event: TSDL_KeyboardEvent); inline;
 procedure ProcessKey(code: LongInt; KeyDown: boolean);
 
+{$IFDEF USE_AM_NUMCOLUMN}
+function CheckDefaultSlotKeys: boolean;
+{$ENDIF}
+
 procedure ResetKbd;
 procedure ResetMouseWheel;
 procedure FreezeEnterKey;
@@ -488,6 +492,32 @@
 end;
 
 
+{$IFDEF USE_AM_NUMCOLUMN}
+function CheckDefaultSlotKeys: boolean;
+{$IFDEF USE_TOUCH_INTERFACE}
+begin
+    CheckDefaultSlotKeys:= false;
+{$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;
+{$ENDIF}
 
 {$IFNDEF MOBILE}
 procedure SetBinds(var binds: TBinds);