--- a/hedgewars/CCHandlers.inc	Sat Jan 27 14:06:29 2007 +0000
+++ b/hedgewars/CCHandlers.inc	Sat Jan 27 14:18:33 2007 +0000
@@ -35,7 +35,7 @@
 end;
 
 procedure chCheckProto(var s: shortstring);
-var i, c: integer;
+var i, c: LongInt;
 begin
 if isDeveloperMode then
    begin
@@ -97,7 +97,7 @@
 end;
 
 procedure chColor(var id: shortstring);
-var c: integer;
+var c: LongInt;
 begin
 if CurrentTeam = nil then OutError(errmsgIncorrectUse + ' "/color"', true);
 val(id, CurrentTeam^.Color, c);
@@ -107,7 +107,7 @@
 
 procedure chAddHH(var id: shortstring);
 var s: shortstring;
-    c: integer;
+    c: LongInt;
     Gear: PGear;
 begin
 if (not isDeveloperMode)or(CurrentTeam=nil) then exit;
@@ -133,7 +133,7 @@
 
 procedure chBind(var id: shortstring);
 var s: shortstring;
-    b: integer;
+    b: LongInt;
 begin
 if CurrentTeam = nil then exit;
 SplitBySpace(id, s);