/*
* This script will select one of my preferred musical pieces
* and insert an appropriate player inside my homepage.
*
* Programmer: Dmitri Arkhangelski (2009)
* License: Public Domain
*/

var code1 = "<table width=\"380\" height=\"80\" border=\"0\" cellpadding=\"0\" cellspacing=\"0\"" + 
			" background=\"http://abmp3.com/img/bg_player.gif\">" + 
			" <tr><td><table width=\"100%\" height=\"80\"  border=\"0\" cellpadding=\"0\" cellspacing=\"0\">" + 
			" <tr><td height=\"20\" align=\"center\" valign=\"bottom\">" + 
			" <span style=\"font-family: Verdana, Arial, Helvetica, sans-serif;"  + 
			" font-size: 10px; color: #ffffff; text-decoration: none;\">" + 
			" <a style=\"font-family: Verdana, Arial, Helvetica, sans-serif;" + 
			" font-size: 10px; font-weight:bold; color: #ffffff; text-decoration: none;\" href=\"";
var link1 = "http://abmp3.com/download/2602939-metastasis.html";
var code2 = "\">";
var text1 = "Iannis Xenakis - metastasis";
var code3 = "</a></span></td></tr><tr><td height=\"5\"><img src=\"http://abmp3.com/img/5x5_tr.gif\" width=\"5\" height=\"5\">" + 
			"</td></tr><tr><td><table width=\"100%\" height=\"30\"  border=\"0\" cellpadding=\"0\" cellspacing=\"0\">" + 
			"<tr><td width=\"18\"></td><td align=\"left\" valign=\"middle\"><span style=\"font-family: Verdana, Arial, Helvetica, sans-serif;"  + 
			" font-size: 10px; color: #ffffff; text-decoration: none;\"><embed class=\"beeplayer\" wmode=\"transparent\" style=\"height:24px;width:260px;\""  + 
			" src=\"http://beemp3.com/player/player.swf\" quality=\"high\" bgcolor=\"#ffffff\" width=\"260\" height=\"24\" align=\"middle\"" + 
			" allowScriptAccess=\"sameDomain\" type=\"application/x-shockwave-flash\" pluginspage=\"http://www.macromedia.com/go/getflashplayer\""  + 
			" flashvars=\"playerID=1&bg=0xCDDFF3&leftbg=0x357DCE&lefticon=0xF2F2F2&rightbg=0x64F051&rightbghover=0x1BAD07&righticon=0xF2F2F2" + 
			"&righticonhover=0xFFFFFF&text=0x357DCE&slider=0x357DCE&track=0xFFFFFF&border=0xFFFFFF&loader=0xAF2910&soundFile=";
var link2 = "http://storage.suchdol.net/yarrdesh/xenakis_-_metastasis.mp3";
var code4 = "\"></embed></span></td><td width=\"70\" align=\"center\" valign=\"middle\"><img src=\"http://abmp3.com/img/logo_small.gif\"" + 
			" width=\"68\" height=\"24\"></td><td width=\"18\"></td></tr></table></td></tr><tr><td height=\"5\"><img" + 
			" src=\"http://abmp3.com/img/5x5_tr.gif\" width=\"5\" height=\"5\"></td></tr><tr><td height=\"20\" align=\"center\" valign=\"top\">" + 
			"<span style=\"font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 10px; color: #ffffff; text-decoration: none;\">" + 
			"Found at <a style=\"font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 10px; color: #ffffff; text-decoration: underline;\""  + 
			" href=\"http://abmp3.com\">abmp3 search engine</a></span></td></tr></table></td></tr></table>";

var comment = "<table width=\"380\" border=\"0\" cellpadding=\"0\" cellspacing=\"0\"><tr align=\"center\"><td>" + 
			  "<font size=\"-1\">Reload this page to check out the next piece of my collection.</font>" + 
			  "</td></tr></table>";
			
var sources = new Array(
				new Array(
					"http://abmp3.com/download/3964458-atmosph-res.html",
					"Ligeti - Atmospheres",
					"http://bu.edu/av/musiclibrary/current/SPRING%202007/MU602/Ligeti-Atmosph%e8res-Nott,_Berlin_Phil-Teldec-2002-02.mp3"
				),
				new Array(
					"http://abmp3.com/download/2602939-metastasis.html",
					"Iannis Xenakis - metastasis",
					"http://storage.suchdol.net/yarrdesh/xenakis_-_metastasis.mp3"
				),
				new Array(
					"http://abmp3.com/download/3301753-hibiki-hana-12-ma-1970.html",
					"Iannis Xenakis - Hibiki-Hana - 12 - Ma (1970)",
					"http://www.cs.uoi.gr/~sfikas/literature/xenakis/hibiki-hana_12-Ma.mp3"
				),
				new Array(
					"http://abmp3.com/download/4101296-mp3.html",
					"Friedrich Nietzsche - Unendlich Song",
					"http://johnbellyoung.com/sound/nietzsche_unendlich_song.mp3"
				),
				new Array(
					"http://abmp3.com/download/4101298-mp3.html",
					"Friedrich Nietzsche - Da geht ein Bach",
					"http://johnbellyoung.com/sound/nietzsche_da_geht_ein_bach.mp3"
				),
				new Array(
					"http://abmp3.com/download/4504148-das-kind-an-die-erloschene-kerze.html",
					"Friedrich Nietzsche - Das Kind an die erloschene Kerze",
					"http://www.nietzscheana.com.ar/musica/Nietzsche%20-%20%20Das%20Kind%20an%20die%20erloschene%20Kerze.mp3"
				),
				new Array(
					"http://abmp3.com/download/4056104-herma.html",
					"Iannis Xenakis - Herma",
					"http://music.mcgill.ca/~jacob/mp3s/Herma.mp3"
				)
			);

var num_of_sources = sources.length;

var index = 0; /* first piece in array */

var cookieName = "musicSources_dmitriar.sourceforge.net";

function save_index(){
	var new_index = index + 1;
	if(!window.navigator.cookieEnabled) return;
	/* save an index of the next playlist item */
	document.cookie = cookieName + "=" + escape(new_index) + "; path=/; expires=Thu, 31 Dec 2099 23:59:59 GMT;"; 
}

function get_index(){
	if(!window.navigator.cookieEnabled){
		return Math.floor(Math.random() * num_of_sources);
	} else {
		var cookie_array = document.cookie.split("; ");
		for(var i = 0; i < cookie_array.length; i++){
			var pair = cookie_array[i].split("=");
			if(pair[0] == cookieName){
				var idx = parseInt(unescape(pair[1]));
				if(isNaN(idx)) idx = 0;
				return idx;
			}
		}
		return 0;
	}
}

/* define which source should we use */
index = get_index();
if(index > (num_of_sources - 1)) index = 0;
save_index();

//alert(index);

function insert_music_player(){
	document.write(code1 + sources[index][0] + code2 + (index + 1) + ". " + sources[index][1] + code3 + sources[index][2] + code4 + comment);
}