equal
deleted
inserted
replaced
111 s: shortstring; |
111 s: shortstring; |
112 t: Longword; |
112 t: Longword; |
113 begin |
113 begin |
114 if not isSoundEnabled then exit; |
114 if not isSoundEnabled then exit; |
115 |
115 |
|
116 {$IFDEF SDL_MIXER_NEWER} |
116 WriteToConsole('Init SDL_mixer... '); |
117 WriteToConsole('Init SDL_mixer... '); |
117 SDLTry(Mix_Init(MIX_INIT_OGG) <> 0, true); |
118 SDLTry(Mix_Init(MIX_INIT_OGG) <> 0, true); |
118 WriteLnToConsole(msgOK); |
119 WriteLnToConsole(msgOK); |
119 |
120 {$ENDIF} |
|
121 |
120 defVoicepack:= AskForVoicepack('Default'); |
122 defVoicepack:= AskForVoicepack('Default'); |
121 |
123 |
122 for i:= Low(TSound) to High(TSound) do |
124 for i:= Low(TSound) to High(TSound) do |
123 if (Soundz[i].Path <> ptVoices) and (Soundz[i].FileName <> '') then |
125 if (Soundz[i].Path <> ptVoices) and (Soundz[i].FileName <> '') then |
124 begin |
126 begin |
140 if voicepacks[t].chunks[i] = nil then |
142 if voicepacks[t].chunks[i] = nil then |
141 WriteLnToConsole(msgFailed) |
143 WriteLnToConsole(msgFailed) |
142 else |
144 else |
143 WriteLnToConsole(msgOK) |
145 WriteLnToConsole(msgOK) |
144 end; |
146 end; |
145 |
147 {$IFDEF SDL_MIXER_NEWER} |
146 Mix_Quit(); |
148 Mix_Quit(); |
|
149 {$ENDIF} |
147 end; |
150 end; |
148 |
151 |
149 procedure PlaySound(snd: TSound; infinite: boolean; voicepack: PVoicepack); |
152 procedure PlaySound(snd: TSound; infinite: boolean; voicepack: PVoicepack); |
150 var loops: LongInt; |
153 var loops: LongInt; |
151 begin |
154 begin |