hedgewars/uSound.pas
author nemo
Sun, 24 Jan 2010 16:46:06 +0000
changeset 2712 8f4527c9137c
parent 2674 2fce032f2f95
child 2716 b9ca1bfca24f
permissions -rw-r--r--
Minor tweak, try to make long flavour text last longer, move the hurt self messages to unused messages group, so they don't get wiped by crate an instant later.
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
     1
(*
1066
1f1b3686a2b0 Update copyright headers a bit
unc0rr
parents: 611
diff changeset
     2
 * Hedgewars, a free turn based strategy game
1654
9cfa6f23e767 Start voicepacks implementation
unc0rr
parents: 1562
diff changeset
     3
 * Copyright (c) 2005, 2007, 2009 Andrey Korotaev <unC0Rr@gmail.com>
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
     4
 *
183
57c2ef19f719 Relicense to GPL
unc0rr
parents: 181
diff changeset
     5
 * This program is free software; you can redistribute it and/or modify
57c2ef19f719 Relicense to GPL
unc0rr
parents: 181
diff changeset
     6
 * it under the terms of the GNU General Public License as published by
57c2ef19f719 Relicense to GPL
unc0rr
parents: 181
diff changeset
     7
 * the Free Software Foundation; version 2 of the License
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
     8
 *
183
57c2ef19f719 Relicense to GPL
unc0rr
parents: 181
diff changeset
     9
 * This program is distributed in the hope that it will be useful,
57c2ef19f719 Relicense to GPL
unc0rr
parents: 181
diff changeset
    10
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
57c2ef19f719 Relicense to GPL
unc0rr
parents: 181
diff changeset
    11
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
57c2ef19f719 Relicense to GPL
unc0rr
parents: 181
diff changeset
    12
 * GNU General Public License for more details.
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
    13
 *
183
57c2ef19f719 Relicense to GPL
unc0rr
parents: 181
diff changeset
    14
 * You should have received a copy of the GNU General Public License
57c2ef19f719 Relicense to GPL
unc0rr
parents: 181
diff changeset
    15
 * along with this program; if not, write to the Free Software
57c2ef19f719 Relicense to GPL
unc0rr
parents: 181
diff changeset
    16
 * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
    17
 *)
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
    18
2630
079ef82eac75 revamped file access and debug display
koda
parents: 2603
diff changeset
    19
{$INCLUDE "options.inc"}
079ef82eac75 revamped file access and debug display
koda
parents: 2603
diff changeset
    20
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
    21
unit uSound;
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
    22
interface
2515
51d3f4b6293a revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents: 2501
diff changeset
    23
uses SDLh, uConsts;
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
    24
1654
9cfa6f23e767 Start voicepacks implementation
unc0rr
parents: 1562
diff changeset
    25
type PVoicepack = ^TVoicepack;
9cfa6f23e767 Start voicepacks implementation
unc0rr
parents: 1562
diff changeset
    26
	TVoicepack = record
9cfa6f23e767 Start voicepacks implementation
unc0rr
parents: 1562
diff changeset
    27
		name: shortstring;
2515
51d3f4b6293a revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents: 2501
diff changeset
    28
		chunks: array [TSound] of PMixChunk;
1654
9cfa6f23e767 Start voicepacks implementation
unc0rr
parents: 1562
diff changeset
    29
		end;
9cfa6f23e767 Start voicepacks implementation
unc0rr
parents: 1562
diff changeset
    30
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
    31
procedure InitSound;
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
    32
procedure ReleaseSound;
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
    33
procedure SoundLoad;
1669
b709e061577e Mostly fix voicepack usage
unc0rr
parents: 1657
diff changeset
    34
procedure PlaySound(snd: TSound; infinite: boolean; voicepack: PVoicepack);
2647
0e1208e92dfe Smaxx patch with tuning by me:
unc0rr
parents: 2633
diff changeset
    35
procedure LoopSound(snd: TSound; voicepack: PVoicepack);
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
    36
procedure PlayMusic;
1712
f5b916de40f0 Patch by nemo (polished by me)
unc0rr
parents: 1669
diff changeset
    37
procedure PauseMusic;
f5b916de40f0 Patch by nemo (polished by me)
unc0rr
parents: 1669
diff changeset
    38
procedure ResumeMusic;
282
b1e3387389b6 - Pickhammer sound
unc0rr
parents: 183
diff changeset
    39
