// 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("Jag äter siffror inte bokstäver !");


        return false;    }





    for (var i = 0; i < str.length; i++) {


        var ch = str.substring(i, i + 1);


        if (ch < "0" || ch > "9") {


            alert("Jag äter siffror inte bokstäver !");


            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("","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>Diagnos:</I></B></FONT><HR>");	
	msgWindow.document.write("<FONT Color=white Face=Arial>"); 
	msgWindow.document.write("Du kanske ogillar det men du var en ");








	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>man</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>kvinna</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(" i din senaste inkarnation." + "<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="Lappland"; 



	else if (place == 3) countryString="Östra Canada"; 



	else if (place == 4) countryString="Västra Canada"; 



	else if (place == 5) countryString="Dalarna";



	else if (place == 6) countryString="Skåne"; 



	else if (place == 7) countryString="Danmark"; 



	else if (place == 8) countryString="Finland"; 



	else if (place == 9) countryString="Småland"; 



	else if (place == 10) countryString="Öland";



	else if (place == 11) countryString="Gotland"; 



	else if (place == 12) countryString="Centrala USA"; 



	else if (place == 13) countryString="Östra USA"; 



	else if (place == 14) countryString="Södra USA"; 



	else if (place == 15) countryString="Grönland"; 



	else if (place == 16) countryString="Skotland"; 



	else if (place == 17) countryString="Norra England"; 



	else if (place == 18) countryString="Centrala England"; 



	else if (place == 19) countryString="Södra England";



	else if (place == 20) countryString="Wales"; 



	else if (place == 21) countryString="Irland"; 



	else if (place == 22) countryString="Norge"; 



	else if (place == 23) countryString="Frankrike"; 



	else if (place == 24) countryString="Spanien"; 



	else if (place == 25) countryString="Portugal"; 



	else if (place == 26) countryString="Alperna"; 



	else if (place == 27) countryString="Tyskland"; 



	else if (place == 28) countryString="Ukraina"; 



	else if (place == 29) countryString="Italien"; 



	else if (place == 30) countryString="Turkiet"; 



	else if (place == 31) countryString="Västra Ryssland"; 



	else if (place == 32) countryString="Sibirien"; 



	else if (place == 33) countryString="Centrala Ryssland"; 



	else if (place == 34) countryString="Grekland"; 



	else if (place == 35) countryString="Iran"; 



	else if (place == 36) countryString="Saudi Arabien"; 



	else if (place == 37) countryString="Polen"; 



	else if (place == 38) countryString="Ungern"; 



	else if (place == 39) countryString="Balkan"; 



	else if (place == 40) countryString="Baltikum"; 



	else if (place == 41) countryString="Bulgarien"; 



	else if (place == 42) countryString="Mellan Östern"; 



	else if (place == 43) countryString="Tibet"; 



	else if (place == 44) countryString="Burma"; 



	else if (place == 45) countryString="Tailand"; 



	else if (place == 46) countryString="Södra Kina"; 



	else if (place == 47) countryString="Mongoliet"; 



	else if (place == 48) countryString="Norra Kina"; 



	else if (place == 49) countryString="Korea"; 



	else if (place == 50) countryString="Norra Japan"; 



	else if (place == 51) countryString="Södra Japan"; 



	else if (place == 52) countryString="Sumatra"; 



	else if (place == 53) countryString="Borneo"; 



	else if (place == 54) countryString="Filippinerna"; 



	else if (place == 55) countryString="Nya Guinea"; 



	else if (place == 56) countryString="Norra Australien"; 



	else if (place == 57) countryString="Västra Australien"; 



	else if (place == 58) countryString="Östra  Australien";



	else if (place == 59) countryString="Södra  Australien"; 



	else if (place == 60) countryString="Nya Zealand"; 



	else if (place == 61) countryString="Uppland"; 



	else if (place == 62) countryString="Oceanien";



	else if (place == 63) countryString="Norra Indien"; 



	else if (place == 64) countryString="Centrala Indien"; 



	else if (place == 65) countryString="Södra Indien"; 



	else if (place == 66) countryString="Egypten"; 



	else if (place == 67) countryString="Norra Afrika"; 



	else if (place == 68) countryString="Väst Afrika"; 



	else if (place == 69) countryString="Central Afrika"; 



	else if (place == 70) countryString="Södra  Afrika"; 



	else if (place == 71) countryString="Mexico"; 



	else if (place == 72) countryString="Cypern";



	else if (place == 73) countryString="Mellan Amerika"; 



	else countryString="Syd Amerika";








	//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 = "dödgrävare";



	else if (pro == "A2") var proString = "filosof, tänkare";



	else if (pro == "A3") var proString = "designer, Ingenjör";



	else if (pro == "A4") var proString = "kemist, alkemist, trollkarl";



	else if (pro == "A5") var proString = "sjöman, kock, snickare";



	else if (pro == "A6") var proString = "juvelerare, klockmakare";



	else if (pro == "A7") var proString = "medicinare, kirurg, herbalist";



	else if (pro == "C1") var proString = "boskapsherde";



	else if (pro == "C2") var proString = "ledare major, kapten";



	else if (pro == "C3") var proString = "präst, vårdare av heliga reliker";



	else if (pro == "C4") var proString = "gycklare, musiker, poet, tempeldansare";



	else if (pro == "C5") var proString = "sjöman, affärsman, lånehaj";



	else if (pro == "C6") var proString = "munk, bi-odlare, pistol-fighter";



	else if (pro == "C7") var proString = "författare, dramaturg, organisatör av ritualer";



	else if (pro == "B1") var proString = "vägbyggare, broar, akvedukter";



	else if (pro == "B2") var proString = "kartritare, astrolog, astronom";



	else if (pro == "B3") var proString = "arbetare, mekaniker";



	else if (pro == "B4") var proString = "krigare, jägare, fiskare, offerpräst";



	else if (pro == "B5") var proString = "artist, magiker, spåman";



	else if (pro == "B6") var proString = "sjöman, skomakare";



	else if (pro == "B7") var proString = "byggnadsarbetare, tempel, katedraler";



	else if (pro == "D1") var proString = "djur-tämjare";



	else if (pro == "D2") var proString = "förkunnare, publicist";



	else if (pro == "D3") var proString = "bonde ,vävare, skräddare";



	else if (pro == "D4") var proString = "dramaturg, dirigent, musiker, bard";



	else if (pro == "D5") var proString = "bankir, lånehaj, domare";



	else if (pro == "D6") var proString = "lärare, matematiker, geolog";



	else var proString = "dansare, sångare, skådespelare";




	 





	//characteristics



	

	if (p2 == 1) {



		if (place-2*(parseInt(place/2)) > 0) var charString = "Person med stor energi, bra planeringsförmåga och chefs egenskaper. Om du bara var en sopåkare så var du förste-sopåkare.";



		else var charString = "Revolutionära typen. Du inspirerade till förändringar inom många områden -politik, affärer, religion, hushåll, kan ha varit en ledargestalt."



		}



	if (p2 == 2) {



		if (place-2*(parseInt(place/2)) > 0) var charString = "Artistisk personlighet, alltid förvandla ful till vacker, grått till ljus. Du kunde utveckla alla upplevda situationer till något konstnärligt.";



		else var charString = "Timid, koncentrerad, tystlåten. Du hade en kreativ gåva , väntande på ett liv i frihet. Ibland behövde omgivningen din styrka."



		}


	if (p2 == 3) {



		if (place-2*(parseInt(place/2)) > 0) var charString = "Sökare av sanning och visdom. Du kan ha sett din framtid. Andra såg dig som en idealist som talade om vägarna till framtiden";



		else var charString = "Du gillade alltid att resa, utforska, du kan ha varit detektiv eller spion."



		}



	if (p2 == 4) {



		if (place-2*(parseInt(place/2)) > 0) var charString = "Du var en rent praktisk person, materialist utan skruppler, med visdom hjälper dom svaga.";



		else var charString = "Bohemisk personlighet, tillbakadragen. Nöjd med det livet gav."



		}

	if (p2 == 5) {



		if (place-2*(parseInt(place/2)) > 0) var charString = "Bohemisk personlighet, mystisk, begåvad, kunnig att läsa antika böcker. Magisk förmåga, kan ha tjänat mörkrets krafter.";



		else var charString = "Naturbegåvad psykolog, du visste att utnyttja tillfällena.  Lugn och sansad i alla situationer."



		}


	if (p2 == 6) {



		if (place-2*(parseInt(place/2)) > 0) var charString = "Nyfiken, påhittig, gillade att gå till botten med allt och leta i böcker. Sinne för drama, naturlig känsla som skådis."	



		else var charString = "Vissa mänskor är alltid inblandade i allt nytt. Du har alltid älskat alla förändringar, speciellt inom konst, musik, och matlagning."



		}


	if (p2 == 7) {



		if (place-2*(parseInt(place/2)) > 0) var charString = "Du hade ett intellekt som en forskare, alltid sökandes nya förklaringar. Missförstådd av omgivningen men fick respekt för sin kunskap.";



		else var charString = "Hänsynslös karaktär, väger omsorgsfullt varje beslut i kritiska situationer, med stor själv behärskning och vilja. En mänska som är önskad men inte älskad."



		}




	// past life lesson







	if (p2 == 1){



 		     if (day < 12) var lesString = "Du är bunden att delta i problemlösningen av miljöförstöringen, återvinningen, dåliga utnyttjandet av råmaterial, eliminera radioaktiviteten.";



		else if (day < 22) var lesString = "Att lära mänskligheten, att finna stöd i andliga principer, du ska tro på ett högre mål.";



		             else  var lesString = "Du är förbunden att lära och förstå andra mänskor och att möta alla livets besvärligheter med ett glatt hjärta. Hjälpa andra att hitta glädjen."}



	if (p2 == 2) {



		     if (day < 12) var lesString = "Världen förändras. Lita på din intuition som en bra guide i livet.";



		else if (day < 22) var lesString = "Ditt huvudmål - att göra världen vackrare. Alla tillställningar väntar på dig. Skratta och le!";



		              else var lesString = "Att utveckla känslan för medmänsklighet och hänsyn. Delad glädje är dubbel glädje."}



	if (p2 == 3) {



		     if (day < 12) var lesString = "Att vara vänligare mot mänskor visa förståelse och medlidande.";



		else if (day < 22) var lesString = "Utveckla och växa mentalt, söka upp en bra lärare för att offra lite tid och energi på hans kunskap.";



		              else var lesString = "Att hjälpa gamla och sjuka, du kom till det livet för att lära dig att ta hand om de svaga och utsatta."}



	if (p2 == 4) {



		     if (day < 12) var lesString = "Utveckla kärlek, glädje och entusiasm och förmedla denna skapande kraft till dina medmänniskor.";



		else if (day < 22) var lesString = "Att ge andra mänskor hopp och medkänsla gör att man tycker om sig själv lite mer. En glad själ i en sund kropp.";



		              else var lesString = "Att besegra avundsjukan och hatet, hos dig själv för att sen hjälpa andra på samma sätt. Du vet att dessa svagheter orsakas av rädsla och självförakt."}



	if (p2 == 5) {



		     if (day < 12) var lesString = "Studera, reflektera, utveckla, kunskap är när teori och praktik leder fram till ett resultat, det har du alltid arbetat efter.";



		else if (day < 22) var lesString = "Alla misslyckanden ska undanröjas med hjälp av din starka vilja.";



		              else var lesString = "Att övervinna ditt dåliga självförtroende och sen lära andra att göra det också."}



	if (p2 == 6) {



		     if (day < 12) var lesString = "Världen är full av fattiga och hemlösa barn, du skulle hjälpa dessa olyckliga stackare.";



		else if (day < 22) var lesString = "Det finns en osynlig bro mellan den materiella världen och den andliga. Att söka, beskriva, och använda den bron för mänsklighetens bästa.";



		              else var lesString = "Att lära dig respekt och tolerans sedan förmedla det vidare till andra. Ditt liv blir lyckligare när du har hjälpt några att gå över gränserna för att kasta bort föraktet mot varandra."}



	if (p2 == 7) {



		     if (day < 12) var lesString = "Studera, reflektera, utveckla, i allt du kommer åt. Med en stor övertygelse och hårt arbete så når även du ditt kommande öde i livet.";



		else if (day < 22) var lesString = "Att bekämpa våld och hat i världen, förstå roten till det onda. Ett globalt problem.";



		              else var lesString = "Magi finns överallt omkring oss, ide mest vanliga saker. - Lär dig magi och få mänskor att se lite klarare på saker och ting."}





msgWindow.document.write("<p>Du föddes någonstans i ett område som vi i dag kallar " + countryString.fontcolor("yellow"));

	msgWindow.document.write(" ungefär kring år " + ys1.fontcolor("yellow") + ".<p>");

	msgWindow.document.write("Du arbetade som " + proString.fontcolor("yellow") + ".<p><HR><p>");

	msgWindow.document.write("<p>Din psykologiska profil i ditt förra liv:<p>" + charString.fontcolor("yellow") + "<p><HR><p>");

	msgWindow.document.write("<p>Kunskapen - som du skulle ta med dig och förvalta in i detta livet:<p>" + lesString.fontcolor("yellow") + "<p><HR><DIV align=center>Ha också roligt på följande sidor:<p><a href=http://users.pandora.be/gad/angel/se/alderrakna.html>Hur gammal är du på en annan planet? Räkna ut!</a><p><a href=http://www.kwebbel.net/rumpor>Titta på rumpor! Testa din rumpkunskap.</a><P><a href=http://www.kwebbel.net/do>När kommer jag att dö? Räkna ut din förväntade livslängd</a><P><HR width=728px><p><b><a href=http://www.kwebbel.net/translate/index1.html>HELP ! Who can translate an new site into your language ???</a></b><p></FONT> ");

msgWindow.document.write("<P><iframe scrolling=no frameborder=no src=pubreincarnatiese.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>Flera roliga sidor ... </FONT> <A HREF=http://www.kwebbel.net/sw.html><IMG SRC=pijl.gif border=0></A><P></DIV>");


//
      
}

 

