/*************************************************************
Bastien BOURINEAU 03/2004
**************************************************************/

/**************** SOUND SYSTEM ******************/

fun loadSnd ()=
	set SndStart = asSndCreate _channel nil;
		let _checkpack SndStartPath -> sndfile in
		asSndLoad SndStart sndfile AS_SND_STATIC;
	set SndClick = asSndCreate _channel nil;
		let _checkpack SndClickPath -> sndfile in
		asSndLoad SndClick sndfile AS_SND_STATIC;
0
;;

fun playSndLoop (snd)=
asSndPlay snd AS_SND_LOOP;
0
;;


fun playSnd (snd)=
asSndPlay snd nil;
_fooS ">>>>>>> Play snd **************";
0
;;