// 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("Não deixe em branco !!");


        return false;    }





    for (var i = 0; i < str.length; i++) {


        var ch = str.substring(i, i + 1);


        if (ch < "0" || ch > "9") {


            alert("Apenas numeros!");


            return false;


        }


    }





    var val = parseInt(str, 10);


    if ((val < min) || (val > max)) {


        alert("Escreva um número de 1 a "+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>");
	  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("Eu não sei o que você vai sentir, mas você foi ");








        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> homem </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>mulher</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(" em sua última encarnação." + "<BR>");





        





        //msgWindow.document.write("month=" + cur_month + " place=" + place + " ys=" + ys + " pro=" + pro + "<BR>");











        





        //countries data





        var countryString="";





        if (place == 1) countryString="Alasca"; 





        else if (place == 2) countryString="Yukon"; 





        else if (place == 3) countryString="Norte do Canada"; 





        else if (place == 4) countryString="Ontário"; 





        else if (place == 5) countryString="Quebek";





        else if (place == 6) countryString="Labrador"; 





        else if (place == 7) countryString="Newfoundland"; 





        else if (place == 8) countryString="Greenland"; 





        else if (place == 9) countryString="USA North-West"; 





        else if (place == 10) countryString="USA South-West";





        else if (place == 11) countryString="USA North-Center"; 





        else if (place == 12) countryString="USA South-Center"; 





        else if (place == 13) countryString="USA North-East"; 





        else if (place == 14) countryString="USA South-East"; 





        else if (place == 15) countryString="Ártico"; 





        else if (place == 16) countryString="Escócia"; 





        else if (place == 17) countryString="Nordeste da Inglaterra"; 





        else if (place == 18) countryString="Central da Inglaterra"; 





        else if (place == 19) countryString="Sul da Inglaterra";





        else if (place == 20) countryString="Gales"; 





        else if (place == 21) countryString="Irlanda"; 





        else if (place == 22) countryString="Norte da Europa"; 





        else if (place == 23) countryString="França"; 





        else if (place == 24) countryString="Espanha"; 





        else if (place == 25) countryString="Portugal"; 





        else if (place == 26) countryString="Austria"; 





        else if (place == 27) countryString="Alemanha"; 





        else if (place == 28) countryString="Ucrânia"; 





        else if (place == 29) countryString="Italia"; 





        else if (place == 30) countryString="Turquia"; 





        else if (place == 31) countryString="Oeste da Russia"; 





        else if (place == 32) countryString="Sibéria"; 





        else if (place == 33) countryString="Central Russia"; 





        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="Hungria"; 





        else if (place == 39) countryString="Ioguslávia"; 





        else if (place == 40) countryString="Romenia"; 





        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="Sul da China"; 





        else if (place == 47) countryString="Mongolia"; 





        else if (place == 48) countryString="Norte da China"; 





        else if (place == 49) countryString="Korea"; 





        else if (place == 50) countryString="Norte do Japão"; 





        else if (place == 51) countryString="Sul do Japão"; 





        else if (place == 52) countryString="Sumatra"; 





        else if (place == 53) countryString="Borneu"; 





        else if (place == 54) countryString="Filippinas"; 





        else if (place == 55) countryString="Nova Guiné"; 





        else if (place == 56) countryString="Norte Australia"; 





        else if (place == 57) countryString="Oeste Australia"; 





        else if (place == 58) countryString="Leste Australia";





        else if (place == 59) countryString="Sul da Australia"; 





        else if (place == 60) countryString="Norte da Nova Zelândia"; 





        else if (place == 61) countryString="Sul da Nova Zelândia"; 





        else if (place == 62) countryString="Oceania";





        else if (place == 63) countryString="North India"; 





        else if (place == 64) countryString="Central India"; 





        else if (place == 65) countryString="South India"; 





        else if (place == 66) countryString="Egito"; 





        else if (place == 67) countryString="North Africa"; 





        else if (place == 68) countryString="West Africa"; 





        else if (place == 69) countryString="Central Afrika"; 





        else if (place == 70) countryString="South Afrika"; 





        else if (place == 71) countryString="Mexico"; 





        else if (place == 72) countryString="Chipre";





        else if (place == 73) countryString="Norte da América Latina"; 





        else countryString="Sul da América Latina";











        //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 = "digger, undertaker";





        else if (pro == "A2") var proString = "filósofo, pensador";





        else if (pro == "A3") var proString = "designer, engenheiro, homem de criação";





        else if (pro == "A4") var proString = "químico, alquimista, preparador de poções";





        else if (pro == "A5") var proString = "lobo do mar , cozinheiro, carpinteiro";





        else if (pro == "A6") var proString = "joalheiro , relojoeiro";





        else if (pro == "A7") var proString = "médico, cirurgião, naturalista";





        else if (pro == "C1") var proString = "domador, cavaleiro, forester";





        else if (pro == "C2") var proString = "líder, major, capitão";





        else if (pro == "C3") var proString = "livreiro, padre, chefe religioso de tribo ";





        else if (pro == "C4") var proString = "bobo da corte, musico, poeta, dançarina de templo";





        else if (pro == "C5") var proString = "lobo do mar, líder, jogador";





        else if (pro == "C6") var proString = "protetor, pistoleiro";


        else if (pro == "C7") var proString = "escritor, organizador de rituais";


        else if (pro == "B1") var proString = "construtor de estradas, pontes, navios";





        else if (pro == "B2") var proString = "cartógrafo, astrólogo, astronomo";





        else if (pro == "B3") var proString = "reparador, mecânico";





        else if (pro == "B4") var proString = "guerreiro, caçador, executor de sacrifícios";





        else if (pro == "B5") var proString = "artista, magico, rico";





        else if (pro == "B6") var proString = "marinheiro, sapateiro";





        else if (pro == "B7") var proString = "construtor de casas, templos, catedrais";





        else if (pro == "D1") var proString = "treinador, domesticador de animais,";





        else if (pro == "D2") var proString = "padre, escritor de informações antigas";





        else if (pro == "D3") var proString = "fazendeiro, pessoa do campo";





        else if (pro == "D4") var proString = "ator, diretor, musico,";





        else if (pro == "D5") var proString = "banqueiro, pão-duro, mão de vaca, juíz";





        else if (pro == "D6") var proString = "professor, matematico, geólogo";





        else var proString = "dançarina, cantora, ator(a)";





         





        //characteristics



	
if (p2 == 1) {if (place-2*(parseInt(place/2)) > 0) var charString = "Personalidade com muita energia, bom para planejar e supervisionar. Líder nato.";else var charString = "Tipo revolucionário. Você se dará bem nestas esferas - política, negócios, religião, área doméstica. Pode ser um líder."
}; if (p2 == 2) {if (place-2*(parseInt(place/2)) > 0) var charString = "Personalidade artística, sempre transformando o feio em belo, o cinza em colorido. Você sempre terá uma capacidade de transformar as situações adversas em momentos mágicos.";else var charString = "Timido, reservado, personalidade calma. Seu talento está esperando uma oportunidade p/explodir. Algumas pessoas o consideram estranho."
}; if (p2 == 3) {if (place-2*(parseInt(place/2)) > 0) var charString = "Procura a verdade e a transparência. YVocê planeja a sua vida futura, é um idealista e procura um caminho iluminado.";else var charString = "Se pudesse sua vida seria uma eterna viagem, adora investigar e 007 que se cuide."
}; if (p2 == 4) {if (place-2*(parseInt(place/2)) > 0) var charString = "Voce é uma pessoa extremamente prática, materialista sem consciência espiritual que adora ajudar os pobres e oprimidos.";else var charString = "Cigano(a), nômade, gostaria de viver viajando."
}; if (p2 == 5) {if (place-2*(parseInt(place/2)) > 0) var charString = "Personalidade boêmia, misteriosa, habilidades de mágico, pode ser um servo das forças ocultas.";else var charString = "Talento natural para psicologia, voce sabe identificar oportunidades. Consegue manter calma e sangue frio e qualquer situação."
}; if (p2 == 6) {if (place-2*(parseInt(place/2)) > 0) var charString = "Inquisitivo, inventivo, nào se contenta com superficialidades, devorador de livros. Talento para drama, nasceu ator."
else var charString = "As pessoas sempre o procurarão para as novidades. Você sempre encontrará prazer nas artes, na música e na cozinha."
}; if (p2 == 7) {if (place-2*(parseInt(place/2)) > 0) var charString = "Você é o próprio cientista buscando soluções, nem sempre é compreendido pelas pessoas, mas elas o respeitam.";else var charString = "Caráter rude, extremamente sincero, o que acaba gerando algumas dores nas pessoas."
};
if (p2 == 1){      if (day < 12) var lesString = "Voce nasceu para resolver problemas ecológicos como poluição, reciclagem, eliminação de radioatividade, etc.";else if (day < 22) var lesString = "Sua lição -- aprender a ter mais fé e humildade. Acreditar em uma força superior.";             else  var lesString = "Deve buscar o entendimento da natureza humana, entender as pessoas, levar alegria a todos os ambientes, ajudar os mais carentes."};
if (p2 == 2) {     if (day < 12) var lesString = "Sua percepção do mundo é um pouco diferente dos outros. Tenha certeza de que seu melhor guia é a sua intuição.";else if (day < 22) var lesString = "Sua grande tarefa -- tornar o mundo mais bonito. Desertos físicos e espirituais estão apenas esperando pelo seu toque.Mantenha-se sorrindo!";              else var lesString = "Sua grande lição para esta vida -- desenvolver a caridade e magnâmidade. Tente se desligar (desapêgo) dos bens materiais, concentre-se no auxílio ao próximo."};
if (p2 == 3) {     if (day < 12) var lesString = "Sua lição -- Desenvolver o sentimento de compreenção para com as pessoas, entender e auxiliar as pessoas é a sua meta.";else if (day < 22) var lesString = "Sua lição---Desenvolver sua consciência espiritual, voltar-se para o criador, buscar a humildade em todos os momentos.";              else var lesString = "Esta sua nova vida deve-se ao fato de você reparar erros com as crianças e os mais velhos. Busque auxiliar em creches, orfanatos e asilos."};
if (p2 == 4) {     if (day < 12) var lesString = "Você precisa aprender a cultivar o amor, a alegria, a felicidade e, principalmente distribuir para todas as pessoas que compõem o seu mundo.";else if (day < 22) var lesString = "A ambição desmedida o trouxe de volta para aprender a desenvolver o amor e distribuí-lo para todos.";              else var lesString = "Sua lição -- você precisa desenvolver o amor-próprio para deixar de ser possessivo(a), cíumento(a), perder esse medo de perder as pessoas queridas."};
if (p2 == 5) {     if (day < 12) var lesString = "Seu problema -- aprender a amar de verdade o Universo, a natureza. Estude, reflita e colabore com todo o tipo de projeto ecológico.";else if (day < 22) var lesString = "Seu problema -- aprender a ter determinação e persistência. Parar com a mania de desistir de um projeto nas primeiras dificuldades.";              else var lesString = "Vencer a timidez, a solidão e o desejo de ser a eterna vítima, essa sua grande missão. Lute, e preocupe-se mais com os outros."};
if (p2 == 6) {     if (day < 12) var lesString = "O mundo está cheio de pessoas enfêrmas e solitárias. Sua missão ajudar essas pessoas com a alegria.";else if (day < 22) var lesString = "Acredite: existe uma conexão entre o mundo material e o espiritual. Aprender esta lição é a sua primeira missão nesta v ida. Auxiliar neste intercâmbio é sua prioridade.";              else var lesString = "Sua lição -- aprender a viver com discrição e ensinar aos outros a viver bem com suas deficiências, aceitar suas virtudes e seus defeitos."};
if (p2 == 7) {     if (day < 12) var lesString = "Sua missão --Sua fé é estranha, e vai ter um trabalho muito duro para aprender e entender a verdadeiea razão da fé.";else if (day < 22) var lesString = "Sua lição -- combater a violência e adesarmonia entre as pessoas no mundo atual. Todos os problemas globais tem a mesma origem, entendê-los e auxiliar é a sua verdadeira missão.";              else var lesString = "Mágica é uma coisa comum na sua vida. Ensinar e ajudar as pessoas a ter fé é a sua grande missão!"};
msgWindow.document.write("<p>Você nasceu em um território que hoje é  " + countryString.fontcolor("yellow"));

	msgWindow.document.write(" aproximadamente em " + ys1.fontcolor("yellow") + ".<p>");

	msgWindow.document.write("sua profissão era " + proString.fontcolor("yellow") + ".<p><HR><p>");

	msgWindow.document.write("<p>Uma breve análise psicológica de sua vida passada:<p>" + charString.fontcolor("yellow") + "<p><HR><p>");

	msgWindow.document.write("<p>Lição, o que você deve procurar nesta vida:<p>" + lesString.fontcolor("yellow") + "<p><HR><DIV align=center><p><h2><a href=http://www.kwebbel.net/morte/>Quando irei Morrer?</a></h2><p><hr width=45% align=center><p><h2><a href=http://www.kwebbel.net/localizar_celular>Orientançao e localizaçao do meu celular</a></h2><p><hr width=45% align=center><a href=http://www.kwebbel.net/translate/index1.html>HELP ! Who can translate an new site into your language ???</a><p></FONT> ");

msgWindow.document.write("<P><iframe scrolling=no frameborder=no src=pubreincarnatiepo.html style=width:728px; height: 150px; border:0; overflow:hidden;></iframe></DIV><P>");


msgWindow.document.write("<P><DIV align=right><FONT COLOR=#ff0000 SIZE=+1>Voce tambem pode consultar os seguintes aplicativos</FONT> <A HREF=http://www.kwebbel.net/other.html><IMG SRC=pijl.gif border=0></A><P></DIV>");


//
      
}

 
