equal
deleted
inserted
replaced
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 |