procedure StopSound(snd: TSound);
2515
51d3f4b6293a revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents: 2501
diff changeset
    40
function  ChangeVolume(voldelta: LongInt): LongInt;
2494
1e10a47cabea THE fix for openalbridge
koda
parents: 2443
diff changeset
    41
2515
51d3f4b6293a revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents: 2501
diff changeset
    42
function  AskForVoicepack(name: shortstring): Pointer;
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
    43
1097
06b15817b8a0 Enable music dependance on current land theme
unc0rr
parents: 1066
diff changeset
    44
var MusicFN: shortstring = '';
06b15817b8a0 Enable music dependance on current land theme
unc0rr
parents: 1066
diff changeset
    45
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
    46
implementation
2230
d6963f72d21a once again, trying to restore windows compatibility from nemo's experiments
koda
parents: 2222
diff changeset
    47
uses uMisc, uConsole;
564
17fb45c670c1 Finalize basic playlists implementation
unc0rr
parents: 449
diff changeset
    48
13
7a5db822fd3f - Show no crosshair when using mine
unc0rr
parents: 11
diff changeset
    49
const chanTPU = 12;
2515
51d3f4b6293a revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents: 2501
diff changeset
    50
var Volume: LongInt;
2327
4832b77ec958 restored volumen control (hoorray)
koda
parents: 2303
diff changeset
    51
	lastChan: array [TSound] of LongInt;
1654
9cfa6f23e767 Start voicepacks implementation
unc0rr
parents: 1562
diff changeset
    52
	voicepacks: array[0..cMaxTeams] of TVoicepack;
1656
209cf0e2fc36 Finish voicepacks support in engine (not tested though)
unc0rr
parents: 1654
diff changeset
    53
	defVoicepack: PVoicepack;
2515
51d3f4b6293a revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents: 2501
diff changeset
    54
	Mus: PMixMusic = nil;
1654
9cfa6f23e767 Start voicepacks implementation
unc0rr
parents: 1562
diff changeset
    55
2515
51d3f4b6293a revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents: 2501
diff changeset
    56
function  AskForVoicepack(name: shortstring): Pointer;
1654
9cfa6f23e767 Start voicepacks implementation
unc0rr
parents: 1562
diff changeset
    57
var i: Longword;
9cfa6f23e767 Start voicepacks implementation
unc0rr
parents: 1562
diff changeset
    58
begin
9cfa6f23e767 Start voicepacks implementation
unc0rr
parents: 1562
diff changeset
    59
i:= 0;
9cfa6f23e767 Start voicepacks implementation
unc0rr
parents: 1562
diff changeset
    60
while (voicepacks[i].name <> name) and (voicepacks[i].name <> '') do
9cfa6f23e767 Start voicepacks implementation
unc0rr
parents: 1562
diff changeset
    61
	begin
9cfa6f23e767 Start voicepacks implementation
unc0rr
parents: 1562
diff changeset
    62
	inc(i);
9cfa6f23e767 Start voicepacks implementation
unc0rr
parents: 1562
diff changeset
    63
	TryDo(i <= cMaxTeams, 'Engine bug: AskForVoicepack i > cMaxTeams', true)
9cfa6f23e767 Start voicepacks implementation
unc0rr
parents: 1562
diff changeset
    64
	end;
9cfa6f23e767 Start voicepacks implementation
unc0rr
parents: 1562
diff changeset
    65
9cfa6f23e767 Start voicepacks implementation
unc0rr
parents: 1562
diff changeset
    66
voicepacks[i].name:= name;
9cfa6f23e767 Start voicepacks implementation
unc0rr
parents: 1562
diff changeset
    67
AskForVoicepack:= @voicepacks[i]
9cfa6f23e767 Start voicepacks implementation
unc0rr
parents: 1562
diff changeset
    68
end;
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
    69
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
    70
procedure InitSound;
2647
0e1208e92dfe Smaxx patch with tuning by me:
unc0rr
parents: 2633
diff changeset
    71
var i: TSound;
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
    72
begin
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
    73
	if not isSoundEnabled then exit;
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
    74
	WriteToConsole('Init sound...');
2674
2fce032f2f95 lupdate + Palewolf's updated spanish translation + other patches of mine
koda
parents: 2672
diff changeset
    75
	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
    76
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
    77
	if isSoundEnabled then
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
    78
		isSoundEnabled:= Mix_OpenAudio(44100, $8010, 2, 1024) = 0;
