home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1999 February / VPR9902A.BIN / FFILLY / UG / mci.tfy < prev    next >
Text File  |  1998-04-29  |  1KB  |  35 lines
  1.  
  2.     // GLOBAL VAL----------------------------------------------------------
  3.   int M_Open, M_length;
  4.   int W_Open[];
  5.  
  6.     // BGM ----------------------------------------------------------------
  7.   int openBGM( str fname ) {
  8.     if ( M_Open == 1 ) { MCI( "close BGM" ); }
  9.     MCI( StrPrint( "open %s type sequencer alias BGM", fname ) );
  10.     M_Open = 1;
  11.     MCI( "set BGM time format milliseconds" );
  12.     M_length = StrtoInt( StrMCI( "status BGM length" ) );
  13.   } // method end
  14.  
  15.     // BGM ----------------------------------------------------------------
  16.   int closeBGM() {
  17.     MCI( "stop BGM" );
  18.     MCI( "close BGM" );
  19.     M_Open = 0;
  20.   } // method end
  21.  
  22.     // WAVE ---------------------------------------------------------------
  23.   int openWAVE( str fname, int id ) {
  24.     if ( W_Open[ id ] == 1 ) { MCI( StrPrint( "close WAVE_%s", id ) ); }
  25.     MCI( StrPrint( "open %s type sequencer alias WAVE_%s", fname, id ) );
  26.     W_Open[ id ] = 1;
  27.   } // method end
  28.  
  29.   int closeWAVE( int id ) {
  30.     MCI( StrPrint( "stop WAVE_%s", id ) );
  31.     MCI( StrPrint( "close WAVE_%s", id ) );
  32.     W_Open[ id ] = 0;
  33.   } // method end
  34.  
  35.