var strStatus = "";
//-
function p_radio_isNull(value)
{
    return value == null || value == "" || value == "undefined";
}
//-
function p_radio_getSearchParameter(parameter, def)
{
    url = new String(parent.location.href);//was top.location
    search = new String(url.substring(url.indexOf("?") + 1, url.length))
    search = search.split("&")
    for (i = 0; i < search.length; i++)
    {
	pair = new String(search[i])
	index = pair.indexOf("=")
	if (index > 0 && index < pair.length)
	{
	    check = pair.substring(0, index)
	    if (parameter == check)
	    {
		var rawret = pair.substring(index + 1, pair.length);
		var ret = new String(unescape(rawret));
		var mret = "";
		for(var j = 0; j < ret.length; j++)
		    if(ret.charAt(j) == '+')
			mret += ' ';
		    else
			mret += ret.charAt(j);
		return mret;
	    }
	}
    }
    return def;
}
//-
function p_radio_setCookie (name, value) 
{
  var expdate = new Date ();
  expdate.setTime (expdate.getTime() + (24 * 60 * 60 * 1000 * 365));
  document.cookie = name + "=" + escape (value) + "; expires=" + expdate.toGMTString() +  "; path=/";
}
//-
function p_radio_getCookie (name) 
{
    var dcookie = document.cookie; 
	var cname = name + "=";
	var clen = dcookie.length;
	var cbegin = 0;
        while (cbegin < clen)
    {
    	var vbegin = cbegin + cname.length;
        	if (dcookie.substring(cbegin, vbegin) == cname) 
	{ 
        	    var vend = dcookie.indexOf (";", vbegin);
            	if (vend == -1)	vend = clen;
        	    return unescape(dcookie.substring(vbegin, vend));
        	}
    	cbegin = dcookie.indexOf(" ", cbegin) + 1;
        	if (cbegin == 0) break;
        }
	return null;
}
//-
function p_radio_Filter(s)
{
    var s1 ="";
    for(i=0; i < s.length; i++)
    {
	if(s.charAt(i)=='|')
	    s1+="!";
	else
	    if(s.charAt(i)=='<')
		s1+="&lt;";
	    else
		if(s.charAt(i)=='>')
		    s1+="&gt;";
		else
		    s1+=s.charAt(i);
    }
    return s1
}
//-
var p_radio_g_MustPlay = false;
var p_radio_g_LastState = 0;
var p_radio_g_CurrentState = 0;
//-
function p_radio_sTime()
{
    CurTime=new Date();
    return  ""+CurTime.getHours()+":"+CurTime.getMinutes()+":"+CurTime.getSeconds()+" "; 
}
//-
function p_radio_sSC()
{
  var oS = document.getElementById("p_radio_selector");

  var sId = oS.options[oS.selectedIndex].id;
  p_radio_setCookie("p_radio_SelectedId",""+sId);  
  
  p_radio_g_MustPlay = ( oS.selectedIndex != 0);
  document.getElementById("p_radio_MediaPlayer").FileName = oS.value;
}
//-
function p_radio_writeRadioSelect()
{
var s="";
s=s+'<select name="p_radio_selector" id="p_radio_selector" style="font: normal 11px Verdana, Arial, Helvetica, sans-serif; WIDTH: 300px;"';  
s=s+'onchange="p_radio_sSC()"';
s=s+'>';
s=s+'<option VALUE="" selected> --- Выберите радиостанцию А - Я --- </option>';
s=s+' <option id="11" VALUE="http://62.118.252.135/autoradio"> &nbsp; Авторадио 32k</option>';
s=s+' <option id="12" VALUE="http://www.rambler-audio.ru/asx/radio/radiostation/autoradio/autoradio.asx">  &nbsp; Авторадио 64k</option>';
s=s+' <option id="69" VALUE="mms://rcentr.tcnet.ru/radiostation"> &nbsp; Говорит Москва 32k</option>';
s=s+' <option id="104" value="http://live.wm.t-bn.de/live/st_ru/stimme_russl"> &nbsp; Голос России 20k</option>';
s=s+' <option id="113" value="http://yakov.dls.net:7700"> &nbsp; Детское Радио 24k</option>';
s=s+' <option id="13" VALUE="mms://217.16.18.76/Dinamit_FM-32K"> &nbsp; Динамит FM 32k</option>';
s=s+' <option id="14" VALUE="http://ware.catv.ext.ru:8000/dinamitfm48.mp3"> &nbsp; Динамит FM 48k</option>';
s=s+' <option id="15" VALUE="http://ware.catv.ext.ru:8000/dinamitfm128.mp3"> &nbsp; Динамит FM 128k</option>';
s=s+' <option id="8" VALUE="http://ware.catv.ext.ru:8000/europaplus48.mp3"> &nbsp; Европа Плюс 48k</option>';
s=s+' <option id="9" VALUE="http://ware.catv.ext.ru:8000/europaplus128.mp3"> &nbsp; Европа Плюс 128k</option>';
s=s+' <option id="116" value="mms://spb.radioshock.ru/radioshock64"> &nbsp; Интернет Радио ШОК 96k</option>';
s=s+' <option id="92" value="http://www.radiomayak.ru/air/newair.asx"> &nbsp; Маяк 24 20k</option>';
s=s+' <option id="16" VALUE="http://vozdukh.e-se.ru/nashe1.asx"> &nbsp; Наше Радио 32k</option>';
s=s+' <option id="17" VALUE="http://www.rbcmp3.com/asx/radioru48.asx"> &nbsp; Наше Радио 48k</option>';
s=s+' <option id="105" value="mms://nashe.e-se.ru/nashe128"> &nbsp; Наше Радио 128k</option>';
s=s+' <option id="111" value="http://193.238.49.11:8000/gradio.m3u"> &nbsp; Партизанское радио 96k</option>';
s=s+' <option id="95" value="mms://213.8.143.164/89.1fm"> &nbsp; Первое Радио Israel 29k</option>';
s=s+' <option id="49" VALUE="http://www.rambler-audio.ru/asx/radio/radiostation/radio-1/radio-1_32.asx"> &nbsp; Радио-1 32k</option>';
s=s+' <option id="50" VALUE="http://www.rambler-audio.ru/asx/radio/radiostation/radio-1/radio-1_64.asx">  &nbsp; Радио-1 64k</option>';
s=s+' <option id="101" value="http://www.rambler-audio.ru/asx/radio/radiostation/radio7/radio7.asx"> &nbsp; Радио-7 На Семи Холмах 64k</option>';
s=s+' <option id="108" value="http://admin.rrock.ru:65432"> &nbsp; Радио Кино 64k</option>';
s=s+' <option id="34" VALUE="http://www.rambler-audio.ru/asx/radio/radiostation/radio-kuranty/radio-kuranty.asx">  &nbsp; Радио Куранты 64k</option>';
s=s+' <option id="112" value="http://radio.mixfm.lv/mixfm128"> &nbsp; Радио Микс FM 128k</option>';
s=s+' <option id="98" value="mms://217.16.18.76/MonteCarlo-22K"> &nbsp; Радио Монте-Карло 22k</option>';
s=s+' <option id="110" value="http://cache.yacast.fr/V4/nostalgie/nostalgie.asx"> &nbsp; Радио Ностальжи 18k</option>';
s=s+' <option id="20" VALUE="mms://stream.rfn.ru/radiorussia"> &nbsp; Радио России 48k</option>';
s=s+' <option id="117" value="http://212.202.99.165:8000/radio-russkij-berlin.m3u"> &nbsp; Радио Русский Берлин 48k</option>';
s=s+' <option id="99" value="http://www.rambler-audio.ru/asx/radio/radiostation/hitfm/hitfm64.asx"> &nbsp; Радио Хит-FM 64k</option>';
s=s+' <option id="106" value="http://horus.mtu.ru:8800"> &nbsp; Радио Шансон 32k</option>';
s=s+' <option id="102" value="http://realaudio.aradio.ru/energy"> &nbsp; Радио Энергия 32k</option>';
s=s+' <option id="2" VALUE="mms://217.16.18.76/32K"> &nbsp; Русское Радио 32k</option>';
s=s+' <option id="3" VALUE="http://ware.catv.ext.ru:8000/russianradio48.mp3"> &nbsp; Русское Радио 48k</option>';
s=s+' <option id="4" VALUE="http://ware.catv.ext.ru:8000/russianradio128.mp3"> &nbsp; Русское Радио 128k</option>';
s=s+' <option id="6" VALUE="mms://217.16.18.76/RusRadio2-22K"> &nbsp; Русская Служба Новостей 22k</option>';
s=s+' <option id="7" VALUE="http://www1.neti.tv/cnt/asxgen.aspx?id=9"> &nbsp; Русское радио Эстония 48k</option>';
s=s+' <option id="19" VALUE="http://ware.catv.ext.ru:8000/silverrain128.mp3"> &nbsp; Серебряный дождь 128k</option>';
s=s+' <option id="51" VALUE="http://www.specialradio.ru/server.asx"> &nbsp; Спец. радио (Основной эфир) 64k</option>';
s=s+' <option id="52" VALUE="http://www.specialradio.ru/2.asx"> &nbsp; Спец. радио (Блатняк) 64k</option>';
s=s+' <option id="53" VALUE="http://www.specialradio.ru/3.asx"> &nbsp; Спец. радио (Рок) 64k</option>';
s=s+' <option id="54" VALUE="http://www.specialradio.ru/4.asx"> &nbsp; Спец. радио (Французская музыка) 64k</option>';
s=s+' <option id="55" VALUE="http://www.specialradio.ru/5.asx"> &nbsp; Спец. радио (Hard rock, heavy metal) 64k</option>';
s=s+' <option id="56" VALUE="http://www.specialradio.ru/6.asx"> &nbsp; Спец. радио (World beat, new age) 64k</option>';
s=s+' <option id="57" VALUE="http://www.specialradio.ru/7.asx"> &nbsp; Спец. радио (Транс, техно) 64k</option>';
s=s+' <option id="58" VALUE="http://www.specialradio.ru/8.asx"> &nbsp; Спец. радио (Электроакустическая музыка) 64k</option>';
s=s+' <option id="59" VALUE="http://www.specialradio.ru/9.asx"> &nbsp; Спец. радио (Классическая музыка) 64k</option>';
s=s+' <option id="60" VALUE="http://www.specialradio.ru/10.asx"> &nbsp; Спец. радио (Джаз и блюз) 64k</option>';
s=s+' <option id="61" VALUE="http://www.specialradio.ru/11.asx"> &nbsp; Спец. радио (Советские ВИА) 64k</option>';
s=s+' <option id="62" VALUE="http://www.specialradio.ru/12.asx"> &nbsp; Спец. радио (Авторская песня) 64k</option>';
s=s+' <option id="63" VALUE="http://www.specialradio.ru/13.asx"> &nbsp; Спец. радио (Российская электроника) 64k</option>';
s=s+' <option id="64" VALUE="http://www.specialradio.ru/14.asx"> &nbsp; Спец. радио (Медиа книга) 64k</option>';
s=s+' <option id="65" VALUE="http://www.specialradio.ru/15.asx"> &nbsp; Спец. радио (Правительство звука) 64k</option>';
s=s+' <option id="66" VALUE="http://www.specialradio.ru/16.asx"> &nbsp; Спец. радио (Попса) 64k</option>';
s=s+' <option id="67" VALUE="http://www.specialradio.ru/17.asx"> &nbsp; Спец. радио (Sinth-Radio) 64k</option>';
s=s+' <option id="68" VALUE="http://www.specialradio.ru/18.asx"> &nbsp; Спец. радио (SEGA-Radio) 64k</option>';
s=s+' <option id="22" VALUE="mms://69.64.198.40/echo"> &nbsp; Эхо Москвы 20k</option>';
s=s+' <option id="23" VALUE="http://ware.catv.ext.ru:8000/moscowecho48.mp3"> &nbsp; Эхо Москвы 48k</option>';
s=s+' <option id="24" VALUE="http://ware.catv.ext.ru:8000/moscowecho128.mp3"> &nbsp; Эхо Москвы 128k</option>';
s=s+' <option id="94" value="http://realaudio.aradio.ru/RadioDisco"> &nbsp; Юмор FM 32k</option>';

s=s+'<option VALUE=""> --- Выберите радиостанцию A - Z --- </option>';
s=s+' <option id="78" VALUE="http://www.br-online.de/streaming/bayern1/bayern1_m20_red.asx"> &nbsp; Bayern 1 32k</option>';
s=s+' <option id="79" VALUE="http://www.br-online.de/streaming/bayern2radio/bayern2radio_m20_red.asx"> &nbsp; Bayern 2 32k</option>';
s=s+' <option id="81" VALUE="http://www.br-online.de/streaming/bayern3/bayern3_m32_red.asx"> &nbsp; Bayern 3 32k</option>';
s=s+' <option id="40" VALUE="http://www.rambler-audio.ru/asx/radio/music/elmusic/fsound/fsound_20.asx"> &nbsp; Future Sound 20k</option>';
s=s+' <option id="41" VALUE="http://www.rambler-audio.ru/asx/radio/music/elmusic/fsound/fsound_32.asx">  &nbsp; Future Sound 32k</option>';
s=s+' <option id="42" VALUE="http://www.rambler-audio.ru/asx/radio/music/elmusic/fsound/fsound_64.asx">  &nbsp; Future Sound 64k</option>';
s=s+' <option id="70" VALUE="http://www.wdr.de/wdrlive/media/einslive-wm32.asx"> &nbsp; Eins Live 32k</option>';
s=s+' <option id="43" VALUE="http://www.rambler-audio.ru/asx/radio/radiostation/ethno/ethnology_20.asx"> &nbsp; Ethno 20k</option>';
s=s+' <option id="44" VALUE="http://www.rambler-audio.ru/asx/radio/radiostation/ethno/ethnology_32.asx">  &nbsp; Ethno 32k</option>';
s=s+' <option id="45" VALUE="http://www.rambler-audio.ru/asx/radio/radiostation/ethno/ethnology_64.asx">  &nbsp; Ethno 64k</option>';
s=s+' <option id="26" VALUE="http://212.63.139.90:8002/"> &nbsp; Neon radio 32k</option>';
s=s+' <option id="83" VALUE="http://lsd.newmedia.tiscali-business.com/bb/redirect.lsc?adid=0&stream=planetradio/livestream.wma&content=live&media=ms"> &nbsp; Planet radio 32k</option>';
s=s+' <option id="25" VALUE="mms://wms5.neti.tv/skyplus"> &nbsp; Sky Radio 48k</option>';
s=s+' <option id="74" VALUE="mms://213.200.75.252/swr3$livestream.wma"> &nbsp; SWR 3 40k</option>';
s=s+' <option id="46" VALUE="http://www.rambler-audio.ru/asx/radio/music/elmusic/44100/44100_20.asx"> &nbsp; Technowave 20k</option>';
s=s+' <option id="47" VALUE="http://www.rambler-audio.ru/asx/radio/music/elmusic/44100/44100_32.asx">  &nbsp; Technowave 32k</option>';
s=s+' <option id="48" VALUE="http://www.rambler-audio.ru/asx/radio/music/elmusic/44100/44100_64.asx">  &nbsp; Technowave 64k</option>';
s=s+' <option id="71" VALUE="http://www.wdr.de/wdrlive/media/wdr5-wm32.asx"> &nbsp; WDR 5 32k</option>';
s=s+' <option id="72" VALUE="http://www.wdr.de/wdrlive/media/wdr2-wm32.asx"> &nbsp; WDR 2 32k</option>';
s=s+' </select>';
return s;
}
//-
function p_radio_writeMMP()
{
var s = "";
s=s+'<OBJECT id=p_radio_MediaPlayer style="LEFT: 0px; WIDTH: 300px; TOP: 0px; HEIGHT: 50px" border=0 ';
s=s+'classid=CLSID:22D6f312-B0F6-11D0-94AB-0080C74C7E95>';
s=s+'<param name="AutoStart" value="true">';
s=s+'<param name="AutoSize" value="true">';
s=s+'<param name="TransparentAtStart" value="true">';
s=s+'<param name="showPositionControls" value="false">';
s=s+'<param name="showTracker" value="false">';
s=s+'<param name="showStatusBar" value="true"> ';
s=s+'<param name="ShowDisplay" value="false">';
s=s+'<param name="ShowControls" value="true">';
s=s+'<param name="DisplaySize" value="0">';
s=s+'<param name="DisplaySize" value="0">';
s=s+'<param name="src" value="">';
s=s+'<param name="FileName" value="">';
s=s+'</OBJECT>';
return s;
}

