// Code written by Natalie V. Zubar, revised by Willy De Roeck. Translate by kwebbel.net
// Author claims no responsibility for esoteric method of past-life calculations and its results.
// If you decided to use it you were a thief in your past life and you will cheat forever!


function mod(x, x_div){


    for (var i=x; i>=x_div; i -= x_div);


    return i;


}





function checkNum(str, min, max) {


    if (str == "") {


        alert("Si lo dejas en blanco es imposible saber quien fuistes!");


        return false;    }





    for (var i = 0; i < str.length; i++) {


        var ch = str.substring(i, i + 1);


        if (ch < "0" || ch > "9") {


            alert("Números, por favor!");


            return false;


        }


    }





    var val = parseInt(str, 10);


    if ((val < min) || (val > max)) {


        alert("Escribe un número del 1 al "+max+".");


        return false;


    }





    return true;


}











function pastlife(form){


	var sex; 





//Check for a valid date			





     if ((checkNum(form.day.value,1,31)) && (checkNum(form.month.value,1,12)) &&


        (checkNum(form.year.value,0,99)))  {	


	var day = parseInt(form.day.value,10);


	var cur_month = parseInt(form.month.value,10);


	var cur_year = parseInt(form.year.value,10);





// define past life sex





	if (cur_month-2*(parseInt(cur_month/2)) == 0){


		if (cur_year - 4*(parseInt(cur_year/4)) == 0)


			sex = 1; else sex = 2} 


  	      else if (cur_year - 4*(parseInt(cur_year/4)) == 0)


			sex = 0; else sex = 1};











	msgWindow=window.open("","diagnosis","width=900,height=700,screenX=50,screenY=50,toolbar=no,location=no,directories=no,status=no,scrollbars=yes,resizable=yes,copyhistory=no");
	msgWindow.document.open(); 
	msgWindow.document.bgColor="black"; 
	msgWindow.document.writeln("<BODY BACKGROUND=starsglow1.gif LINK=#FFB401 VLINK=#FFB401>");
	msgWindow.document.write("<div align=center><img src=http://users.pandora.be/gad/re/uvijn.jpg></div>");	
	msgWindow.document.writeln("<FONT Color=red Face=Arial><B><I>Diagnóstico:</I></B></FONT><HR>");	
	msgWindow.document.write("<FONT Color=white Face=Arial>"); 
	msgWindow.document.write("No se como te sentirás, pero tu fuistes ");








	var yearString = "ZYXWOTZYQVUTSXWVNZYXPQTZRWVUMYXWOTZYQVUTSXWVNZYXPUTZRWVUMYXWOTZYQVUTSXWVNZYXPUTZRWVUMYXWOTZYQVUTSXWV";





	var ys; ys = yearString.charAt(cur_year);





	var p1; var p2; var place;


	if (sex == 1){





		msgWindow.document.write("<FONT color=yellow>hombre</FONT>");











	//for males	











	var indexString = "VTWZXYURPSOMNQYWZVTUXOMPSQRNWUXTYZVMRNQOPSUZVYWXTRPSOMNQTYUXVWZPNQMRSOYWZVTUXNSORPQM";





	





	var profString = "CDBADCABBACD";





		





	p1 = profString.charAt(cur_month-1);





	





	for (i=0;i<=6;i++){





		if (ys == indexString.charAt((cur_month-1)*7+i)) break}











	p2 = i+1;














	//PLACE OF BIRTH Male














	if (p2 == 1){





		if (day < 3) place=5;





		else if (day < 10) place=46;





		else if (day < 17) place=37;





		else if (day < 24) place=48;





		else if (day < 31) place=65;





		else place=6};











	if (p2 == 2){





		if (day < 8) place=28;





		else if (day < 15) place=58;





		else if (day < 22) place=10;





		else if (day < 29) place=38;





		else place=11};











	if (p2 == 3){





		if (day < 4) place=29;





		else if (day < 11) place=53;





		else if (day < 18) place=30;





		else if (day < 25) place=69;





		else place=1};











	if (p2 == 4){





		if (day < 7) place=74;





		else if (day < 14) place=4;





		else if (day < 21) place=47;





		else if (day < 28) place=20;





		else place=26};











	if (p2 == 5){





		if (day < 5) place=23;





		else if (day < 12) place=21;





		else if (day < 19) place=44;





		else if (day < 26) place=16;





		else place=43};











	if (p2 == 6){





		if (day < 6) place=34;





		else if (day < 13) place=27;





		else if (day < 20) place=14;





		else if (day < 27) place=41;





		else place=50};











	if (p2 == 7){





		if (day < 2) place=73;





		else if (day < 9) place=63;





		else if (day < 16) place=66;





		else if (day < 23) place=54;





		else if (day < 30) place=61;





		else place=72}





}





	else {





	//for females











   		msgWindow.document.write("<FONT color=yellow>mujer</FONT>");











	var indexString = "OMPSQRNYWZVTUXSQMPNORUZVYWXTQORNSMPZXTWUVYOMPSQRNXVYUZTWNSORPQMVTWZXYUSQMPNORTYUXVWZ";





	





	var profString = "ACDBCABDDBCA";





		





	p1 = profString.charAt(cur_month-1);





	





	for (i=0;i<=6;i++){





		if (ys == indexString.charAt((cur_month-1)*7+i)) break}











	p2 = i+1;





 


		//PLACE OF BIRTH Female











	if (p2 == 1){





		if (day < 3) place=22;





		else if (day < 10) place=17;





		else if (day < 17) place=36;





		else if (day < 24) place=59;





		else if (day < 31) place=51;





		else place=9};











	if (p2 == 2){





		if (day < 8) place=40;





		else if (day < 15) place=2;





		else if (day < 22) place=64;





		else if (day < 29) place=56;





		else place=35};











	if (p2 == 3){





		if (day < 4) place=19;





		else if (day < 11) place=67;





		else if (day < 18) place=13;





		else if (day < 25) place=32;





		else place=31};











	if (p2 == 4){





		if (day < 7) place=15;





		else if (day < 14) place=49;





		else if (day < 21) place=12;





		else if (day < 28) place=39;





		else place=33};











	if (p2 == 5){





		if (day < 5) place=42;





		else if (day < 12) place=60;





		else if (day < 19) place=24;





		else if (day < 26) place=3;





		else place=52};











	if (p2 == 6){





		if (day < 6) place=18;





		else if (day < 13) place=25;





		else if (day < 20) place=57;





		else if (day < 27) place=45;





		else place=62};











	if (p2 == 7){





		if (day < 2) place=8;





		else if (day < 9) place=55;





		else if (day < 16) place=70;








		else if (day < 23) place=68;





		else if (day < 30) place=71;





		else place=7}





}





	





	var pro; pro=p1+p2;











	msgWindow.document.write(" en tu última encarnación." + "<BR>");





	





	//msgWindow.document.write("month=" + cur_month + " place=" + place + " ys=" + ys + " pro=" + pro + "<BR>");











	





	//countries data





	var countryString="";





	if (place == 1) countryString="Alaska"; 





	else if (place == 2) countryString="Yukon"; 





	else if (place == 3) countryString="Norte de Canadá"; 





	else if (place == 4) countryString="Ontario"; 





	else if (place == 5) countryString="Quebeck";





	else if (place == 6) countryString="Labrador"; 





	else if (place == 7) countryString="Newfoundland"; 





	else if (place == 8) countryString="Greenland"; 





	else if (place == 9) countryString="Noroeste de USA"; 





	else if (place == 10) countryString="Suroeste de USA";





	else if (place == 11) countryString="Norte de USA"; 





	else if (place == 12) countryString="Sur de USA"; 





	else if (place == 13) countryString="Noreste de USA"; 





	else if (place == 14) countryString="Sureste de USA"; 





	else if (place == 15) countryString="Arktik"; 





	else if (place == 16) countryString="Scotland"; 





	else if (place == 17) countryString="Norte de Inglaterra"; 





	else if (place == 18) countryString="Centro de Inglaterra"; 





	else if (place == 19) countryString="Sur de Inglaterra";





	else if (place == 20) countryString="Wales"; 





	else if (place == 21) countryString="Irlanda"; 





	else if (place == 22) countryString="Norte de Europa"; 





	else if (place == 23) countryString="Francia"; 





	else if (place == 24) countryString="España"; 





	else if (place == 25) countryString="Portugal"; 





	else if (place == 26) countryString="Austria"; 





	else if (place == 27) countryString="Alemania"; 





	else if (place == 28) countryString="Ucraina"; 





	else if (place == 29) countryString="Italia"; 





	else if (place == 30) countryString="Turkia"; 





	else if (place == 31) countryString="Oesta de Rusia"; 





	else if (place == 32) countryString="Siberia"; 





	else if (place == 33) countryString="Centro de Rusia"; 





	else if (place == 34) countryString="Grecia"; 





	else if (place == 35) countryString="Iran"; 





	else if (place == 36) countryString="Arabia Saudi"; 





	else if (place == 37) countryString="Polonia"; 





	else if (place == 38) countryString="Hungría"; 





	else if (place == 39) countryString="Yugoslavia"; 





	else if (place == 40) countryString="Rumania"; 





	else if (place == 41) countryString="Bulgaria"; 





	else if (place == 42) countryString="Israel"; 





	else if (place == 43) countryString="Tibet"; 





	else if (place == 44) countryString="Burma"; 





	else if (place == 45) countryString="Tailandia"; 





	else if (place == 46) countryString="Sur de China"; 





	else if (place == 47) countryString="Mongolia"; 





	else if (place == 48) countryString="Norte de China"; 





	else if (place == 49) countryString="Korea"; 





	else if (place == 50) countryString="Norte de Japón"; 





	else if (place == 51) countryString="Sur de Japón"; 





	else if (place == 52) countryString="Sumatra"; 





	else if (place == 53) countryString="Borneo"; 





	else if (place == 54) countryString="Filipinas"; 





	else if (place == 55) countryString="Nueva Guinea"; 





	else if (place == 56) countryString="Norte de Australia"; 





	else if (place == 57) countryString="Oeste de Australia"; 





	else if (place == 58) countryString="Este de Australia";





	else if (place == 59) countryString="Sur de Australia"; 





	else if (place == 60) countryString="Norte de Nueva Zelanda"; 





	else if (place == 61) countryString="Sur de Nueva Zelanda"; 





	else if (place == 62) countryString="Oceania";





	else if (place == 63) countryString="Norte de la India"; 





	else if (place == 64) countryString="Centro de la India"; 





	else if (place == 65) countryString="Sur de la India"; 





	else if (place == 66) countryString="Egipto"; 





	else if (place == 67) countryString="Norte de Africa"; 





	else if (place == 68) countryString="Oeste de Africa"; 





	else if (place == 69) countryString="Centro de Afrika"; 





	else if (place == 70) countryString="Sur de Africa"; 





	else if (place == 71) countryString="Mexico"; 





	else if (place == 72) countryString="Cyprus";





	else if (place == 73) countryString="Norte de Latinoamerica"; 





	else countryString="Sur de Latinoamerica";











	//year of past life calculation





	





	var ys1;











	     if (ys == "M") var mString = "185014001125102507000700180014751800130011751100";





	else if (ys == "N") var mString = "092518750425185017501350080006750825182515250875";





	else if (ys == "O") var mString = "172516750875070013251825177508001075165009001625";





	else if (ys == "P") var mString = "145005001800100008000550165017001325072511001550";





	else if (ys == "Q") var mString = "100014500950042517001525135011001625122517251025";





	else if (ys == "R") var mString = "097513751200127504500825137513500700092509250725";





	else if (ys == "S") var mString = "122506251250142509251150147507501300157506001125";





	else if (ys == "T") var mString = "117514001825127517500975185011501600187515251850";





	else if (ys == "U") var mString = "090009000775105013751675107515000825072510251500";





	else if (ys == "V") var mString = "122507501825140011501325167512751475160009501200";





	else if (ys == "W") var mString = "057516750775047517001450085017251775102517750400";





	else if (ys == "X") var mString = "180015751425157515501200160012001300037507751250";





	else if (ys == "Y") var mString = "107512501000165009501825155014250800175010750875";





	else                    var mString = "097505251175085015751125177513500700065013501050";





	





	ys1 = mString.charAt((cur_month-1)*4); 





	if (ys1 == "0") ys1 = ""; {





	ys1 += mString.charAt((cur_month-1)*4+1);





		ys1 += mString.charAt((cur_month-1)*4+2); ys1 += mString.charAt((cur_month-1)*4+3)} ;





		





	//past life profession











           if (pro == "A1") var proString = "cavador de tumbas, empresario de pompas fúnebres";





	else if (pro == "A2") var proString = "filósofo, pensador";





	else if (pro == "A3") var proString = "diseñador, ingeniero, artesano";





	else if (pro == "A4") var proString = "químico, mago, creador de pociones";





	else if (pro == "A5") var proString = "marinero, cocinero, carpintero";





	else if (pro == "A6") var proString = "joyero, relojero";





	else if (pro == "A7") var proString = "medico, cirujano, botánico";





	else if (pro == "C1") var proString = "pastor, caballero, silvicultor";





	else if (pro == "C2") var proString = "lider, jefe, capitán";





	else if (pro == "C3") var proString = "librero, clérigo, maestro de reliquias";





	else if (pro == "C4") var proString = "persona de entretenimiento, músico, poeta, bailarín de templo";





	else if (pro == "C5") var proString = "marinero, lider, hombre de negocios, corredor";





	else if (pro == "C6") var proString = "apicultor, pistolero";





	else if (pro == "C7") var proString = "escritor, dramaturgo, organizador de rituales";





	else if (pro == "B1") var proString = "constructor de carreteras, puentes, puertos";





	else if (pro == "B2") var proString = "creador de mapas, astrólogo, astrónomo";





	else if (pro == "B3") var proString = "hombre de las artes, mecánico";





	else if (pro == "B4") var proString = "guerrero, ladrón, pescador, ejecutor de sacrificios";





	else if (pro == "B5") var proString = "artista, mago, profeta";





	else if (pro == "B6") var proString = "marinero, zapatero";





	else if (pro == "B7") var proString = "arquitecto, templos, catedrales";





	else if (pro == "D1") var proString = "adiestrador, cuidador de los animales, pájaros, insectos";





	else if (pro == "D2") var proString = "predicador, editor, escribano de antiguas inscripciones";





	else if (pro == "D3") var proString = "farmacólogo, tejedor";





	else if (pro == "D4") var proString = "dramático, director, musico, bardo";





	else if (pro == "D5") var proString = "banquero, usurero, juez";





	else if (pro == "D6") var proString = "profesor, matematico, geólogo";





	else var proString = "bailarín, cantante, actor";





	 





	//characteristics





	if (p2 == 1) {

		if (place-2*(parseInt(place/2)) > 0) var charString = "Persona de gran energía, bueno en operaciones (planeando) y como supervisor. Si fuistes una persona justa, entoces llegastes a ser el jefe de de las personas justas.";

		else var charString = "Tipo revolucionario. Usted inspiró los cambios en cualquier esfera - política, negocio, religión, operacíones de entretenimiento. Podría ser un un líder."
		};
	if (p2 == 2) {
		if (place-2*(parseInt(place/2)) > 0) var charString = "Personalidad artística, siempre transforma lo feo en hermoso, el gris en colores brillantes. Usted encontraría una inspiración creativa en cualquier situación.";
		else var charString = "Persona tímida, consternada, reservada. Usted hizo talentos creativos, esperará hasta que esa vida se libere. A veces la gente lo consideraba extraño."
		};
	if (p2 == 3) {
		if (place-2*(parseInt(place/2)) > 0) var charString = "Buscador de la verdad y de la sabiduría. Usted habría podido ver sus vidas futuras. Otros le percibieron como camino que iluminaba al futuro idealista.";
		else var charString = "Siempre te ha gustado espiar y viajar. Seguramente fuistes un espia o investigador."
		};
	if (p2 == 4) {
		if (place-2*(parseInt(place/2)) > 0) var charString = "Eras una persona sana, materialista sin creencias espirituales. Tu sabiduría ayudó al débil y al pobre";
		else var charString = "Siempre te ha gustado espiar y viajar. Seguramente fuistes un espia o investigador."
		};
	if (p2 == 5) {
		if (place-2*(parseInt(place/2)) > 0) var charString = "Persona bohemia y misteriosa, altamente dotado, capaz de entender las antiguas escrituras. Habilidades de mago, pudistes ser un sirviente de las fuerzas oscuras.";
		else var charString = "Talento natural de psico-analista, tu sabías aprovechar las oportunidades. Dotado de sangre fría y calma en cualquier situación."
		};
	if (p2 == 6) {
		if (place-2*(parseInt(place/2)) > 0) var charString = "Inquisidor, inventivo, siempre buscó el porqué de las cosas e investigaba los libros. Talento para el drama o actor"	
		else var charString = "Siempre envuelto en las cosas nuevas. Siempre has amado los cambios, especialmente en arte, musica, comida."
		};
	if (p2 == 7) {
		if (place-2*(parseInt(place/2)) > 0) var charString = "Tuvistes mente de científico, siempre buscando nuevas soluciones. Muchas veces el pueblo no te entendía, Pero respetaban tu sabiduría.";
		else var charString = "Carácter rudo, cuidadosamente tomaba sus decisiones en momentos críticos, con un control exelente y fuerte de sí mismo. Como a la mayoría le gusta, pero no siempre amado."
		};

	// past life lesson

	if (p2 == 1){
 		     if (day < 12) var lesString = "Nacistes para solventar problemas de polución, reciclando, eliminando radioactividad,... Todo esto usando principios psicológicos.";

		else if (day < 22) var lesString = "Tu lección -- aprender de los principios de la humildad y de la fe espiritual. También deberías creer en la razón.";

		             else  var lesString = "Nacistes para ayudar a la gente e intentar ayudarlos en sus dificultades, siempre con un gran corazón. Tu ayudas a los otros, brindandoles espíritu de alegría."};
	if (p2 == 2) {



		     if (day < 12) var lesString = "Siempre opinando y pensando diferente a los demás. Su mejor lección es aprender por sí mismo en la vida actual";



		else if (day < 22) var lesString = "Tu trabajo -- hacer de este mundo algo maravilloso. Los desiertos esperan tu caricia física y espiritual. !Siempre sonriendo!";



		              else var lesString = "Tu lección en el presente -- desarrollar la sensación de la maternidad y magnificar la familia. Intenta no adherirte tanto a lo material y a aprender a tener menos."};



	if (p2 == 3) {



		     if (day < 12) var lesString = "Tu lección -- actitud muy buena para poblar, tienes el don de regalar, de entender y de ser compasivo con el pueblo.";



		else if (day < 22) var lesString = "Tu lección -- desarrollo mental e intelectual. Encuentra un buen profesor, gasta tiempo y energía en la sabiduría.";



		              else var lesString = "Eres la persona más feliz ayudando a las personas mayores y a los niños. Vinistes a esta vida para ayudar al pobre y al desamparado."};



	if (p2 == 4) {



		     if (day < 12) var lesString = "Desarrolla tu talento para el amor, felicidad y entusiasmo y distribuyelos a toda la gente.";



		else if (day < 22) var lesString = "Desarrolla el amor propio y la habilidad de implantar la esperanza en los corazones de la gente. La ambición -- no lo es todo. La abundancia verdadera se encuentra en sus almas.";



		              else var lesString = "Tu lección -- conquistar los celos y cólera en ellos, para que te nombren su guía. Tienes que entander que estas debilidades son causadas por el miedo de uno mismo."};



	if (p2 == 5) {



		     if (day < 12) var lesString = "Tu problema -- aprende a amar y confiar en el Universo. Has nacido para aprender, estudiar, y desarrollar alegría.";



		else if (day < 22) var lesString = "Tu problema -- aprende de la determinación y de la persistencia. Cada desgracia tiene que golpearte para darte cuenta de los errores.";



		              else var lesString = "El tímido, solitario, la gente segura de sí mismo está por todas partes, y tu problema -- es superar estas tendencias en ti mismo y despues ayudar a la gente"};



	if (p2 == 6) {



		     if (day < 12) var lesString = "El planeta está lleno de gente solitaria y enferma. Tú tienes que ayudarlos, ellos son menos afortunados que tu.";



		else if (day < 22) var lesString = "Hay una conexión espiritual entre lo material y lo espiritual en el Universo. Tu lección -- buscar, encontrarlo y usarlo como puente.";



		              else var lesString = "Tu lección -- aprender a ser discreto y razonable y luego enseña a los otros a serlo. Tu vida será más bella, cuando tu enseñes a esta gente a ser razonable."};



	if (p2 == 7) {



		     if (day < 12) var lesString = "Tu lección -- estudiar, practicar y usar la alegría, te encierras en la psicología, y en los manuscritos. Con una fuerte fe y trabajo, serás rico en tu destino actual y en la vida presente.";



		else if (day < 22) var lesString = "Tu lección -- combatir la ciolencia y ayudar a la armonía en nuestro mundo, entender los orígenes y caminos. Todos los problemas globales tienen un orígen similar.";



		              else var lesString = "La mágia se encuentra dentro de tí, en lo más usual, en los incidentes más ordinarios. Tu lección -- aprende mágia para ayudar a la gente que vea las cosas con claridad. !Tu eres un Mago!"};	


msgWindow.document.write("<p>Tu nacistes en algún lugar cercano al territorio de/l " + countryString.fontcolor("yellow"));

	msgWindow.document.write(" aproximadamente hacia el " + ys1.fontcolor("yellow") + ".<p>");

	msgWindow.document.write("Tu profesión fue de: " + proString.fontcolor("yellow") + ".<p><HR><p>");

	msgWindow.document.write("<p>Una breve descripción psicológica de tu vida pasada:<p>" + charString.fontcolor("yellow") + "<p><HR><p>");

	msgWindow.document.write("<p>La lección que te dejó el pasado para hacerla real en la vida presente:<p>" + lesString.fontcolor("yellow") + "<p><hr width=45% align=center>");

msgWindow.document.write("<P><DIV align=center><iframe scrolling=no frameborder=no src=pubreincarnatiees.html style=width:728px; height: 200px; border:0;overflow:hidden;></iframe>");

msgWindow.document.write("<hr width=45% align=center><p><div align=center><p><h2><a href=http://kwebbel.net/morir>¿Cuando Moriré? Calcula tu espectativa de vida.</a></h2><p><hr width=45% align=center><p><h2><a href=http://www.kwebbel.net/clarividencia/>¿Tienes talentos clarividentes?</a></h2><p><hr width=45% align=center><p><h2><a href=http://users.telenet.be/gad/angel/sp/>¡ Investíga tu ángel de la guarda !</a></h2><p><hr width=45% align=center><p><a href=http://www.kwebbel.net/translate/index6.html>HELP ! Who can translate an new site into your language ???</a><p><HR></FONT> ");



msgWindow.document.write("<P><DIV align=right><FONT COLOR=#ff0000 SIZE=+1>Y luego consulta los servicios siguientes ... </FONT> <A HREF=http://www.kwebbel.net/es.html><IMG SRC=pijl.gif border=0></A><P></DIV>");


//
      
}

 
