hedgewars/uTeams.pas
changeset 11739 f48408dcea36
parent 11544 c22d292e7266
child 11918 232b57a70aca
equal deleted inserted replaced
11738:67049c8dedd1 11739:f48408dcea36
   393 with team^.Clan^ do
   393 with team^.Clan^ do
   394     begin
   394     begin
   395     Teams[TeamsNumber]:= team;
   395     Teams[TeamsNumber]:= team;
   396     inc(TeamsNumber)
   396     inc(TeamsNumber)
   397     end;
   397     end;
       
   398 
       
   399 // mirror changes into array for clans to spawn
       
   400 SpawnClansArray:= ClansArray;
   398 
   401 
   399 CurrentTeam:= team;
   402 CurrentTeam:= team;
   400 AddTeam:= team;
   403 AddTeam:= team;
   401 end;
   404 end;
   402 
   405