summaryrefslogtreecommitdiff
path: root/src/sound/sound.cpp
blob: 16468dee07dab22f3e0a3ef4ac4725e2f2ab4859 (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
/*
	The Mana World
	Copyright 2004 The Mana World Development Team

		This file is part of The Mana World.

		The Mana World is free software; you can redistribute it and/or modify
		it under the terms of the GNU General Public License as published by
		the Free Software Foundation; either version 2 of the License, or
		any later version.

		The Mana World is distributed in the hope that it will be useful,
		but WITHOUT ANY WARRANTY; without even the implied warranty of
		MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
		GNU General Public License for more details.

		You should have received a copy of the GNU General Public License
		along with The Mana World; if not, write to the Free Software
		Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
*/

#ifdef WIN32
	#pragma warning(disable:4312)
#endif

#include "sound.h"

/**
	\brief install the sound engine
	\param voices overall reserved voices
	\param mod_voices voices dedicated for mod-playback

		NOTE:
			overall voices must not be less or equal to the
			specified amount of mod_voices!
			if mod-voices is too low some mods will not sound
			correctly since a couple of tracks are not going
			to be played along w/ the others. so missing ins-
			truments can be a result.
			32/20 sounds realistic here.
*/
void TmwSound::Init(int voices, int mod_voices) {
	isOk = -1;

	if(mod_voices >= voices)
		throw("No voices left for SFX! Sound will be disabled!");

	install_timer();
	reserve_voices (voices, -1);

	#ifdef WIN32
		if (install_sound (DIGI_AUTODETECT, MIDI_AUTODETECT, NULL) < 0)
	#else
		if (install_sound (DIGI_AUTODETECT, MIDI_NONE, NULL) < 0)
	#endif
			throw("Could not initialize sound... :-(");


	if (install_mod (mod_voices) < 0)
		throw("Could not install MOD player... :-(");

	mod = NULL;
	mid = NULL;
	sfx = NULL;

	pan = 128;
	pitch=1000;

	items = 0;

	isOk = 0;
}

/**
	\brief set the volume value-range: 0-255
	\param digi for digital playback
	\param mid for midi playback
	\param mod for... aw, you guess ^^

	NOTE:
		all values may only be between 0-255 where 0 means
		muted.
*/
void TmwSound::SetVol(int digi, int mid, int mod) {
	if(isOk==-1)
		return;
	set_volume(digi, mid);
	set_mod_volume(mod);
	set_hardware_volume(digi, mid);

	if(isMaxVol(vol_digi + digi)==false) vol_digi += digi;
	if(isMaxVol(vol_midi + mid) ==false) vol_midi += mid;
	if(isMaxVol(vol_mod  + mod) ==false) vol_mod  += mod;
}

/**
	\brief adjusts current volume
	\param adigi for digital playback
	\param amid for midi playback
	\param amod for... aw, you guess ^^

	NOTE:
		all values may only be between 0-255 where 0 means
		muted.
*/
void TmwSound::SetAdjVol(int adigi, int amid, int amod) {
	if(isOk==-1)
		return;
	set_volume(vol_digi + adigi, vol_midi + amid);
	set_mod_volume(vol_mod + amod);

	if(isMaxVol(vol_digi + adigi)==false) vol_digi += adigi;
	if(isMaxVol(vol_midi + amid) ==false) vol_midi += amid;
	if(isMaxVol(vol_mod  + amod) ==false) vol_mod  += amod;
}

/**
	\brief start BGM using a midi file
	\param in full path of midi file
	\param loop how many times should the midi be looped? (-1 = infinite)

	NOTE:
		playing midi does not steal away any voices but
		does not work w/ most soundcards w/o software
		emulation. this means that *nix-users will most
		probably be left out. do not use this unless we
		find a way to always get it to work. :-)

		at this point of time only standard RMI midi files
		can be played. so no m$ extensions like GS and such.
*/
void TmwSound::StartMIDI(char *in, int loop) {
	if(isOk==-1)
		return;

	mid = load_midi(in);
	if (!mid) {
		isOk=-1;
		throw("Could not load MIDI file!");
	}

	play_midi(mid, TRUE);
}

/**
	\brief start BGM using a mod file
	\param in full path of mod file
	\param loop how many times should the midi be looped? (-1 = infinite)

	NOTE:
		playing mod is a pretty good choice. most of the work
		is being done by the cpu so it's not dependend on the
		sound-card how things sound. if it works, it just
		works! ;-)

		JGMOD supports several formats:
				MOD
				S3M
				XM
				Unreal
				and S3M (in UMX extension)
*/
void TmwSound::StartMOD(char * in, int loop) {
	if(isOk==-1)
		return;

	mod = load_mod(in);
	if(!mod) {
		isOk=-1;
		throw("Error reading MOD file...");
	}
	play_mod(mod, TRUE);
}

/**
	\brief stop all currently running BGM tracks

	NOTE:
		you need to stop all playback when you want to
		switch from mod to midi. playing a new track is
		usually simple as calling StartMIDI() or StartMOD() again.
		passing NULL to the playing functions only means to make
		playback stop.
*/
void TmwSound::StopBGM() {
	if(isOk==-1)
		return;

	play_midi(NULL,-1);
	stop_mod();

	mod = NULL;
	mid = NULL;
}

/**
	\brief play short sample usually for sfx
	\param in full path to the sample file
	\param pan panning of the sound, values can be 0-255 where 128 is the middle

	NOTE:
		later on this will be a subsequent call to another
		function that preloads all wavs corresponding to
		the current area (e.g. monster screams) to memory.
		right now the function loads the file from hdd
		everytime you want it to be played. this is kind of
		resource intensive even though most OS'ses cache a
		already loaded file for some time.

		allegro supports different formats but this is not
		stated clear enough - these will work for sure:
				WAV
				VOC

		i don't know what kind of samples are necessary so we
		need to test this thoroughly.
*/
void TmwSound::StartWAV(char * in, int pan) {
	if(isOk==-1)
		return;

	sfx = load_sample(in);
	if (!sfx)
		throw("Error reading WAV file...");

	play_sample(sfx, vol_digi, pan, pitch, FALSE);
}

/**
	\brief preloads a sound-item into buffer
	\param fpath full path to file
	\param type type of item (TMWSOUND_MOD, TMWSOUND_MID, TMWSOUND_SFX)

	NOTE:
		only TMWSOUND_SFX items get preloaded. everything
		else will only store the full path to the file.

		please make sure that the object is not loaded more
		than once since the function will not be able to run
		checks for its own!

		the return value should be kept as a reference to the
		object loaded. if not it is practicaly lost.
*/
TMWSOUND_SID TmwSound::LoadItem(char *fpath, char type) {
	POOL_ITEM item;
	if(type == TMWSOUND_SFX) {
		if(!(item.data = (void*)load_sample(fpath)))
			throw(sprintf("Unable to load sample: %s\n", fpath));
	}

	items++;
	item.id = items;
	item.type = type;
	item.fname = fpath;

	soundpool.push_front(item);
	return item.id;
}

/**
	\brief unloads an item from the soundpool
	\param id id returned by LoadItem()
*/
void TmwSound::UnloadItem(TMWSOUND_SID id) {
	int cnt = 0;
	POOL_ITEM item;
	for(sounditem = soundpool.begin(); sounditem != soundpool.end(); sounditem++) {
		item = *sounditem;
		if(item.id == id) {
			destroy_sample((SAMPLE*)item.data);
			soundpool.erase(sounditem);
			return;
		}
		cnt++;
	}
}

/**
	\brief plays an item in soundpool
	\param id id returned by LoadItem()
	\param loop loop n times (-1 is infinite)
*/
void TmwSound::PlayItem(TMWSOUND_SID id, int loop) {
	POOL_ITEM item;
	for(sounditem = soundpool.begin(); sounditem != soundpool.end(); sounditem++) {
		item = *sounditem;
		if(item.id = id) {
			switch(item.type) {
				case TMWSOUND_SFX :
					play_sample((SAMPLE*)item.data, vol_digi, pan, pitch, FALSE);
					break;
				case TMWSOUND_MOD :
					StartMOD((char*)item.fname.c_str(),loop);
					break;
				case TMWSOUND_MID :
					StartMIDI((char*)item.fname.c_str(),loop);
					break;
			}
		}
	}
}

/**
	\brief deinstall all sound functionality

	NOTE:
		normally you won't need to call this since this is
		done by allegro when shutting itself down. but if
		you find a reason to delete the sound-engine from
		memory (e.g. garbage-collection) feel free to use
		it. :-P
*/
void TmwSound::Close(void) {
	mod = NULL;
	mid = NULL;
	sfx = NULL;

	remove_mod();
	remove_sound();
	isOk = -1;
}

/**
	\brief checks if value equals min-/maximum volume and returns
	true if that's the case.
*/
bool TmwSound::isMaxVol(int vol) {
	if( vol > 0 && vol < 255 ) return false;
	else return true;
}