hedgewars/uSound.pas
changeset 7423 ec8f690f3e0f
parent 7404 38a23771ee45
child 7848 775a72905708
equal deleted inserted replaced
7420:77567b03cc28 7423:ec8f690f3e0f
   585 begin
   585 begin
   586     RegisterVariable('voicepack', @chVoicepack, false);
   586     RegisterVariable('voicepack', @chVoicepack, false);
   587     RegisterVariable('mute'     , @chMute     , true );
   587     RegisterVariable('mute'     , @chMute     , true );
   588 
   588 
   589     MusicFN:='';
   589     MusicFN:='';
   590     isMusicEnabled:= true;
       
   591     isSoundEnabled:= true;
       
   592     isAudioMuted:= false;
   590     isAudioMuted:= false;
   593     isSEBackup:= isSoundEnabled;
   591     isSEBackup:= isSoundEnabled;
   594     cInitVolume:= 100;
       
   595     Volume:= 0;
   592     Volume:= 0;
   596     defVoicepack:= AskForVoicepack('Default');
   593     defVoicepack:= AskForVoicepack('Default');
   597 
   594 
   598     for i:= Low(TSound) to High(TSound) do
   595     for i:= Low(TSound) to High(TSound) do
   599         lastChan[i]:= -1;
   596         lastChan[i]:= -1;
   613 
   610 
   614 procedure freeModule;
   611 procedure freeModule;
   615 begin
   612 begin
   616     if isSoundEnabled then
   613     if isSoundEnabled then
   617         ReleaseSound(true);
   614         ReleaseSound(true);
       
   615     // koda still needs to fix this properly.  when he rearranged things, he made these variables get
       
   616     // reset after argparsers picks them up
       
   617     isMusicEnabled:= true;
       
   618     isSoundEnabled:= true;
       
   619     cInitVolume:= 100;
   618 end;
   620 end;
   619 
   621 
   620 end.
   622 end.
   621 
   623