// Basato sul codice di Natalie V. Zubar (http://infocom.kharkov.ua)
// Fonte: www.magnaromagna.it - Non ci assumiamo responsabilità per l'utilizzo di questo gioco
// Se hai deciso di appropriarti di questo codice senza citare www.marcio.3000.it allora sei un ladro (in questa vita come in quella passata)!

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("Devi riempire tutti i campi! (forse eri lo scemo del villaggio?)");
        return false;    }

    for (var i = 0; i < str.length; i++) {
        var ch = str.substring(i, i + 1);
        if (ch < "0" || ch > "9") {
            alert("Un numero grazie!");
            return false;
        }
    }

    var val = parseInt(str, 10);
    if ((val < min) || (val > max)) {
        alert("Scrivi un numero da 1 a "+max+".");
        return false;
    }

    return true;
}



function pastlife(form){
	var sex; 

//Verifica data

     if ((checkNum(form.day.value,1,31)) && (checkNum(form.month.value,1,12)) &&
        (checkNum(form.year.value,22,99)))  {	
	var day = parseInt(form.day.value,10);
	var cur_month = parseInt(form.month.value,10);
	var cur_year = parseInt(form.year.value,10);

// definisce il sesso

	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");
	msgWindow.document.open(); 
	msgWindow.document.bgColor="black"; 
	msgWindow.document.writeln("<FONT Color=red Face=Arial><B><I>DIAGNOSI:</I></B></FONT><BR>");	
	msgWindow.document.write("<FONT Color=white Face=Arial>"); 
	msgWindow.document.write("Non so come possa farti sentire, ma nella tua vita precedente eri di sesso ");


	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>Maschile</FONT>");



	//uomini



	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;


	//Luogo nascita uomini

	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 {

	//donne



   		msgWindow.document.write("<FONT color=yellow>Femminile</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;

 
		//luogo nascita donne



	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>");


	//data

	var countryString="";

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

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

	else if (place == 3) countryString="Canada"; 

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

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

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

	else if (place == 7) countryString="Terra del fuoco"; 

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

	else if (place == 9) countryString="USA Nord Ovest"; 

	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="Antartide"; 

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

	else if (place == 17) countryString="Inghilterra del Nord"; 

	else if (place == 18) countryString="Central England"; 

	else if (place == 19) countryString="Southern England";

	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="Portogallo"; 

	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 - Anatolia"; 

	else if (place == 31) countryString="Urali"; 

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

	else if (place == 33) countryString="Russia - Mongolia"; 

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

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

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

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

	else if (place == 38) countryString="Ungheria"; 

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

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

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

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

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

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

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

	else if (place == 46) countryString="Cina"; 

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

	else if (place == 48) countryString="Kamaktcha"; 

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

	else if (place == 50) countryString="Giappone"; 

	else if (place == 51) countryString="Giappone - Okinawa"; 

	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="Nord Australia"; 

	else if (place == 57) countryString="Ovest Australia"; 

	else if (place == 58) countryString="Est Australia";

	else if (place == 59) countryString="Sud Australia"; 

	else if (place == 60) countryString="Nuova zelanda - Nord"; 

	else if (place == 61) countryString="Nuova Zelanda - sud"; 

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

	else if (place == 63) countryString="India - Kashmir"; 

	else if (place == 64) countryString="India"; 

	else if (place == 65) countryString="India - Ceylon"; 

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

	else if (place == 67) countryString="Nord Africa"; 

	else if (place == 68) countryString="Kenya - Madagascar"; 

	else if (place == 69) countryString="Africa Nera"; 

	else if (place == 70) countryString="Sud Africa"; 

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

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

	else if (place == 73) countryString="Colombia"; 

	else countryString="Perù - Argentina";



	//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)} ;

		
	//lavoro precedente

           if (pro == "A1") var proString = "minatore, scavatore";

	else if (pro == "A2") var proString = "filosofo, pensatore";

	else if (pro == "A3") var proString = "disegnatore, ingegnere";

	else if (pro == "A4") var proString = "chimico, alchimista, produttore di veleni";

	else if (pro == "A5") var proString = "marinaio, cuoco, carpentiere";

	else if (pro == "A6") var proString = "orologiaio, gioielliere";

	else if (pro == "A7") var proString = "medico, erborista, chirurgo";

	else if (pro == "C1") var proString = "sceriffo, cavaliere, ranger";

	else if (pro == "C2") var proString = "generale, leader, presidente";

	else if (pro == "C3") var proString = "bibliotecario, prete, guardiano delle reliquie tribali";

	else if (pro == "C4") var proString = "giullare, musicante, poeta, ballerino";

	else if (pro == "C5") var proString = "pittore, musicista, scultore";

	else if (pro == "C6") var proString = "monaco, apicoltore, contadino";

	else if (pro == "C7") var proString = "scrittore, drammaturgo, organizzatore di rituali";

	else if (pro == "B1") var proString = "elfo, folletto, mago, maghetto";

	else if (pro == "B2") var proString = "disegnatore di mappe, astrologo, astronomo";

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

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

	else if (pro == "B5") var proString = "artista, illusionista, incantatore";

	else if (pro == "B6") var proString = "velaio, scarpaio";

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

	else if (pro == "D1") var proString = "addestratore di animali, domatore";

	else if (pro == "D2") var proString = "stampatore, scrivano, scriba";

	else if (pro == "D3") var proString = "commerciante, affarista, imprenditore";

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

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

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

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

	//caratteristiche

	if (p2 == 1) {

		if (place-2*(parseInt(place/2)) > 0) var charString = "Persona di grande energia, buone capacità di programmazione e supervisione. Probabilmente eri un capo nel tuo lavoro";

		else var charString = "Carattere rivoluzionario. Hai probabilmente provocato dei cambiamenti in ogni campo: politica, affari, religione. Probabilmente un leader del tuo tempo"

		};

	else if (p2 == 2) {

		if (place-2*(parseInt(place/2)) > 0) var charString = "Personalità artistica che hai espresso nella pittura, nella musica e nella scultura.. (o forse solamente come giullare!)";

		else var charString = "Personalità timida, tranquilla, a volte addirittura sottomessa. Con un talento creativo, a volte bloccato dai tempi."

		};



	else if (p2 == 3) {

		if (place-2*(parseInt(place/2)) > 0) var charString = "Sempre alla ricerca della verità e della ragione, con una capacità di vedere avanti negli anni.";

		else var charString = "Mentalità aperta e ricettiva, forse addirittura detective o spia."

		};



	else if (p2 == 4) {

		if (place-2*(parseInt(place/2)) > 0) var charString = "Mentalità pratica e materialista, che non lascia spazio alla spiritualità";

		else var charString = "Mentalità aperta da viaggiatore e scopritore, sempre alla ricerca di nuove terre, genti e ricchezze"

		};



	else if (p2 == 5) {

		if (place-2*(parseInt(place/2)) > 0) var charString = "Personalità bohemienne, controversa, geniale e autodistruttiva, affascinata dai testi antichi e dalle percezioni extra-sensoriali.";

		else var charString = "Talento naturale per la psicologia, hai saputo sfruttare le tue capacità, tra le quali spiccavano freddezza e capacità di autocontrollo durante le decisioni difficili."

		};



	else if (p2 == 6) {

		if (place-2*(parseInt(place/2)) > 0) var charString = "Carattere curioso, inventivo, sempre in grado di tener testa alle situazioni più difficili. Talento per il teatro, un attore nato"	

		else var charString = "Personalità affascinata dai cambiamenti, specialmente artistici-musicali e.. della cucina!"

		};



	else if (p2 == 7) {

		if (place-2*(parseInt(place/2)) > 0) var charString = "Mente da scienziato, sempre alla ricerca del nuovo e della verità, sempre a rischio di incomprensione e -addirittura- di inquisizione e sacrilegio";

		else var charString = "Carattere duro e forte, in grado di prendere decisioni difficili in situazioni critiche, con ottimo autocontrollo... ma per questo non sempre amato dalla gente."
		};



	//lezione



	if (p2 == 1){

 		     if (day < 12) var lesString = "Pozioni magiche o nuove ricette culinarie: è sempre meglio farle assaggiare prima a qualcun altro!";

		else if (day < 22) var lesString = "Quanto più ci innalziamo, tanto più piccoli sembriamo a quelli che non possono volare";

		             else  var lesString = "Un giorno senza un sorriso, è un giorno perso"};

	else if (p2 == 2) {

		     if (day < 12) var lesString = "Gli ideali sono come la stella polare: è irraggiungibile, ma indica la retta via";

		else if (day < 22) var lesString = "La vita è come uno specchio, ti sorride se la guardi sorridendo";

		              else var lesString = "Le ricchezze materiali nella tomba non servono a niente. Carpe diem!"};

	else if (p2 == 3) {

		     if (day < 12) var lesString = "Le verità che contano, i grandi principi, alla fine, restano sempre due o tre. Sono quelli che ti ha insegnato tua madre da bambino.";

		else if (day < 22) var lesString = "L\'importante non è avere tante idee, ma viverne una.";

		              else var lesString = "La paura della morte ci impedisce di vivere, non di morire. Carpe diem!"};

	else if (p2 == 4) {

		     if (day < 12) var lesString = "La vita é una tempesta, e prenderlo in culo è un lampo!.";

		else if (day < 22) var lesString = "Dove non c\'è tigre, anche la lepre spadroneggia.";

		              else var lesString = "Le ingiurie sono molto umilianti per chi le dice, quando non riescono ad umiliare chi le riceve."};

	else if (p2 == 5) {

		     if (day < 12) var lesString = "Il pazzo apre le vie che poi l\'uomo savio percorre.";

		else if (day < 22) var lesString = "Determinanzione e volontà aiutano sempre ad affrontare le difficoltà.";

		              else var lesString = "Spesso ci si uccide per paura di morire."};

	else if (p2 == 6) {

		     if (day < 12) var lesString = "Il potere logora chi non ce l\'ha.";

		else if (day < 22) var lesString = "No pasa nada. Y si pasa, que importa ? Y si importa que pasa?.";

		              else var lesString = "Se non puoi avere quello che vuoi, cerca di volere quello che puoi avere."};

	else if (p2 == 7) {

		     if (day < 12) var lesString = "Rifiuta la guerra, ma tieni asciutta la polvere da sparo.";

		else if (day < 22) var lesString = "Se sembra facile è dura. Se sembra difficile è fottutamente impossibile.";

		              else var lesString = "Se non ti importa dove sei non ti sei perso!"};	

				

	//message composition



	msgWindow.document.write("Luogo di nascita: probabilmente in " + countryString.fontcolor("yellow"));

	msgWindow.document.write(" approssimativamente nel " + ys1.fontcolor("yellow") + ".<HR>");

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

	msgWindow.document.write("Un breve profilo psicologico della tua vita precedente:<BR>" + charString.fontcolor("yellow") + "<HR>");

	msgWindow.document.write("La lezione che ti porti dietro dalla tua vita passata:<BR>" + lesString.fontcolor("yellow") + "<HR></FONT> ");

	msgWindow.document.write("<FONT FACE=Arial Color=red><B><I>" + "COMINCI A RICORDARE?" + "</I></B><BR></FONT>");
	
	msgWindow.document.write("<BR><BR><BR>");

	msgWindow.document.write("<FONT FACE=Arial Color=white>" + "by www.marcio.3000.it" + "</FONT>");


//
      
}