
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("Nu ai scris datele corect!");


        return false;    }





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


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


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


            alert("Cifre, te rog!");


            return false;


        }


    }





    var val = parseInt(str, 10);


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


        alert("Scrie un numar de la 1 la "+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('',"povestea","width=600,height=500,screenX=50,screenY=50,toolbar=no,location=no,directories=no,status=no,scrollbars=yes,resizable=yes,copyhistory=no");
	msgWindow.document.open(); 
	msgWindow.document.bgColor="#C6AF7E"; 
	msgWindow.document.writeln("<style> a:visited {color:#FFFFFF;} </style> <BODY>");
	msgWindow.document.write("<div style=\" margin:6px\"> <div align=center style=\"background:#333333\">");	
	msgWindow.document.writeln("<FONT Color=#FFFFFF Face=Arial><B><h2>Povestea vietii tale anterioare:</h2></B></FONT></div>");	
	msgWindow.document.write("<FONT Color=black Face=Arial>"); 
	msgWindow.document.write("Se pare ca ai fost  ");


	var yearString = "ZYXWOTZYQVUTSXWVNZYXPQTZRWVUMYXWOTZYQVUTSXWVNZYXPUTZRWVUMYXWOTZYQVUTSXWVNZYXPUTZRWVUMYXWOTZYQVUTSXWV";

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


	var p1; var p2; var place;


	if (sex == 1){


		msgWindow.document.write("<FONT color=brown><b>barbat</b></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=brown><b>femeie</b></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(" in viata anterioara." + "<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=" Bulgaria";
        else if (place == 3) countryString=" Nordul canadei";
        else if (place == 4) countryString=" Ontario";
        else if (place == 5) countryString=" Sudan";
        else if (place == 6) countryString=" Labrador";
        else if (place == 7) countryString=" Newfoundland";
        else if (place == 8) countryString=" Elvetia";
        else if (place == 9) countryString=" America Nord-Vest";
        else if (place == 10) countryString=" America Sud-Vest";
        else if (place == 11) countryString=" America Nord-Centru";
        else if (place == 12) countryString=" America Sud-Centru";
        else if (place == 13) countryString=" Mongolia";
        else if (place == 14) countryString=" Georgia";
        else if (place == 15) countryString=" Siberia";
        else if (place == 16) countryString=" Scotia";
        else if (place == 17) countryString=" Nordul Angliei";
        else if (place == 18) countryString=" Centrul Angliei";
        else if (place == 19) countryString=" Sudul Angliei";
        else if (place == 20) countryString=" Finlanda";
        else if (place == 21) countryString=" Ireland";
        else if (place == 22) countryString=" Nordul Europei";
        else if (place == 23) countryString=" Franta";
        else if (place == 24) countryString=" Spania";
        else if (place == 25) countryString=" Portugalia";
        else if (place == 26) countryString=" Austria";
        else if (place == 27) countryString=" Germania";
        else if (place == 28) countryString=" Ukraina";
        else if (place == 29) countryString=" Italia";
        else if (place == 30) countryString=" Turcia";
        else if (place == 31) countryString=" Vestul Rusiei";
        else if (place == 32) countryString=" Siberia";
        else if (place == 33) countryString=" Centrul Rusiei";
        else if (place == 34) countryString=" Grecia";
        else if (place == 35) countryString=" Iran";
        else if (place == 36) countryString=" Arabia Saudita";
        else if (place == 37) countryString=" Polonia";
        else if (place == 38) countryString=" Ungaria";
        else if (place == 39) countryString=" Iugoslavia";
        else if (place == 40) countryString=" Romania";
        else if (place == 41) countryString=" Cipru";
        else if (place == 42) countryString=" Israel";
        else if (place == 43) countryString=" Tibet";
        else if (place == 44) countryString=" Corea";
        else if (place == 45) countryString=" Tailanda";
        else if (place == 46) countryString=" Sudul Chinei";
        else if (place == 47) countryString=" Mongolia";
        else if (place == 48) countryString=" Nordul Chinei";
        else if (place == 49) countryString=" Lituania";
        else if (place == 50) countryString=" Nordul Japoniei";
        else if (place == 51) countryString=" Sudul Japoniei";
        else if (place == 52) countryString=" Sumatra";
        else if (place == 53) countryString=" Borneo";
        else if (place == 54) countryString=" Filipine";
        else if (place == 55) countryString=" Noua Guinee";
        else if (place == 56) countryString=" Nordul Australiei";
        else if (place == 57) countryString=" Vestul Australiei";
        else if (place == 58) countryString=" Estul Australiei";
        else if (place == 59) countryString=" Sudul Australiei";
        else if (place == 60) countryString=" Nordul Noii Zeelande";
        else if (place == 61) countryString=" Sudul Noii Zeelande";
        else if (place == 62) countryString=" Oceania";
        else if (place == 63) countryString=" Nordul Indiei";
        else if (place == 64) countryString=" Centrul indiei";
        else if (place == 65) countryString=" Sudul Indiei";
        else if (place == 66) countryString=" Egipt";
        else if (place == 67) countryString=" Africa de Nord";
        else if (place == 68) countryString=" Vestul Africii";
        else if (place == 69) countryString=" Africa de Centru";
        else if (place == 70) countryString=" Africa de Sud";
        else if (place == 71) countryString=" Mexic";
        else if (place == 72) countryString=" Argentina";
        else if (place == 73) countryString=" Nordul Americii Latine";
        else countryString=" Sudul Americii Latine";


	//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 = "Gropar, Miner";
        else if (pro == "A2") var proString = "Filosof sau Ganditor";
        else if (pro == "A3") var proString = "Designer, Inginer sau Fierar";
        else if (pro == "A4") var proString = "Chimist, Alchimist sau Preparator de otravuri";
        else if (pro == "A5") var proString = "Marinar, Bucatar sau Tamplar";
        else if (pro == "A6") var proString = "Bijutier sau Ceasornicar";
        else if (pro == "A7") var proString = "Medic, Chirurg sau Vraci";
        else if (pro == "C1") var proString = "Pastor, Crescator de vite sau Fermier";
        else if (pro == "C2") var proString = "Un Sef, Maior sau Capitan";
        else if (pro == "C3") var proString = "Librar, Preot sau Initiator in Mistere";
        else if (pro == "C4") var proString = "Actor, Muzician, Poet sau Circar";
        else if (pro == "C5") var proString = "Marinar, Om de afaceri sau Negustor de stofe";
        else if (pro == "C6") var proString = "Calugar, Calugarita sau Pusnic";
        else if (pro == "C7") var proString = "Scriitor, Dramaturg sau Organizator de ritualuri";
        else if (pro == "B1") var proString = "Constructor de drumuri, de barci sau Potcovar";
        else if (pro == "B2") var proString = "Cartograf, Astronom sau Astrolog";
        else if (pro == "B3") var proString = "Mestesugar sau Mecanic";
        else if (pro == "B4") var proString = "Luptator, Vanator, Haitas, Organizator de ritualuri";
        else if (pro == "B5") var proString = "Artist, Magician sau Ghicitor";
        else if (pro == "B6") var proString = "Marinar, Pantofar sau Croitor";
        else if (pro == "B7") var proString = "Constructor de case, temple sau Gradinar";
        else if (pro == "D1") var proString = "Dresor, Circar sau Spion";
        else if (pro == "D2") var proString = "Predicator, Editor sau Specialist in limbi antice, Anticar";
        else if (pro == "D3") var proString = "Fermier, Agricultor, Croitor sau Potcovar";
        else if (pro == "D4") var proString = "Dramaturg, Director, Muzician sau Poet";
        else if (pro == "D5") var proString = "Judecator, Camatar sau Bancher";
        else if (pro == "D6") var proString = "Profesor, Matematician sau Geolog";
        else var proString = "dansator, cantaret sau actor";


	//characteristics



	
        if (p2 == 1) {
                if (place-2*(parseInt(place/2)) > 0) var charString = "Persoana cu o imensa energie, bun in planificare si  supervizare. Chiar daca ai  fost gunoier, cel putin ai fost un sef intre cei ca tine.";
                else var charString = "Tipul revolutionar. Ai inspirat schimbari in toate domeniile in care ai activat - politica, afaceri, religie si  in problemele casnice. S-ar putea sa fi fost un lider"
                }
        else if (p2 == 2) {
                if (place-2*(parseInt(place/2)) > 0) var charString = "Personalitate artistica. Ai transformat intotdeauna  uratul in frumos si griul  in culori stralucitoare limpezi. Ai profitat de toate ocaziile de a te exprima si i-ai facut pe ceilalti sa se simta importanti.";
                else var charString = "Timid, interiorizat, o persoana linistita.  Ai dispus de talente creative care nu au fost fructificate pe  deplin. In aceasta viata o vei face. Cei care te-au cunoscut te-au considerat o persoana ciudata."
                }
        else if (p2 == 3) {
                if (place-2*(parseInt(place/2)) > 0) var charString = "Un inveterat cautator al dreptatii si intelepciunii. Anticipatie care te-a  ajutat sa vezi in viitor si sa ii ajuti pe ceilalti. In viata aceasta va trebui sa cauti tu ajutorul celor pe care i-ai ajutat atunci.";
                else var charString = "Ti-a placut foarte mult sa calatoresti si sa investighezi. S-ar putea sa fi fost detectiv sau spion. Si in viata  aceasta manifesti o mare curiozitate fata de necunoscut."
                }
        else if (p2 == 4) {
                if (place-2*(parseInt(place/2)) > 0) var charString = "Ai fost un ateu, o persoana foarte practica, materialista fara preocupari  spirituale. In viata aceasta, lectia ta este una a credintei. Va trebui sa inveti ca exista forte mai presus de vointa omului. Dedica-ti viata ajutarii  aproapelui.";
                else var charString = "Poate ai fost camatar sau o persoana cu multa influenta"
                }
        else if (p2 == 5) {
                if (place-2*(parseInt(place/2)) > 0) var charString = "Fire boema, personalitate misterioasa, capabil de a intelege natura lucrurilor,  este posibil sa fi fost astrolog sau un initiat. Ai fost insa atras de partea intunecata a lucrurilor. Este posibil ca in aceasta viata sa fii nevoit  sa inveti lectia iubirii.";
                else var charString = "Ai dispus de un talent oratoric natural, un bun psiholog si negociator. Ai profitat din plin de oportunitatile  vietii, dar nu ti-a pasat prea mult de altii. Posibil ai abandonat familia. Acum ai o karma de familie."
                }
        else if (p2 == 6) {
                if (place-2*(parseInt(place/2)) > 0) var charString = "O persoana foarte curioasa din fire. Ti-a placut sa mergi pana in esenta  lucrurilor. Talent pentru drama si reale abilitati actoricesti. Ai avut prieteni devotati; cativa dintre acestia fiindu-ti si acum alaturi, poate chiar  printre membrii familiei."
                else var charString = "Te-a atras in permanenta noutatea, muzica, bucataria. Acum iti place foarte mult sa gatesti si sa calatoresti.  Ai adesea sentimentul de Deja Vu"
                }
        else if (p2 == 7) {
                if (place-2*(parseInt(place/2)) > 0) var charString = "Ai avut mintea unui om de stiinta,  sceptic si in permanenta in cautare de noi  explicatii. Cei apropiati nu te-au inteles si nu te-au incurajat. Se poate sa te fi ratat din cauza situatiei economice precare. In aceasta viata  trebuie sa duci la bun sfarsit  o misiune inceputa de atunci. Cauta sa afli care este.";
                else var charString = "O persoana sincera, poate fara prea multa diplomatie; fapt care ti-a adus foarte multi dusmani. Ai fost  respectat, dar nu si iubit. Se prea poate sa fi fost victima unor tradari. Acum acei oameni sunt cei care apeleaza la tine."
                };

        // Lectia vietii trecute
        if (p2 == 1){
            if (day < 12) var lesString = "Trebuie sa ii ajuti pe ceilalti sa avanseze. Mediul si problemele poluarii nu ar trebui sa te lase rece.  Invata sa ierti si sa intelegi ca acesta este primul pas catre armonie.";
                else if (day < 22) var lesString = "Trebuie sa inveti onestitatea si sa crezi ca exista puteri mai presus de legile scrise ale   oamenilor. Familia trebuie sa fie interesul tau prioritar.";
        else  var lesString = "Trebuie sa inveti sa comunici liber si sa asculti. Inima ta si mintea trebuie sa fie in permanenta deschise. Ajuta-i pe  ceilalti si vei fi ajutat."
                }
        else if (p2 == 2) {
                 if (day < 12) var lesString = "Va trebui sa crezi in inspiratie si in intuitie. Cultiva mai mult optimismul si dragostea. Lectia ta  este  aceea de a afla ce anume trebuie sa faci ca sa devii o persoana implinita.";
                 else if (day < 22) var lesString = "Misiunea ta este aceea de a te implica in toate problemele lumii, de a incerca sa o faci mai  frumoasa. Zambeste cu convingerea ca dragostea este singura in stare sa repare ceea ce rautatea distruge!";
         else var lesString = "Trebuie sa iti dezvolti sentimentul de fraternitate. Incearca sa nu mai depinzi atat de mult de  bunurile materiale,  incearca sa te ridici deasupra pasiunilor. Canalizeaza-ti dragostea catre cei mici."
                }
        else if (p2 == 3) {
            if (day < 12) var lesString = "Lectia ta este aceea de a-i proteja pe cei neajutorati, ca de pilda copii cu probleme sau animale. Vei  invata ca oferind dragoste este mai mult decat un dar divin.";
                else if (day < 22) var lesString = "Trebuie sa inveti sa duci la bun sfarsit proiectele incepute. Dezvolta-ti cunostiintele si  expansiunea mentala. Gaseste un model bun sau un profesor care te-ar putea ajuta.";
        else var lesString = "Cauta ajutorul unei persoane  pe care ai cunoscut-o in viata anterioara. Aceasta poate fi un prieten sau chiar partenerul  de viata. Alaturi de aceasta vei afla care este misiunea ta."
                }
        else if (p2 == 4) {
                if (day < 12) var lesString = "Ar trebui sa  afli care sunt talentele tale si sa incerci sa le dezvolti. Invata sa canalizezi energia  catre un scop. Evita imprastierea si consumul energetic exagerat.";
                else if (day < 22) var lesString = "N-ar fi rau daca te-ai implica in activitati sociale. Invata sa  oferi ca sa poti primi. Adevarata  bogatie a unui om este sufletul sau.";
        else var lesString = "Ai o lectie importanta de invatat. Trebuie sa renunti la posesivitate si gelozie, sa dovedesti ca stapanesti pasiunile.   Vei descoperi ca increderea in celalalt este singurul drum care duce catre impacarea cu sinele."
                }
        else if (p2 == 5) {
            if (day < 12) var lesString = "Misiunea ta este sa inveti, sa termini acum ceea ce ai inceput in viata anterioara. Dezvolta-ti calitatile  si invata sa iesi in fata, sa te faci remarcat. Este timpul!";
                else if (day < 22) var lesString = "Trebuie sa inveti sa fii mai serios, sa fii mai perseverent.  De data aceasta nu trebuie sa mai  permiti sa esuezi la jumatatea drumului. Vei invata lectia rabdarii.";
                else var lesString = "Trebuie sa  oferi ajutorul tau tuturor celor care au nevoie. Prieteni, cunoscuti, membrii ai familiei; toti  acestia trebuie sa beneficieze de suportul si incurajarile tale."
                }
        else if (p2 == 6) {
                if (day < 12) var lesString = "Lumea este plina de oameni, nefericiti, bolnavi si singuri; ar trebui sa incerci sa faci si tu ceva  pentru ei. Gandeste-te ca si ei au dreptul la fericire.";
                else if (day < 22) var lesString = "Trebuie sa inveti lectia credintei, sa descoperi care este rolul acelei conexiuni invizibile care-l  leaga pe om de divinitate.";
        else var lesString = "Lectia ta este aceea de a invata discretia si moderatia si apoi, sa-i inveti si pe ceilalti acelasi lucru. Viata ta va fi  mai fericita daca vei renunta la toate gandurile negative."
                }
        else if (p2 == 7) {
            if (day < 12) var lesString = "Ai o karma de studiu. Trebuie sa inveti, sa te educi pentru a putea evolua atat spiritual cat si social.  Invata sa profiti de oportunitati.";
                else if (day < 22) var lesString = "Trebuie sa inveti sa combati violenta in toate formele sale si sa-i determini pe ceilalti sa faca  la fel. Ai sa descoperi ca dragostea si toleranta sunt singurele remedii universale, dar si ca regulile sunt necesare.";
        else var lesString = "Magia este pretutindeni, de la lucrul cel mai neinsemnat pana in cel mai important. Misiunea ta este aceea de a intelege  si de a cerceta forta care anima toate lucrurile, vizibile si invizibile. Esti un magician. Foloseste-te de calitatile tale pentru a face bine si  pentru a evolua!"
                };

msgWindow.document.write("<p>Te-ai nascut si ai trait undeva prin <b>" + countryString.fontcolor("brown"));

	msgWindow.document.write("</b> in jurul anului " + ys1.fontcolor("black") + ".</p>");

	msgWindow.document.write("Ocupatia ta a fost aceea de <b>" + proString.fontcolor("brown") + ".</b><p><HR><p>");

	msgWindow.document.write("<p><b>Ce fel de om ai fost in viata anterioara</b>:</p>" + charString.fontcolor("black") );

	msgWindow.document.write("<p><b>Ce trebuie sa faci in aceasta viata</b>:</p>" + lesString.fontcolor("black") + "</FONT> ");

msgWindow.document.write("<p align=\"center\" style=\"color:#FFFFFF \">&copy; 2010 viata-anterioara.visele.ro</p></div></div>");


//
      
}

