//*****音楽そのほか選択状況判別
var option = '"' ;

function func() {
	var n = document.getElementById('F1').R1.selectedIndex;					//選択中要素の番号
	if (document.getElementById('F1').R1[n].value === "randam"){
		var len = document.getElementById('F1').R1.length-2;	//個数-2（ランダムとBGM無しの分を抜かす）
		var rand = Math.floor( Math.random() * len )+1;	//1～個数-2の間の乱数を取得
		var bgm = document.getElementById('F1').R1[rand].value.split(".");
		Opt(bgm[0]);
//素材提供元のURL作成用
		bgm[1] = Aud(bgm[1]);
		document.getElementById('player').innerHTML = '<embed src="' + document.getElementById('F1').R1[rand].value + option + ' />' ;
		document.getElementById('bgmlink').innerHTML = '演奏曲「' + document.getElementById('F1').R1.options[rand].text + '」&gt;&gt;&nbsp;' + bgm[1] + '(♪BGM著作＆提供)' ;
		AAA = bgm[0]*1000;
	} else if(document.getElementById('F1').R1[n].value === ""){
		document.getElementById('player').innerHTML = '<embed src="' + option + ' />' ;
		document.getElementById('bgmlink').innerHTML = '' ;
	} else {
		var bgm = document.getElementById('F1').R1[n].value.split(".");
		Opt(bgm[0]);
//素材提供元のURL作成用
		bgm[1] = Aud(bgm[1]);
		document.getElementById('player').innerHTML = '<embed src="' + document.getElementById('F1').R1[n].value + option + ' />' ;
		document.getElementById('bgmlink').innerHTML = '演奏曲「' + document.getElementById('F1').R1.options[n].text + '」&gt;&gt;&nbsp;' + bgm[1] + '(♪BGM著作＆提供)' ;
		var bgm = document.getElementById('F1').R1[n].value.split(".");
		AAA = bgm[0]*1000;
	}
}

//音楽作成元表示用関数
function Aud(aud) {
		switch (aud){
		case "mugen":
			aud= '<a title="夢幻のオルゴール工房" href="http://www.dream-orgel.net/">夢幻のオルゴール工房</a>';
			break;
		case "marie":
			aud = '<a title="Music Power" href="http://www.geocities.co.jp/Hollywood-Studio/2527/index.html">Music Power(閉鎖しています(T-T)</a>';
			break;
		case "kalas":
			aud = '<a title="Antique Shop" href="http://www3.to/kalas">Antique Shop</a>';
			break;
		case "zerurin":
			aud = '<a title="ぜるりん" href="http://www3.to/zerurin">ぜるりん</a>';
			break;
		case "kasga":
			aud = '<a title="虚空旋律記" href="http://www5f.biglobe.ne.jp/~kasga/index.html">虚空旋律記</a>';
			break;
		case "minku_neko":
			aud = '<a title="GYUGYUGYU!こんてな" href="http://www.geocities.jp/minku_neko/">GYUGYUGYU!こんてな</a>';
			break;
		case "penguinblue":
			aud = '<a title="ペンギンブルー" href="http://penguinblue.asagi.biz/">ペンギンブルー</a>';
			break;
		case "ffnet":
			aud = '<a title="FF.NET" href="http://ry.tl/ff/">FF.NET</a>';
			break;
		case "nicomimi":
			aud = '<a title="nicomimi" href="http://www.nicomimi.com/">nicomimi</a>';
			break;
		case "aratake":
			aud = '<a title="J-S.A.P." href="http://aratake.kir.jp/">J-S.A.P.</a>';
			break;
		case "fumei":
			aud = '<a title="不明" href="http://www.kokin.rr-livelife.net/">不明</a>';
			break;
		default:
			break;
		}
	return aud;
}
//音鳴らすオプションの選択（無限ループor一度のみ再生）
function Opt(vvv) {
	option += ' autostart = "true"' ; // 自動再生
	if (vvv === "999"){
	option += ' loop = "true"' ; // ループ再生
	} else {
	option += ' loop = "false"' ; // ループ再生
	}
	option += ' hidden = "true"' ; // スタイル
	option += ' volume = "100"' ; // 音量
	option += ' style = "position:absolute;bottom:100%;"' ; // スタイル
}