# HG changeset patch
# User Xeli
# Date 1339236905 -7200
# Node ID 2d78dc517c91efcb4ea292f71138b088a298e8bf
# Parent  744c8a5546c6139def77ff699785fe96478ebc66
restore fpc 2.4.2 compatibility

diff -r 744c8a5546c6 -r 2d78dc517c91 hedgewars/uInputHandler.pas
--- a/hedgewars/uInputHandler.pas	Fri Jun 08 23:56:08 2012 +0400
+++ b/hedgewars/uInputHandler.pas	Sat Jun 09 12:15:05 2012 +0200
@@ -84,12 +84,12 @@
 procedure MaskModifier(Modifier: shortstring; var code: LongInt);
 var mod_ : shortstring;
     ModifierCount, i: LongInt;
-    c : char;
 begin
 if Modifier = '' then exit;
 ModifierCount:= 0;
-for c in Modifier do
-    if(c = ':') then inc(ModifierCount);
+
+for i:= 1 to Length(Modifier) do
+    if(Modifier[i] = ':') then inc(ModifierCount);
 
 SplitByChar(Modifier, mod_, ':');//remove the first mod: part
 Modifier:= mod_;