Multi music play

Автор: Alex Zolotov

Программа для загрузки, проигрывания файлов в формате xm и sunvox. (файлы tune1.xm, tune2.sunvox, tune3.XM лежат в каталоге программы)

load_music( "tune1.xm", 0 )
load_music( "tune2.sunvox", 1 )
load_music( "tune3.XM", 2 )
 
tune_status = new_array( 16 )
tune_vol = new_array( 16 )
 
tune_vol[ 0 ] = 32;
tune_vol[ 1 ] = 32;
tune_vol[ 2 ] = 32;
 
start:
clear( BLACK )
print( "MUSIC MIXER", -(8*11)/2, -32, YELLOW )
if tune_status[ 0 ] { c = WHITE } else { c = BLUE } print( "SONG 1", -80, 0+4, c )
if tune_status[ 1 ] { c = WHITE } else { c = BLUE } print( "SONG 2", -80, 16+4, c )
if tune_status[ 2 ] { c = WHITE } else { c = BLUE } print( "SONG 3", -80, 32+4, c )
 
down = 0
 
handler = {
	tune_num = gpy / 16
	if tune_num >= 0 
	{
		if ( gpx < -80+60 ) {
			if down {
				tune_status[ tune_num ] = tune_status[ tune_num ] ^ 1;
				if tune_status[ tune_num ] = 0 { stop_music( tune_num ) }
				if tune_status[ tune_num ] = 1 { play_music( tune_num ) }
			}
		}
		else
		{
			tune_vol[ tune_num ] = gpx - (-80+60);
			vol = tune_vol[ tune_num ] * 2
			if vol < 0 { vol = 0 }
			music_volume( vol, tune_num );
		}
	}
}
 
handle_keys(
{
	down = 1
	handler	
}
,
{
	down = 0
	handler	
},
{
} )
 
fbox( -80 + 60, 0, tune_vol[ 0 ], 15, YELLOW )
fbox( -80 + 60, 16, tune_vol[ 1 ], 15, YELLOW )
fbox( -80 + 60, 32, tune_vol[ 2 ], 15, YELLOW )
 
frame( 10 )
 
go start