function p_radio_PlayStateChange(lOldState, lNewState)
{
/*
    p_radio_g_LastState = lOldState;
    p_radio_g_CurrentState = lNewState;

    var S = p_radio_g_LastState + " " + p_radio_g_CurrentState + " " + p_radio_MediaPlayer.HasError + " " + p_radio_MediaPlayer.ErrorCode;
    window.status = S;	
    if( (lOldState ==  2) && (lNewState == 0))
    {
       p_radio_g_MustPlay = false;
    }
    if( (lOldState ==  3) && (lNewState == 0))
    {
        document.getElementById('p_radio_MediaPlayer').FileName = document.getElementById('p_radio_selector').value;
    }
*/	
}

function p_radio_write_PSC()
{
var s = "";
s=s+'<SCRIPT FOR="p_radio_MediaPlayer"  EVENT="PlayStateChange(lOldState, lNewState)"  LANGUAGE="JScript">';
s=s+'    p_radio_PlayStateChange(lOldState, lNewState);';
s=s+'</SCRIPT>';
return s;
}

function p_radio_write_PEH()
{
document.write('<SCRIPT  LANGUAGE = "JScript"  FOR="p_radio_MediaPlayer"   EVENT="error()">');
document.write('  var oS = document.getElementById("p_radio_selector");');
document.write('  var sU = oS.options[oS.selectedIndex].value;');
document.write('  var sT = oS.options[oS.selectedIndex].text;');
document.write('var errDesc = p_radio_MediaPlayer.ErrorDescription;');
document.write('var msg = "Error playing " + sT + "\\n\\n";');
document.write('msg += "Error description: " + errDesc;');
document.write('alert(msg);');
document.write('</SCRIPT>');
}