2327
4832b77ec958 restored volumen control (hoorray)
koda
parents: 2303
diff changeset
    79
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
    80
	if isSoundEnabled then
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
    81
		WriteLnToConsole(msgOK)
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
    82
	else
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
    83
		WriteLnToConsole(msgFailed);
2647
0e1208e92dfe Smaxx patch with tuning by me:
unc0rr
parents: 2633
diff changeset
    84
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
    85
	Mix_AllocateChannels(Succ(chanTPU));
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
    86
	if isMusicEnabled then
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
    87
		Mix_VolumeMusic(50);
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
    88
	for i:= Low(TSound) to High(TSound) do
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
    89
		lastChan[i]:= -1;
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
    90
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
    91
	Volume:= 0;
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
    92
	ChangeVolume(cInitVolume)
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
    93
end;
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
    94
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
    95
procedure ReleaseSound;
2515
51d3f4b6293a revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents: 2501
diff changeset
    96
var i: TSound;
51d3f4b6293a revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents: 2501
diff changeset
    97
	t: Longword;
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
    98
begin
2515
51d3f4b6293a revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents: 2501
diff changeset
    99
for t:= 0 to cMaxTeams do
51d3f4b6293a revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents: 2501
diff changeset
   100
	if voicepacks[t].name <> '' then
51d3f4b6293a revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents: 2501
diff changeset
   101
		for i:= Low(TSound) to High(TSound) do
51d3f4b6293a revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents: 2501
diff changeset
   102
			if voicepacks[t].chunks[i] <> nil then
51d3f4b6293a revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents: 2501
diff changeset
   103
				Mix_FreeChunk(voicepacks[t].chunks[i]);
51d3f4b6293a revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents: 2501
diff changeset
   104
51d3f4b6293a revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents: 2501
diff changeset
   105
Mix_FreeMusic(Mus);
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
   106
Mix_CloseAudio();
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
   107
end;
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
   108
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
   109
procedure SoundLoad;
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
   110
var i: TSound;
1656
209cf0e2fc36 Finish voicepacks support in engine (not tested though)
unc0rr
parents: 1654
diff changeset
   111
	s: shortstring;
209cf0e2fc36 Finish voicepacks support in engine (not tested though)
unc0rr
parents: 1654
diff changeset
   112
	t: Longword;
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
   113
begin
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
   114
	if not isSoundEnabled then exit;
1656
209cf0e2fc36 Finish voicepacks support in engine (not tested though)
unc0rr
parents: 1654
diff changeset
   115
2672
0f1403bf267a check for sdl_image and sdl_mixer versions
koda
parents: 2671
diff changeset
   116
{$IFDEF SDL_MIXER_NEWER}
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
   117
	WriteToConsole('Init SDL_mixer... ');
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
   118
	SDLTry(Mix_Init(MIX_INIT_OGG) <> 0, true);
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
   119
	WriteLnToConsole(msgOK);
2672
0f1403bf267a check for sdl_image and sdl_mixer versions
koda
parents: 2671
diff changeset
   120
{$ENDIF}
0f1403bf267a check for sdl_image and sdl_mixer versions
koda
parents: 2671
diff changeset
   121
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
   122
	defVoicepack:= AskForVoicepack('Default');
1654
9cfa6f23e767 Start voicepacks implementation
unc0rr
parents: 1562
diff changeset
   123
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
   124
for i:= Low(TSound) to High(TSound) do
2647
0e1208e92dfe Smaxx patch with tuning by me:
unc0rr
parents: 2633
diff changeset
   125
	if (Soundz[i].Path <> ptVoices) and (Soundz[i].FileName <> '') then
1656
209cf0e2fc36 Finish voicepacks support in engine (not tested though)
unc0rr
parents: 1654
diff changeset
   126
		begin
1657
dde8f60d3e07 Fix small bug in voicepacks support in engine. It's complete and tested now.
unc0rr
parents: 1656
diff changeset
   127
		s:= Pathz[Soundz[i].Path] + '/' + Soundz[i].FileName;
1656
209cf0e2fc36 Finish voicepacks support in engine (not tested though)
unc0rr
parents: 1654
diff changeset
   128
		WriteToConsole(msgLoading + s + ' ');
2515
51d3f4b6293a revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents: 2501
diff changeset
   129
		defVoicepack^.chunks[i]:= Mix_LoadWAV_RW(SDL_RWFromFile(Str2PChar(s), 'rb'), 1);
