equal
deleted
inserted
replaced
87 inc(i); |
87 inc(i); |
88 TryDo(i <= cMaxTeams, 'Engine bug: AskForVoicepack i > cMaxTeams', true) |
88 TryDo(i <= cMaxTeams, 'Engine bug: AskForVoicepack i > cMaxTeams', true) |
89 end; |
89 end; |
90 |
90 |
91 voicepacks[i].name:= name; |
91 voicepacks[i].name:= name; |
|
92 addfilelog('================================================ '+inttostr(i)); |
92 AskForVoicepack:= @voicepacks[i] |
93 AskForVoicepack:= @voicepacks[i] |
93 end; |
94 end; |
94 |
95 |
95 procedure InitSound; |
96 procedure InitSound; |
96 const numSounds = 200; |
97 const numSounds = 200; |
155 else |
156 else |
156 begin |
157 begin |
157 if infinite then openal_toggleloop(defVoicepack^.chunks[snd]); |
158 if infinite then openal_toggleloop(defVoicepack^.chunks[snd]); |
158 openal_playsound(defVoicepack^.chunks[snd]); |
159 openal_playsound(defVoicepack^.chunks[snd]); |
159 lastChan[snd]:=defVoicepack^.chunks[snd]; |
160 lastChan[snd]:=defVoicepack^.chunks[snd]; |
160 |
|
161 end |
161 end |
162 end; |
162 end; |
163 |
163 |
164 procedure StopSound(snd: TSound); |
164 procedure StopSound(snd: TSound); |
165 begin |
165 begin |
201 begin |
201 begin |
202 if (MusicFN = '') or (not isMusicEnabled) then exit; |
202 if (MusicFN = '') or (not isMusicEnabled) then exit; |
203 openal_playsound(Mus); |
203 openal_playsound(Mus); |
204 end; |
204 end; |
205 |
205 |
|
206 |
|
207 var i: LongInt; |
|
208 c: TSound; |
|
209 |
|
210 initialization |
|
211 for i:= 0 to cMaxTeams do |
|
212 for c:= Low(TSound) to High(TSound) do |
|
213 voicepacks[i].chunks[c]:= -1 |
|
214 |
|
215 |
206 end. |
216 end. |