--- a/hedgewars/uTeams.pas	Sat May 17 22:21:45 2008 +0000
+++ b/hedgewars/uTeams.pas	Sun May 18 10:54:43 2008 +0000
@@ -68,6 +68,7 @@
              CurrTeam: LongWord;
              ClanHealth: LongInt;
              ClanIndex: LongInt;
+             TurnNumber: LongWord;
              end;
 
 var CurrentTeam: PTeam = nil;
@@ -181,6 +182,9 @@
      InsertGearToList(Gear);
      FollowGear:= Gear
      end;
+
+inc(CurrentTeam^.Clan^.TurnNumber);
+
 ResetKbd;
 
 cWindSpeed:= rndSign(GetRandom * cMaxWindSpeed);