51d3f4b6293a revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents: 2501
diff changeset
   130
		TryDo(defVoicepack^.chunks[i] <> nil, msgFailed, true);
1656
209cf0e2fc36 Finish voicepacks support in engine (not tested though)
unc0rr
parents: 1654
diff changeset
   131
		WriteLnToConsole(msgOK);
209cf0e2fc36 Finish voicepacks support in engine (not tested though)
unc0rr
parents: 1654
diff changeset
   132
		end;
209cf0e2fc36 Finish voicepacks support in engine (not tested though)
unc0rr
parents: 1654
diff changeset
   133
209cf0e2fc36 Finish voicepacks support in engine (not tested though)
unc0rr
parents: 1654
diff changeset
   134
for t:= 0 to cMaxTeams do
209cf0e2fc36 Finish voicepacks support in engine (not tested though)
unc0rr
parents: 1654
diff changeset
   135
	if voicepacks[t].name <> '' then
209cf0e2fc36 Finish voicepacks support in engine (not tested though)
unc0rr
parents: 1654
diff changeset
   136
		for i:= Low(TSound) to High(TSound) do
2647
0e1208e92dfe Smaxx patch with tuning by me:
unc0rr
parents: 2633
diff changeset
   137
			if (Soundz[i].Path = ptVoices) and (Soundz[i].FileName <> '') then
1656
209cf0e2fc36 Finish voicepacks support in engine (not tested though)
unc0rr
parents: 1654
diff changeset
   138
				begin
209cf0e2fc36 Finish voicepacks support in engine (not tested though)
unc0rr
parents: 1654
diff changeset
   139
				s:= Pathz[Soundz[i].Path] + '/' + voicepacks[t].name + '/' + Soundz[i].FileName;
209cf0e2fc36 Finish voicepacks support in engine (not tested though)
unc0rr
parents: 1654
diff changeset
   140
				WriteToConsole(msgLoading + s + ' ');
2515
51d3f4b6293a revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents: 2501
diff changeset
   141
				voicepacks[t].chunks[i]:= Mix_LoadWAV_RW(SDL_RWFromFile(Str2PChar(s), 'rb'), 1);
51d3f4b6293a revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents: 2501
diff changeset
   142
				if voicepacks[t].chunks[i] = nil then
1656
209cf0e2fc36 Finish voicepacks support in engine (not tested though)
unc0rr
parents: 1654
diff changeset
   143
					WriteLnToConsole(msgFailed)
209cf0e2fc36 Finish voicepacks support in engine (not tested though)
unc0rr
parents: 1654
diff changeset
   144
				else
209cf0e2fc36 Finish voicepacks support in engine (not tested though)
unc0rr
parents: 1654
diff changeset
   145
					WriteLnToConsole(msgOK)
209cf0e2fc36 Finish voicepacks support in engine (not tested though)
unc0rr
parents: 1654
diff changeset
   146
				end;
2672
0f1403bf267a check for sdl_image and sdl_mixer versions
koda
parents: 2671
diff changeset
   147
{$IFDEF SDL_MIXER_NEWER}
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
   148
	Mix_Quit();
2672
0f1403bf267a check for sdl_image and sdl_mixer versions
koda
parents: 2671
diff changeset
   149
{$ENDIF}	
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
   150
end;
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
   151
1669
b709e061577e Mostly fix voicepack usage
unc0rr
parents: 1657
diff changeset
   152
procedure PlaySound(snd: TSound; infinite: boolean; voicepack: PVoicepack);
2515
51d3f4b6293a revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents: 2501
diff changeset
   153
var loops: LongInt;
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
   154
begin
1562
c0eea030347b Don't play sounds when quick replaying in spectate mode
unc0rr
parents: 1225
diff changeset
   155
if (not isSoundEnabled) or fastUntilLag then exit;
2515
51d3f4b6293a revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents: 2501
diff changeset
   156
if infinite then loops:= -1 else loops:= 0;
2443
fececcbc2189 Smaxx patch for fixing all sound related issues on any system
koda
parents: 2418
diff changeset
   157
2515
51d3f4b6293a revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents: 2501
diff changeset
   158
if (voicepack <> nil) and (voicepack^.chunks[snd] <> nil) then
51d3f4b6293a revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents: 2501
diff changeset
   159
	lastChan[snd]:= Mix_PlayChannelTimed(-1, voicepack^.chunks[snd], loops, -1)
