// 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("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 (sesso=-1){ ses="a"; } 
else { ses="o"; }

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}; 

if(sex==1){ rtv="o"; } else { rtv="a"; }

msgWindow=window.open("","diagnosi","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>DIAGNOSI:</I></B></FONT><HR>"); 
msgWindow.document.write("<FONT Color=white Face=Arial>");  
msgWindow.document.write("Io non so come ti senti, ma tu 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=yellow>un maschio</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>una femmina</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(" nella tua passata incarnazione." + "<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="Nord del Canada";  

else if (place == 4) countryString="Ontario";  

else if (place == 5) countryString="Québec"; 

else if (place == 6) countryString="Labrador";  

else if (place == 7) countryString="Terranova";  

else if (place == 8) countryString="Groenlandia";  

else if (place == 9) countryString="USA a Nord-Ovest";  

else if (place == 10) countryString="USA a Sud-Ovest"; 

else if (place == 11) countryString="USA nel Centro-Nord";  

else if (place == 12) countryString="USA nel Centro-Sud";  

else if (place == 13) countryString="USA a Nord-Est";  

else if (place == 14) countryString="USA a Sud-Est";  

else if (place == 15) countryString="Regione Artica";  

else if (place == 16) countryString="Scozia";  

else if (place == 17) countryString="Inghilterra del Nord";  

else if (place == 18) countryString="Inghilterra centrale";  

else if (place == 19) countryString="Inghilterra el Sud"; 

else if (place == 20) countryString="Galles";  

else if (place == 21) countryString="Irlanda";  

else if (place == 22) countryString="Nord Europa";  

else if (place == 23) countryString="Francia";  

else if (place == 24) countryString="Spagna";  

else if (place == 25) countryString="Portallo";  

else if (place == 26) countryString="Austria";  

else if (place == 27) countryString="Germania";  

else if (place == 28) countryString="Ucraina";  

else if (place == 29) countryString="Italia";  

else if (place == 30) countryString="Turchia";  

else if (place == 31) countryString="Russia dell' Ovest";  

else if (place == 32) countryString="Siberia";  

else if (place == 33) countryString="Russia centrale";  

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="Ungheria";  

else if (place == 39) countryString="Jugoslavia (ex)";  

else if (place == 40) countryString="Romania";  

else if (place == 41) countryString="Bulgaria";  

else if (place == 42) countryString="Israele";  

else if (place == 43) countryString="Tibet";  

else if (place == 44) countryString="Burma";  

else if (place == 45) countryString="Tailandia";  

else if (place == 46) countryString="Cina del Sud";  

else if (place == 47) countryString="Mongolia";  

else if (place == 48) countryString="Cina del Nord";  

else if (place == 49) countryString="Corea";  

else if (place == 50) countryString="Giappone del Nord";  

else if (place == 51) countryString="Giappone del Sud";  

else if (place == 52) countryString="Sumatra";  

else if (place == 53) countryString="Borneo";  

else if (place == 54) countryString="Filippine";  

else if (place == 55) countryString="Nuova Guinea";  

else if (place == 56) countryString="Australia del Nord";  

else if (place == 57) countryString="Australia dell'Ovest";  

else if (place == 58) countryString="Australia dell'Est"; 

else if (place == 59) countryString="Australia del Sud";  

else if (place == 60) countryString="Nuova Zelanda el Nord";  

else if (place == 61) countryString="Nuova Zelanda del Sud";  

else if (place == 62) countryString="Oceania"; 

else if (place == 63) countryString="India del Nord";  

else if (place == 64) countryString="India centrale";  

else if (place == 65) countryString="India del Sud";  

else if (place == 66) countryString="Egitto";  

else if (place == 67) countryString="Nord Africa";  

else if (place == 68) countryString="Africa dell'Ovest";  

else if (place == 69) countryString="Africa centrale";  

else if (place == 70) countryString="Africa del Sud";  

else if (place == 71) countryString="Messico";  

else if (place == 72) countryString="Cipro"; 

else if (place == 73) countryString="America Latina del Nord";  

else countryString="America Latina del Sud"; 



//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 = "escavatore, impresario 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, fabbricante di veleni"; 

else if (pro == "A5") var proString = "marinaio, cuoco, falegname"; 

else if (pro == "A6") var proString = "gioielliere, orologiaio"; 

else if (pro == "A7") var proString = "medico, infermiere, erborista"; 

else if (pro == "C1") var proString = "pastore, cavallerizzo, guardaboschi"; 

else if (pro == "C2") var proString = "capo, militare di grado"; 

else if (pro == "C3") var proString = "bibliotecario, prete, custode di reliquie tribali"; 

else if (pro == "C4") var proString = "intrattenitore, musicista, poeta, ballerino di danze sacre"; 

else if (pro == "C5") var proString = "marinaio, rivenditore, uomo d'affari, mediatore"; 

else if (pro == "C6") var proString = "monaco, custode, bandito"; 

else if (pro == "C7") var proString = "scrittore, drammaturgo, organizzatore di rituali"; 

else if (pro == "B1") var proString = "costruttore di strade, ponti, bacini"; 

else if (pro == "B2") var proString = "creatore di mappe, astrologo, astronomo"; 

else if (pro == "B3") var proString = "meccanico e costruttore di meccanismi"; 

else if (pro == "B4") var proString = "guerriero, cacciatore, pescatore, esecutore di sacrifici"; 

else if (pro == "B5") var proString = "artista, mago, particolarmente fortunato"; 

else if (pro == "B6") var proString = "marinaio, costruttore di scarpe"; 

else if (pro == "B7") var proString = "costruttore di case, templi, cattedrali"; 

else if (pro == "D1") var proString = "istruttore, possessore di animali eccellenti, uccelli, insetti.."; 

else if (pro == "D2") var proString = "predicatore, editore, scriba di iscrizioni antiche"; 

else if (pro == "D3") var proString = "coltivatore, tessitore, sarto"; 

else if (pro == "D4") var proString = "drammaturgo, regista, musicista, costruttare di bardature per il cavallo"; 

else if (pro == "D5") var proString = "banchiere, usuraio, usuraio, giudice"; 

else if (pro == "D6") var proString = "insegnante, matematico, geologo"; 

else var proString = "ballerino, cantante, attore"; 

  

//characteristics 



if (p2 == 1) { 

if (place-2*(parseInt(place/2)) > 0) {
 var charString = "Persona con una enorme energia, bravo nella pianificazione e nel supervisionare. Se era un"
 if(sex==1) { var charString = charString + " uomo giusto, era un uomo importante nella sua società."; }
 else { var charString = charString + "a donna giusta, era una donna importante nella sua società."; } }
else { var charString = "Eri un" + rtv + " tip" + rtv +" rivoluzionari" + rtv +". Hai inspirato cambi nella sfera: politica, degli affari, della religione, dell'economia domestica. Potresti essere stat" + rtv + " un leader."; }

}; 

if (p2 == 2) { 

if (place-2*(parseInt(place/2)) > 0) var charString = "Personalità artistica, sempre pronta a trasformare il brutto in bello e in 'colori brillanti'. Sei stat" + rtv + " capace di trovare un'opportunità creativa in ogni situazione."; 

else var charString = "Persona timida, costretta, quieta. Aveva talenti creativi, ha aspettato fino a quella vita per liberarsi. Qualche volta le persone l'hanno considerat"+ rtv + " un po' stran" + rtv + "."

}; 



if (p2 == 3) { 

if (place-2*(parseInt(place/2)) > 0) var charString = "Una persona alla ricerca della verità e della saggezza. Era riuscit" + rtv + " a vedere il tuo futuro. Gli altri ti hanno percepito come un" + rtv + " idealista illuminante e conoscitore del futuro."; 

else var charString = "Ti è sempre piaciuto viaggiare, investigare, potevi essere un detective o una spia." 

}; 



if (p2 == 4) { 

if (place-2*(parseInt(place/2)) > 0) var charString = "Eri una persona che praticava una vita sana, materialista e senza consapevolezza spirituale. La tua saggezza era semplice e povera."; 

else var charString = "Ti piaceva viaggiare e investigare; potevi essere un detective o una spia." 

}; 



if (p2 == 5) { 

if (place-2*(parseInt(place/2)) > 0) { 
var charString = "Personalità bohémien, misterios" + rtv +", molto dotat" + rtv +" d'ingegno, capace di capire libri antichi. Aveva le abilità del ";
if(sex==1){ charString=charString+"mago e poteci essere un servitore di forze oscure."; }
else { charString=charString+"strega e potevi essere una servitorice di forze oscure."; } }

else { var charString = "Avevi un talento naturale di psicolog" + rtv + ", hai conosciuto l'arte di come usare le opportunità. Fredd" + rtv +", sanguinari" + rtv +" e calm" + rtv +" in ogni situazione."; }

}; 



if (p2 == 6) { 

if (place-2*(parseInt(place/2)) > 0) { var charString = "Avevi un carattere da inquisitore o da inventore; ti piaceva andare molto a fondo nelle cose e frugare nei libri. Talento per il dramma, eri un";
if(sex==1){ charString=charString+" attore nato, spontaneo."; }
else { charString=charString+"'attrice nata e spontanea."; } }
else { var charString = "Eri una persona che si lascia coinvolgere da ogni cosa nuova. Amavi cambiare ogni cosa, specialmente se riguardante l'arte, la musica e le ricette e prodotti di cucina."; }

}; 



if (p2 == 7) { 

if (place-2*(parseInt(place/2)) > 0) var charString = "Avevi una mente da scienziato, cercavi sempre dei nuovi chiarimenti. L'ambiente spesso non ti ha compreso, ma ha, almeno, rispettato la tua conoscenza."; 

else var charString = "Avevi un carattere spietato, pensavi, nelle situazioni critiche, attentamente alle tue decisioni, con un eccellente auto-controllo. Generalmente eri piaciut" + rtv +" alla gente, ma non sempre eri amat" + rtv + "." 

}; 



// past life lesson 



if (p2 == 1){ 

       if (day < 12) var lesString = "Limitare e risolvere problemi di inquinamento ambientale, anche con il riciclaggio, adoperarsi per la consapevolezza dell'uso cattivo di materie prime e l'eliminazione della radioattività e delle influenze incluse quelle psicologiche."; 

else if (day < 22) var lesString = "La tua lezione -- imparare l'umiltà e la fede nei principi spirituali. Studiare e ricercare un'alta etica sociale."; 

             else  var lesString = "Devi darti dei limiti e imparare a comprendere la gente, incontrarla nelle difficoltà della vita con cuore gioioso. Dovresti aiutare gli altri portando loro uno spirito di gioia."}; 

if (p2 == 2) { 

     if (day < 12) var lesString = "Comprendere la diversità delle tue percezioni del mondo. La tua lezione -- avere una maggiore fiducia nella tua intuizione, cullandola come la migliore guida nella tua attuale vita."; 

else if (day < 22) var lesString = "Il tuo compito principale -- fare il mondo più bello! Deserti fisici e spirituali sono in attesa di un tuo giusto tocco. Cerca di sorridere!"; 

              else var lesString = "La tua attuale lezione principale -- sviluppare magnanimità e sentimento di fratellanza. Cerca di diventare più amabile senza che sia la vita ad offrirti la lezione, non sempre piacevole."}; 

if (p2 == 3) { 

     if (day < 12) var lesString = "La tua lezione -- sviluppare un atteggiamento gentile verso la gente, acquisire il dono della comprensione e della compassione."; 

else if (day < 22) var lesString = "La tua lezione -- sviluppare ed espandere la tua consapevolezza mentale. Trovare un buon insegnante, spendere una parte del tuo tempo e della tua energia intorno alla sua saggezza."; 

              else var lesString = "Adempiere la tua lezione per aiutare i vecchi e i figli (i più giovani). Sei venuto in questa vita per imparare a curare chi debole e senz'aiuto."}; 

if (p2 == 4) { 

     if (day < 12) var lesString = "Dovresti sviluppare il tuo talento per l'amore, la felicità e l'entusiasmo e distribuire questi sentimenti a tutte le persone!"; 

else if (day < 22) var lesString = "Dovresti sviluppare te stesso: distribuire amore ed coltivare l'abilità a piantare la speranza nei cuori della gente. L'ambizione non è tutto, la vera ricchezza è seppellita nella tua anima."; 

              else var lesString = "La tua lezione -- conquistare la tua gelosia e rabbia e quelli che la esprimono, la vita ti condurrà da loro come guida. Dovresti comprendere ciò che è causato dalla paura e dal dispiacere di se stessi."}; 

if (p2 == 5) { 

     if (day < 12) var lesString = "Il tuo problema -- imparare ad amare e avere fiducia nell'Universo. Limita il pensiero, studia, rifletti e sviluppa la saggezza intima."; 

else if (day < 22) var lesString = "Il tuo problema -- imparare ad essere  determinato e preciso. Ogni 'sfortuna' deve crollare su tua forte decisione."; 

              else var lesString = "Le persone timide, solitarie e spesso sfiduciate di se stesse sono dappertutto! Questo è il tuo problema e ti è richiesto di cambiare questa tendenza e poi aiutare gli altri in difficoltà."}; 

if (p2 == 6) { 

     if (day < 12) var lesString = "Il mondo è pieno di gente malata e solitaria. Dovresti aiutare quanti stanno male e che sono meno fortunati di te."; 

else if (day < 22) var lesString = "Ci sono dei collegamenti invisibili tra il mondo materiale e quello spirituale. La tua lezione --  è cercare, trovare e usare questo ponte."; 

              else var lesString = "La tua lezione -- imparare la discrezione e il senso della ragione, allora potrai insegnare ciò agli altri. La tua vita sarà più felice quando aiuterai le persone a ragionare con la propria mente."}; 

if (p2 == 7) { 

     if (day < 12) var lesString = "La tua lezione-- studiare, praticare e usare la saggezza racchiusa nelle scienze psicologiche e negli antichi manosritti. Con grande fede e molta fatica raggiungerai in tuo vero destino in questa vita."; 

else if (day < 22) var lesString = "La tua lezione -- combattere la violenza e la disarmonia nel tuo mondo, capire le sue radici ed origini. Tutti i problemi, normalmente, hanno una origine simile."; 

              else var lesString = "La magia è dappertutto ed anche intorno a te, nelle cose più semplici del quotidiano. La tua lezione -- imparare la magia della vita ed aiutare le persone a riscoprire il senso della vita chiaramente. Sei un mago!"}; 


//message composition 

msgWindow.document.write("Sei nat" + rtv + " nelle vicinanze dell'attuale " + countryString.fontcolor("yellow")); 

msgWindow.document.write(" all'incirca nel " + ys1.fontcolor("yellow") + ".<p>"); 

msgWindow.document.write("La tua professione era " + proString.fontcolor("yellow") + ".<p><HR><P>"); 

msgWindow.document.write("Il tuo profilo psicologico nella passata vita era:<p>" + charString.fontcolor("yellow") + "<P><HR><P>"); 

msgWindow.document.write("La lezione che devi imparare dalla passata vita in quella presente:<P>" + lesString.fontcolor("yellow") + "<p><HR><DIV align=center><p><b><a href=http://www.kwebbel.net/voyance/index-it.html>Sei paranormale o chiaroveggente o hai una buona intuizione? Testalo qui...</a></b><p><b><a href=http://www.kwebbel.net/morire>Quando morirò, quanto vivrò? Calcola la tua aspettativa di vita</a></b><p><b><a href=http://www.kwebbel.net/localizzare-cellulare>Localizzazione via cellulare</a></b><p> <p><b><a href=http://www.kwebbel.net/translate/index7.html>HELP ! </b>Who can translate an new site into your language ???</a><p><P></FONT> ");

msgWindow.document.write("<P><iframe scrolling=no frameborder=no src=pubreincarnatieit.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>More ...  </FONT> <A HREF=http://www.kwebbel.net/it.html><IMG SRC=pijl.gif border=0></A><P></DIV>");


//
      
}

 

