megazeux/sfx.cpp

/* $Id$
 * MegaZeux
 *
 * Copyright (C) 1996 Greg Janson
 * Copyright (C) 1998 Matthew D. Williams - dbwilli@scsn.net
 *
 * This program 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 (at your option) any later version.
 *
 * This program 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 this program; if not, write to the Free Software
 * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 */

/* Sound effects system- PLAY, SFX, and bkground code */

#include "meminter.h"
#include <_null.h>
#include "mod.h"
#include "sfx.h"
#include "data.h"
#include <dos.h>
#include "string.h"

int note_freq[12]={//Frequencies of 6C thru 6B
	2032,2152,2280,2416,2560,2712,2880,3048,3232,3424,3624,3840 };
int sam_freq[12]={//Sample frequencies of 0C (C-~1) thru 0B (B-~1)
	3424,3232,3048,2880,2712,2560,2416,2280,2152,2032,1920,1812 };

noise far background[NOISEMAX];	//The sound queue itself
int topindex=0;             		//Marks the top of the queue
int backduration=0;         		//Keeps track of duration of sound
int backindex=0;            		//Marks bottom of queue
int sound_in_queue=0;       		//Tells if sound in queue

void play_sfx(int sfxn) {
	if(sfxn>=NUM_SFX) return;
	if(custom_sfx_on) play_str(&custom_sfx[sfxn*69],1);
	else play_str(sfx_strs[sfxn],1);
}

//sfx_play=1 to NOT play non-digi unless queue empty
void play_str(unsigned char far *str,char sfx_play) {
	int t1,oct=3,note=1,dur=18,t2,last_note=-1,digi_st=-1,digi_end;
	unsigned char chr;
	char nn[7]={ 10,12,1,3,5,6,8 };//Note trans. table from 1-7 (a-z) to 1-12
	if(!sfx_on) sfx_play=1;//SFX off
	else if(!sound_in_queue) sfx_play=0;
	//Now, if sfx_play, only play digi
	for(t1=0;t1<str_len(str);t1++) {
		chr=str[t1];
		if((chr>='a')&&(chr<='z')) chr-=32;
		if(chr=='-') {//Octave down
			if(oct>0) oct--;
			continue;
			}
		if(chr=='+') {//Octave up
			if(oct<6) oct++;
			continue;
			}
		if(chr=='X') {//Rest
			if(!sfx_play) submit_sound(F_REST,dur);
			continue;
			}
		if((chr>47)&&(chr<55)) oct=chr-48;//Set octave
		if(chr=='.') dur+=(dur>>1);//Dot (duration 150%)
		if(chr=='!') dur/=3;//Triplet (cut duration to 33%)
		if((chr>64)&&(chr<72)) {//Note
			note=nn[chr-65];//Convert to 1-12
			t2=oct;//Save old octave in case # or $ changes it
			if(str[t1+1]=='#') {//Increase if sharp
				t1++;
				if(++note==13) {//"B#":="+C-"
					note=1;
					if(++oct==7) oct=6;
					}
				}
			else if(str[t1+1]=='$') {//Decrease if flat
				t1++;
				if(--note==0) {//"C$":="-B+"
					note=12;
					if(--oct==-1) oct=0;
					}
				}
			//Digi
			if(digi_st>0) {
				str[digi_end]=0;
				play_sample(sam_freq[note-1]>>oct,&str[digi_st]);
				str[digi_end]='&';
				}
			else if(sfx_play) continue;
			else if(last_note==note) {
				if(dur<=9) {
					submit_sound(F_REST,1);
					play_note(note,oct,dur-1);
					}
				else {
					submit_sound(F_REST,2);
					play_note(note,oct,dur-2);
					}
				}
			else {
				play_note(note,oct,dur);
				last_note=note;
				}
			oct=t2;//Restore old octave
			}
		if(chr=='Z') dur=9;//64th notes
		if(chr=='T') dur=18;//32nd notes (default)
		if(chr=='S') dur=36;//16th
		if(chr=='I') dur=72;//8th
		if(chr=='Q') dur=144;//1/4
		if(chr=='H') dur=288;//1/2
		if(chr=='W') dur=576;//Whole
		if(chr=='&') {
			//Digitized
			digi_st=++t1;
			if(str[t1]==0) break;
			do {
				if(str[++t1]==0) break;
				if(str[t1]=='&') break;
			} while(1);
			if(str[t1]==0) break;
			digi_end=t1;
			}
		if(chr=='_') {
			digi_st=-1;
			if((music_on)&&(music_device<6)) break;
			}
		}
}

void clear_sfx_queue(void) {
  backindex=topindex=sound_in_queue=0;//queue pointers
  nosound();
}

void play_note(char note,char octave,int delay) {
	//Note is # 1-12
	//Octave #0-6
	submit_sound(note_freq[note-1]>>(6-octave),delay);
}

