# HG changeset patch
# User Xeli
# Date 1338917629 -7200
# Node ID 211ab9e2cb15d77a425134284daeed194b799043
# Parent  95dc11d648fb9d6dfe2a375763b6f557bde36014
only reset those keys which actually change their bindings

diff -r 95dc11d648fb -r 211ab9e2cb15 hedgewars/uInputHandler.pas
--- a/hedgewars/uInputHandler.pas	Mon Jun 04 19:43:39 2012 -0400
+++ b/hedgewars/uInputHandler.pas	Tue Jun 05 19:33:49 2012 +0200
@@ -239,11 +239,19 @@
 end;
 
 procedure SetBinds(var binds: TBinds);
+{$IFNDEF MOBILE}
+var
+    t: LongInt;
+{$ENDIF}
 begin
 {$IFDEF MOBILE}
     binds:= binds; // avoid hint
     CurrentBinds:= DefaultBinds;
 {$ELSE}
+for t:= 0 to cKeyMaxIndex do
+    if (CurrentBinds[t] <> binds[t]) and tkbd[t] then
+        ProcessKey(t, False);
+
     CurrentBinds:= binds;
 {$ENDIF}
 end;
diff -r 95dc11d648fb -r 211ab9e2cb15 hedgewars/uTeams.pas
--- a/hedgewars/uTeams.pas	Mon Jun 04 19:43:39 2012 -0400
+++ b/hedgewars/uTeams.pas	Tue Jun 05 19:33:49 2012 +0200
@@ -248,8 +248,6 @@
     FollowGear:= Gear
     end;
 
-ResetKbd;
-
 if (GameFlags and gfDisableWind) = 0 then
     begin
     cWindSpeed:= rndSign(GetRandomf * 2 * cMaxWindSpeed);