﻿function give_moon(){
	var ccm_cfg = { n:'1', pof:'1', dt:'1', tc:'#000000', pth:'' }
	var MSPD = 24*60*60*1000; 
	var aDW = new Array('Неделя','Понеделник','Вторник','Сряда','Четвъртък','Петък','Събота');
	var aM2 = new Array('Януари','Февруари','Март','Април','Май','Юни','Юли','Август','Септември','Октомври','Ноември','Декември');


	function phD(ph_p, m) {
		var d; 
		var ax;
		if( (ph_p>=0) && (ph_p<=2.49) ) {
			d="Новолуние"; 
			ax="0";
		} else if( (ph_p>=2.5) && (ph_p<=22.49) ) {
			d="Разтяща"; 
			ax="1";
		} else if( (ph_p>=22.5) && (ph_p<=27.49) ) {
			d="Първа четвърт"; 
			ax="2";
		} else if( (ph_p>=27.5) && (ph_p<=47.49) ) {
			d="Нарастваща"; 
			ax="3";
		} else if( (ph_p>=47.5) && (ph_p<=52.49) ) {
			d="Пълнолуние"; 
			ax="4";
		} else if( (ph_p>=52.5) && (ph_p<=73.49) ) {
			d="Намаляваща"; 
			ax="5";
		} else if( (ph_p>=73.5) && (ph_p<=77.49) ) {
			d="Трета четвърт"; 
			ax="6";
		} else if( (ph_p>=77.5) && (ph_p <= 97.49) ) {
			d="Последна четвърт"; 
			ax="7";
		} else { 
			d="Новолуние"; 
			ax="8";
		} 
		if(m==0) {
			return d;
		} else { 
			return ax;
		}
	} 
	
	
	function rnd(val, prec) {
		if(rnd.arguments.length==1) 
		prec=0; val = val * Math.pow(10,prec); val = Math.round(val); val = val / Math.pow(10,prec); return val; 
	} 
	var tdy=new Date(); 
	var ph_i=cmm_gPh(tdy); 
	var p_o_f=rnd(ph_i.ph,0); 
	var ph_p=ph_i.a; 
	var ph_dec=rnd(ph_p,0)/100; 
	var mimg=rnd((ph_dec*27),0); mimg = (mimg==27?0:(mimg+1)); 
 
 
	function cmm_dAdj(x) {
		if(x>360) {
			while(x>360) {
			x -= 360; } 
		} else if(x<0) {
			while(x<0) {
			x += 360; 
			} 
		} 
		return x; 
 	} 
	
	
	function cmm_dToR(d){
		return d*2*Math.PI/360; 
	} 


	function cmm_gPh(msdate) {
		var E = new Date(Date.UTC(1990,0,1,0,0,0,0));
		var dn = (msdate - E.getTime())/MSPD+1;
		var EL_E = 279.403303; 
		var EL_P = 282.768422;
		var N = (360/365.242191) * dn; N = cmm_dAdj(N);
		var M = N + EL_E - EL_P; S_M = cmm_dAdj(M);
		var E = (360/Math.PI)*0.016713*Math.sin(cmm_dToR(S_M));
		var S_L = N + E + EL_E; S_L = cmm_dAdj(S_L);
		var tmp; 
		var LO = 318.351648;
		var PO = 36.340410;
		var NO = 318.510107;
		var l = cmm_dAdj(13.1763966*dn + LO);
		var Mm = cmm_dAdj(l - 0.1114041*dn-PO);
		var N = cmm_dAdj(NO - 0.0529539*dn);
		tmp = (2*(l - S_L))-Mm;
		var Ev = 1.2739*Math.sin(cmm_dToR(tmp));
		tmp = cmm_dToR(S_M);
		var Ae = 0.1858*Math.sin(tmp);
		var A3 = 0.37*Math.sin(tmp);
		var Mm1 = Mm + Ev - Ae - A3;
		var Ec = 6.2886*Math.sin(cmm_dToR(Mm1));
		var A4 = 0.214*Math.sin(2*cmm_dToR(Mm1));
		var l1 = l + Ev + Ec - Ae + A4;
		var V = 0.6583*Math.sin(cmm_dToR(2*(l1-S_L)));
		var mTL = l1 + V;
		var D = mTL - S_L; D = cmm_dAdj(D);
		var F = 0.5*(1-Math.cos(cmm_dToR(D))); F = F*100;
		var tmp = new Object(); tmp.ph = F; tmp.D = D; tmp.a = D/360*100;
		return tmp; 
	}

	var result=new Array();
	result['data']="";
	result['img']=mimg;

//data+='<img src="http://www.zvezdenprah.com/phps/moon/images/'+mimg+'.png" width="100" height="100" border="0" style="border:none"/>';
	if(ccm_cfg.n) {
		result['data']+='<br /><center><strong>'+phD(ph_p,0)+'</strong>'; 
	}
	if(ccm_cfg.pof) {
		result['data']+='<br />'+rnd(p_o_f,0)+'% пълна'; 
	}
	if(ccm_cfg.dt) {
		result['data']+='<br />'+aDW[tdy.getDay()]+' '+tdy.getDate()+' '+aM2[tdy.getMonth()]+', '+tdy.getFullYear()+''; 
	}
	result['data']+='</center><br /><br />';
 //document.write(data);
	var advise;
	var nm;
	nm = phD(ph_p,1);
	if(nm<=4) {
		result['data']+="Времето НЕ е подходящо за диети. <br>";
	} else {
		result['data']+="Времето е подходящо за диети. <br>";
	}

	if(nm==4) {
		result['data']+="Течностите се усвояват пълноценно - лекарствените препарати, но също така и алкохолът. <br>";
	}

	if(nm==0) {
		result['data']+="Верятността за допускане на грешки и за взимане на неправилни решения е голяма.<br> Не се препоръчват планови операции.<br> Денят НЕ е добър за сключване на брак. ";
	} 

	if(nm==8) {
		result['data']+="Верятността за допускане на грешки и за взимане на неправилни решения е голяма.<br> Не се препоръчват планови операции.<br> Денят НЕ е добър за сключване на брак. ";
	} 

	if(nm==3) {
		result['data']+="Благоприятно време за сключване на брак. <br>Успешни са всякакви оздравителни процедури.<br> Подходящо време за полагане основите на нещо ново, за създаване на фирми, сдружения, стартиране на нови проекти. ";
	} 

	if(nm==2) {
		result['data']+="Благоприятно време за сключване на брак. <br>Подходящо време за полагане основите на нещо ново, за създаване на фирми, сдружения, стартиране на нови проекти. ";
	} 

	if(nm==1) {
		result['data']+="Благоприятно време за сключване на брак. <br>Подходящо време за полагане основите на нещо ново, за създаване на фирми, сдружения, стартиране на нови проекти. ";
	}

	if(nm==5) {
		result['data']+="Добро време за започване на диети<br> Подстригване на косата<br> Започване на ремонт<br> ";
	}

	if(nm==7) {
		result['data']+="Постепенно се понижава жизненият тонус и способността на човек да се справя с болестите. <br> ";
	}

	if(nm==6) {
		result['data']+="Удачен период за ремонти у дома<br>Много благоприятно време, за да почистите от прах<br> ";
	}

	if(nm>=6) {
		result['data']+="Време за напускане на работа и събиране на дългове. <br>";
	} else {
		result['data']+="Благоприятно време за работа в градината<br>";
	}
	return result;
}
