if (!document.getElementById && document.all) { document.getElementById = function(id) { return document.all[id]; }}

var pluginlist = "";
var agt = navigator.userAgent.toLowerCase();
var ie  = (agt.indexOf("msie") != -1);
var ns  = (navigator.appName.indexOf("Netscape") != -1);
var win = ((agt.indexOf("win")!=-1) || (agt.indexOf("32bit")!=-1));
var mac = (agt.indexOf("mac")!=-1);

if (ie && win) {
	pluginlist = detectIE("Adobe.SVGCtl","SVG Viewer") + detectIE("SWCtl.SWCtl.1","Shockwave Director") + detectIE("ShockwaveFlash.ShockwaveFlash.1","Shockwave Flash") + detectIE("rmocx.RealPlayer G2 Control.1","RealPlayer") + detectIE("QuickTimeCheckObject.QuickTimeCheck.1","QuickTime") + detectIE("MediaPlayer.MediaPlayer.1","Windows Media Player") + detectIE("PDF.PdfCtrl.5","Acrobat Reader");
}

if (ns || !win) {
	nse = "";

	for (var i=0;i<navigator.mimeTypes.length;i++)
		nse += navigator.mimeTypes[i].type.toLowerCase();

	pluginlist = detectNS("image/svg-xml","SVG Viewer") + detectNS("application/x-director","Shockwave Director") + detectNS("application/x-shockwave-flash","Shockwave Flash") + detectNS("audio/x-pn-realaudio-plugin","RealPlayer") + detectNS("video/quicktime","QuickTime") + detectNS("application/x-mplayer2","Windows Media Player") + detectNS("application/pdf","Acrobat Reader");
}

function detectIE(ClassID,name) { result = false; document.write('<SCRIPT LANGUAGE=VBScript>\n on error resume next \n result = IsObject(CreateObject("' + ClassID + '"))</SCRIPT>\n'); if (result) return name+','; else return ''; }

function detectNS(ClassID,name) {
	n = "";
	if (nse.indexOf(ClassID) != -1)
		if (navigator.mimeTypes[ClassID].enabledPlugin != null)
			n = name+",";
	return n;
}

/* pluginlist += navigator.javaEnabled() ? "Java," : ""; */
if (pluginlist.length > 0) pluginlist = pluginlist.substring(0,pluginlist.length-1);

/* rtsp://realaudio.opoka.org.pl/MP3/BN/ */

var songs = new Array(
"Przybieżeli do Betlejem (Cantate Deo)",
"Pójdźmy wszyscy do stajenki (Cantate Deo)",
"Cicha noc (Cantate Deo)",
"Jezus malusieńki (Cantate Deo)",
"Powiedz że czekamy (Cantate Deo)",
"Dzisiaj w Betlejem (Cantate Deo)",
"Gdy śliczna Panna (Cantate Deo)",
"Lulajże Jezuniu (Cantate Deo)",
"Do szopy, hej pasterze (Cantate Deo)",
"Tryumfy Króla Niebieskiego (Cantate Deo)",
"Bracia patrzcie jeno (RZAWP)",
"Lulajże Jezuniu (RZAWP)",
"W Betlejem w stajence (RZAWP)",
"Jezus malusieńki (RZAWP)",
"Pójdzmy wszyscy do stajenki (RZAWP)",
"Wśród nocnej ciszy (RZAWP)",
"Dzisiaj w Betlejem (RZAWP)",
"Mizerna cicha (RZAWP)",
"Przystąpmy do szopy (RZAWP)",
"Kolęda wojenna (RZAWP)",
"Oj maluśki, maluśki (RZAWP)",
"Przybieżeli do Betlejem (RZAWP)",
"Gdy śliczna Panna (RZAWP)",
"Do szopy, hej pasterze (RZAWP)",
"Z narodzenia Pana (RZAWP)",
"Anioł pasterzom mówił (RZAWP)",
"Nie było miejsca dla Ciebie (RZAWP)",
"Mędrcy świata, monarchowie (RZAWP)",
"Gdy się Chrystus rodzi (RZAWP)",
"Tryumfy Króla Niebieskiego (RZAWP)",
"Cicha noc (RZAWP)",
"Bóg się rodzi (RZAWP)",
"Jezu, śliczny kwiecie (Fragment z liturgia.dominikanie.pl)",
"Jam jest Dudka (Fragment z liturgia.dominikanie.pl)",
"Gdy się Chrystus narodził (Fragment z liturgia.dominikanie.pl)",
"O, Józefie (Fragment z liturgia.dominikanie.pl)",
"Hej kolęda - wiązanka kolęd (www.chor.bochnia.pl)",
"Bóg się rodzi (www.chor.bochnia.pl)",
"Do szopy, hej, pasterze (www.chor.bochnia.pl)",
"Kiedy pierwsza gwiazdka (www.chor.bochnia.pl)",
"Jam jest dudka (www.chor.bochnia.pl)",
"Jezu malusieńki (www.chor.bochnia.pl)",
"Jezus malusieńki (www.chor.bochnia.pl)",
"Lulajże Jezuniu (www.chor.bochnia.pl)",
"Mizerna, cicha (www.chor.bochnia.pl)",
"Niemowlątko na słomie (www.chor.bochnia.pl)",
"Chrystus nam się rodzi (www.chor.bochnia.pl)",
"O gwiazdo betlejemska (www.chor.bochnia.pl)",
"Pospieszcie pastuszki (www.chor.bochnia.pl)",
"Przystąpmy do szopy (www.chor.bochnia.pl)",
"Wśród nocnej ciszy (www.chor.bochnia.pl)",
"Pokłon Jezusowi (www.chor.bochnia.pl)",
"Zaśpiewam Jezuskowi (www.chor.bochnia.pl)",
"Z narodzenia Pana (www.chor.bochnia.pl)",
"Adeste fideles - anonimowy hymn z XVIII w. (www.chor.bochnia.pl)",
"Mozaika kolędowa (www.chor.bochnia.pl)"
);

