fix f10 default if no team binds
authornemo
Wed, 06 Nov 2013 09:26:14 -0500
changeset 9678 aa349a876c93
parent 9676 ce7396d4eaf7
child 9680 50a001b1964e
child 9681 69a1e18330c0
fix f10 default if no team binds
hedgewars/uInputHandler.pas
--- a/hedgewars/uInputHandler.pas	Tue Nov 05 11:04:26 2013 +0400
+++ b/hedgewars/uInputHandler.pas	Wed Nov 06 09:26:14 2013 -0500
@@ -313,7 +313,7 @@
 DefaultBinds[KeyNameToCode('j0a0d')]:= '+right';
 DefaultBinds[KeyNameToCode('j0a1u')]:= '+up';
 DefaultBinds[KeyNameToCode('j0a1d')]:= '+down';
-for i:= 1 to 10 do DefaultBinds[KeyNameToCode('f'+IntToStr(i))]:= 'slot '+IntToStr(i);
+for i:= 1 to 10 do DefaultBinds[KeyNameToCode('f'+IntToStr(i))]:= 'slot '+char(i+48);
 for i:= 1 to 5  do DefaultBinds[KeyNameToCode(IntToStr(i))]:= 'timer '+IntToStr(i);
 
 loadBinds('dbind', cPathz[ptData] + '/settings.ini');