482 begin

   482 begin

   483 New(team);

   483 New(team);

   484 if checkFails(team <> nil, 'AddTeam: team = nil', true) then exit(nil);

   484 if checkFails(team <> nil, 'AddTeam: team = nil', true) then exit(nil);

   485 FillChar(team^, sizeof(TTeam), 0);

   485 FillChar(team^, sizeof(TTeam), 0);

   486 team^.HedgehogsNumber:= 0;

   486 team^.HedgehogsNumber:= 0;

   487 

   488 

   488 CurrentTeam:= team;

   489 CurrentTeam:= team;

   489 MissionTeam:= team;

   490 MissionTeam:= team;

   490 SetMissionTeam:= team;

   491 SetMissionTeam:= team;

   491 end;

   492 end;

   870 

   871 

   871     if CurrentTeam <> nil then

   872     if CurrentTeam <> nil then

   872         begin

   873         begin

   873         CurrentTeam^.TeamName:= ts;

   874         CurrentTeam^.TeamName:= ts;

   874         CurrentTeam^.PlayerHash:= s;

   875         CurrentTeam^.PlayerHash:= s;

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

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

   876         end

   878         end

   877     end

   879     end

   878 end;

   880 end;

   879 

   881