/*
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 <allegro.h>
#include <jgmod.h>
#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;
}