51d3f4b6293a revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents: 2501
diff changeset
   160
else
51d3f4b6293a revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents: 2501
diff changeset
   161
	lastChan[snd]:= Mix_PlayChannelTimed(-1, defVoicepack^.chunks[snd], loops, -1)
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
   162
end;
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
   163
2647
0e1208e92dfe Smaxx patch with tuning by me:
unc0rr
parents: 2633
diff changeset
   164
procedure LoopSound(snd: TSound; voicepack: PVoicepack);
0e1208e92dfe Smaxx patch with tuning by me:
unc0rr
parents: 2633
diff changeset
   165
begin
0e1208e92dfe Smaxx patch with tuning by me:
unc0rr
parents: 2633
diff changeset
   166
if (not isSoundEnabled) or fastUntilLag then exit;
0e1208e92dfe Smaxx patch with tuning by me:
unc0rr
parents: 2633
diff changeset
   167
if lastChan[snd] <> -1 then exit;
0e1208e92dfe Smaxx patch with tuning by me:
unc0rr
parents: 2633
diff changeset
   168
0e1208e92dfe Smaxx patch with tuning by me:
unc0rr
parents: 2633
diff changeset
   169
if (voicepack <> nil) and (voicepack^.chunks[snd] <> nil) then
0e1208e92dfe Smaxx patch with tuning by me:
unc0rr
parents: 2633
diff changeset
   170
	lastChan[snd]:= Mix_PlayChannelTimed(-1, voicepack^.chunks[snd], -1, -1)
0e1208e92dfe Smaxx patch with tuning by me:
unc0rr
parents: 2633
diff changeset
   171
else
0e1208e92dfe Smaxx patch with tuning by me:
unc0rr
parents: 2633
diff changeset
   172
	lastChan[snd]:= Mix_PlayChannelTimed(-1, defVoicepack^.chunks[snd], -1, -1)
0e1208e92dfe Smaxx patch with tuning by me:
unc0rr
parents: 2633
diff changeset
   173
end;
0e1208e92dfe Smaxx patch with tuning by me:
unc0rr
parents: 2633
diff changeset
   174
282
b1e3387389b6 - Pickhammer sound
unc0rr
parents: 183
diff changeset
   175
procedure StopSound(snd: TSound);
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
   176
begin
2515
51d3f4b6293a revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents: 2501
diff changeset
   177
if not isSoundEnabled then exit;
2647
0e1208e92dfe Smaxx patch with tuning by me:
unc0rr
parents: 2633
diff changeset
   178
if (lastChan[snd] <> -1) and (Mix_Playing(lastChan[snd]) <> 0) then
0e1208e92dfe Smaxx patch with tuning by me:
unc0rr
parents: 2633
diff changeset
   179
	begin
0e1208e92dfe Smaxx patch with tuning by me:
unc0rr
parents: 2633
diff changeset
   180
	Mix_HaltChannel(lastChan[snd]);
0e1208e92dfe Smaxx patch with tuning by me:
unc0rr
parents: 2633
diff changeset
   181
	lastChan[snd]:= -1;
0e1208e92dfe Smaxx patch with tuning by me:
unc0rr
parents: 2633
diff changeset
   182
	end;
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
   183
end;
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
   184
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
   185
procedure PlayMusic;
564
17fb45c670c1 Finalize basic playlists implementation
unc0rr
parents: 449
diff changeset
   186
var s: string;
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
   187
begin
1097
06b15817b8a0 Enable music dependance on current land theme
unc0rr
parents: 1066
diff changeset
   188
if (not isSoundEnabled)
1128
9b3f42bf4eef Add an option to engine for turning music off
unc0rr
parents: 1127
diff changeset
   189
	or (MusicFN = '')
1712
f5b916de40f0 Patch by nemo (polished by me)
unc0rr
parents: 1669
diff changeset
   190
	or (not isMusicEnabled) then exit;
565
092cb8deffc5 Fix some bug, finish playlist implementation
unc0rr
parents: 564
diff changeset
   191
1097
06b15817b8a0 Enable music dependance on current land theme
unc0rr
parents: 1066
diff changeset
   192
s:= PathPrefix + '/Music/' + MusicFN;
564
17fb45c670c1 Finalize basic playlists implementation
unc0rr
parents: 449
diff changeset
   193