function p_radio_T()
{
    return;
    var S = "  |  " + p_radio_MediaPlayer.ReceivedPackets;
	S += " / " +  p_radio_MediaPlayer.LostPackets;
	S += " / " +  p_radio_MediaPlayer.RecoveredPackets;
	S += " | " +  p_radio_MediaPlayer.ReceptionQuality + "%";
	S += " " + strStatus;
}

function p_radio_writeSR()
{
var MSIE = (document.all)? true : false;
if(!MSIE)
{
    document.write(' Извините, это работает только в <a target=_new href="http://www.microsoft.com/windows/ie/default.mspx">Microsoft Internet Explorer</a>');
    return;
}
else
{
    var o = document.getElementById("web_radio");
    var p = o.innerHTML;
    var so="*";
    
    var pn = "";
    document.write(p_radio_write_PSC());
    p_radio_write_PEH();	
    pn = pn + p_radio_writeRadioSelect() + "<br>" + p_radio_writeMMP();
    o.innerHTML = pn;

	
    var iSelectedId = p_radio_getCookie ("p_radio_SelectedId");
    var iSelectedNum = 0; 
    for(var i=0; i < document.getElementById('p_radio_selector').options.length; i++)
    {
	var sCurId = document.getElementById('p_radio_selector').options[i].id;
	if(sCurId == iSelectedId)
	{
	    iSelectedNum = i;
	    break; 
	}
    }
    document.getElementById('p_radio_selector').selectedIndex = iSelectedNum;
    document.getElementById('p_radio_MediaPlayer').FileName = document.getElementById('p_radio_selector').value;
    window.setInterval(p_radio_T, 1000);
    
}
}
p_radio_writeSR();
//-EOF


