179     SDLTry(Mix_Init(MIX_INIT_OGG) <> 0, true);

   179     SDLTry(Mix_Init(MIX_INIT_OGG) <> 0, true);

   180     WriteLnToConsole(msgOK);

   180     WriteLnToConsole(msgOK);

   181 

   181 

   182     Mix_AllocateChannels(Succ(chanTPU));

   182     Mix_AllocateChannels(Succ(chanTPU));

   183     ChangeVolume(cInitVolume);

   183     ChangeVolume(cInitVolume);

   185 end;

   184 end;

   186 

   185 

   187 procedure SetSound;

   186 procedure SetSound;

   188 begin

   187 begin

   189     isSoundEnabled:= isSEBackup;

   188     isSoundEnabled:= isSEBackup;

   545     isMusicEnabled:= true;

   544     isMusicEnabled:= true;

   546     isSoundEnabled:= true;

   545     isSoundEnabled:= true;

   547     isSEBackup:= isSoundEnabled;

   546     isSEBackup:= isSoundEnabled;

   548     cInitVolume:= 100;

   547     cInitVolume:= 100;

   549     Volume:= 0;

   548     Volume:= 0;

   550 

   550 

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

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

   552         lastChan[i]:= -1;

   552         lastChan[i]:= -1;

   553 

   553 

   554     // initialize all voices to nil so that they can be loaded lazily

   554     // initialize all voices to nil so that they can be loaded lazily