WriteToConsole(msgLoading + s + ' ');
565
092cb8deffc5 Fix some bug, finish playlist implementation
unc0rr
parents: 564
diff changeset
   194
2515
51d3f4b6293a revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents: 2501
diff changeset
   195
Mus:= Mix_LoadMUS(Str2PChar(s));
51d3f4b6293a revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents: 2501
diff changeset
   196
TryDo(Mus <> nil, msgFailed, false);
564
17fb45c670c1 Finalize basic playlists implementation
unc0rr
parents: 449
diff changeset
   197
WriteLnToConsole(msgOK);
17fb45c670c1 Finalize basic playlists implementation
unc0rr
parents: 449
diff changeset
   198
2515
51d3f4b6293a revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents: 2501
diff changeset
   199
SDLTry(Mix_FadeInMusic(Mus, -1, 3000) <> -1, false)
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
   200
end;
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
   201
371
731ad6d27bd1 integer -> LongInt
unc0rr
parents: 355
diff changeset
   202
function ChangeVolume(voldelta: LongInt): LongInt;
174
0b2c5b22f644 Changeable volume
unc0rr
parents: 97
diff changeset
   203
begin
2515
51d3f4b6293a revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents: 2501
diff changeset
   204
if not isSoundEnabled then
51d3f4b6293a revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents: 2501
diff changeset
   205
	exit(0);
2327
4832b77ec958 restored volumen control (hoorray)
koda
parents: 2303
diff changeset
   206
4832b77ec958 restored volumen control (hoorray)
koda
parents: 2303
diff changeset
   207
inc(Volume, voldelta);
4832b77ec958 restored volumen control (hoorray)
koda
parents: 2303
diff changeset
   208
if Volume < 0 then Volume:= 0;
2515
51d3f4b6293a revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents: 2501
diff changeset
   209
Mix_Volume(-1, Volume);
51d3f4b6293a revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents: 2501
diff changeset
   210
Volume:= Mix_Volume(-1, -1);
51d3f4b6293a revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents: 2501
diff changeset
   211
if isMusicEnabled then Mix_VolumeMusic(Volume * 4 div 8);
51d3f4b6293a revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents: 2501
diff changeset
   212
ChangeVolume:= Volume * 100 div MIX_MAX_VOLUME
174
0b2c5b22f644 Changeable volume
unc0rr
parents: 97
diff changeset
   213
end;
0b2c5b22f644 Changeable volume
unc0rr
parents: 97
diff changeset
   214
1712
f5b916de40f0 Patch by nemo (polished by me)
unc0rr
parents: 1669
diff changeset
   215
procedure PauseMusic;
f5b916de40f0 Patch by nemo (polished by me)
unc0rr
parents: 1669
diff changeset
   216
begin
f5b916de40f0 Patch by nemo (polished by me)
unc0rr
parents: 1669
diff changeset
   217
if (MusicFN = '') or (not isMusicEnabled) then exit;
2515
51d3f4b6293a revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents: 2501
diff changeset
   218
51d3f4b6293a revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents: 2501
diff changeset
   219
Mix_PauseMusic(Mus);
1712
f5b916de40f0 Patch by nemo (polished by me)
unc0rr
parents: 1669
diff changeset
   220
end;
f5b916de40f0 Patch by nemo (polished by me)
unc0rr
parents: 1669
diff changeset
   221
f5b916de40f0 Patch by nemo (polished by me)
unc0rr
parents: 1669
diff changeset
   222
procedure ResumeMusic;
f5b916de40f0 Patch by nemo (polished by me)
unc0rr
parents: 1669
diff changeset
   223
begin
f5b916de40f0 Patch by nemo (polished by me)
unc0rr
parents: 1669
diff changeset
   224
if (MusicFN = '') or (not isMusicEnabled) then exit;
2515
51d3f4b6293a revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents: 2501
diff changeset
   225
51d3f4b6293a revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents: 2501
diff changeset
   226
Mix_ResumeMusic(Mus);
1712
f5b916de40f0 Patch by nemo (polished by me)
unc0rr
parents: 1669
diff changeset
   227
end;
f5b916de40f0 Patch by nemo (polished by me)
unc0rr
parents: 1669
diff changeset
   228
2515
51d3f4b6293a revert audio to use SDL_mixer -- also frontend uses it, so it needs sdlmixer sources
koda
parents: 2501
diff changeset
   229
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
   230