diff -r 3d18f7f71d65 -r 3443e0de2c9d hedgewars/uTeams.pas --- a/hedgewars/uTeams.pas Fri Dec 28 23:54:42 2012 +0100 +++ b/hedgewars/uTeams.pas Sat Dec 29 22:50:10 2012 +0100 @@ -330,7 +330,7 @@ function AddTeam(TeamColor: Longword): PTeam; var team: PTeam; - c: LongInt; + c, t: LongInt; begin TryDo(TeamsCount < cMaxTeams, 'Too many teams', true); New(team); @@ -343,6 +343,9 @@ TeamsArray[TeamsCount]:= team; inc(TeamsCount); +for t:= 0 to cKbdMaxIndex do + team^.Binds[t]:= ''; + c:= Pred(ClansCount); while (c >= 0) and (ClansArray[c]^.Color <> TeamColor) do dec(c); if c < 0 then