//***********************************************************
//
//			TANX2.0a by Stuart Macdonald
//				Codewarrior Version
//					sound.c 1.0
//
//***********************************************************

#include <libps.h>

//***********************************************************
// 						own includes
//***********************************************************

#include "header.h"


short vab_id;					    // vab id number 0-15
//short seq_id;					    // seq id number 0-32 
//***********************************************************
//
//				Sound functions
//
//***********************************************************

void InitSound( void )
 {  
    
 	// return vab_id (0-15), open VAB and transfer to sound buffer	
	vab_id = SsVabTransfer((u_char*)SNDFX_VH, (u_char*)SNDFX_VB,-1,1); 

	if( vab_id < 0 )
	  {
	     //printf(" vab:%d", vab_id);
		 //printf(" ERROR: VAB fail (LINE:%d)(FILE:%s)\n",
			     // __LINE__,__FILE__);

       }    
  
	// set main volume
	SsSetMVol(MAIN_VOL,MAIN_VOL);
	
 }// end InitSound

void InitSFX( voice_ptr sound_effect, short vab_id, short program, 
              short tone, short note, short vol_l, short vol_r )
 {

	sound_effect->vabid   = vab_id;
	sound_effect->program = program;
	sound_effect->tone    = tone;
	sound_effect->note    = note;
	
	sound_effect->vol_l   = vol_l;
	sound_effect->vol_r   = vol_r; 

 }// end InitSFX

void PlaySFX( voice_ptr sound_effect )
 {

	 SsUtKeyOn(sound_effect->vabid,
	       	   sound_effect->program,
			   sound_effect->tone,
			   sound_effect->note,
			   0,
			   sound_effect->vol_l,
			   sound_effect->vol_r);
	
 }// end PlaySFX
 
 void StopSound( void )
 {
	
	// close vab 
	SsVabClose(vab_id);

 }// end StopSound