530     // color is always little endian so the mask must be constant also in big endian archs

   530     // color is always little endian so the mask must be constant also in big endian archs

   531     Color:= Color or $FF000000;

   531     Color:= Color or $FF000000;

   532     AddTeam(Color);

   532     AddTeam(Color);

   533     CurrentTeam^.TeamName:= ts;

   533     CurrentTeam^.TeamName:= ts;

   534     CurrentTeam^.PlayerHash:= s;

   534     CurrentTeam^.PlayerHash:= s;

   536         CurrentTeam^.ExtDriven:= true;

   536         CurrentTeam^.ExtDriven:= true;

   537 

   537 

   538     CurrentTeam^.voicepack:= AskForVoicepack('Default')

   538     CurrentTeam^.voicepack:= AskForVoicepack('Default')

   539     end

   539     end

   540 end;

   540 end;