hedgewars/uTeams.pas
changeset 11734 f48408dcea36
parent 11539 c22d292e7266
child 11913 232b57a70aca
equal deleted inserted replaced
11733:67049c8dedd1 11734: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