equal
deleted
inserted
replaced
828 begin |
828 begin |
829 if not isSoundEnabled then |
829 if not isSoundEnabled then |
830 exit; |
830 exit; |
831 |
831 |
832 if (chn <> -1) and (Mix_Playing(chn) <> 0) then |
832 if (chn <> -1) and (Mix_Playing(chn) <> 0) then |
833 Mix_FadeOutChannel(chn, fadems); |
833 if isAudioMuted then |
|
834 Mix_HaltChannel(chn) |
|
835 else |
|
836 Mix_FadeOutChannel(chn, fadems); |
834 end; |
837 end; |
835 |
838 |
836 procedure PlayMusic; |
839 procedure PlayMusic; |
837 var s: shortstring; |
840 var s: shortstring; |
838 begin |
841 begin |