--- a/hedgewars/uTeams.pas	Tue Jul 03 17:03:41 2007 +0000
+++ b/hedgewars/uTeams.pas	Tue Jul 03 17:06:18 2007 +0000
@@ -48,7 +48,7 @@
              ExtDriven: boolean;
              Binds: TBinds;
              Hedgehogs: array[0..cMaxHHIndex] of THedgehog;
-             CurrHedgehog: LongInt;
+             CurrHedgehog: LongWord;
              NameTag: PSDL_Surface;
              CrosshairSurf: PSDL_Surface;
              GraveRect, HealthRect: TSDL_Rect;
@@ -64,7 +64,7 @@
              Color, AdjColor: Longword;
              Teams: array[0..Pred(cMaxTeams)] of PTeam;
              TeamsNumber: Longword;
-             CurrTeam: LongInt;
+             CurrTeam: LongWord;
              ClanHealth: LongInt;
              ClanIndex: LongInt;
              end;
@@ -132,7 +132,7 @@
 end;
 
 procedure SwitchHedgehog;
-var c: LongInt;
+var c: LongWord;
     t: LongWord;
     g: PGear;
 begin