equal
deleted
inserted
replaced
308 exit; |
308 exit; |
309 WriteToConsole('Init sound...'); |
309 WriteToConsole('Init sound...'); |
310 success:= SDL_InitSubSystem(SDL_INIT_AUDIO) >= 0; |
310 success:= SDL_InitSubSystem(SDL_INIT_AUDIO) >= 0; |
311 |
311 |
312 if success then |
312 if success then |
313 success:= Mix_OpenAudio(44100, $8010, channels, 1024) = 0; |
313 success:= Mix_OpenAudio(44100, AUDIO_S16LSB, channels, 1024) = 0; |
314 |
314 |
315 if success then |
315 if success then |
316 WriteLnToConsole(msgOK) |
316 WriteLnToConsole(msgOK) |
317 else |
317 else |
318 begin |
318 begin |
324 WriteToConsole('Init SDL_mixer... '); |
324 WriteToConsole('Init SDL_mixer... '); |
325 SDLTry(Mix_Init(MIX_INIT_OGG) <> 0, 'Mix_Init', true); |
325 SDLTry(Mix_Init(MIX_INIT_OGG) <> 0, 'Mix_Init', true); |
326 WriteLnToConsole(msgOK); |
326 WriteLnToConsole(msgOK); |
327 |
327 |
328 Mix_AllocateChannels(Succ(chanTPU)); |
328 Mix_AllocateChannels(Succ(chanTPU)); |
|
329 previousVolume:= cInitVolume; |
329 ChangeVolume(cInitVolume); |
330 ChangeVolume(cInitVolume); |
330 end; |
331 end; |
331 |
332 |
332 procedure ResetSound; |
333 procedure ResetSound; |
333 begin |
334 begin |