396 team^.CurrHedgehog:= 0;

   396 team^.CurrHedgehog:= 0;

   397 team^.Flag:= 'hedgewars';

   397 team^.Flag:= 'hedgewars';

   398 

   398 

   399 TeamsArray[TeamsCount]:= team;

   399 TeamsArray[TeamsCount]:= team;

   400 inc(TeamsCount);

   400 inc(TeamsCount);

   401 

   402 

   402 team^.Binds:= DefaultBinds;

   403 team^.Binds:= DefaultBinds;

   403 

   404 

   404 c:= Pred(ClansCount);

   405 c:= Pred(ClansCount);

   405 while (c >= 0) and (ClansArray[c]^.Color <> TeamColor) do dec(c);

   406 while (c >= 0) and (ClansArray[c]^.Color <> TeamColor) do dec(c);