/*******************************************************************************
 Module SoundAlert
 Client part
 Version: 3.1
 Authors: Marc BARILLEY & Sebastien DENEUX
 Last update: 22/05/2001
 Sound Module
*******************************************************************************/

/*******************************************************************************



*******************************************************************************/


fun rflMulti (multi, x, mode)=
  if mode == MEDIA_MODE_STOP
  then  
    _DSmulti multi    
  else
    nil
;;

fun endload (file)=
  if file==nil
  then
    nil
  else
    let _CRmulti _channel DMSwin 0 0 0 0 _checkpack file nil -> multi in
    (
      _SETmultiReflexMode multi @rflMulti 0;
      _PLAYmulti multi;
    );
  0
;;

fun __alert(filename)=
  _RSCdownload this filename filename @endload 1;
  0
;;

fun IniDMI(param)=
  0
;;