hedgewars/uTeams.pas
changeset 14931 ba5fd934f49b
parent 14734 e57c8ace7d96
child 14940 8b848c2939da
equal deleted inserted replaced
14930:632538406573 14931:ba5fd934f49b
   850         loadTeamBinds(ts);
   850         loadTeamBinds(ts);
   851 
   851 
   852         if GameType in [gmtDemo, gmtSave, gmtRecord] then
   852         if GameType in [gmtDemo, gmtSave, gmtRecord] then
   853             CurrentTeam^.ExtDriven:= true;
   853             CurrentTeam^.ExtDriven:= true;
   854 
   854 
   855         CurrentTeam^.voicepack:= AskForVoicepack('Default')
   855         CurrentTeam^.voicepack:= AskForVoicepack('Default_qau')
   856         end
   856         end
   857     end
   857     end
   858 end;
   858 end;
   859 
   859 
   860 procedure chSetMissionTeam(var s: shortstring);
   860 procedure chSetMissionTeam(var s: shortstring);
   872     if CurrentTeam <> nil then
   872     if CurrentTeam <> nil then
   873         begin
   873         begin
   874         CurrentTeam^.TeamName:= ts;
   874         CurrentTeam^.TeamName:= ts;
   875         CurrentTeam^.PlayerHash:= s;
   875         CurrentTeam^.PlayerHash:= s;
   876         loadTeamBinds(ts);
   876         loadTeamBinds(ts);
   877         CurrentTeam^.voicepack:= AskForVoicepack('Default')
   877         CurrentTeam^.voicepack:= AskForVoicepack('Default_qau')
   878         end
   878         end
   879     end
   879     end
   880 end;
   880 end;
   881 
   881 
   882 procedure chSetHHCoords(var x: shortstring);
   882 procedure chSetHHCoords(var x: shortstring);