485 begin

   485 begin

   486     if (MusicFN = '') or (not isMusicEnabled) then

   486     if (MusicFN = '') or (not isMusicEnabled) then

   487         exit;

   487         exit;

   488 

   488 

   489     if Mus <> nil then

   489     if Mus <> nil then

   490         Mix_FreeMusic(Mus);

   491         Mix_FreeMusic(Mus);

   491 end;

   494 end;

   492 

   495 

   493 procedure chVoicepack(var s: shortstring);

   496 procedure chVoicepack(var s: shortstring);

   494 begin

   497 begin

   495     if CurrentTeam = nil then OutError(errmsgIncorrectUse + ' "/voicepack"', true);

   498     if CurrentTeam = nil then OutError(errmsgIncorrectUse + ' "/voicepack"', true);