// Programma orignale scritto da Natalie V. Zubar (kopilka@infocom.kharkov.ua)
// Author claims no responsibility for esoteric method of past-life calculations and its results.
// If you decided to use it under your own name - 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("Don't leave it blank!");
    return false;  }
  for (var i = 0; i < str.length; i++) {
    var ch = str.substring(i, i + 1);
    if (ch < "0" || ch > "9") {
      alert("Number, please!");
      return false;
    }
  }
  var val = parseInt(str, 10);
  if ((val < min) || (val > max)) {
    alert("Type in a number from 1 to "+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("","diagnosi");

    msgWindow.document.open(); 

    msgWindow.document.bgColor="white"; 

    msgWindow.document.writeln("<FONT Color=red Face=Arial><B><I>Diagnosi:</I></B></FONT><HR>");  

    msgWindow.document.write("<FONT Color=black Face=Arial>"); 

    msgWindow.document.write("Non so se ti fa piacere o no, ma nella tua ultima reincarnazione sulla terra eri ");


    var yearString = "ZYXWOTZYQVUTSXWVNZYXPQTZRWVUMYXWOTZYQVUTSXWVNZYXPUTZRWVUMYXWOTZYQVUTSXWVNZYXPUTZRWVUMYXWOTZYQVUTSXWV";


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


    var p1; var p2; var place;

    if (sex == 1){
        msgWindow.document.write("<FONT color=green>uomo</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=green>donna</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("." + "<BR>");
  
    //msgWindow.document.write("month=" + cur_month + " place=" + place + " ys=" + ys + " pro=" + pro + "<BR>");
  
    //countries data

    var countryString="";
    if (place == 1) countryString="Francia"; 
    else if (place == 2) countryString="Germania"; 
    else if (place == 3) countryString="Spagna"; 
    else if (place == 4) countryString="Svizzera"; 
    else if (place == 5) countryString="Austria";
    else if (place == 6) countryString="Portogallo"; 
    else if (place == 7) countryString="Belgio"; 
    else if (place == 8) countryString="Olanda"; 
    else if (place == 9) countryString="Sicilia"; 
    else if (place == 10) countryString="Campania";
    else if (place == 11) countryString="Inghilterra"; 
    else if (place == 12) countryString="Svezia"; 
    else if (place == 13) countryString="Danimarca"; 
    else if (place == 14) countryString="Toscana"; 
    else if (place == 15) countryString="Sardegna"; 
    else if (place == 16) countryString="Calabria"; 
    else if (place == 17) countryString="Puglia"; 
    else if (place == 18) countryString="Romagna"; 
    else if (place == 19) countryString="Piemonte";
    else if (place == 20) countryString="Lombardia"; 
    else if (place == 21) countryString="Veneto"; 
    else if (place == 22) countryString="Alto Adige"; 
    else if (place == 23) countryString="Trentino"; 
    else if (place == 24) countryString="Grecia"; 
    else if (place == 25) countryString="Turchia"; 
    else if (place == 26) countryString="Tunisia"; 
    else if (place == 27) countryString="Egitto"; 
    else if (place == 28) countryString="Liguria"; 
    else if (place == 29) countryString="Norvegia"; 
    else if (place == 30) countryString="Russia"; 
    else if (place == 31) countryString="Siberia"; 
    else if (place == 32) countryString="Iran"; 
    else if (place == 33) countryString="Ungheria"; 
    else if (place == 34) countryString="Slovenia"; 
    else if (place == 35) countryString="Polonia"; 
    else if (place == 36) countryString="Arabia Saudita"; 
    else if (place == 37) countryString="Israele"; 
    else if (place == 38) countryString="Croazia"; 
    else if (place == 39) countryString="Lussemburgo"; 
    else if (place == 40) countryString="Irlanda"; 
    else if (place == 41) countryString="Bulgaria"; 
    else if (place == 42) countryString="Algeria"; 
    else if (place == 43) countryString="Tibet"; 
    else if (place == 44) countryString="Marocco"; 
    else if (place == 45) countryString="Tailandia"; 
    else if (place == 46) countryString="China del sud"; 
    else if (place == 47) countryString="Mongolia"; 
    else if (place == 48) countryString="China del nord"; 
    else if (place == 49) countryString="Corea"; 
    else if (place == 50) countryString="Nord del Giappone"; 
    else if (place == 51) countryString="Sud del Giappone"; 
    else if (place == 52) countryString="Siria"; 
    else if (place == 53) countryString="Finlandia"; 
    else if (place == 54) countryString="Umbria"; 
    else if (place == 55) countryString="Lucania"; 
    else if (place == 56) countryString="Lazio"; 
    else if (place == 57) countryString="Abruzzo"; 
    else if (place == 58) countryString="Molise";
    else if (place == 59) countryString="Val d'Aosta"; 
    else if (place == 60) countryString="Emilia"; 
    else if (place == 61) countryString="Marche"; 
    else if (place == 62) countryString="Albania";
    else if (place == 63) countryString="Romania"; 
    else if (place == 64) countryString="India Centrale"; 
    else if (place == 65) countryString="Sud dell'India "; 
    else if (place == 66) countryString="Etiopia"; 
    else if (place == 67) countryString="Malta"; 
    else if (place == 68) countryString="Cecenia"; 
    else if (place == 69) countryString="Moldavia"; 
    else if (place == 70) countryString="Macedonia"; 
    else if (place == 71) countryString="Iraq"; 
    else if (place == 72) countryString="Cipro";
    else if (place == 73) countryString="Messico"; 
    else countryString="Sud dell'Italia";

    //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 = "zappatore, imprenditore di pompe funebri";
    else if (pro == "A2") var proString = "filosofo, pensatore";
    else if (pro == "A3") var proString = "disegnatore, ingegnere, artigiano";
    else if (pro == "A4") var proString = "chimico, alchimista, preparatore di veleni";
    else if (pro == "A5") var proString = "marinaio, cuoco, carpentiere";
    else if (pro == "A6") var proString = "gioielliere, orologiaio";
    else if (pro == "A7") var proString = "medico, chirurgo, erborista";
    else if (pro == "C1") var proString = "pastore, cavallerizzo, boscaiolo";
    else if (pro == "C2") var proString = "capo, maggiore, capitano";
    else if (pro == "C3") var proString = "bibliotecario, prete, custode di reliquie tribali";
    else if (pro == "C4") var proString = "intrattenitore, musicista, poeta, danzatore nel tempio";
    else if (pro == "C5") var proString = "viaggiatore, commerciante, affarista, intermediario";
    else if (pro == "C6") var proString = "monaco, eremita";
    else if (pro == "C7") var proString = "scittore, drammaturgo, organizzatore di rituali";
    else if (pro == "B1") var proString = "costruttore di strade, ponti, porti";



    else if (pro == "B2") var proString = "cartografo, astrologo, astronomo";



    else if (pro == "B3") var proString = "artigiano, meccanico";



    else if (pro == "B4") var proString = "guerriero, cacciatore, pescatore, esecutore di sacrifici";



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



    else if (pro == "B6") var proString = "navigatore, calzolaio";



    else if (pro == "B7") var proString = "costruttore di case, templi, cattedrali";



    else if (pro == "D1") var proString = "istruttore, collezionista di trofei animali, uccelli, insetti";



    else if (pro == "D2") var proString = "predicatoe, editore, traduttore di iscrizioni antiche";



    else if (pro == "D3") var proString = "contadino, tessitore, sarto";



    else if (pro == "D4") var proString = "drammaturgo, direttore, musicista, bardo";



    else if (pro == "D5") var proString = "banchiere, usuraio, prestatore di soldi, giudice";



    else if (pro == "D6") var proString = "professore, matematico, geologo";



    else var proString = "danzatore, cantante, attore";



     



    //characteristics







    if (p2 == 1) {



        if (place-2*(parseInt(place/2)) > 0) var charString = "Persona piena di energia, buon pianificatore e supervisore. Se eri uno spazzino, sicuramente eri il capo degli spazzini.";



        else var charString = "Un tipo rivoluzionario. Ispiravi cambiamento in ogni campo - politico, economico, religioso. Probabilmente eri un leader."



        }



    else if (p2 == 2) {



        if (place-2*(parseInt(place/2)) > 0) var charString = "Personalità artistica, sempre a trasformare brutture in cose belle, il grigio in colori brillanti. Avevi modo di essere creativo in ogni occasione.";



        else var charString = "Timido, imbarazzato, una persona quieta. Avevi talento creativo, ed hai aspettato questa vita per poterlo liberare. Sovente eri considerato un po' strano nel tuo ambiente."



        }







    else if (p2 == 3) {



        if (place-2*(parseInt(place/2)) > 0) var charString = "Cercatore di verità e del discernimento. Probabilmente potevi già presagire la tua nuova vita futura. Alcuni ti vedevano come un idealista che illuminava la via.";



        else var charString = "Ti piaceva sempre viaggiare, investigare, potevi essere un detective o una spia."



        }







    else if (p2 == 4) {



        if (place-2*(parseInt(place/2)) > 0) var charString = "Eri una persona sana e pratica, materialista e senza coscienza spirituale. Il tuo semplice discernimento non ti aiutò un granché.";



        else var charString = "Ti piaceva sempre viaggiare, investigare, potevi essere un detective o una spia."



        }







    else if (p2 == 5) {



        if (place-2*(parseInt(place/2)) > 0) var charString = "Personalità bohemienne, misteriosa, altamente fornito di talento, capace di interpretare testi antichi. Abilità magiche, probabilmente eri shiavo dell'occulto.";



        else var charString = "Naturale talento da psicologo, sapevi come cogliere le opportunità. Di sangue freddo e calmo in ogni situazione."



        }







    else if (p2 == 6) {



        if (place-2*(parseInt(place/2)) > 0) var charString = "Curioso, inventivo, ti piaceva andare in fondo alle cose e scovare nei libri. Avevi talento per l'arte drammatica: attore nato."    



        else var charString = "Sempre coinvolto alla ricerca del nuovo. Hai amato sempre il cambiamento, specialmente nell'arte, musica e cucina."



        }







    else if (p2 == 7) {



        if (place-2*(parseInt(place/2)) > 0) var charString = "Avevi una mente da scienziato, sempre alla ricerca di risposte. Spesso non eri capito, ma eri rispettato per il tuo sapere.";



        else var charString = "Di carattere rude, valutavi attentamente prima di prendere decisioni in situazioni difficili le tue decisioni, con un eccellente autocontrollo ed una forte volontà. Questo tipo di persone vengono generalmente accettate ma non sempre amate."



        }







    // past life lesson







    if (p2 == 1){



           if (day < 12) var lesString = "Ad impegnarti a risolvere problemi di inquinamento ed ambientali, di riciclaggio, di abuso di materie prime e di eliminare la radioattività in ogni senso, quella psicologica inclusa.";



        else if (day < 22) var lesString = "L'insegnamento -- imparare ad essere umile ed aver fede nei principi spirituali. Dovresti credere nell'Aldilà.";



               else var lesString = "Essere proteso a imparare e capire dagli altri e ad affrontare tutte le difficoltà nella vita con cuore gioioso. Dovresti aiutare gli altri educandoli alla gioia."}



    else if (p2 == 2) {



           if (day < 12) var lesString = "Avere una percezione alquanto diversa del mondo. L'insegnamento -- fidati del tuo intuito come migliore guida in questa vita.";



        else if (day < 22) var lesString = "Il tuo compito maggiore -- migliorare questa Terra. I deserti fisici e spirituali stanno aspettando il tuo tocco. Continua a sorridere!";



               else var lesString = "L'insegnamento per il presente -- sviluppa magnaminità e senso di fratellanza. Cerca di essere meno attaccato alle cose ed impara ad avere solo quello che poi puoi restituire."}



    else if (p2 == 3) {



           if (day < 12) var lesString = "L'insegnamento -- fai crescere le attitudini gentili nelle persone per ottenere in regalo comprensione e gratitudine.";



        else if (day < 22) var lesString = "L'insegnamento -- sviluppa ed espandi la tua conoscenza. Trova un buono insegnante e spendi parte del tuo tempo e delle tue energie nella sua saggezza.";



               else var lesString = "Tu adempi all'insegnamento aiutando le persone anziane e bambini. Sei venuto in questa vita per imparare a prenderti cura dei deboli."}



    else if (p2 == 4) {



           if (day < 12) var lesString = "Dovresti applicare il tuo talento in amore, felicità ed entusiasmo e far partecipe gli altri dei tuoi sentomenti.";



        else if (day < 22) var lesString = "Dovresti essere più egoista e aver l'abilità di ispirare fiducia al cuore della gente. L'ambizione -- non è tutto. La vera salute si nasconde nell'anima.";



               else var lesString = "L'insegnamento -- per vincere la gelosia e la collera che è in te, chi ti sceglierà da guida? Dovresti capire che queste debolezze sono causate dalla paura e dai rimpianti."}



    else if (p2 == 5) {



           if (day < 12) var lesString = "Il tuo problema -- imparare ad amare ed aver fiducia nell'Universo. Sei confinato a pensare, studiare, riflettere ed aumentare la tua interna saggezza.";



        else if (day < 22) var lesString = "Il tuo problema -- acquisire determinazione e persistenza. Qualsiasi sfortuna dovrebbe infrangersi contro la tua forte volontà.";



               else var lesString = "Le persone timide, sole e sicure di sé sono dappertutto, e il tuo problema --- superare queste inclinazioni che sono in te e poi aiutare gli altri."}



    else if (p2 == 6) {



           if (day < 12) var lesString = "Il mondo è pieno di persone malatte e sole. Dovresti aiutarle perché sono meno fortunate di te.";



        else if (day < 22) var lesString = "C'è un rapporto invisibile tra il mondo materiale e spirituale. L'insegnamento -- perseguire, scoprire e attraversare questo ponte.";



               else var lesString = "L'insegnamento -- impara la discrezione e la ragionevolezza e poi insegnala agli altri. La tua vita sarà più felice, quando aiuti quelli che difettano di ragionamento. di Your life will be happier, when you help those who lack reasoning."}



    else if (p2 == 7) {



           if (day < 12) var lesString = "L'insegnamento -- studia, pratica ed usa la saggezza che è nelle scienze a bade di psicologia e nei manoscritti antichi. Con grande fede e gran lavoro raggiungerai il tuo reale destino in questa vita.";



        else if (day < 22) var lesString = "L'insegnamento --  combattere la violenza e la disarmonia nel nostro mondo, capire le sue radici ed origini. Tutti i problemi globali hanno origini simili.";



               else var lesString = "La magia ci circonda dappertutto, nei più comuni e ordinari episodi L'insegnamento -- imparare la magia ed aiutare le persone a vederla con chiarezza. Sei un mago!"}   



                



    //message composition







    msgWindow.document.write("Eri nato in una località del territorio del/della  " + countryString.fontcolor("green"));



    msgWindow.document.write(", circa nel " + ys1.fontcolor("green") + ".<BR>");



    msgWindow.document.write("La tua professione era " + proString.fontcolor("green") + ".<HR>");



    msgWindow.document.write("Il tuo breve profilo psicologico della tua vita passata:<BR>" + charString.fontcolor("green") + "<HR>");



    msgWindow.document.write("Quello che ti ha insegnato la tua vita passata per il presente:<BR>" + lesString.fontcolor("green") + "<HR></FONT> ");



    msgWindow.document.write("<FONT FACE=Arial Color=red><B><I>" + "Ti ricordi adesso?" + "</I></B><HR><BR></FONT>");



//

   

}