author | Xeli |
Sun, 21 Aug 2011 18:14:49 +0200 | |
branch | hedgeroid |
changeset 5625 | 9add7b92c5f0 |
parent 5239 | f34f391a223b |
child 5635 | 0c17c8791ac9 |
child 5638 | e35ba2a400d8 |
permissions | -rw-r--r-- |
4 | 1 |
(* |
1066 | 2 |
* Hedgewars, a free turn based strategy game |
4976 | 3 |
* Copyright (c) 2004-2011 Andrey Korotaev <unC0Rr@gmail.com> |
4 | 4 |
* |
183 | 5 |
* This program is free software; you can redistribute it and/or modify |
6 |
* it under the terms of the GNU General Public License as published by |
|
7 |
* the Free Software Foundation; version 2 of the License |
|
4 | 8 |
* |
183 | 9 |
* This program is distributed in the hope that it will be useful, |
10 |
* but WITHOUT ANY WARRANTY; without even the implied warranty of |
|
11 |
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
|
12 |
* GNU General Public License for more details. |
|
4 | 13 |
* |
183 | 14 |
* You should have received a copy of the GNU General Public License |
15 |
* along with this program; if not, write to the Free Software |
|
16 |
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA |
|
4 | 17 |
*) |
18 |
||
2630 | 19 |
{$INCLUDE "options.inc"} |
20 |
||
4 | 21 |
unit uSound; |
5134 | 22 |
(* |
23 |
* This unit controls the sounds and music of the game. |
|
24 |
* Doesn't really do anything if isSoundEnabled = false. |
|
25 |
* |
|
26 |
* There are three basic types of sound controls: |
|
27 |
* Music - The background music of the game: |
|
28 |
* * will only be played if isMusicEnabled = true |
|
29 |
* * can be started, changed, paused and resumed |
|
30 |
* Sound - Can be started and stopped |
|
31 |
* Looped Sound - Subtype of sound: plays in a loop using a |
|
32 |
* "channel", of which the id is returned on start. |
|
33 |
* The channel id can be used to stop a specific sound loop. |
|
34 |
*) |
|
4 | 35 |
interface |
5107
d7fc678d78f4
Allow override of voicepack with a locale voicepack. Untested, but should mean that a Default voice should use the Ukranian version if that is their locale.
nemo
parents:
5052
diff
changeset
|
36 |
uses SDLh, uConsts, uTypes, sysutils; |
4 | 37 |
|
5134 | 38 |
var MusicFN: shortstring; // music file name |
2716
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2674
diff
changeset
|
39 |
|
3038 | 40 |
procedure initModule; |
41 |
procedure freeModule; |
|
2716
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2674
diff
changeset
|
42 |
|
5134 | 43 |
procedure InitSound; // Initiates sound-system if isSoundEnabled. |
44 |
procedure ReleaseSound; // Releases sound-system and used resources. |
|
45 |
procedure SoundLoad; // Preloads some sounds for performance reasons. |
|
46 |
||
47 |
||
48 |
// MUSIC |
|
49 |
||
50 |
// Obvious music commands for music track specified in MusicFN. |
|
51 |
procedure PlayMusic; |
|
52 |
procedure PauseMusic; |
|
53 |
procedure ResumeMusic; |
|
54 |
procedure ChangeMusic; // Replaces music track with current MusicFN and plays it. |
|
55 |
||
56 |
||
57 |
// SOUNDS |
|
58 |
||
59 |
// Plays the sound snd [from a given voicepack], |
|
60 |
// if keepPlaying is given and true, |
|
61 |
// then the sound's playback won't be interrupted if asked to play again. |
|
2745 | 62 |
procedure PlaySound(snd: TSound); |
3202 | 63 |
procedure PlaySound(snd: TSound; keepPlaying: boolean); |
2745 | 64 |
procedure PlaySound(snd: TSound; voicepack: PVoicepack); |
3201 | 65 |
procedure PlaySound(snd: TSound; voicepack: PVoicepack; keepPlaying: boolean); |
5134 | 66 |
|
67 |
// Plays sound snd [of voicepack] in a loop, but starts with fadems milliseconds of fade-in. |
|
68 |
// Returns sound channel of the looped sound. |
|
3529 | 69 |
function LoopSound(snd: TSound): LongInt; |
4956
48e1f9a04c28
usound: added function for loops with fade in and out
koda
parents:
4948
diff
changeset
|
70 |
function LoopSound(snd: TSound; fadems: LongInt): LongInt; |
5134 | 71 |
function LoopSound(snd: TSound; voicepack: PVoicepack): LongInt; // WTF? |
4956
48e1f9a04c28
usound: added function for loops with fade in and out
koda
parents:
4948
diff
changeset
|
72 |
function LoopSound(snd: TSound; voicepack: PVoicepack; fadems: LongInt): LongInt; |
5134 | 73 |
|
74 |
// Stops the normal/looped sound of the given type/in the given channel |
|
75 |
// [with a fade-out effect for fadems milliseconds]. |
|
282 | 76 |
procedure StopSound(snd: TSound); |
2745 | 77 |
procedure StopSound(chn: LongInt); |
4966
fa612a614317
make defective mines explode if they take enough damage, add missing interface line for koda's new uSound fade
nemo
parents:
4956
diff
changeset
|
78 |
procedure StopSound(chn, fadems: LongInt); |
5134 | 79 |
|
80 |
||
81 |
// MISC |
|
82 |
||
83 |
// Modifies the sound volume of the game by voldelta and returns the new volume level. |
|
2515
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2501
diff
changeset
|
84 |
function ChangeVolume(voldelta: LongInt): LongInt; |
5134 | 85 |
|
86 |
// Returns a pointer to the voicepack with the given name. |
|
2515
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2501
diff
changeset
|
87 |
function AskForVoicepack(name: shortstring): Pointer; |
4 | 88 |
|
1097 | 89 |
|
4 | 90 |
implementation |
4948 | 91 |
uses uVariables, uConsole, uUtils, uCommands, uDebug; |
564 | 92 |
|
3418 | 93 |
const chanTPU = 32; |
2515
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2501
diff
changeset
|
94 |
var Volume: LongInt; |
2716
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2674
diff
changeset
|
95 |
lastChan: array [TSound] of LongInt; |
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2674
diff
changeset
|
96 |
voicepacks: array[0..cMaxTeams] of TVoicepack; |
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2674
diff
changeset
|
97 |
defVoicepack: PVoicepack; |
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2674
diff
changeset
|
98 |
Mus: PMixMusic = nil; |
1654 | 99 |
|
2515
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2501
diff
changeset
|
100 |
function AskForVoicepack(name: shortstring): Pointer; |
1654 | 101 |
var i: Longword; |
5107
d7fc678d78f4
Allow override of voicepack with a locale voicepack. Untested, but should mean that a Default voice should use the Ukranian version if that is their locale.
nemo
parents:
5052
diff
changeset
|
102 |
locName, path: shortstring; |
1654 | 103 |
begin |
104 |
i:= 0; |
|
5107
d7fc678d78f4
Allow override of voicepack with a locale voicepack. Untested, but should mean that a Default voice should use the Ukranian version if that is their locale.
nemo
parents:
5052
diff
changeset
|
105 |
// First, attempt to locate a localised version of the voice |
d7fc678d78f4
Allow override of voicepack with a locale voicepack. Untested, but should mean that a Default voice should use the Ukranian version if that is their locale.
nemo
parents:
5052
diff
changeset
|
106 |
if cLocale <> 'en' then |
d7fc678d78f4
Allow override of voicepack with a locale voicepack. Untested, but should mean that a Default voice should use the Ukranian version if that is their locale.
nemo
parents:
5052
diff
changeset
|
107 |
begin |
d7fc678d78f4
Allow override of voicepack with a locale voicepack. Untested, but should mean that a Default voice should use the Ukranian version if that is their locale.
nemo
parents:
5052
diff
changeset
|
108 |
locName:= name+'_'+cLocale; |
5238
46ddaf14509d
Enable ~/.hedgewars/Data (or platform equivalent) to override/extend pretty much everything in system Data dir. Obviously desyncing can occur, so this is at user's own risk. Should simplify map etc install. Needs testing.
nemo
parents:
5134
diff
changeset
|
109 |
path:= UserPathz[ptVoices] + '/' + locName; |
5107
d7fc678d78f4
Allow override of voicepack with a locale voicepack. Untested, but should mean that a Default voice should use the Ukranian version if that is their locale.
nemo
parents:
5052
diff
changeset
|
110 |
if DirectoryExists(path) then name:= locName |
5238
46ddaf14509d
Enable ~/.hedgewars/Data (or platform equivalent) to override/extend pretty much everything in system Data dir. Obviously desyncing can occur, so this is at user's own risk. Should simplify map etc install. Needs testing.
nemo
parents:
5134
diff
changeset
|
111 |
else |
5107
d7fc678d78f4
Allow override of voicepack with a locale voicepack. Untested, but should mean that a Default voice should use the Ukranian version if that is their locale.
nemo
parents:
5052
diff
changeset
|
112 |
begin |
d7fc678d78f4
Allow override of voicepack with a locale voicepack. Untested, but should mean that a Default voice should use the Ukranian version if that is their locale.
nemo
parents:
5052
diff
changeset
|
113 |
path:= Pathz[ptVoices] + '/' + locName; |
d7fc678d78f4
Allow override of voicepack with a locale voicepack. Untested, but should mean that a Default voice should use the Ukranian version if that is their locale.
nemo
parents:
5052
diff
changeset
|
114 |
if DirectoryExists(path) then name:= locName |
5238
46ddaf14509d
Enable ~/.hedgewars/Data (or platform equivalent) to override/extend pretty much everything in system Data dir. Obviously desyncing can occur, so this is at user's own risk. Should simplify map etc install. Needs testing.
nemo
parents:
5134
diff
changeset
|
115 |
else if Length(cLocale) > 2 then |
46ddaf14509d
Enable ~/.hedgewars/Data (or platform equivalent) to override/extend pretty much everything in system Data dir. Obviously desyncing can occur, so this is at user's own risk. Should simplify map etc install. Needs testing.
nemo
parents:
5134
diff
changeset
|
116 |
begin |
46ddaf14509d
Enable ~/.hedgewars/Data (or platform equivalent) to override/extend pretty much everything in system Data dir. Obviously desyncing can occur, so this is at user's own risk. Should simplify map etc install. Needs testing.
nemo
parents:
5134
diff
changeset
|
117 |
locName:= name+'_'+Copy(cLocale,1,2); |
46ddaf14509d
Enable ~/.hedgewars/Data (or platform equivalent) to override/extend pretty much everything in system Data dir. Obviously desyncing can occur, so this is at user's own risk. Should simplify map etc install. Needs testing.
nemo
parents:
5134
diff
changeset
|
118 |
path:= UserPathz[ptVoices] + '/' + locName; |
46ddaf14509d
Enable ~/.hedgewars/Data (or platform equivalent) to override/extend pretty much everything in system Data dir. Obviously desyncing can occur, so this is at user's own risk. Should simplify map etc install. Needs testing.
nemo
parents:
5134
diff
changeset
|
119 |
if DirectoryExists(path) then name:= locName |
46ddaf14509d
Enable ~/.hedgewars/Data (or platform equivalent) to override/extend pretty much everything in system Data dir. Obviously desyncing can occur, so this is at user's own risk. Should simplify map etc install. Needs testing.
nemo
parents:
5134
diff
changeset
|
120 |
else |
46ddaf14509d
Enable ~/.hedgewars/Data (or platform equivalent) to override/extend pretty much everything in system Data dir. Obviously desyncing can occur, so this is at user's own risk. Should simplify map etc install. Needs testing.
nemo
parents:
5134
diff
changeset
|
121 |
begin |
46ddaf14509d
Enable ~/.hedgewars/Data (or platform equivalent) to override/extend pretty much everything in system Data dir. Obviously desyncing can occur, so this is at user's own risk. Should simplify map etc install. Needs testing.
nemo
parents:
5134
diff
changeset
|
122 |
path:= Pathz[ptVoices] + '/' + locName; |
46ddaf14509d
Enable ~/.hedgewars/Data (or platform equivalent) to override/extend pretty much everything in system Data dir. Obviously desyncing can occur, so this is at user's own risk. Should simplify map etc install. Needs testing.
nemo
parents:
5134
diff
changeset
|
123 |
if DirectoryExists(path) then name:= locName |
46ddaf14509d
Enable ~/.hedgewars/Data (or platform equivalent) to override/extend pretty much everything in system Data dir. Obviously desyncing can occur, so this is at user's own risk. Should simplify map etc install. Needs testing.
nemo
parents:
5134
diff
changeset
|
124 |
end |
46ddaf14509d
Enable ~/.hedgewars/Data (or platform equivalent) to override/extend pretty much everything in system Data dir. Obviously desyncing can occur, so this is at user's own risk. Should simplify map etc install. Needs testing.
nemo
parents:
5134
diff
changeset
|
125 |
end |
5107
d7fc678d78f4
Allow override of voicepack with a locale voicepack. Untested, but should mean that a Default voice should use the Ukranian version if that is their locale.
nemo
parents:
5052
diff
changeset
|
126 |
end |
d7fc678d78f4
Allow override of voicepack with a locale voicepack. Untested, but should mean that a Default voice should use the Ukranian version if that is their locale.
nemo
parents:
5052
diff
changeset
|
127 |
end; |
d7fc678d78f4
Allow override of voicepack with a locale voicepack. Untested, but should mean that a Default voice should use the Ukranian version if that is their locale.
nemo
parents:
5052
diff
changeset
|
128 |
|
d7fc678d78f4
Allow override of voicepack with a locale voicepack. Untested, but should mean that a Default voice should use the Ukranian version if that is their locale.
nemo
parents:
5052
diff
changeset
|
129 |
// If that fails, use the unmodified one |
3529 | 130 |
while (voicepacks[i].name <> name) and (voicepacks[i].name <> '') do |
5107
d7fc678d78f4
Allow override of voicepack with a locale voicepack. Untested, but should mean that a Default voice should use the Ukranian version if that is their locale.
nemo
parents:
5052
diff
changeset
|
131 |
begin |
3529 | 132 |
inc(i); |
133 |
TryDo(i <= cMaxTeams, 'Engine bug: AskForVoicepack i > cMaxTeams', true) |
|
5107
d7fc678d78f4
Allow override of voicepack with a locale voicepack. Untested, but should mean that a Default voice should use the Ukranian version if that is their locale.
nemo
parents:
5052
diff
changeset
|
134 |
end; |
1654 | 135 |
|
3529 | 136 |
voicepacks[i].name:= name; |
137 |
AskForVoicepack:= @voicepacks[i] |
|
1654 | 138 |
end; |
4 | 139 |
|
140 |
procedure InitSound; |
|
2647 | 141 |
var i: TSound; |
3825 | 142 |
channels: LongInt; |
4 | 143 |
begin |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2905
diff
changeset
|
144 |
if not isSoundEnabled then exit; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2905
diff
changeset
|
145 |
WriteToConsole('Init sound...'); |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2905
diff
changeset
|
146 |
isSoundEnabled:= SDL_InitSubSystem(SDL_INIT_AUDIO) >= 0; |
2671
7e0f88013fe8
smaller patches, one missing Sky-lowres, IMG_Init and Mix_Init (might require newer libraries), updates to SDL bindings, code cleanup, new compile flags
koda
parents:
2647
diff
changeset
|
147 |
|
3825 | 148 |
{$IFDEF IPHONEOS} |
149 |
channels:= 1; |
|
150 |
{$ELSE} |
|
151 |
channels:= 2; |
|
152 |
{$ENDIF} |
|
153 |
||
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2905
diff
changeset
|
154 |
if isSoundEnabled then |
3825 | 155 |
isSoundEnabled:= Mix_OpenAudio(44100, $8010, channels, 1024) = 0; |
2327 | 156 |
|
3182 | 157 |
{$IFDEF SDL_MIXER_NEWER} |
158 |
WriteToConsole('Init SDL_mixer... '); |
|
159 |
SDLTry(Mix_Init(MIX_INIT_OGG) <> 0, true); |
|
160 |
WriteLnToConsole(msgOK); |
|
161 |
{$ENDIF} |
|
162 |
||
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2905
diff
changeset
|
163 |
if isSoundEnabled then |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2905
diff
changeset
|
164 |
WriteLnToConsole(msgOK) |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2905
diff
changeset
|
165 |
else |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2905
diff
changeset
|
166 |
WriteLnToConsole(msgFailed); |
2647 | 167 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2905
diff
changeset
|
168 |
Mix_AllocateChannels(Succ(chanTPU)); |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2905
diff
changeset
|
169 |
if isMusicEnabled then |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2905
diff
changeset
|
170 |
Mix_VolumeMusic(50); |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2905
diff
changeset
|
171 |
for i:= Low(TSound) to High(TSound) do |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2905
diff
changeset
|
172 |
lastChan[i]:= -1; |
2671
7e0f88013fe8
smaller patches, one missing Sky-lowres, IMG_Init and Mix_Init (might require newer libraries), updates to SDL bindings, code cleanup, new compile flags
koda
parents:
2647
diff
changeset
|
173 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2905
diff
changeset
|
174 |
Volume:= 0; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2905
diff
changeset
|
175 |
ChangeVolume(cInitVolume) |
4 | 176 |
end; |
177 |
||
178 |
procedure ReleaseSound; |
|
2515
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2501
diff
changeset
|
179 |
var i: TSound; |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2905
diff
changeset
|
180 |
t: Longword; |
4 | 181 |
begin |
3529 | 182 |
for t:= 0 to cMaxTeams do |
183 |
if voicepacks[t].name <> '' then |
|
184 |
for i:= Low(TSound) to High(TSound) do |
|
185 |
if voicepacks[t].chunks[i] <> nil then |
|
186 |
Mix_FreeChunk(voicepacks[t].chunks[i]); |
|
2515
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2501
diff
changeset
|
187 |
|
3529 | 188 |
if Mus <> nil then |
189 |
Mix_FreeMusic(Mus); |
|
3182 | 190 |
|
191 |
{$IFDEF SDL_MIXER_NEWER} |
|
3529 | 192 |
// make sure all instances of sdl_mixer are unloaded before continuing |
193 |
while Mix_Init(0) <> 0 do |
|
194 |
Mix_Quit(); |
|
3697 | 195 |
{$ENDIF} |
3182 | 196 |
|
3529 | 197 |
Mix_CloseAudio(); |
4 | 198 |
end; |
199 |
||
200 |
procedure SoundLoad; |
|
201 |
var i: TSound; |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2905
diff
changeset
|
202 |
t: Longword; |
3667 | 203 |
s:shortstring; |
4 | 204 |
begin |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2905
diff
changeset
|
205 |
if not isSoundEnabled then exit; |
1656
209cf0e2fc36
Finish voicepacks support in engine (not tested though)
unc0rr
parents:
1654
diff
changeset
|
206 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2905
diff
changeset
|
207 |
defVoicepack:= AskForVoicepack('Default'); |
3697 | 208 |
|
3529 | 209 |
for t:= 0 to cMaxTeams do |
210 |
if voicepacks[t].name <> '' then |
|
211 |
for i:= Low(TSound) to High(TSound) do |
|
3667 | 212 |
voicepacks[t].chunks[i]:= nil; |
3697 | 213 |
|
3667 | 214 |
for i:= Low(TSound) to High(TSound) do |
215 |
begin |
|
216 |
defVoicepack^.chunks[i]:= nil; |
|
217 |
// preload all the big sound files (>32k) that would otherwise lockup the game |
|
4461
2f4f5d649bcd
add a simple check to prevent loading sounds when device is muted
koda
parents:
4404
diff
changeset
|
218 |
if (i in [sndBeeWater, sndBee, sndCake, sndHellishImpact1, sndHellish, sndHomerun, |
2f4f5d649bcd
add a simple check to prevent loading sounds when device is muted
koda
parents:
4404
diff
changeset
|
219 |
sndMolotov, sndMortar, sndRideOfTheValkyries, sndYoohoo]) |
3667 | 220 |
and (Soundz[i].Path <> ptVoices) and (Soundz[i].FileName <> '') then |
221 |
begin |
|
5238
46ddaf14509d
Enable ~/.hedgewars/Data (or platform equivalent) to override/extend pretty much everything in system Data dir. Obviously desyncing can occur, so this is at user's own risk. Should simplify map etc install. Needs testing.
nemo
parents:
5134
diff
changeset
|
222 |
s:= UserPathz[Soundz[i].Path] + '/' + Soundz[i].FileName; |
46ddaf14509d
Enable ~/.hedgewars/Data (or platform equivalent) to override/extend pretty much everything in system Data dir. Obviously desyncing can occur, so this is at user's own risk. Should simplify map etc install. Needs testing.
nemo
parents:
5134
diff
changeset
|
223 |
if not FileExists(s) then s:= Pathz[Soundz[i].Path] + '/' + Soundz[i].FileName; |
3667 | 224 |
WriteToConsole(msgLoading + s + ' '); |
225 |
defVoicepack^.chunks[i]:= Mix_LoadWAV_RW(SDL_RWFromFile(Str2PChar(s), 'rb'), 1); |
|
226 |
TryDo(defVoicepack^.chunks[i] <> nil, msgFailed, true); |
|
227 |
WriteLnToConsole(msgOK); |
|
228 |
end; |
|
229 |
end; |
|
3664 | 230 |
|
4 | 231 |
end; |
232 |
||
2745 | 233 |
procedure PlaySound(snd: TSound); |
234 |
begin |
|
3201 | 235 |
PlaySound(snd, nil, false); |
2745 | 236 |
end; |
237 |
||
3202 | 238 |
procedure PlaySound(snd: TSound; keepPlaying: boolean); |
239 |
begin |
|
240 |
PlaySound(snd, nil, keepPlaying); |
|
241 |
end; |
|
242 |
||
2745 | 243 |
procedure PlaySound(snd: TSound; voicepack: PVoicepack); |
4 | 244 |
begin |
3201 | 245 |
PlaySound(snd, voicepack, false); |
246 |
end; |
|
247 |
||
248 |
procedure PlaySound(snd: TSound; voicepack: PVoicepack; keepPlaying: boolean); |
|
3664 | 249 |
var s:shortstring; |
3201 | 250 |
begin |
4948 | 251 |
if (not isSoundEnabled) or fastUntilLag then |
3529 | 252 |
exit; |
3201 | 253 |
|
3529 | 254 |
if keepPlaying and (lastChan[snd] <> -1) and (Mix_Playing(lastChan[snd]) <> 0) then |
255 |
exit; |
|
256 |
||
3664 | 257 |
if (voicepack <> nil) then |
258 |
begin |
|
259 |
if (voicepack^.chunks[snd] = nil) and (Soundz[snd].Path = ptVoices) and (Soundz[snd].FileName <> '') then |
|
260 |
begin |
|
5238
46ddaf14509d
Enable ~/.hedgewars/Data (or platform equivalent) to override/extend pretty much everything in system Data dir. Obviously desyncing can occur, so this is at user's own risk. Should simplify map etc install. Needs testing.
nemo
parents:
5134
diff
changeset
|
261 |
s:= UserPathz[Soundz[snd].Path] + '/' + voicepack^.name + '/' + Soundz[snd].FileName; |
46ddaf14509d
Enable ~/.hedgewars/Data (or platform equivalent) to override/extend pretty much everything in system Data dir. Obviously desyncing can occur, so this is at user's own risk. Should simplify map etc install. Needs testing.
nemo
parents:
5134
diff
changeset
|
262 |
if not FileExists(s) then s:= Pathz[Soundz[snd].Path] + '/' + voicepack^.name + '/' + Soundz[snd].FileName; |
3664 | 263 |
WriteToConsole(msgLoading + s + ' '); |
264 |
voicepack^.chunks[snd]:= Mix_LoadWAV_RW(SDL_RWFromFile(Str2PChar(s), 'rb'), 1); |
|
265 |
if voicepack^.chunks[snd] = nil then |
|
266 |
WriteLnToConsole(msgFailed) |
|
267 |
else |
|
268 |
WriteLnToConsole(msgOK) |
|
269 |
end; |
|
3529 | 270 |
lastChan[snd]:= Mix_PlayChannelTimed(-1, voicepack^.chunks[snd], 0, -1) |
3664 | 271 |
end |
3529 | 272 |
else |
3664 | 273 |
begin |
274 |
if (defVoicepack^.chunks[snd] = nil) and (Soundz[snd].Path <> ptVoices) and (Soundz[snd].FileName <> '') then |
|
275 |
begin |
|
5238
46ddaf14509d
Enable ~/.hedgewars/Data (or platform equivalent) to override/extend pretty much everything in system Data dir. Obviously desyncing can occur, so this is at user's own risk. Should simplify map etc install. Needs testing.
nemo
parents:
5134
diff
changeset
|
276 |
s:= UserPathz[Soundz[snd].Path] + '/' + Soundz[snd].FileName; |
46ddaf14509d
Enable ~/.hedgewars/Data (or platform equivalent) to override/extend pretty much everything in system Data dir. Obviously desyncing can occur, so this is at user's own risk. Should simplify map etc install. Needs testing.
nemo
parents:
5134
diff
changeset
|
277 |
if not FileExists(s) then s:= Pathz[Soundz[snd].Path] + '/' + Soundz[snd].FileName; |
3664 | 278 |
WriteToConsole(msgLoading + s + ' '); |
279 |
defVoicepack^.chunks[snd]:= Mix_LoadWAV_RW(SDL_RWFromFile(Str2PChar(s), 'rb'), 1); |
|
280 |
TryDo(defVoicepack^.chunks[snd] <> nil, msgFailed, true); |
|
281 |
WriteLnToConsole(msgOK); |
|
282 |
end; |
|
3529 | 283 |
lastChan[snd]:= Mix_PlayChannelTimed(-1, defVoicepack^.chunks[snd], 0, -1) |
3664 | 284 |
end; |
4 | 285 |
end; |
286 |
||
2745 | 287 |
function LoopSound(snd: TSound): LongInt; |
288 |
begin |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2905
diff
changeset
|
289 |
LoopSound:= LoopSound(snd, nil) |
2745 | 290 |
end; |
291 |
||
4956
48e1f9a04c28
usound: added function for loops with fade in and out
koda
parents:
4948
diff
changeset
|
292 |
function LoopSound(snd: TSound; fadems: LongInt): LongInt; |
48e1f9a04c28
usound: added function for loops with fade in and out
koda
parents:
4948
diff
changeset
|
293 |
begin |
48e1f9a04c28
usound: added function for loops with fade in and out
koda
parents:
4948
diff
changeset
|
294 |
LoopSound:= LoopSound(snd, nil, fadems) |
48e1f9a04c28
usound: added function for loops with fade in and out
koda
parents:
4948
diff
changeset
|
295 |
end; |
48e1f9a04c28
usound: added function for loops with fade in and out
koda
parents:
4948
diff
changeset
|
296 |
|
2745 | 297 |
function LoopSound(snd: TSound; voicepack: PVoicepack): LongInt; |
4956
48e1f9a04c28
usound: added function for loops with fade in and out
koda
parents:
4948
diff
changeset
|
298 |
begin |
5052 | 299 |
voicepack:= voicepack; // avoid compiler hint |
4956
48e1f9a04c28
usound: added function for loops with fade in and out
koda
parents:
4948
diff
changeset
|
300 |
LoopSound:= LoopSound(snd, nil, 0) |
48e1f9a04c28
usound: added function for loops with fade in and out
koda
parents:
4948
diff
changeset
|
301 |
end; |
48e1f9a04c28
usound: added function for loops with fade in and out
koda
parents:
4948
diff
changeset
|
302 |
|
48e1f9a04c28
usound: added function for loops with fade in and out
koda
parents:
4948
diff
changeset
|
303 |
function LoopSound(snd: TSound; voicepack: PVoicepack; fadems: LongInt): LongInt; |
3664 | 304 |
var s: shortstring; |
2647 | 305 |
begin |
4948 | 306 |
if (not isSoundEnabled) or fastUntilLag then |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2905
diff
changeset
|
307 |
begin |
3529 | 308 |
LoopSound:= -1; |
309 |
exit |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2905
diff
changeset
|
310 |
end; |
2647 | 311 |
|
3664 | 312 |
if (voicepack <> nil) then |
313 |
begin |
|
314 |
if (voicepack^.chunks[snd] = nil) and (Soundz[snd].Path = ptVoices) and (Soundz[snd].FileName <> '') then |
|
315 |
begin |
|
5238
46ddaf14509d
Enable ~/.hedgewars/Data (or platform equivalent) to override/extend pretty much everything in system Data dir. Obviously desyncing can occur, so this is at user's own risk. Should simplify map etc install. Needs testing.
nemo
parents:
5134
diff
changeset
|
316 |
s:= UserPathz[Soundz[snd].Path] + '/' + voicepack^.name + '/' + Soundz[snd].FileName; |
46ddaf14509d
Enable ~/.hedgewars/Data (or platform equivalent) to override/extend pretty much everything in system Data dir. Obviously desyncing can occur, so this is at user's own risk. Should simplify map etc install. Needs testing.
nemo
parents:
5134
diff
changeset
|
317 |
if not FileExists(s) then s:= Pathz[Soundz[snd].Path] + '/' + voicepack^.name + '/' + Soundz[snd].FileName; |
3664 | 318 |
WriteToConsole(msgLoading + s + ' '); |
319 |
voicepack^.chunks[snd]:= Mix_LoadWAV_RW(SDL_RWFromFile(Str2PChar(s), 'rb'), 1); |
|
320 |
if voicepack^.chunks[snd] = nil then |
|
321 |
WriteLnToConsole(msgFailed) |
|
322 |
else |
|
323 |
WriteLnToConsole(msgOK) |
|
324 |
end; |
|
3529 | 325 |
LoopSound:= Mix_PlayChannelTimed(-1, voicepack^.chunks[snd], -1, -1) |
3664 | 326 |
end |
3529 | 327 |
else |
3664 | 328 |
begin |
329 |
if (defVoicepack^.chunks[snd] = nil) and (Soundz[snd].Path <> ptVoices) and (Soundz[snd].FileName <> '') then |
|
330 |
begin |
|
5238
46ddaf14509d
Enable ~/.hedgewars/Data (or platform equivalent) to override/extend pretty much everything in system Data dir. Obviously desyncing can occur, so this is at user's own risk. Should simplify map etc install. Needs testing.
nemo
parents:
5134
diff
changeset
|
331 |
s:= UserPathz[Soundz[snd].Path] + '/' + Soundz[snd].FileName; |
46ddaf14509d
Enable ~/.hedgewars/Data (or platform equivalent) to override/extend pretty much everything in system Data dir. Obviously desyncing can occur, so this is at user's own risk. Should simplify map etc install. Needs testing.
nemo
parents:
5134
diff
changeset
|
332 |
if not FileExists(s) then s:= Pathz[Soundz[snd].Path] + '/' + Soundz[snd].FileName; |
3664 | 333 |
WriteToConsole(msgLoading + s + ' '); |
334 |
defVoicepack^.chunks[snd]:= Mix_LoadWAV_RW(SDL_RWFromFile(Str2PChar(s), 'rb'), 1); |
|
335 |
TryDo(defVoicepack^.chunks[snd] <> nil, msgFailed, true); |
|
336 |
WriteLnToConsole(msgOK); |
|
337 |
end; |
|
4956
48e1f9a04c28
usound: added function for loops with fade in and out
koda
parents:
4948
diff
changeset
|
338 |
if fadems > 0 then |
48e1f9a04c28
usound: added function for loops with fade in and out
koda
parents:
4948
diff
changeset
|
339 |
LoopSound:= Mix_FadeInChannelTimed(-1, defVoicepack^.chunks[snd], -1, fadems, -1) |
48e1f9a04c28
usound: added function for loops with fade in and out
koda
parents:
4948
diff
changeset
|
340 |
else |
48e1f9a04c28
usound: added function for loops with fade in and out
koda
parents:
4948
diff
changeset
|
341 |
LoopSound:= Mix_PlayChannelTimed(-1, defVoicepack^.chunks[snd], -1, -1); |
3664 | 342 |
end; |
2647 | 343 |
end; |
344 |
||
282 | 345 |
procedure StopSound(snd: TSound); |
4 | 346 |
begin |
3529 | 347 |
if not isSoundEnabled then exit; |
4956
48e1f9a04c28
usound: added function for loops with fade in and out
koda
parents:
4948
diff
changeset
|
348 |
|
3529 | 349 |
if (lastChan[snd] <> -1) and (Mix_Playing(lastChan[snd]) <> 0) then |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2905
diff
changeset
|
350 |
begin |
3529 | 351 |
Mix_HaltChannel(lastChan[snd]); |
352 |
lastChan[snd]:= -1; |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2905
diff
changeset
|
353 |
end; |
4 | 354 |
end; |
355 |
||
2745 | 356 |
procedure StopSound(chn: LongInt); |
357 |
begin |
|
3529 | 358 |
if not isSoundEnabled then exit; |
359 |
||
360 |
if (chn <> -1) and (Mix_Playing(chn) <> 0) then |
|
361 |
Mix_HaltChannel(chn); |
|
2745 | 362 |
end; |
363 |
||
4956
48e1f9a04c28
usound: added function for loops with fade in and out
koda
parents:
4948
diff
changeset
|
364 |
procedure StopSound(chn, fadems: LongInt); |
48e1f9a04c28
usound: added function for loops with fade in and out
koda
parents:
4948
diff
changeset
|
365 |
begin |
48e1f9a04c28
usound: added function for loops with fade in and out
koda
parents:
4948
diff
changeset
|
366 |
if not isSoundEnabled then exit; |
48e1f9a04c28
usound: added function for loops with fade in and out
koda
parents:
4948
diff
changeset
|
367 |
|
48e1f9a04c28
usound: added function for loops with fade in and out
koda
parents:
4948
diff
changeset
|
368 |
if (chn <> -1) and (Mix_Playing(chn) <> 0) then |
48e1f9a04c28
usound: added function for loops with fade in and out
koda
parents:
4948
diff
changeset
|
369 |
Mix_FadeOutChannel(chn, fadems); |
48e1f9a04c28
usound: added function for loops with fade in and out
koda
parents:
4948
diff
changeset
|
370 |
end; |
48e1f9a04c28
usound: added function for loops with fade in and out
koda
parents:
4948
diff
changeset
|
371 |
|
4 | 372 |
procedure PlayMusic; |
2905 | 373 |
var s: shortstring; |
4 | 374 |
begin |
3529 | 375 |
if (not isSoundEnabled) or (MusicFN = '') or (not isMusicEnabled) then |
376 |
exit; |
|
377 |
||
5239 | 378 |
s:= UserPathPrefix + '/Data/Music/' + MusicFN; |
5238
46ddaf14509d
Enable ~/.hedgewars/Data (or platform equivalent) to override/extend pretty much everything in system Data dir. Obviously desyncing can occur, so this is at user's own risk. Should simplify map etc install. Needs testing.
nemo
parents:
5134
diff
changeset
|
379 |
if not FileExists(s) then s:= PathPrefix + '/Music/' + MusicFN; |
3529 | 380 |
WriteToConsole(msgLoading + s + ' '); |
565 | 381 |
|
3529 | 382 |
Mus:= Mix_LoadMUS(Str2PChar(s)); |
383 |
TryDo(Mus <> nil, msgFailed, false); |
|
384 |
WriteLnToConsole(msgOK); |
|
565 | 385 |
|
3529 | 386 |
SDLTry(Mix_FadeInMusic(Mus, -1, 3000) <> -1, false) |
4 | 387 |
end; |
388 |
||
371 | 389 |
function ChangeVolume(voldelta: LongInt): LongInt; |
174 | 390 |
begin |
3529 | 391 |
if not isSoundEnabled then |
392 |
exit(0); |
|
2327 | 393 |
|
3529 | 394 |
inc(Volume, voldelta); |
395 |
if Volume < 0 then Volume:= 0; |
|
396 |
Mix_Volume(-1, Volume); |
|
397 |
Volume:= Mix_Volume(-1, -1); |
|
398 |
if isMusicEnabled then Mix_VolumeMusic(Volume * 4 div 8); |
|
399 |
ChangeVolume:= Volume * 100 div MIX_MAX_VOLUME |
|
174 | 400 |
end; |
401 |
||
1712 | 402 |
procedure PauseMusic; |
403 |
begin |
|
3529 | 404 |
if (MusicFN = '') or (not isMusicEnabled) then |
405 |
exit; |
|
2515
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2501
diff
changeset
|
406 |
|
3529 | 407 |
Mix_PauseMusic(Mus); |
1712 | 408 |
end; |
409 |
||
410 |
procedure ResumeMusic; |
|
411 |
begin |
|
3529 | 412 |
if (MusicFN = '') or (not isMusicEnabled) then |
413 |
exit; |
|
2515
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2501
diff
changeset
|
414 |
|
3529 | 415 |
Mix_ResumeMusic(Mus); |
1712 | 416 |
end; |
417 |
||
4748 | 418 |
procedure ChangeMusic; |
419 |
begin |
|
420 |
if (MusicFN = '') or (not isMusicEnabled) then |
|
421 |
exit; |
|
422 |
||
5134 | 423 |
// get rid of current music |
4748 | 424 |
if Mus <> nil then |
425 |
Mix_FreeMusic(Mus); |
|
426 |
||
427 |
PlayMusic; |
|
428 |
end; |
|
429 |
||
4398
36d7e4b6ca81
Move some command handlers out of uCommands into more appropriate places, thus removing some dependencies. Ideally uCommands shouldn't depend on anything (except for uTypes and uConsts probably)
unc0rr
parents:
4377
diff
changeset
|
430 |
procedure chVoicepack(var s: shortstring); |
36d7e4b6ca81
Move some command handlers out of uCommands into more appropriate places, thus removing some dependencies. Ideally uCommands shouldn't depend on anything (except for uTypes and uConsts probably)
unc0rr
parents:
4377
diff
changeset
|
431 |
begin |
36d7e4b6ca81
Move some command handlers out of uCommands into more appropriate places, thus removing some dependencies. Ideally uCommands shouldn't depend on anything (except for uTypes and uConsts probably)
unc0rr
parents:
4377
diff
changeset
|
432 |
if CurrentTeam = nil then OutError(errmsgIncorrectUse + ' "/voicepack"', true); |
36d7e4b6ca81
Move some command handlers out of uCommands into more appropriate places, thus removing some dependencies. Ideally uCommands shouldn't depend on anything (except for uTypes and uConsts probably)
unc0rr
parents:
4377
diff
changeset
|
433 |
if s[1]='"' then Delete(s, 1, 1); |
36d7e4b6ca81
Move some command handlers out of uCommands into more appropriate places, thus removing some dependencies. Ideally uCommands shouldn't depend on anything (except for uTypes and uConsts probably)
unc0rr
parents:
4377
diff
changeset
|
434 |
if s[byte(s[0])]='"' then Delete(s, byte(s[0]), 1); |
36d7e4b6ca81
Move some command handlers out of uCommands into more appropriate places, thus removing some dependencies. Ideally uCommands shouldn't depend on anything (except for uTypes and uConsts probably)
unc0rr
parents:
4377
diff
changeset
|
435 |
CurrentTeam^.voicepack:= AskForVoicepack(s) |
36d7e4b6ca81
Move some command handlers out of uCommands into more appropriate places, thus removing some dependencies. Ideally uCommands shouldn't depend on anything (except for uTypes and uConsts probably)
unc0rr
parents:
4377
diff
changeset
|
436 |
end; |
36d7e4b6ca81
Move some command handlers out of uCommands into more appropriate places, thus removing some dependencies. Ideally uCommands shouldn't depend on anything (except for uTypes and uConsts probably)
unc0rr
parents:
4377
diff
changeset
|
437 |
|
3038 | 438 |
procedure initModule; |
2716
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2674
diff
changeset
|
439 |
begin |
4398
36d7e4b6ca81
Move some command handlers out of uCommands into more appropriate places, thus removing some dependencies. Ideally uCommands shouldn't depend on anything (except for uTypes and uConsts probably)
unc0rr
parents:
4377
diff
changeset
|
440 |
RegisterVariable('voicepack', vtCommand, @chVoicepack, false); |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2905
diff
changeset
|
441 |
MusicFN:=''; |
2716
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2674
diff
changeset
|
442 |
end; |
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2674
diff
changeset
|
443 |
|
3038 | 444 |
procedure freeModule; |
2716
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2674
diff
changeset
|
445 |
begin |
3615 | 446 |
if isSoundEnabled then |
447 |
ReleaseSound(); |
|
2716
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2674
diff
changeset
|
448 |
end; |
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2674
diff
changeset
|
449 |
|
2515
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2501
diff
changeset
|
450 |
end. |
2192
4763a778c033
- Fix quickplay sound bug triggered by two faults: ttsmj's (passing voicepack with empty name in team config) and koda's (he changed fallback to default scheme condition)
unc0rr
parents:
2191
diff
changeset
|
451 |