void submit_sound(int freq,int delay) {
  if((backindex==0)&&(topindex==NOISEMAX)) return;
  if(topindex!=(backindex-1)) {//Queue full?
	 background[topindex].freq=freq;//No, put it in queue
	 background[topindex++].duration=delay;
	 if(topindex==NOISEMAX)
		topindex=0;//Wraparound
	 sound_in_queue=1;//Note sound in queue
	 }
}

void sound_system(void) {
	if(backduration) backduration--;//Sound is in progress
	else {
		if(sound_in_queue) {//Current sound finished, more?
			backduration=background[backindex].duration;//Yes, setup
			if(background[backindex].freq==F_REST) {
				if(sfx_on) nosound();//freq==1 for rest
				}
			else if(sfx_on) sound(background[backindex].freq);//Start sound
			backindex++;
			if(backindex==NOISEMAX)
				backindex=0;//Wraparound
			if(backindex==topindex)//If last sound reset queue pointers
				backindex=topindex=sound_in_queue=0;
			}
		else if(sfx_on) nosound();
		}
}

unsigned char far *sfx_strs[NUM_SFX]={
"5c-gec-gec", // Gem
"5c-gec-gec", // Magic Gem
"cge-zcge", // Health
"-c+c+c-g-g-g", // Ammo
"6a#a#zx", // Coin
"-cegeg+c-g+cecegeg+c", // Life
"-cc#dd#e", // Lo Bomb
"cc#dd#e", // Hi Bomb
"4gec-g+ec-ge+c-gec", // Key
"-gc#-a#a", // Full Keys
"ceg+c-eg+ce-g+ceg", // Unlock
"s1a#z+a#-a#x", // Can't Unlock
"-a-a+e-e+c-c", // Invis. Wall
"zax", // Forest
"0a#+a#-a#b+b-b", // Gate Locked
"0a+a-a+a-a", // Opening Gate
"-g+g-g+g+g-g+g-g-g+g-g-tg+g", // Invinco Start
"sc-cqxsg-g+a#-a#xx+g-g+a#-a#", // Invinco Beat
"sc-cqxsg-g+f-f+d#-d#+c-ca#-a#2c-c", // Invinco End
"0g+g-gd#+d#-d#",//19-Door locked
"0g+gd#+d#",//Door opening
"c-zgd#c-gd#c",//Hurt
"a#e-a#e-a#e-a#e",//AUGH!
"+c-gd#cd#c-gd#gd#c-g+c-gd#cd#c-gd#gd#c",//Death
"ic1c+ca#+c1c+cx+d#1c+ca#+c1c+cx"
"+c1c+ca#+c1c+cx+d#1c+c+fc1c+cx", //Game over
"0c+c-c+c-c", //25-Gate closing
"1d#x", //26-Push
"2c+c+c2d#+d#+d#2g+g+g3cd#g", //27-Transport
"z+c-c",// 28-shoot
"1a+a+a", //29-break
"-af#-f#a", //30-out of ammo
"+f#", //31-ricochet
"s-d-d-d", //32-out of bombs
"c-aec-a",//33-place bomb (lo)
"+c-aec-a",//34-place bomb (hi)
"+g-ege-ege",//35-switch bomb type
"1c+c0d#+d#-g+g-c#",//36-explosion
"2cg+e+c2c#g#+f+c#2da+f#+d2d#a#+g+d#",//37-Entrance
"cge+c-g+ecge+c-g+ec",//38-Pouch
"zcd#gd#cd#gd#cd#gd#cd#gd#"
"cfg#fcfg#fcfg#fcfg#f"
"cga#gcga#gcga#gcga#g"
"s+c",//39-ring/potion
"z-a-a-aa-aa",//40-Empty chest
"1c+c-c#+c#-d+d-d#+d#-e+e-ec",//41-Chest
"c-gd#c-zd#gd#c",//42-Out of time
"zc-d#g-cd#",//43-Fire ouch
"cd#g+cd#g",//44-Stolen gem
"z1d#+d#+d#",//45-Enemy HP down
"z0ca#f+d#cf#",//46-Dragon fire
"cg+c-eda+d-f#eb+e-g#",//47-Scroll/sign
"1c+c+c+c+c",//48-Goop
"" };//49-Unused

unsigned char far *custom_sfx=NULL;
char custom_sfx_on=0;//1 to turn on custom sfx

char sfx_init(void) {
	custom_sfx=(unsigned char *)farmalloc(NUM_SFX*69);
	if(custom_sfx==NULL) return 1;
	return 0;
}

void sfx_exit(void) {
	if(custom_sfx!=NULL) farfree(custom_sfx);
	custom_sfx=NULL;
}

char is_playing(void) {
	return sound_in_queue;
}