121 

   121 

   122 {$IFDEF SDL_MIXER_NEWER}

   122 {$IFDEF SDL_MIXER_NEWER}

   123     // make sure all instances of sdl_mixer are unloaded before continuing

   123     // make sure all instances of sdl_mixer are unloaded before continuing

   124     while Mix_Init(0) <> 0 do

   124     while Mix_Init(0) <> 0 do

   125         Mix_Quit();

   125         Mix_Quit();

   127 

   127 

   128     Mix_CloseAudio();

   128     Mix_CloseAudio();

   129 end;

   129 end;

   130 

   130 

   131 procedure SoundLoad;

   131 procedure SoundLoad;

   134     s:shortstring;

   134     s:shortstring;

   135 begin

   135 begin

   136     if not isSoundEnabled then exit;

   136     if not isSoundEnabled then exit;

   137 

   137 

   138     defVoicepack:= AskForVoicepack('Default');

   138     defVoicepack:= AskForVoicepack('Default');

   140     for t:= 0 to cMaxTeams do

   140     for t:= 0 to cMaxTeams do

   141         if voicepacks[t].name <> '' then

   141         if voicepacks[t].name <> '' then

   142             for i:= Low(TSound) to High(TSound) do

   142             for i:= Low(TSound) to High(TSound) do

   143                 voicepacks[t].chunks[i]:= nil;

   143                 voicepacks[t].chunks[i]:= nil;

   145     for i:= Low(TSound) to High(TSound) do

   145     for i:= Low(TSound) to High(TSound) do

   146     begin

   146     begin

   147         defVoicepack^.chunks[i]:= nil;

   147         defVoicepack^.chunks[i]:= nil;

   148         // preload all the big sound files (>32k) that would otherwise lockup the game

   148         // preload all the big sound files (>32k) that would otherwise lockup the game

   150             and (Soundz[i].Path <> ptVoices) and (Soundz[i].FileName <> '') then

   150             and (Soundz[i].Path <> ptVoices) and (Soundz[i].FileName <> '') then

   151         begin

   151         begin

   152             s:= Pathz[Soundz[i].Path] + '/' + Soundz[i].FileName;

   152             s:= Pathz[Soundz[i].Path] + '/' + Soundz[i].FileName;

   153             WriteToConsole(msgLoading + s + ' ');

   153             WriteToConsole(msgLoading + s + ' ');

   154             defVoicepack^.chunks[i]:= Mix_LoadWAV_RW(SDL_RWFromFile(Str2PChar(s), 'rb'), 1);

   154             defVoicepack^.chunks[i]:= Mix_LoadWAV_RW(SDL_RWFromFile(Str2PChar(s), 'rb'), 1);