author | koda |
Tue, 16 Jul 2013 11:14:27 +0200 (2013-07-16) | |
changeset 9357 | a501f5ec7b34 |
parent 9080 | 9b42757d7e71 |
child 9127 | e350500c4edb |
child 9682 | aa2431ed87b2 |
child 9998 | 736015b847e3 |
permissions | -rw-r--r-- |
4 | 1 |
(* |
1066 | 2 |
* Hedgewars, a free turn based strategy game |
9080 | 3 |
* Copyright (c) 2004-2013 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. |
|
8231
a41d84553ae8
Changed uSound.pas so that music will still play if music is enabled and sound is disabled. Effectively, isSoundEnabled represents only sound effects and does not include music (and I have replaced the places where both are concerned with a logical combination of the two).
Mitchell Kember <mk12360@gmail.com>
parents:
8191
diff
changeset
|
24 |
* Doesn't really do anything if isSoundEnabled = false and isMusicEnabled = false |
5134 | 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 |
7043
7c080e5ac8d0
Some work to make more units compile after conversion to c
unc0rr
parents:
7024
diff
changeset
|
36 |
uses SDLh, uConsts, uTypes, SysUtils; |
4 | 37 |
|
7896
67217e6108fd
another stake at variable pre-initialisation - we lost preview logging in the course
koda
parents:
7848
diff
changeset
|
38 |
procedure preInitModule; |
3038 | 39 |
procedure initModule; |
40 |
procedure freeModule; |
|
2716
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2674
diff
changeset
|
41 |
|
7021
0c75512a8920
adjust the scope of a few uSound variables and functions
koda
parents:
6990
diff
changeset
|
42 |
procedure InitSound; // Initiates sound-system if isSoundEnabled. |
0c75512a8920
adjust the scope of a few uSound variables and functions
koda
parents:
6990
diff
changeset
|
43 |
procedure ReleaseSound(complete: boolean); // Releases sound-system and used resources. |
7061 | 44 |
procedure ResetSound; // Reset sound state to the previous state. |
7021
0c75512a8920
adjust the scope of a few uSound variables and functions
koda
parents:
6990
diff
changeset
|
45 |
procedure SetSound(enabled: boolean); // Enable/disable sound-system and backup status. |
5134 | 46 |
|
47 |
// MUSIC |
|
48 |
||
7021
0c75512a8920
adjust the scope of a few uSound variables and functions
koda
parents:
6990
diff
changeset
|
49 |
// Obvious music commands for music track |
0c75512a8920
adjust the scope of a few uSound variables and functions
koda
parents:
6990
diff
changeset
|
50 |
procedure SetMusic(enabled: boolean); // Enable/disable music. |
7848
775a72905708
* fix initialisation, preload values and then read args
koda
parents:
7423
diff
changeset
|
51 |
procedure SetMusicName(musicname: shortstring); // Set name of the file to play. |
7021
0c75512a8920
adjust the scope of a few uSound variables and functions
koda
parents:
6990
diff
changeset
|
52 |
procedure PlayMusic; // Play music from the start. |
0c75512a8920
adjust the scope of a few uSound variables and functions
koda
parents:
6990
diff
changeset
|
53 |
procedure PauseMusic; // Pause music. |
0c75512a8920
adjust the scope of a few uSound variables and functions
koda
parents:
6990
diff
changeset
|
54 |
procedure ResumeMusic; // Resume music from pause point. |
0c75512a8920
adjust the scope of a few uSound variables and functions
koda
parents:
6990
diff
changeset
|
55 |
procedure ChangeMusic(musicname: shortstring); // Replaces music track with musicname and plays it. |
0c75512a8920
adjust the scope of a few uSound variables and functions
koda
parents:
6990
diff
changeset
|
56 |
procedure StopMusic; // Stops and releases the current track. |
5134 | 57 |
|
58 |
||
59 |
// SOUNDS |
|
60 |
||
61 |
// Plays the sound snd [from a given voicepack], |
|
62 |
// if keepPlaying is given and true, |
|
63 |
// then the sound's playback won't be interrupted if asked to play again. |
|
2745 | 64 |
procedure PlaySound(snd: TSound); |
3202 | 65 |
procedure PlaySound(snd: TSound; keepPlaying: boolean); |
7053 | 66 |
procedure PlaySoundV(snd: TSound; voicepack: PVoicepack); |
67 |
procedure PlaySoundV(snd: TSound; voicepack: PVoicepack; keepPlaying: boolean); |
|
5134 | 68 |
|
69 |
// Plays sound snd [of voicepack] in a loop, but starts with fadems milliseconds of fade-in. |
|
70 |
// Returns sound channel of the looped sound. |
|
3529 | 71 |
function LoopSound(snd: TSound): LongInt; |
4956
48e1f9a04c28
usound: added function for loops with fade in and out
koda
parents:
4948
diff
changeset
|
72 |
function LoopSound(snd: TSound; fadems: LongInt): LongInt; |
7053 | 73 |
function LoopSoundV(snd: TSound; voicepack: PVoicepack): LongInt; // WTF? |
74 |
function LoopSoundV(snd: TSound; voicepack: PVoicepack; fadems: LongInt): LongInt; |
|
5134 | 75 |
|
76 |
// Stops the normal/looped sound of the given type/in the given channel |
|
77 |
// [with a fade-out effect for fadems milliseconds]. |
|
282 | 78 |
procedure StopSound(snd: TSound); |
7053 | 79 |
procedure StopSoundChan(chn: LongInt); |
80 |
procedure StopSoundChan(chn, fadems: LongInt); |
|
5134 | 81 |
|
5638
e35ba2a400d8
Try to avoid overlapping voices for major statements (not things like byebye or oof)
nemo
parents:
5239
diff
changeset
|
82 |
procedure AddVoice(snd: TSound; voicepack: PVoicepack); |
e35ba2a400d8
Try to avoid overlapping voices for major statements (not things like byebye or oof)
nemo
parents:
5239
diff
changeset
|
83 |
procedure PlayNextVoice; |
e35ba2a400d8
Try to avoid overlapping voices for major statements (not things like byebye or oof)
nemo
parents:
5239
diff
changeset
|
84 |
|
5134 | 85 |
|
7403 | 86 |
// GLOBAL FUNCTIONS |
87 |
||
88 |
// Drastically lower the volume when we lose focus (and restore the previous value). |
|
89 |
procedure DampenAudio; |
|
90 |
procedure UndampenAudio; |
|
91 |
||
92 |
// Mute/Unmute audio |
|
93 |
procedure MuteAudio; |
|
94 |
||
95 |
||
5134 | 96 |
// MISC |
97 |
||
7021
0c75512a8920
adjust the scope of a few uSound variables and functions
koda
parents:
6990
diff
changeset
|
98 |
// Set the initial volume |
7848
775a72905708
* fix initialisation, preload values and then read args
koda
parents:
7423
diff
changeset
|
99 |
procedure SetVolume(vol: LongInt); |
7021
0c75512a8920
adjust the scope of a few uSound variables and functions
koda
parents:
6990
diff
changeset
|
100 |
|
5134 | 101 |
// 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
|
102 |
function ChangeVolume(voldelta: LongInt): LongInt; |
5134 | 103 |
|
104 |
// 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
|
105 |
function AskForVoicepack(name: shortstring): Pointer; |
4 | 106 |
|
1097 | 107 |
|
8471
7681d14b9f01
Trying to prevent audio mute from endlessly spamming. Untested.
nemo
parents:
8370
diff
changeset
|
108 |
var Volume: LongInt; |
7681d14b9f01
Trying to prevent audio mute from endlessly spamming. Untested.
nemo
parents:
8370
diff
changeset
|
109 |
SoundTimerTicks: Longword; |
4 | 110 |
implementation |
8370 | 111 |
uses uVariables, uConsole, uCommands, uDebug, uPhysFSLayer; |
564 | 112 |
|
3418 | 113 |
const chanTPU = 32; |
8471
7681d14b9f01
Trying to prevent audio mute from endlessly spamming. Untested.
nemo
parents:
8370
diff
changeset
|
114 |
var cInitVolume: LongInt; |
7403 | 115 |
previousVolume: LongInt; // cached volume value |
2716
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2674
diff
changeset
|
116 |
lastChan: array [TSound] of LongInt; |
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2674
diff
changeset
|
117 |
voicepacks: array[0..cMaxTeams] of TVoicepack; |
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2674
diff
changeset
|
118 |
defVoicepack: PVoicepack; |
7848
775a72905708
* fix initialisation, preload values and then read args
koda
parents:
7423
diff
changeset
|
119 |
Mus: PMixMusic; // music pointer |
7021
0c75512a8920
adjust the scope of a few uSound variables and functions
koda
parents:
6990
diff
changeset
|
120 |
MusicFN: shortstring; // music file name |
0c75512a8920
adjust the scope of a few uSound variables and functions
koda
parents:
6990
diff
changeset
|
121 |
isMusicEnabled: boolean; |
0c75512a8920
adjust the scope of a few uSound variables and functions
koda
parents:
6990
diff
changeset
|
122 |
isSoundEnabled: boolean; |
0c75512a8920
adjust the scope of a few uSound variables and functions
koda
parents:
6990
diff
changeset
|
123 |
isSEBackup: boolean; |
8145
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8046
diff
changeset
|
124 |
VoiceList : array[0..7] of TVoice = ( |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8046
diff
changeset
|
125 |
( snd: sndNone; voicepack: nil), |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8046
diff
changeset
|
126 |
( snd: sndNone; voicepack: nil), |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8046
diff
changeset
|
127 |
( snd: sndNone; voicepack: nil), |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8046
diff
changeset
|
128 |
( snd: sndNone; voicepack: nil), |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8046
diff
changeset
|
129 |
( snd: sndNone; voicepack: nil), |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8046
diff
changeset
|
130 |
( snd: sndNone; voicepack: nil), |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8046
diff
changeset
|
131 |
( snd: sndNone; voicepack: nil), |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8046
diff
changeset
|
132 |
( snd: sndNone; voicepack: nil)); |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8046
diff
changeset
|
133 |
Soundz: array[TSound] of record |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8046
diff
changeset
|
134 |
FileName: string[31]; |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8046
diff
changeset
|
135 |
Path : TPathType; |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8046
diff
changeset
|
136 |
end = ( |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8046
diff
changeset
|
137 |
(FileName: ''; Path: ptNone ),// sndNone |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8046
diff
changeset
|
138 |
(FileName: 'grenadeimpact.ogg'; Path: ptSounds),// sndGrenadeImpact |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8046
diff
changeset
|
139 |
(FileName: 'explosion.ogg'; Path: ptSounds),// sndExplosion |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8046
diff
changeset
|
140 |
(FileName: 'throwpowerup.ogg'; Path: ptSounds),// sndThrowPowerUp |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8046
diff
changeset
|
141 |
(FileName: 'throwrelease.ogg'; Path: ptSounds),// sndThrowRelease |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8046
diff
changeset
|
142 |
(FileName: 'splash.ogg'; Path: ptSounds),// sndSplash |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8046
diff
changeset
|
143 |
(FileName: 'shotgunreload.ogg'; Path: ptSounds),// sndShotgunReload |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8046
diff
changeset
|
144 |
(FileName: 'shotgunfire.ogg'; Path: ptSounds),// sndShotgunFire |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8046
diff
changeset
|
145 |
(FileName: 'graveimpact.ogg'; Path: ptSounds),// sndGraveImpact |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8046
diff
changeset
|
146 |
(FileName: 'mineimpact.ogg'; Path: ptSounds),// sndMineImpact |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8046
diff
changeset
|
147 |
(FileName: 'minetick.ogg'; Path: ptSounds),// sndMineTicks |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8046
diff
changeset
|
148 |
(FileName: 'Droplet1.ogg'; Path: ptSounds),// sndMudballImpact |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8046
diff
changeset
|
149 |
(FileName: 'pickhammer.ogg'; Path: ptSounds),// sndPickhammer |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8046
diff
changeset
|
150 |
(FileName: 'gun.ogg'; Path: ptSounds),// sndGun |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8046
diff
changeset
|
151 |
(FileName: 'bee.ogg'; Path: ptSounds),// sndBee |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8046
diff
changeset
|
152 |
(FileName: 'Jump1.ogg'; Path: ptVoices),// sndJump1 |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8046
diff
changeset
|
153 |
(FileName: 'Jump2.ogg'; Path: ptVoices),// sndJump2 |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8046
diff
changeset
|
154 |
(FileName: 'Jump3.ogg'; Path: ptVoices),// sndJump3 |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8046
diff
changeset
|
155 |
(FileName: 'Yessir.ogg'; Path: ptVoices),// sndYesSir |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8046
diff
changeset
|
156 |
(FileName: 'Laugh.ogg'; Path: ptVoices),// sndLaugh |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8046
diff
changeset
|
157 |
(FileName: 'Illgetyou.ogg'; Path: ptVoices),// sndIllGetYou |
8968 | 158 |
(FileName: 'Justyouwait.ogg'; Path: ptVoices),// sndJustyouwait |
8145
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8046
diff
changeset
|
159 |
(FileName: 'Incoming.ogg'; Path: ptVoices),// sndIncoming |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8046
diff
changeset
|
160 |
(FileName: 'Missed.ogg'; Path: ptVoices),// sndMissed |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8046
diff
changeset
|
161 |
(FileName: 'Stupid.ogg'; Path: ptVoices),// sndStupid |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8046
diff
changeset
|
162 |
(FileName: 'Firstblood.ogg'; Path: ptVoices),// sndFirstBlood |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8046
diff
changeset
|
163 |
(FileName: 'Boring.ogg'; Path: ptVoices),// sndBoring |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8046
diff
changeset
|
164 |
(FileName: 'Byebye.ogg'; Path: ptVoices),// sndByeBye |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8046
diff
changeset
|
165 |
(FileName: 'Sameteam.ogg'; Path: ptVoices),// sndSameTeam |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8046
diff
changeset
|
166 |
(FileName: 'Nutter.ogg'; Path: ptVoices),// sndNutter |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8046
diff
changeset
|
167 |
(FileName: 'Reinforcements.ogg'; Path: ptVoices),// sndReinforce |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8046
diff
changeset
|
168 |
(FileName: 'Traitor.ogg'; Path: ptVoices),// sndTraitor |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8046
diff
changeset
|
169 |
(FileName: 'Youllregretthat.ogg'; Path: ptVoices),// sndRegret |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8046
diff
changeset
|
170 |
(FileName: 'Enemydown.ogg'; Path: ptVoices),// sndEnemyDown |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8046
diff
changeset
|
171 |
(FileName: 'Coward.ogg'; Path: ptVoices),// sndCoward |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8046
diff
changeset
|
172 |
(FileName: 'Hurry.ogg'; Path: ptVoices),// sndHurry |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8046
diff
changeset
|
173 |
(FileName: 'Watchit.ogg'; Path: ptVoices),// sndWatchIt |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8046
diff
changeset
|
174 |
(FileName: 'Kamikaze.ogg'; Path: ptVoices),// sndKamikaze |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8046
diff
changeset
|
175 |
(FileName: 'cake2.ogg'; Path: ptSounds),// sndCake |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8046
diff
changeset
|
176 |
(FileName: 'Ow1.ogg'; Path: ptVoices),// sndOw1 |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8046
diff
changeset
|
177 |
(FileName: 'Ow2.ogg'; Path: ptVoices),// sndOw2 |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8046
diff
changeset
|
178 |
(FileName: 'Ow3.ogg'; Path: ptVoices),// sndOw3 |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8046
diff
changeset
|
179 |
(FileName: 'Ow4.ogg'; Path: ptVoices),// sndOw4 |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8046
diff
changeset
|
180 |
(FileName: 'Firepunch1.ogg'; Path: ptVoices),// sndFirepunch1 |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8046
diff
changeset
|
181 |
(FileName: 'Firepunch2.ogg'; Path: ptVoices),// sndFirepunch2 |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8046
diff
changeset
|
182 |
(FileName: 'Firepunch3.ogg'; Path: ptVoices),// sndFirepunch3 |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8046
diff
changeset
|
183 |
(FileName: 'Firepunch4.ogg'; Path: ptVoices),// sndFirepunch4 |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8046
diff
changeset
|
184 |
(FileName: 'Firepunch5.ogg'; Path: ptVoices),// sndFirepunch5 |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8046
diff
changeset
|
185 |
(FileName: 'Firepunch6.ogg'; Path: ptVoices),// sndFirepunch6 |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8046
diff
changeset
|
186 |
(FileName: 'Melon.ogg'; Path: ptVoices),// sndMelon |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8046
diff
changeset
|
187 |
(FileName: 'Hellish.ogg'; Path: ptSounds),// sndHellish |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8046
diff
changeset
|
188 |
(FileName: 'Yoohoo.ogg'; Path: ptSounds),// sndYoohoo |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8046
diff
changeset
|
189 |
(FileName: 'rcplane.ogg'; Path: ptSounds),// sndRCPlane |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8046
diff
changeset
|
190 |
(FileName: 'whipcrack.ogg'; Path: ptSounds),// sndWhipCrack |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8046
diff
changeset
|
191 |
(FileName:'ride_of_the_valkyries.ogg'; Path: ptSounds),// sndRideOfTheValkyries |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8046
diff
changeset
|
192 |
(FileName: 'denied.ogg'; Path: ptSounds),// sndDenied |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8046
diff
changeset
|
193 |
(FileName: 'placed.ogg'; Path: ptSounds),// sndPlaced |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8046
diff
changeset
|
194 |
(FileName: 'baseballbat.ogg'; Path: ptSounds),// sndBaseballBat |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8046
diff
changeset
|
195 |
(FileName: 'steam.ogg'; Path: ptSounds),// sndVaporize |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8046
diff
changeset
|
196 |
(FileName: 'warp.ogg'; Path: ptSounds),// sndWarp |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8046
diff
changeset
|
197 |
(FileName: 'suddendeath.ogg'; Path: ptSounds),// sndSuddenDeath |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8046
diff
changeset
|
198 |
(FileName: 'mortar.ogg'; Path: ptSounds),// sndMortar |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8046
diff
changeset
|
199 |
(FileName: 'shutterclick.ogg'; Path: ptSounds),// sndShutter |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8046
diff
changeset
|
200 |
(FileName: 'homerun.ogg'; Path: ptSounds),// sndHomerun |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8046
diff
changeset
|
201 |
(FileName: 'molotov.ogg'; Path: ptSounds),// sndMolotov |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8046
diff
changeset
|
202 |
(FileName: 'Takecover.ogg'; Path: ptVoices),// sndCover |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8046
diff
changeset
|
203 |
(FileName: 'Uh-oh.ogg'; Path: ptVoices),// sndUhOh |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8046
diff
changeset
|
204 |
(FileName: 'Oops.ogg'; Path: ptVoices),// sndOops |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8046
diff
changeset
|
205 |
(FileName: 'Nooo.ogg'; Path: ptVoices),// sndNooo |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8046
diff
changeset
|
206 |
(FileName: 'Hello.ogg'; Path: ptVoices),// sndHello |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8046
diff
changeset
|
207 |
(FileName: 'ropeshot.ogg'; Path: ptSounds),// sndRopeShot |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8046
diff
changeset
|
208 |
(FileName: 'ropeattach.ogg'; Path: ptSounds),// sndRopeAttach |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8046
diff
changeset
|
209 |
(FileName: 'roperelease.ogg'; Path: ptSounds),// sndRopeRelease |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8046
diff
changeset
|
210 |
(FileName: 'switchhog.ogg'; Path: ptSounds),// sndSwitchHog |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8046
diff
changeset
|
211 |
(FileName: 'Victory.ogg'; Path: ptVoices),// sndVictory |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8046
diff
changeset
|
212 |
(FileName: 'Flawless.ogg'; Path: ptVoices),// sndFlawless |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8046
diff
changeset
|
213 |
(FileName: 'sniperreload.ogg'; Path: ptSounds),// sndSniperReload |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8046
diff
changeset
|
214 |
(FileName: 'steps.ogg'; Path: ptSounds),// sndSteps |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8046
diff
changeset
|
215 |
(FileName: 'lowgravity.ogg'; Path: ptSounds),// sndLowGravity |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8046
diff
changeset
|
216 |
(FileName: 'hell_growl.ogg'; Path: ptSounds),// sndHellishImpact1 |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8046
diff
changeset
|
217 |
(FileName: 'hell_ooff.ogg'; Path: ptSounds),// sndHellishImpact2 |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8046
diff
changeset
|
218 |
(FileName: 'hell_ow.ogg'; Path: ptSounds),// sndHellishImpact3 |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8046
diff
changeset
|
219 |
(FileName: 'hell_ugh.ogg'; Path: ptSounds),// sndHellishImpact4 |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8046
diff
changeset
|
220 |
(FileName: 'melonimpact.ogg'; Path: ptSounds),// sndMelonImpact |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8046
diff
changeset
|
221 |
(FileName: 'Droplet1.ogg'; Path: ptSounds),// sndDroplet1 |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8046
diff
changeset
|
222 |
(FileName: 'Droplet2.ogg'; Path: ptSounds),// sndDroplet2 |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8046
diff
changeset
|
223 |
(FileName: 'Droplet3.ogg'; Path: ptSounds),// sndDroplet3 |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8046
diff
changeset
|
224 |
(FileName: 'egg.ogg'; Path: ptSounds),// sndEggBreak |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8046
diff
changeset
|
225 |
(FileName: 'drillgun.ogg'; Path: ptSounds),// sndDrillRocket |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8046
diff
changeset
|
226 |
(FileName: 'PoisonCough.ogg'; Path: ptVoices),// sndPoisonCough |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8046
diff
changeset
|
227 |
(FileName: 'PoisonMoan.ogg'; Path: ptVoices),// sndPoisonMoan |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8046
diff
changeset
|
228 |
(FileName: 'BirdyLay.ogg'; Path: ptSounds),// sndBirdyLay |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8046
diff
changeset
|
229 |
(FileName: 'Whistle.ogg'; Path: ptSounds),// sndWhistle |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8046
diff
changeset
|
230 |
(FileName: 'beewater.ogg'; Path: ptSounds),// sndBeeWater |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8046
diff
changeset
|
231 |
(FileName: '1C.ogg'; Path: ptSounds),// sndPiano0 |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8046
diff
changeset
|
232 |
(FileName: '2D.ogg'; Path: ptSounds),// sndPiano1 |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8046
diff
changeset
|
233 |
(FileName: '3E.ogg'; Path: ptSounds),// sndPiano2 |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8046
diff
changeset
|
234 |
(FileName: '4F.ogg'; Path: ptSounds),// sndPiano3 |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8046
diff
changeset
|
235 |
(FileName: '5G.ogg'; Path: ptSounds),// sndPiano4 |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8046
diff
changeset
|
236 |
(FileName: '6A.ogg'; Path: ptSounds),// sndPiano5 |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8046
diff
changeset
|
237 |
(FileName: '7B.ogg'; Path: ptSounds),// sndPiano6 |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8046
diff
changeset
|
238 |
(FileName: '8C.ogg'; Path: ptSounds),// sndPiano7 |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8046
diff
changeset
|
239 |
(FileName: '9D.ogg'; Path: ptSounds),// sndPiano8 |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8046
diff
changeset
|
240 |
(FileName: 'skip.ogg'; Path: ptSounds),// sndSkip |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8046
diff
changeset
|
241 |
(FileName: 'sinegun.ogg'; Path: ptSounds),// sndSineGun |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8046
diff
changeset
|
242 |
(FileName: 'Ooff1.ogg'; Path: ptVoices),// sndOoff1 |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8046
diff
changeset
|
243 |
(FileName: 'Ooff2.ogg'; Path: ptVoices),// sndOoff2 |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8046
diff
changeset
|
244 |
(FileName: 'Ooff3.ogg'; Path: ptVoices),// sndOoff3 |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8046
diff
changeset
|
245 |
(FileName: 'hammer.ogg'; Path: ptSounds),// sndWhack |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8046
diff
changeset
|
246 |
(FileName: 'Comeonthen.ogg'; Path: ptVoices),// sndComeonthen |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8046
diff
changeset
|
247 |
(FileName: 'parachute.ogg'; Path: ptSounds),// sndParachute |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8046
diff
changeset
|
248 |
(FileName: 'bump.ogg'; Path: ptSounds),// sndBump |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8046
diff
changeset
|
249 |
(FileName: 'hogchant3.ogg'; Path: ptSounds),// sndResurrector |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8046
diff
changeset
|
250 |
(FileName: 'plane.ogg'; Path: ptSounds),// sndPlane |
9071 | 251 |
(FileName: 'TARDIS.ogg'; Path: ptSounds),// sndTardis |
9072 | 252 |
(FileName: 'frozen_hog_impact.ogg'; Path: ptSounds),// sndFrozenHogImpact |
9073 | 253 |
(FileName: 'ice_beam.ogg'; Path: ptSounds),// sndIceBeam |
254 |
(FileName: 'hog_freeze.ogg'; Path: ptSounds) // sndHogFreeze |
|
8145
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8046
diff
changeset
|
255 |
); |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8046
diff
changeset
|
256 |
|
7021
0c75512a8920
adjust the scope of a few uSound variables and functions
koda
parents:
6990
diff
changeset
|
257 |
|
1654 | 258 |
|
2515
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2501
diff
changeset
|
259 |
function AskForVoicepack(name: shortstring): Pointer; |
1654 | 260 |
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
|
261 |
locName, path: shortstring; |
1654 | 262 |
begin |
263 |
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
|
264 |
// 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
|
265 |
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
|
266 |
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
|
267 |
locName:= name+'_'+cLocale; |
8025 | 268 |
path:= cPathz[ptVoices] + '/' + locName; |
8678
fb62d23c70f8
PhysFS-aware check for directory existence. Should fix issue 511.
unc0rr
parents:
8471
diff
changeset
|
269 |
if pfsExists(path) then |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6551
diff
changeset
|
270 |
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
|
271 |
else |
8025 | 272 |
if Length(cLocale) > 3 then |
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
|
273 |
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
|
274 |
locName:= name+'_'+Copy(cLocale,1,2); |
8025 | 275 |
path:= cPathz[ptVoices] + '/' + locName; |
8678
fb62d23c70f8
PhysFS-aware check for directory existence. Should fix issue 511.
unc0rr
parents:
8471
diff
changeset
|
276 |
if pfsExists(path) then |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6551
diff
changeset
|
277 |
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
|
278 |
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
|
279 |
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
|
280 |
|
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
|
281 |
// If that fails, use the unmodified one |
3529 | 282 |
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
|
283 |
begin |
3529 | 284 |
inc(i); |
285 |
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
|
286 |
end; |
1654 | 287 |
|
3529 | 288 |
voicepacks[i].name:= name; |
289 |
AskForVoicepack:= @voicepacks[i] |
|
1654 | 290 |
end; |
4 | 291 |
|
292 |
procedure InitSound; |
|
7021
0c75512a8920
adjust the scope of a few uSound variables and functions
koda
parents:
6990
diff
changeset
|
293 |
const channels: LongInt = {$IFDEF MOBILE}1{$ELSE}2{$ENDIF}; |
8231
a41d84553ae8
Changed uSound.pas so that music will still play if music is enabled and sound is disabled. Effectively, isSoundEnabled represents only sound effects and does not include music (and I have replaced the places where both are concerned with a logical combination of the two).
Mitchell Kember <mk12360@gmail.com>
parents:
8191
diff
changeset
|
294 |
var success: boolean; |
4 | 295 |
begin |
8231
a41d84553ae8
Changed uSound.pas so that music will still play if music is enabled and sound is disabled. Effectively, isSoundEnabled represents only sound effects and does not include music (and I have replaced the places where both are concerned with a logical combination of the two).
Mitchell Kember <mk12360@gmail.com>
parents:
8191
diff
changeset
|
296 |
if not (isSoundEnabled or isMusicEnabled) then |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6551
diff
changeset
|
297 |
exit; |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2905
diff
changeset
|
298 |
WriteToConsole('Init sound...'); |
8231
a41d84553ae8
Changed uSound.pas so that music will still play if music is enabled and sound is disabled. Effectively, isSoundEnabled represents only sound effects and does not include music (and I have replaced the places where both are concerned with a logical combination of the two).
Mitchell Kember <mk12360@gmail.com>
parents:
8191
diff
changeset
|
299 |
success:= 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
|
300 |
|
8231
a41d84553ae8
Changed uSound.pas so that music will still play if music is enabled and sound is disabled. Effectively, isSoundEnabled represents only sound effects and does not include music (and I have replaced the places where both are concerned with a logical combination of the two).
Mitchell Kember <mk12360@gmail.com>
parents:
8191
diff
changeset
|
301 |
if success then |
a41d84553ae8
Changed uSound.pas so that music will still play if music is enabled and sound is disabled. Effectively, isSoundEnabled represents only sound effects and does not include music (and I have replaced the places where both are concerned with a logical combination of the two).
Mitchell Kember <mk12360@gmail.com>
parents:
8191
diff
changeset
|
302 |
success:= Mix_OpenAudio(44100, $8010, channels, 1024) = 0; |
2327 | 303 |
|
8231
a41d84553ae8
Changed uSound.pas so that music will still play if music is enabled and sound is disabled. Effectively, isSoundEnabled represents only sound effects and does not include music (and I have replaced the places where both are concerned with a logical combination of the two).
Mitchell Kember <mk12360@gmail.com>
parents:
8191
diff
changeset
|
304 |
if success then |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2905
diff
changeset
|
305 |
WriteLnToConsole(msgOK) |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2905
diff
changeset
|
306 |
else |
8231
a41d84553ae8
Changed uSound.pas so that music will still play if music is enabled and sound is disabled. Effectively, isSoundEnabled represents only sound effects and does not include music (and I have replaced the places where both are concerned with a logical combination of the two).
Mitchell Kember <mk12360@gmail.com>
parents:
8191
diff
changeset
|
307 |
begin |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2905
diff
changeset
|
308 |
WriteLnToConsole(msgFailed); |
8231
a41d84553ae8
Changed uSound.pas so that music will still play if music is enabled and sound is disabled. Effectively, isSoundEnabled represents only sound effects and does not include music (and I have replaced the places where both are concerned with a logical combination of the two).
Mitchell Kember <mk12360@gmail.com>
parents:
8191
diff
changeset
|
309 |
isSoundEnabled:= false; |
a41d84553ae8
Changed uSound.pas so that music will still play if music is enabled and sound is disabled. Effectively, isSoundEnabled represents only sound effects and does not include music (and I have replaced the places where both are concerned with a logical combination of the two).
Mitchell Kember <mk12360@gmail.com>
parents:
8191
diff
changeset
|
310 |
isMusicEnabled:= false; |
a41d84553ae8
Changed uSound.pas so that music will still play if music is enabled and sound is disabled. Effectively, isSoundEnabled represents only sound effects and does not include music (and I have replaced the places where both are concerned with a logical combination of the two).
Mitchell Kember <mk12360@gmail.com>
parents:
8191
diff
changeset
|
311 |
end; |
2647 | 312 |
|
7021
0c75512a8920
adjust the scope of a few uSound variables and functions
koda
parents:
6990
diff
changeset
|
313 |
WriteToConsole('Init SDL_mixer... '); |
0c75512a8920
adjust the scope of a few uSound variables and functions
koda
parents:
6990
diff
changeset
|
314 |
SDLTry(Mix_Init(MIX_INIT_OGG) <> 0, true); |
0c75512a8920
adjust the scope of a few uSound variables and functions
koda
parents:
6990
diff
changeset
|
315 |
WriteLnToConsole(msgOK); |
0c75512a8920
adjust the scope of a few uSound variables and functions
koda
parents:
6990
diff
changeset
|
316 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2905
diff
changeset
|
317 |
Mix_AllocateChannels(Succ(chanTPU)); |
7403 | 318 |
ChangeVolume(cInitVolume); |
7021
0c75512a8920
adjust the scope of a few uSound variables and functions
koda
parents:
6990
diff
changeset
|
319 |
end; |
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
|
320 |
|
7061 | 321 |
procedure ResetSound; |
7021
0c75512a8920
adjust the scope of a few uSound variables and functions
koda
parents:
6990
diff
changeset
|
322 |
begin |
0c75512a8920
adjust the scope of a few uSound variables and functions
koda
parents:
6990
diff
changeset
|
323 |
isSoundEnabled:= isSEBackup; |
0c75512a8920
adjust the scope of a few uSound variables and functions
koda
parents:
6990
diff
changeset
|
324 |
end; |
0c75512a8920
adjust the scope of a few uSound variables and functions
koda
parents:
6990
diff
changeset
|
325 |
|
0c75512a8920
adjust the scope of a few uSound variables and functions
koda
parents:
6990
diff
changeset
|
326 |
procedure SetSound(enabled: boolean); |
0c75512a8920
adjust the scope of a few uSound variables and functions
koda
parents:
6990
diff
changeset
|
327 |
begin |
0c75512a8920
adjust the scope of a few uSound variables and functions
koda
parents:
6990
diff
changeset
|
328 |
isSEBackup:= isSoundEnabled; |
0c75512a8920
adjust the scope of a few uSound variables and functions
koda
parents:
6990
diff
changeset
|
329 |
isSoundEnabled:= enabled; |
4 | 330 |
end; |
331 |
||
6362
ceacd1b61833
modify ReleaseSound so that it performs a partial release of unused sounds, useful for responding to memory warnings
koda
parents:
6360
diff
changeset
|
332 |
// when complete is false, this procedure just releases some of the chucks on inactive channels |
7021
0c75512a8920
adjust the scope of a few uSound variables and functions
koda
parents:
6990
diff
changeset
|
333 |
// in this way music is not stopped, nor are chucks currently being played |
6362
ceacd1b61833
modify ReleaseSound so that it performs a partial release of unused sounds, useful for responding to memory warnings
koda
parents:
6360
diff
changeset
|
334 |
procedure ReleaseSound(complete: boolean); |
2515
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2501
diff
changeset
|
335 |
var i: TSound; |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2905
diff
changeset
|
336 |
t: Longword; |
4 | 337 |
begin |
6362
ceacd1b61833
modify ReleaseSound so that it performs a partial release of unused sounds, useful for responding to memory warnings
koda
parents:
6360
diff
changeset
|
338 |
// release and nil all sounds |
3529 | 339 |
for t:= 0 to cMaxTeams do |
340 |
if voicepacks[t].name <> '' then |
|
341 |
for i:= Low(TSound) to High(TSound) do |
|
342 |
if voicepacks[t].chunks[i] <> nil then |
|
6362
ceacd1b61833
modify ReleaseSound so that it performs a partial release of unused sounds, useful for responding to memory warnings
koda
parents:
6360
diff
changeset
|
343 |
if complete or (Mix_Playing(lastChan[i]) = 0) then |
ceacd1b61833
modify ReleaseSound so that it performs a partial release of unused sounds, useful for responding to memory warnings
koda
parents:
6360
diff
changeset
|
344 |
begin |
ceacd1b61833
modify ReleaseSound so that it performs a partial release of unused sounds, useful for responding to memory warnings
koda
parents:
6360
diff
changeset
|
345 |
Mix_HaltChannel(lastChan[i]); |
ceacd1b61833
modify ReleaseSound so that it performs a partial release of unused sounds, useful for responding to memory warnings
koda
parents:
6360
diff
changeset
|
346 |
lastChan[i]:= -1; |
ceacd1b61833
modify ReleaseSound so that it performs a partial release of unused sounds, useful for responding to memory warnings
koda
parents:
6360
diff
changeset
|
347 |
Mix_FreeChunk(voicepacks[t].chunks[i]); |
ceacd1b61833
modify ReleaseSound so that it performs a partial release of unused sounds, useful for responding to memory warnings
koda
parents:
6360
diff
changeset
|
348 |
voicepacks[t].chunks[i]:= nil; |
ceacd1b61833
modify ReleaseSound so that it performs a partial release of unused sounds, useful for responding to memory warnings
koda
parents:
6360
diff
changeset
|
349 |
end; |
3182 | 350 |
|
6362
ceacd1b61833
modify ReleaseSound so that it performs a partial release of unused sounds, useful for responding to memory warnings
koda
parents:
6360
diff
changeset
|
351 |
// stop music |
ceacd1b61833
modify ReleaseSound so that it performs a partial release of unused sounds, useful for responding to memory warnings
koda
parents:
6360
diff
changeset
|
352 |
if complete then |
ceacd1b61833
modify ReleaseSound so that it performs a partial release of unused sounds, useful for responding to memory warnings
koda
parents:
6360
diff
changeset
|
353 |
begin |
ceacd1b61833
modify ReleaseSound so that it performs a partial release of unused sounds, useful for responding to memory warnings
koda
parents:
6360
diff
changeset
|
354 |
if Mus <> nil then |
ceacd1b61833
modify ReleaseSound so that it performs a partial release of unused sounds, useful for responding to memory warnings
koda
parents:
6360
diff
changeset
|
355 |
begin |
ceacd1b61833
modify ReleaseSound so that it performs a partial release of unused sounds, useful for responding to memory warnings
koda
parents:
6360
diff
changeset
|
356 |
Mix_HaltMusic(); |
ceacd1b61833
modify ReleaseSound so that it performs a partial release of unused sounds, useful for responding to memory warnings
koda
parents:
6360
diff
changeset
|
357 |
Mix_FreeMusic(Mus); |
ceacd1b61833
modify ReleaseSound so that it performs a partial release of unused sounds, useful for responding to memory warnings
koda
parents:
6360
diff
changeset
|
358 |
Mus:= nil; |
ceacd1b61833
modify ReleaseSound so that it performs a partial release of unused sounds, useful for responding to memory warnings
koda
parents:
6360
diff
changeset
|
359 |
end; |
3182 | 360 |
|
6362
ceacd1b61833
modify ReleaseSound so that it performs a partial release of unused sounds, useful for responding to memory warnings
koda
parents:
6360
diff
changeset
|
361 |
// make sure all instances of sdl_mixer are unloaded before continuing |
ceacd1b61833
modify ReleaseSound so that it performs a partial release of unused sounds, useful for responding to memory warnings
koda
parents:
6360
diff
changeset
|
362 |
while Mix_Init(0) <> 0 do |
ceacd1b61833
modify ReleaseSound so that it performs a partial release of unused sounds, useful for responding to memory warnings
koda
parents:
6360
diff
changeset
|
363 |
Mix_Quit(); |
ceacd1b61833
modify ReleaseSound so that it performs a partial release of unused sounds, useful for responding to memory warnings
koda
parents:
6360
diff
changeset
|
364 |
|
ceacd1b61833
modify ReleaseSound so that it performs a partial release of unused sounds, useful for responding to memory warnings
koda
parents:
6360
diff
changeset
|
365 |
Mix_CloseAudio(); |
ceacd1b61833
modify ReleaseSound so that it performs a partial release of unused sounds, useful for responding to memory warnings
koda
parents:
6360
diff
changeset
|
366 |
end; |
4 | 367 |
end; |
368 |
||
2745 | 369 |
procedure PlaySound(snd: TSound); |
370 |
begin |
|
7053 | 371 |
PlaySoundV(snd, nil, false); |
2745 | 372 |
end; |
373 |
||
3202 | 374 |
procedure PlaySound(snd: TSound; keepPlaying: boolean); |
375 |
begin |
|
7053 | 376 |
PlaySoundV(snd, nil, keepPlaying); |
3202 | 377 |
end; |
378 |
||
7053 | 379 |
procedure PlaySoundV(snd: TSound; voicepack: PVoicepack); |
4 | 380 |
begin |
7053 | 381 |
PlaySoundV(snd, voicepack, false); |
3201 | 382 |
end; |
383 |
||
7053 | 384 |
procedure PlaySoundV(snd: TSound; voicepack: PVoicepack; keepPlaying: boolean); |
3664 | 385 |
var s:shortstring; |
3201 | 386 |
begin |
4948 | 387 |
if (not isSoundEnabled) or fastUntilLag then |
3529 | 388 |
exit; |
3201 | 389 |
|
3529 | 390 |
if keepPlaying and (lastChan[snd] <> -1) and (Mix_Playing(lastChan[snd]) <> 0) then |
391 |
exit; |
|
392 |
||
3664 | 393 |
if (voicepack <> nil) then |
5638
e35ba2a400d8
Try to avoid overlapping voices for major statements (not things like byebye or oof)
nemo
parents:
5239
diff
changeset
|
394 |
begin |
3664 | 395 |
if (voicepack^.chunks[snd] = nil) and (Soundz[snd].Path = ptVoices) and (Soundz[snd].FileName <> '') then |
5638
e35ba2a400d8
Try to avoid overlapping voices for major statements (not things like byebye or oof)
nemo
parents:
5239
diff
changeset
|
396 |
begin |
8025 | 397 |
s:= cPathz[Soundz[snd].Path] + '/' + voicepack^.name + '/' + Soundz[snd].FileName; |
8191 | 398 |
if (not pfsExists(s)) and (snd in [sndFirePunch2, sndFirePunch3, sndFirePunch4, sndFirePunch5, sndFirePunch6]) then |
8025 | 399 |
s:= cPathz[Soundz[sndFirePunch1].Path] + '/' + voicepack^.name + '/' + Soundz[snd].FileName; |
3664 | 400 |
WriteToConsole(msgLoading + s + ' '); |
8025 | 401 |
voicepack^.chunks[snd]:= Mix_LoadWAV_RW(rwopsOpenRead(s), 1); |
3664 | 402 |
if voicepack^.chunks[snd] = nil then |
403 |
WriteLnToConsole(msgFailed) |
|
404 |
else |
|
405 |
WriteLnToConsole(msgOK) |
|
5638
e35ba2a400d8
Try to avoid overlapping voices for major statements (not things like byebye or oof)
nemo
parents:
5239
diff
changeset
|
406 |
end; |
3529 | 407 |
lastChan[snd]:= Mix_PlayChannelTimed(-1, voicepack^.chunks[snd], 0, -1) |
5638
e35ba2a400d8
Try to avoid overlapping voices for major statements (not things like byebye or oof)
nemo
parents:
5239
diff
changeset
|
408 |
end |
3529 | 409 |
else |
5638
e35ba2a400d8
Try to avoid overlapping voices for major statements (not things like byebye or oof)
nemo
parents:
5239
diff
changeset
|
410 |
begin |
3664 | 411 |
if (defVoicepack^.chunks[snd] = nil) and (Soundz[snd].Path <> ptVoices) and (Soundz[snd].FileName <> '') then |
5638
e35ba2a400d8
Try to avoid overlapping voices for major statements (not things like byebye or oof)
nemo
parents:
5239
diff
changeset
|
412 |
begin |
8025 | 413 |
s:= cPathz[Soundz[snd].Path] + '/' + Soundz[snd].FileName; |
3664 | 414 |
WriteToConsole(msgLoading + s + ' '); |
8025 | 415 |
defVoicepack^.chunks[snd]:= Mix_LoadWAV_RW(rwopsOpenRead(s), 1); |
6551
a2f39cb9af62
fix a couple of loose ends: sdl_mixer is informed of that OGG is provided by Tremor with its own macro, there is no more a segfault on Tremor cleanup, added new event type and timestamp entry for SDL, removed spurious characters from the japanese translation, uSound errors now are output with SDLTry, uSound doesn't need sound preloading any more
koda
parents:
6521
diff
changeset
|
416 |
SDLTry(defVoicepack^.chunks[snd] <> nil, true); |
3664 | 417 |
WriteLnToConsole(msgOK); |
5638
e35ba2a400d8
Try to avoid overlapping voices for major statements (not things like byebye or oof)
nemo
parents:
5239
diff
changeset
|
418 |
end; |
3529 | 419 |
lastChan[snd]:= Mix_PlayChannelTimed(-1, defVoicepack^.chunks[snd], 0, -1) |
5638
e35ba2a400d8
Try to avoid overlapping voices for major statements (not things like byebye or oof)
nemo
parents:
5239
diff
changeset
|
420 |
end; |
e35ba2a400d8
Try to avoid overlapping voices for major statements (not things like byebye or oof)
nemo
parents:
5239
diff
changeset
|
421 |
end; |
e35ba2a400d8
Try to avoid overlapping voices for major statements (not things like byebye or oof)
nemo
parents:
5239
diff
changeset
|
422 |
|
e35ba2a400d8
Try to avoid overlapping voices for major statements (not things like byebye or oof)
nemo
parents:
5239
diff
changeset
|
423 |
procedure AddVoice(snd: TSound; voicepack: PVoicepack); |
e35ba2a400d8
Try to avoid overlapping voices for major statements (not things like byebye or oof)
nemo
parents:
5239
diff
changeset
|
424 |
var i : LongInt; |
e35ba2a400d8
Try to avoid overlapping voices for major statements (not things like byebye or oof)
nemo
parents:
5239
diff
changeset
|
425 |
begin |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6551
diff
changeset
|
426 |
if (not isSoundEnabled) or fastUntilLag or ((LastVoice.snd = snd) and (LastVoice.voicepack = voicepack)) then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6551
diff
changeset
|
427 |
exit; |
6360
eca20f8990e2
Clear all other sounds before playing flawless victory / victory
nemo
parents:
6072
diff
changeset
|
428 |
if (snd = sndVictory) or (snd = sndFlawless) then |
eca20f8990e2
Clear all other sounds before playing flawless victory / victory
nemo
parents:
6072
diff
changeset
|
429 |
begin |
6367
a7fbf18b2d55
be more gentle when you stop channels at the end of the game
koda
parents:
6363
diff
changeset
|
430 |
Mix_FadeOutChannel(-1, 800); |
8168 | 431 |
for i:= 0 to High(VoiceList) do |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6551
diff
changeset
|
432 |
VoiceList[i].snd:= sndNone; |
6360
eca20f8990e2
Clear all other sounds before playing flawless victory / victory
nemo
parents:
6072
diff
changeset
|
433 |
LastVoice.snd:= sndNone; |
eca20f8990e2
Clear all other sounds before playing flawless victory / victory
nemo
parents:
6072
diff
changeset
|
434 |
end; |
eca20f8990e2
Clear all other sounds before playing flawless victory / victory
nemo
parents:
6072
diff
changeset
|
435 |
|
5638
e35ba2a400d8
Try to avoid overlapping voices for major statements (not things like byebye or oof)
nemo
parents:
5239
diff
changeset
|
436 |
i:= 0; |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6551
diff
changeset
|
437 |
while (i<8) and (VoiceList[i].snd <> sndNone) do |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6551
diff
changeset
|
438 |
inc(i); |
5638
e35ba2a400d8
Try to avoid overlapping voices for major statements (not things like byebye or oof)
nemo
parents:
5239
diff
changeset
|
439 |
|
5921 | 440 |
// skip playing same sound for same hog twice |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6551
diff
changeset
|
441 |
if (i>0) and (VoiceList[i-1].snd = snd) and (VoiceList[i-1].voicepack = voicepack) then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6551
diff
changeset
|
442 |
exit; |
5638
e35ba2a400d8
Try to avoid overlapping voices for major statements (not things like byebye or oof)
nemo
parents:
5239
diff
changeset
|
443 |
VoiceList[i].snd:= snd; |
e35ba2a400d8
Try to avoid overlapping voices for major statements (not things like byebye or oof)
nemo
parents:
5239
diff
changeset
|
444 |
VoiceList[i].voicepack:= voicepack; |
e35ba2a400d8
Try to avoid overlapping voices for major statements (not things like byebye or oof)
nemo
parents:
5239
diff
changeset
|
445 |
end; |
e35ba2a400d8
Try to avoid overlapping voices for major statements (not things like byebye or oof)
nemo
parents:
5239
diff
changeset
|
446 |
|
e35ba2a400d8
Try to avoid overlapping voices for major statements (not things like byebye or oof)
nemo
parents:
5239
diff
changeset
|
447 |
procedure PlayNextVoice; |
e35ba2a400d8
Try to avoid overlapping voices for major statements (not things like byebye or oof)
nemo
parents:
5239
diff
changeset
|
448 |
var i : LongInt; |
e35ba2a400d8
Try to avoid overlapping voices for major statements (not things like byebye or oof)
nemo
parents:
5239
diff
changeset
|
449 |
begin |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6551
diff
changeset
|
450 |
if (not isSoundEnabled) or fastUntilLag or ((LastVoice.snd <> sndNone) and (lastChan[LastVoice.snd] <> -1) and (Mix_Playing(lastChan[LastVoice.snd]) <> 0)) then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6551
diff
changeset
|
451 |
exit; |
5638
e35ba2a400d8
Try to avoid overlapping voices for major statements (not things like byebye or oof)
nemo
parents:
5239
diff
changeset
|
452 |
i:= 0; |
8168 | 453 |
while (i<High(VoiceList)) and (VoiceList[i].snd = sndNone) do |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6551
diff
changeset
|
454 |
inc(i); |
5638
e35ba2a400d8
Try to avoid overlapping voices for major statements (not things like byebye or oof)
nemo
parents:
5239
diff
changeset
|
455 |
|
e35ba2a400d8
Try to avoid overlapping voices for major statements (not things like byebye or oof)
nemo
parents:
5239
diff
changeset
|
456 |
if (VoiceList[i].snd <> sndNone) then |
e35ba2a400d8
Try to avoid overlapping voices for major statements (not things like byebye or oof)
nemo
parents:
5239
diff
changeset
|
457 |
begin |
e35ba2a400d8
Try to avoid overlapping voices for major statements (not things like byebye or oof)
nemo
parents:
5239
diff
changeset
|
458 |
LastVoice.snd:= VoiceList[i].snd; |
e35ba2a400d8
Try to avoid overlapping voices for major statements (not things like byebye or oof)
nemo
parents:
5239
diff
changeset
|
459 |
LastVoice.voicepack:= VoiceList[i].voicepack; |
e35ba2a400d8
Try to avoid overlapping voices for major statements (not things like byebye or oof)
nemo
parents:
5239
diff
changeset
|
460 |
VoiceList[i].snd:= sndNone; |
7053 | 461 |
PlaySoundV(LastVoice.snd, LastVoice.voicepack) |
5638
e35ba2a400d8
Try to avoid overlapping voices for major statements (not things like byebye or oof)
nemo
parents:
5239
diff
changeset
|
462 |
end |
e35ba2a400d8
Try to avoid overlapping voices for major statements (not things like byebye or oof)
nemo
parents:
5239
diff
changeset
|
463 |
else LastVoice.snd:= sndNone; |
4 | 464 |
end; |
465 |
||
2745 | 466 |
function LoopSound(snd: TSound): LongInt; |
467 |
begin |
|
7053 | 468 |
LoopSound:= LoopSoundV(snd, nil) |
2745 | 469 |
end; |
470 |
||
4956
48e1f9a04c28
usound: added function for loops with fade in and out
koda
parents:
4948
diff
changeset
|
471 |
function LoopSound(snd: TSound; fadems: LongInt): LongInt; |
48e1f9a04c28
usound: added function for loops with fade in and out
koda
parents:
4948
diff
changeset
|
472 |
begin |
7053 | 473 |
LoopSound:= LoopSoundV(snd, nil, fadems) |
4956
48e1f9a04c28
usound: added function for loops with fade in and out
koda
parents:
4948
diff
changeset
|
474 |
end; |
48e1f9a04c28
usound: added function for loops with fade in and out
koda
parents:
4948
diff
changeset
|
475 |
|
7053 | 476 |
function LoopSoundV(snd: TSound; voicepack: PVoicepack): LongInt; |
4956
48e1f9a04c28
usound: added function for loops with fade in and out
koda
parents:
4948
diff
changeset
|
477 |
begin |
5052 | 478 |
voicepack:= voicepack; // avoid compiler hint |
7053 | 479 |
LoopSoundV:= LoopSoundV(snd, nil, 0) |
4956
48e1f9a04c28
usound: added function for loops with fade in and out
koda
parents:
4948
diff
changeset
|
480 |
end; |
48e1f9a04c28
usound: added function for loops with fade in and out
koda
parents:
4948
diff
changeset
|
481 |
|
7053 | 482 |
function LoopSoundV(snd: TSound; voicepack: PVoicepack; fadems: LongInt): LongInt; |
3664 | 483 |
var s: shortstring; |
2647 | 484 |
begin |
4948 | 485 |
if (not isSoundEnabled) or fastUntilLag then |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6551
diff
changeset
|
486 |
begin |
7053 | 487 |
LoopSoundV:= -1; |
3529 | 488 |
exit |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6551
diff
changeset
|
489 |
end; |
2647 | 490 |
|
3664 | 491 |
if (voicepack <> nil) then |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6551
diff
changeset
|
492 |
begin |
3664 | 493 |
if (voicepack^.chunks[snd] = nil) and (Soundz[snd].Path = ptVoices) and (Soundz[snd].FileName <> '') then |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6551
diff
changeset
|
494 |
begin |
8025 | 495 |
s:= cPathz[Soundz[snd].Path] + '/' + voicepack^.name + '/' + Soundz[snd].FileName; |
3664 | 496 |
WriteToConsole(msgLoading + s + ' '); |
8025 | 497 |
voicepack^.chunks[snd]:= Mix_LoadWAV_RW(rwopsOpenRead(s), 1); |
3664 | 498 |
if voicepack^.chunks[snd] = nil then |
499 |
WriteLnToConsole(msgFailed) |
|
500 |
else |
|
501 |
WriteLnToConsole(msgOK) |
|
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6551
diff
changeset
|
502 |
end; |
7053 | 503 |
LoopSoundV:= Mix_PlayChannelTimed(-1, voicepack^.chunks[snd], -1, -1) |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6551
diff
changeset
|
504 |
end |
3529 | 505 |
else |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6551
diff
changeset
|
506 |
begin |
3664 | 507 |
if (defVoicepack^.chunks[snd] = nil) and (Soundz[snd].Path <> ptVoices) and (Soundz[snd].FileName <> '') then |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6551
diff
changeset
|
508 |
begin |
8025 | 509 |
s:= cPathz[Soundz[snd].Path] + '/' + Soundz[snd].FileName; |
3664 | 510 |
WriteToConsole(msgLoading + s + ' '); |
8025 | 511 |
defVoicepack^.chunks[snd]:= Mix_LoadWAV_RW(rwopsOpenRead(s), 1); |
6551
a2f39cb9af62
fix a couple of loose ends: sdl_mixer is informed of that OGG is provided by Tremor with its own macro, there is no more a segfault on Tremor cleanup, added new event type and timestamp entry for SDL, removed spurious characters from the japanese translation, uSound errors now are output with SDLTry, uSound doesn't need sound preloading any more
koda
parents:
6521
diff
changeset
|
512 |
SDLTry(defVoicepack^.chunks[snd] <> nil, true); |
3664 | 513 |
WriteLnToConsole(msgOK); |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6551
diff
changeset
|
514 |
end; |
4956
48e1f9a04c28
usound: added function for loops with fade in and out
koda
parents:
4948
diff
changeset
|
515 |
if fadems > 0 then |
7053 | 516 |
LoopSoundV:= Mix_FadeInChannelTimed(-1, defVoicepack^.chunks[snd], -1, fadems, -1) |
4956
48e1f9a04c28
usound: added function for loops with fade in and out
koda
parents:
4948
diff
changeset
|
517 |
else |
7053 | 518 |
LoopSoundV:= Mix_PlayChannelTimed(-1, defVoicepack^.chunks[snd], -1, -1); |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6551
diff
changeset
|
519 |
end; |
2647 | 520 |
end; |
521 |
||
282 | 522 |
procedure StopSound(snd: TSound); |
4 | 523 |
begin |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6551
diff
changeset
|
524 |
if not isSoundEnabled then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6551
diff
changeset
|
525 |
exit; |
4956
48e1f9a04c28
usound: added function for loops with fade in and out
koda
parents:
4948
diff
changeset
|
526 |
|
3529 | 527 |
if (lastChan[snd] <> -1) and (Mix_Playing(lastChan[snd]) <> 0) then |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6551
diff
changeset
|
528 |
begin |
3529 | 529 |
Mix_HaltChannel(lastChan[snd]); |
530 |
lastChan[snd]:= -1; |
|
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6551
diff
changeset
|
531 |
end; |
4 | 532 |
end; |
533 |
||
7053 | 534 |
procedure StopSoundChan(chn: LongInt); |
2745 | 535 |
begin |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6551
diff
changeset
|
536 |
if not isSoundEnabled then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6551
diff
changeset
|
537 |
exit; |
3529 | 538 |
|
539 |
if (chn <> -1) and (Mix_Playing(chn) <> 0) then |
|
540 |
Mix_HaltChannel(chn); |
|
2745 | 541 |
end; |
542 |
||
7053 | 543 |
procedure StopSoundChan(chn, fadems: LongInt); |
4956
48e1f9a04c28
usound: added function for loops with fade in and out
koda
parents:
4948
diff
changeset
|
544 |
begin |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6551
diff
changeset
|
545 |
if not isSoundEnabled then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6551
diff
changeset
|
546 |
exit; |
4956
48e1f9a04c28
usound: added function for loops with fade in and out
koda
parents:
4948
diff
changeset
|
547 |
|
48e1f9a04c28
usound: added function for loops with fade in and out
koda
parents:
4948
diff
changeset
|
548 |
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
|
549 |
Mix_FadeOutChannel(chn, fadems); |
48e1f9a04c28
usound: added function for loops with fade in and out
koda
parents:
4948
diff
changeset
|
550 |
end; |
48e1f9a04c28
usound: added function for loops with fade in and out
koda
parents:
4948
diff
changeset
|
551 |
|
4 | 552 |
procedure PlayMusic; |
2905 | 553 |
var s: shortstring; |
4 | 554 |
begin |
8231
a41d84553ae8
Changed uSound.pas so that music will still play if music is enabled and sound is disabled. Effectively, isSoundEnabled represents only sound effects and does not include music (and I have replaced the places where both are concerned with a logical combination of the two).
Mitchell Kember <mk12360@gmail.com>
parents:
8191
diff
changeset
|
555 |
if (MusicFN = '') or (not isMusicEnabled) then |
3529 | 556 |
exit; |
557 |
||
8046 | 558 |
s:= '/Music/' + MusicFN; |
3529 | 559 |
WriteToConsole(msgLoading + s + ' '); |
565 | 560 |
|
8046 | 561 |
Mus:= Mix_LoadMUS_RW(rwopsOpenRead(s)); |
6551
a2f39cb9af62
fix a couple of loose ends: sdl_mixer is informed of that OGG is provided by Tremor with its own macro, there is no more a segfault on Tremor cleanup, added new event type and timestamp entry for SDL, removed spurious characters from the japanese translation, uSound errors now are output with SDLTry, uSound doesn't need sound preloading any more
koda
parents:
6521
diff
changeset
|
562 |
SDLTry(Mus <> nil, false); |
3529 | 563 |
WriteLnToConsole(msgOK); |
565 | 564 |
|
3529 | 565 |
SDLTry(Mix_FadeInMusic(Mus, -1, 3000) <> -1, false) |
4 | 566 |
end; |
567 |
||
7848
775a72905708
* fix initialisation, preload values and then read args
koda
parents:
7423
diff
changeset
|
568 |
procedure SetVolume(vol: LongInt); |
7021
0c75512a8920
adjust the scope of a few uSound variables and functions
koda
parents:
6990
diff
changeset
|
569 |
begin |
7848
775a72905708
* fix initialisation, preload values and then read args
koda
parents:
7423
diff
changeset
|
570 |
cInitVolume:= vol; |
7021
0c75512a8920
adjust the scope of a few uSound variables and functions
koda
parents:
6990
diff
changeset
|
571 |
end; |
0c75512a8920
adjust the scope of a few uSound variables and functions
koda
parents:
6990
diff
changeset
|
572 |
|
371 | 573 |
function ChangeVolume(voldelta: LongInt): LongInt; |
174 | 574 |
begin |
6990
40e5af28d026
change every return value into a more pascal-ish form, using the name of the fucntion (helps the parser and macpas compaitilibity)
koda
parents:
6898
diff
changeset
|
575 |
ChangeVolume:= 0; |
8231
a41d84553ae8
Changed uSound.pas so that music will still play if music is enabled and sound is disabled. Effectively, isSoundEnabled represents only sound effects and does not include music (and I have replaced the places where both are concerned with a logical combination of the two).
Mitchell Kember <mk12360@gmail.com>
parents:
8191
diff
changeset
|
576 |
if not (isSoundEnabled or isMusicEnabled) or ((voldelta = 0) and (not (cInitVolume = 0))) then |
6990
40e5af28d026
change every return value into a more pascal-ish form, using the name of the fucntion (helps the parser and macpas compaitilibity)
koda
parents:
6898
diff
changeset
|
577 |
exit; |
2327 | 578 |
|
3529 | 579 |
inc(Volume, voldelta); |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6551
diff
changeset
|
580 |
if Volume < 0 then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6551
diff
changeset
|
581 |
Volume:= 0; |
7021
0c75512a8920
adjust the scope of a few uSound variables and functions
koda
parents:
6990
diff
changeset
|
582 |
// apply Volume to all channels |
3529 | 583 |
Mix_Volume(-1, Volume); |
7021
0c75512a8920
adjust the scope of a few uSound variables and functions
koda
parents:
6990
diff
changeset
|
584 |
// get assigned Volume |
3529 | 585 |
Volume:= Mix_Volume(-1, -1); |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6551
diff
changeset
|
586 |
if isMusicEnabled then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6551
diff
changeset
|
587 |
Mix_VolumeMusic(Volume * 4 div 8); |
7403 | 588 |
ChangeVolume:= Volume * 100 div MIX_MAX_VOLUME; |
589 |
||
7404 | 590 |
if (isMusicEnabled) then |
591 |
if (Volume = 0) then |
|
592 |
PauseMusic |
|
593 |
else |
|
594 |
ResumeMusic; |
|
7403 | 595 |
|
7404 | 596 |
isAudioMuted:= (Volume = 0); |
174 | 597 |
end; |
598 |
||
6862 | 599 |
procedure DampenAudio; |
600 |
begin |
|
7404 | 601 |
if (isAudioMuted) then |
602 |
exit; |
|
6990
40e5af28d026
change every return value into a more pascal-ish form, using the name of the fucntion (helps the parser and macpas compaitilibity)
koda
parents:
6898
diff
changeset
|
603 |
previousVolume:= Volume; |
40e5af28d026
change every return value into a more pascal-ish form, using the name of the fucntion (helps the parser and macpas compaitilibity)
koda
parents:
6898
diff
changeset
|
604 |
ChangeVolume(-Volume * 7 div 9); |
6862 | 605 |
end; |
606 |
||
607 |
procedure UndampenAudio; |
|
608 |
begin |
|
7404 | 609 |
if (isAudioMuted) then |
610 |
exit; |
|
7021
0c75512a8920
adjust the scope of a few uSound variables and functions
koda
parents:
6990
diff
changeset
|
611 |
ChangeVolume(previousVolume - Volume); |
0c75512a8920
adjust the scope of a few uSound variables and functions
koda
parents:
6990
diff
changeset
|
612 |
end; |
0c75512a8920
adjust the scope of a few uSound variables and functions
koda
parents:
6990
diff
changeset
|
613 |
|
7403 | 614 |
procedure MuteAudio; |
615 |
begin |
|
8231
a41d84553ae8
Changed uSound.pas so that music will still play if music is enabled and sound is disabled. Effectively, isSoundEnabled represents only sound effects and does not include music (and I have replaced the places where both are concerned with a logical combination of the two).
Mitchell Kember <mk12360@gmail.com>
parents:
8191
diff
changeset
|
616 |
if not (isSoundEnabled or isMusicEnabled) then |
7848
775a72905708
* fix initialisation, preload values and then read args
koda
parents:
7423
diff
changeset
|
617 |
exit; |
7404 | 618 |
|
619 |
if (isAudioMuted) then |
|
620 |
begin |
|
621 |
ResumeMusic; |
|
622 |
ChangeVolume(previousVolume); |
|
623 |
end |
|
624 |
else |
|
625 |
begin |
|
626 |
PauseMusic; |
|
627 |
previousVolume:= Volume; |
|
628 |
ChangeVolume(-Volume); |
|
629 |
end; |
|
630 |
||
631 |
// isAudioMuted is updated in ChangeVolume |
|
7403 | 632 |
end; |
633 |
||
7021
0c75512a8920
adjust the scope of a few uSound variables and functions
koda
parents:
6990
diff
changeset
|
634 |
procedure SetMusic(enabled: boolean); |
0c75512a8920
adjust the scope of a few uSound variables and functions
koda
parents:
6990
diff
changeset
|
635 |
begin |
0c75512a8920
adjust the scope of a few uSound variables and functions
koda
parents:
6990
diff
changeset
|
636 |
isMusicEnabled:= enabled; |
0c75512a8920
adjust the scope of a few uSound variables and functions
koda
parents:
6990
diff
changeset
|
637 |
end; |
0c75512a8920
adjust the scope of a few uSound variables and functions
koda
parents:
6990
diff
changeset
|
638 |
|
7053 | 639 |
procedure SetMusicName(musicname: shortstring); |
7021
0c75512a8920
adjust the scope of a few uSound variables and functions
koda
parents:
6990
diff
changeset
|
640 |
begin |
0c75512a8920
adjust the scope of a few uSound variables and functions
koda
parents:
6990
diff
changeset
|
641 |
MusicFN:= musicname; |
6862 | 642 |
end; |
643 |
||
1712 | 644 |
procedure PauseMusic; |
645 |
begin |
|
3529 | 646 |
if (MusicFN = '') or (not isMusicEnabled) then |
647 |
exit; |
|
2515
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2501
diff
changeset
|
648 |
|
6472 | 649 |
if Mus <> nil then |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6551
diff
changeset
|
650 |
Mix_PauseMusic(Mus); |
1712 | 651 |
end; |
652 |
||
653 |
procedure ResumeMusic; |
|
654 |
begin |
|
3529 | 655 |
if (MusicFN = '') or (not isMusicEnabled) then |
656 |
exit; |
|
2515
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2501
diff
changeset
|
657 |
|
6472 | 658 |
if Mus <> nil then |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6551
diff
changeset
|
659 |
Mix_ResumeMusic(Mus); |
1712 | 660 |
end; |
661 |
||
7021
0c75512a8920
adjust the scope of a few uSound variables and functions
koda
parents:
6990
diff
changeset
|
662 |
procedure ChangeMusic(musicname: shortstring); |
4748 | 663 |
begin |
7021
0c75512a8920
adjust the scope of a few uSound variables and functions
koda
parents:
6990
diff
changeset
|
664 |
MusicFN:= musicname; |
4748 | 665 |
if (MusicFN = '') or (not isMusicEnabled) then |
666 |
exit; |
|
667 |
||
6472 | 668 |
StopMusic; |
669 |
PlayMusic; |
|
670 |
end; |
|
671 |
||
672 |
procedure StopMusic; |
|
673 |
begin |
|
674 |
if (MusicFN = '') or (not isMusicEnabled) then |
|
675 |
exit; |
|
676 |
||
4748 | 677 |
if Mus <> nil then |
6521 | 678 |
begin |
4748 | 679 |
Mix_FreeMusic(Mus); |
6521 | 680 |
Mus:= nil; |
681 |
end |
|
4748 | 682 |
end; |
683 |
||
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
|
684 |
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
|
685 |
begin |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6551
diff
changeset
|
686 |
if CurrentTeam = nil then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6551
diff
changeset
|
687 |
OutError(errmsgIncorrectUse + ' "/voicepack"', true); |
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
|
688 |
if s[1]='"' then Delete(s, 1, 1); |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6551
diff
changeset
|
689 |
if s[byte(s[0])]='"' then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6551
diff
changeset
|
690 |
Delete(s, byte(s[0]), 1); |
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
|
691 |
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
|
692 |
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
|
693 |
|
7403 | 694 |
procedure chMute(var s: shortstring); |
695 |
begin |
|
7404 | 696 |
s:= s; // avoid compiler hint |
697 |
MuteAudio; |
|
7403 | 698 |
end; |
699 |
||
7896
67217e6108fd
another stake at variable pre-initialisation - we lost preview logging in the course
koda
parents:
7848
diff
changeset
|
700 |
procedure preInitModule; |
67217e6108fd
another stake at variable pre-initialisation - we lost preview logging in the course
koda
parents:
7848
diff
changeset
|
701 |
begin |
67217e6108fd
another stake at variable pre-initialisation - we lost preview logging in the course
koda
parents:
7848
diff
changeset
|
702 |
isMusicEnabled:= true; |
67217e6108fd
another stake at variable pre-initialisation - we lost preview logging in the course
koda
parents:
7848
diff
changeset
|
703 |
isSoundEnabled:= true; |
67217e6108fd
another stake at variable pre-initialisation - we lost preview logging in the course
koda
parents:
7848
diff
changeset
|
704 |
cInitVolume:= 100; |
67217e6108fd
another stake at variable pre-initialisation - we lost preview logging in the course
koda
parents:
7848
diff
changeset
|
705 |
end; |
67217e6108fd
another stake at variable pre-initialisation - we lost preview logging in the course
koda
parents:
7848
diff
changeset
|
706 |
|
3038 | 707 |
procedure initModule; |
7021
0c75512a8920
adjust the scope of a few uSound variables and functions
koda
parents:
6990
diff
changeset
|
708 |
var t: LongInt; |
0c75512a8920
adjust the scope of a few uSound variables and functions
koda
parents:
6990
diff
changeset
|
709 |
i: TSound; |
2716
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2674
diff
changeset
|
710 |
begin |
6898 | 711 |
RegisterVariable('voicepack', @chVoicepack, false); |
7404 | 712 |
RegisterVariable('mute' , @chMute , true ); |
7021
0c75512a8920
adjust the scope of a few uSound variables and functions
koda
parents:
6990
diff
changeset
|
713 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2905
diff
changeset
|
714 |
MusicFN:=''; |
7848
775a72905708
* fix initialisation, preload values and then read args
koda
parents:
7423
diff
changeset
|
715 |
Mus:= nil; |
7404 | 716 |
isAudioMuted:= false; |
7021
0c75512a8920
adjust the scope of a few uSound variables and functions
koda
parents:
6990
diff
changeset
|
717 |
isSEBackup:= isSoundEnabled; |
0c75512a8920
adjust the scope of a few uSound variables and functions
koda
parents:
6990
diff
changeset
|
718 |
Volume:= 0; |
8471
7681d14b9f01
Trying to prevent audio mute from endlessly spamming. Untested.
nemo
parents:
8370
diff
changeset
|
719 |
SoundTimerTicks:= 0; |
7024 | 720 |
defVoicepack:= AskForVoicepack('Default'); |
7021
0c75512a8920
adjust the scope of a few uSound variables and functions
koda
parents:
6990
diff
changeset
|
721 |
|
0c75512a8920
adjust the scope of a few uSound variables and functions
koda
parents:
6990
diff
changeset
|
722 |
for i:= Low(TSound) to High(TSound) do |
0c75512a8920
adjust the scope of a few uSound variables and functions
koda
parents:
6990
diff
changeset
|
723 |
lastChan[i]:= -1; |
0c75512a8920
adjust the scope of a few uSound variables and functions
koda
parents:
6990
diff
changeset
|
724 |
|
0c75512a8920
adjust the scope of a few uSound variables and functions
koda
parents:
6990
diff
changeset
|
725 |
// initialize all voices to nil so that they can be loaded lazily |
0c75512a8920
adjust the scope of a few uSound variables and functions
koda
parents:
6990
diff
changeset
|
726 |
for t:= 0 to cMaxTeams do |
0c75512a8920
adjust the scope of a few uSound variables and functions
koda
parents:
6990
diff
changeset
|
727 |
if voicepacks[t].name <> '' then |
0c75512a8920
adjust the scope of a few uSound variables and functions
koda
parents:
6990
diff
changeset
|
728 |
for i:= Low(TSound) to High(TSound) do |
0c75512a8920
adjust the scope of a few uSound variables and functions
koda
parents:
6990
diff
changeset
|
729 |
voicepacks[t].chunks[i]:= nil; |
0c75512a8920
adjust the scope of a few uSound variables and functions
koda
parents:
6990
diff
changeset
|
730 |
|
0c75512a8920
adjust the scope of a few uSound variables and functions
koda
parents:
6990
diff
changeset
|
731 |
(* on MOBILE SDL_mixer has to be compiled against Tremor (USE_OGG_TREMOR) |
8168 | 732 |
or sound files bigger than 32k will lockup the game on slow cpu *) |
7021
0c75512a8920
adjust the scope of a few uSound variables and functions
koda
parents:
6990
diff
changeset
|
733 |
for i:= Low(TSound) to High(TSound) do |
0c75512a8920
adjust the scope of a few uSound variables and functions
koda
parents:
6990
diff
changeset
|
734 |
defVoicepack^.chunks[i]:= nil; |
0c75512a8920
adjust the scope of a few uSound variables and functions
koda
parents:
6990
diff
changeset
|
735 |
|
2716
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2674
diff
changeset
|
736 |
end; |
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2674
diff
changeset
|
737 |
|
3038 | 738 |
procedure freeModule; |
2716
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2674
diff
changeset
|
739 |
begin |
8231
a41d84553ae8
Changed uSound.pas so that music will still play if music is enabled and sound is disabled. Effectively, isSoundEnabled represents only sound effects and does not include music (and I have replaced the places where both are concerned with a logical combination of the two).
Mitchell Kember <mk12360@gmail.com>
parents:
8191
diff
changeset
|
740 |
if isSoundEnabled or isMusicEnabled then |
6362
ceacd1b61833
modify ReleaseSound so that it performs a partial release of unused sounds, useful for responding to memory warnings
koda
parents:
6360
diff
changeset
|
741 |
ReleaseSound(true); |
2716
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2674
diff
changeset
|
742 |
end; |
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2674
diff
changeset
|
743 |
|
2515
51d3f4b6293a
revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents:
2501
diff
changeset
|
744 |
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
|
745 |