var urls = new Array(
"Cantate-Deo-09-Przybiezeli-do-Betlejem.rm",
"Cantate-Deo-07-Pojdzmy-wszyscy-do-stajenki.rm",
"Cantate-Deo-08-Cicha-Noc.rm",
"Cantate-Deo-10-Jezus-malusienki.rm",
"Cantate-Deo-11-Powiedz-ze-czekamy.rm",
"Cantate-Deo-12-Dzisiaj-w-Betlejem.rm",
"Cantate-Deo-13-Gdy-sliczna-Panna.rm",
"Cantate-Deo-14-Lulajze-Jezuniu.rm",
"Cantate-Deo-15-Do-szopy-hej-pasterze.rm",
"Cantate-Deo-16-Tryumfy-Krola-Niebieskiego.rm",
"RZAWP-01-Bracia-patrzcie-jeno.rm",
"RZAWP-02-Lulajze-Jezuniu.rm",
"RZAWP-03-W-Betlejem-w-stajence.rm",
"RZAWP-04-Jezus-malusienki.rm",
"RZAWP-05-Pojdzmy-wszyscy-do-stajenki.rm",
"RZAWP-06-Wsrod-nocnej-ciszy.rm",
"RZAWP-07-Dzisiaj-w-Betlejem.rm",
"RZAWP-08-Mizerna-cicha.rm",
"RZAWP-09-Przystapmy-do-szopy.rm",
"RZAWP-10-Koleda-wojenna.rm",
"RZAWP-11-Oj-maluski-maluski.rm",
"RZAWP-12-Przybiezeli-do-Betlejem.rm",
"RZAWP-13-Gdy-sliczna-Panna.rm",
"RZAWP-14-Do-szopy-hej-pasterze.rm",
"RZAWP-15-Z-narodzenia-Pana.rm",
"RZAWP-16-Aniol-pasterzom-mowil.rm",
"RZAWP-17-Nie-bylo-miejsca-dla-Ciebie.rm",
"RZAWP-18-Medrcy-swiata-monarchowie.rm",
"RZAWP-19-Gdy-sie-Chrystus-rodzi.rm",
"RZAWP-20-Tryumfy-Krola-Niebieskiego.rm",
"RZAWP-21-Cicha-noc.rm",
"RZAWP-22-Bog-sie-rodzi.rm",
"jezu.rm",
"dutka.rm",
"gdy.rm",
"jozefie.rm",
"bog_sie_rodzi2.rm",
"bog_sie_rodzi.rm",
"do_szopy.rm",
"gdy_pierwsza_gwiazdka_blysnie.rm",
"jam_jest_dudka.rm",
"jezus_malusienki2.rm",
"jezus_malusienki.rm",
"lulajze_jezuniu.rm",
"mizerna_cicha.rm",
"niemowlatko_na_slomie.rm",
"noc_gdy_wszystko_zasnie.rm",
"o_gwiazdo_betlejemska.rm",
"pospieszcie_pastuszki.rm",
"przystapmy_do_szopy.rm",
"wsrod_nocnej_ciszy.rm",
"w_szopie_w_szopie.rm",
"zaspiewam_jezuskowi.rm",
"z_narodzenia_pana.rm",
"adente_fideles.rm",
"aniol_pasterzom_mowil.rm"
);

function playList() {
	var i = 0;
	var wynik = '<form name="playlist"><select name="koledy" size="1" onChange="changeClip(this)" style="width:245px">';

	for (i = 0 ; i < songs.length ; i++) {
		wynik += '<option>' + songs[i] + '</option>';
	}

	wynik += '</select></form>';

	return wynik;
}

function changeClip(sel) {
	document.RealPlayer.DoStop();
	document.RealPlayer.SetSource('rtsp://realaudio.opoka.org.pl/MP3/BN/' + urls[sel.selectedIndex]);
	document.RealPlayer.DoPlay();
	sel.blur();
}

function changeKoleda(idx) {
	document.RealPlayer.DoStop();
	document.RealPlayer.SetSource('rtsp://realaudio.opoka.org.pl/MP3/BN/' + urls[idx]);
	document.RealPlayer.DoPlay();
}