
// 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("Ne pustite prazna vpisna okenca !");


        return false;    }





    for (var i = 0; i < str.length; i++) {


        var ch = str.substring(i, i + 1);


        if (ch < "0" || ch > "9") {


            alert("Vnesite stevilke, prosim !");


            return false;


        }


    }





    var val = parseInt(str, 10);


    if ((val < min) || (val > max)) {


        alert("Vpisite stevilke od 1 do "+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("","Diagnoza","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>Diagnoza:</I></B></FONT><HR>");	
	msgWindow.document.write("<FONT Color=white Face=Arial>"); 
	msgWindow.document.write("Ne vemo, kako boste sprejeli to dejstvo,toda bili ste ");








	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>moski</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>zenska</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(" v Vasi zadnji inkarnaciji." + "<BR>");





	





	//msgWindow.document.write("month=" + cur_month + " place=" + place + " ys=" + ys + " pro=" + pro + "<BR>");











	





	//countries data





	var countryString="";





	if (place == 1) countryString="Aljaske"; 

	else if (place == 2) countryString="Yukona"; 

	else if (place == 3) countryString="Severne Kanade"; 

	else if (place == 4) countryString="Ontaria"; 

	else if (place == 5) countryString="Quebecka";

	else if (place == 6) countryString="Labradora"; 

	else if (place == 7) countryString="Newfoundlandije"; 

	else if (place == 8) countryString="Greenlandije"; 

	else if (place == 9) countryString="USA Severo - Zahod"; 

	else if (place == 10) countryString="USA Jugo - Zahod";

	else if (place == 11) countryString="USA Sever - Center"; 

	else if (place == 12) countryString="USA Jug - Center"; 

	else if (place == 13) countryString="USA Severo - Vzhod"; 

	else if (place == 14) countryString="USA Jugo - Vzhod"; 

	else if (place == 15) countryString="Arktike"; 

	else if (place == 16) countryString="Skotske"; 

	else if (place == 17) countryString="Severne V. Britanije"; 

	else if (place == 18) countryString="Centralne V. Britanije"; 

	else if (place == 19) countryString="Juzne V . Britanije";

	else if (place == 20) countryString="Walesa"; 

	else if (place == 21) countryString="Irske"; 

	else if (place == 22) countryString="Severne Evrope"; 

	else if (place == 23) countryString="Francije"; 

	else if (place == 24) countryString="Spanije"; 

	else if (place == 25) countryString="Portugalske"; 

	else if (place == 26) countryString="Avstrije"; 

	else if (place == 27) countryString="Nemcije"; 

	else if (place == 28) countryString="Ukrajine"; 

	else if (place == 29) countryString="Italije"; 

	else if (place == 30) countryString="Turcije"; 

	else if (place == 31) countryString="Zahodne Rusije"; 

	else if (place == 32) countryString="Sibirije"; 

	else if (place == 33) countryString="Centralne Rusije"; 

	else if (place == 34) countryString="Grcije"; 

	else if (place == 35) countryString="Irana"; 

	else if (place == 36) countryString="Savdske Arabije"; 

	else if (place == 37) countryString="Poljske"; 

	else if (place == 38) countryString="Madzarske"; 

	else if (place == 39) countryString="nekdanje Jugoslavije"; 

	else if (place == 40) countryString="Romunije"; 

	else if (place == 41) countryString="Bolgarije"; 

	else if (place == 42) countryString="Izraela"; 

	else if (place == 43) countryString="Tibeta"; 

	else if (place == 44) countryString="Burme"; 

	else if (place == 45) countryString="Tajske"; 

	else if (place == 46) countryString="Juzne Kitajske"; 

	else if (place == 47) countryString="Mongolije"; 

	else if (place == 48) countryString="Severne Kitajske"; 

	else if (place == 49) countryString="Koreje"; 

	else if (place == 50) countryString="Severne Japonske"; 

	else if (place == 51) countryString="Juzne Japonske"; 

	else if (place == 52) countryString="Sumatre"; 

	else if (place == 53) countryString="Bornea"; 

	else if (place == 54) countryString="Filipinov"; 

	else if (place == 55) countryString="Nove Gvineje"; 

	else if (place == 56) countryString="Severne Avstralije"; 

	else if (place == 57) countryString="Juzne Avstralije"; 

	else if (place == 58) countryString="Vzhodne Avstralije";

	else if (place == 59) countryString="Juzne Avstralije"; 

	else if (place == 60) countryString="Severne Nove Zelandije"; 

	else if (place == 61) countryString="Juzne Nove Zelandije"; 

	else if (place == 62) countryString="Oceanije";

	else if (place == 63) countryString="Severne Indije"; 

	else if (place == 64) countryString="Centralne Indije"; 

	else if (place == 65) countryString="Juzne Indije"; 

	else if (place == 66) countryString="Egipta"; 

	else if (place == 67) countryString="Severne Afrike"; 

	else if (place == 68) countryString="Juzne Afrike"; 

	else if (place == 69) countryString="Centralne Afrike"; 

	else if (place == 70) countryString="Juzne Afrike"; 

	else if (place == 71) countryString="Mehike"; 

	else if (place == 72) countryString="Cipra";

	else if (place == 73) countryString="Severne Latinske Amerike"; 

	else countryString="Juzne Latinske Amerike";



	//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 = "kopac, zlatokop, oskrbovalec";

	else if (pro == "A2") var proString = "filozof, mislec";

	else if (pro == "A3") var proString = "dizajner, inzenir, rokodelec";

	else if (pro == "A4") var proString = "kemik, alkimist, farmacevt ";

	else if (pro == "A5") var proString = "pomorscak, kuhar, tesar";

	else if (pro == "A6") var proString = "draguljar, urar";

	else if (pro == "A7") var proString = "zdravnik, zeliscar";

	else if (pro == "C1") var proString = "ovcar, konjenik, gozdar";

	else if (pro == "C2") var proString = "vodja, major, kapitan";

	else if (pro == "C3") var proString = "knjiznicar, duhovnik, varuh trad.vrednot";

	else if (pro == "C4") var proString = "animator, glasbenik, pesnik, obredni plesalec";

	else if (pro == "C5") var proString = "pomorscak, trgovec, biznismen, posrednik";

	else if (pro == "C6") var proString = "menih, cebelar, samotni puskar - gangster";

	else if (pro == "C7") var proString = "pisatelj, dramaturg, organizator ritualov";

	else if (pro == "B1") var proString = "graditelj cest, mostov in ladjedelnic";

	else if (pro == "B2") var proString = "geograf, astrolog, astronom";

	else if (pro == "B3") var proString = "rokodelec, mehanik - strojnik";

	else if (pro == "B4") var proString = "vojscak, lovec, ribic, izvrsilec zrtvovanj";

	else if (pro == "B5") var proString = "artist, carovnik, vedezevalec";

	else if (pro == "B6") var proString = "pomorscak, cevljar";

	else if (pro == "B7") var proString = "graditelj his, templjev in katedral";

	else if (pro == "D1") var proString = "trener, imetnik drobnih zivali, pticev, insektov";

	else if (pro == "D2") var proString = "pridigar, novinar, pisec davnih posvetil";

	else if (pro == "D3") var proString = "farmar, tkalec, krojac";

	else if (pro == "D4") var proString = "dramaturg, direktor, glasbenik, narodni pevec";

	else if (pro == "D5") var proString = "bancnik, oderuh, posojevalec denarja, sodnik";

	else if (pro == "D6") var proString = "ucitelj, matematik, geolog";

	else var proString = "plesalec, pevec, igralec";





	//characteristics



	
	if (p2 == 1) {

		if (place-2*(parseInt(place/2)) > 0) var charString = "Oseba z silno energijo, dober organizator in nadzornik. Ce ste bili samo smetlar, ste bili sef smetlarjev.";

		else var charString = "Revolucionaren tip. Bili ste inspirator sprememb v vseh sferah - politika, biznis, religija, gospodinjstvo.Mogoce ste bili vodja."

		};

	if (p2 == 2) {

		if (place-2*(parseInt(place/2)) > 0) var charString = "Umetniska osebnost, vedno spreminjajoc grdo v lepo, brezbarvno v zivahne barve. Vedno ste nasli moznost kreativne samoizraznosti v vsaki stuaciji.";

		else var charString = "Plaha, nenaravna in zadrzana osebnost. Imeli ste kreativne talente, ki ste jih v zivljenju osvobajali. Vcasih vas okolica gleda kot nenavadneza."

		};



	if (p2 == 3) {

		if (place-2*(parseInt(place/2)) > 0) var charString = "Iskalec resnice in modrosti. Mogoce ste spoznali ze vasa prihodnja zivljenja. Drugi Vas imajo za idealista  rasvetljujoce poti prihodnosti.";

		else var charString = "Vedno ste radi potovali in  investirali, mogoce ste bili detektiv ali vohun."

		};



	if (p2 == 4) {

		if (place-2*(parseInt(place/2)) > 0) var charString = "Bili ste razumna osebnost, materialist brez spiritualne zavesti. Vasa modrost in izkusenost je pomagala slabotnejsim in revnim.";

		else var charString = " Vedno ste radi potovali in  investirali, mogoce ste bili detektiv ali vohun."

		};



	if (p2 == 5) {

		if (place-2*(parseInt(place/2)) > 0) var charString = "Boemska osebnost, skrivnostna, nadpovprecno sposobni, zmozni razumeti stare knjige. Z magicnimi sposobnostmi ste lahko bili sluzabnik temnih - neznanih energij.";

		else var charString = "Z naravnim talentom psihologije, ste vedeli kako izkoristiti priloznosti. Bili ste hladnokrvni in umirjeni v vsaki situaciji."

		};



	if (p2 == 6) {

		if (place-2*(parseInt(place/2)) > 0) var charString = "Bili ste vedozeljni, iznajdljivi, stvarem ste sli do konca in preiskovali ste stare knjige. Imeli ste talent za dramo - bili ste rojeni igralec."	

		else var charString = "Bili ste vedno vkljuceni v vsako novost. Vedno ste radi imeli spremembe, se posebno v umetnosti, v glasbi in v  kulinariki."

		};



	if (p2 == 7) {

		if (place-2*(parseInt(place/2)) > 0) var charString = "Imeli ste razum znanstvenika, vedno raziskujojoc nove razlage. Okolica Vas je pogosto narobe razumela, vendar je spostovala vase znanje.";

		else var charString = "Bili ste brezvestni, zavestno premisljeni v Svojih odlocitvah v kriticnih situacijah, z briljantno samokontrolo in silno voljo.Take ljudi imamo v glavnem radi, vendar niso vedno priljubljeni."

		};



	// past life lesson



	if (p2 == 1){

 		     if (day < 12) var lesString = "Zavzeti ste za resitev problemov z onesnazenjem okolja, reciklazo, zlorabo surovin, odpravo radioktivnosti na vse nacine vkljucno z psiholoskimi metodami.";

		else if (day < 22) var lesString = "Vasa naloga - bodite bolj usmiljeni in zaupajte spiritualnim principom - nacelom. Morali bi zaupati v Visja Nacela.";

		             else  var lesString = "Zavzeti ste z ucenjem razumevanja drugih ljudi in da se soocite z zivljenskimi tezavami z radostnim srcem. Morali bi pomagati drugim prinasujoc jim duh veselja."};

	if (p2 == 2) {

		     if (day < 12) var lesString = "Vedno se Vam je dozdevalo,da so Vase zaznave sveta nekoliko drugacne kot so v resnici. Vasa naloga - zaupajte Vasi intuiciji kot Vasemu najboljsemu vodicu v sedanjem zivljenju.";

		else if (day < 22) var lesString = "Vasa najvaznejsa naloga je - narediti svet lepsi. Psihicni in spiritualni posladek samo caka na Vas dotik. Smejte se !";

		              else var lesString = "Vasa najvaznejsa naloga v sedanjosti je - razvijati plemenitost in obcutek bratstva. Skusajte postati manj privrzeni materialni lastnini in se naucite imeti samo toliko , kolikor res potrebujete."};

	if (p2 == 3) {

		     if (day < 12) var lesString = "Vasa naloga je - razvijati prijazno razpolozenje do drugih ljudi in doseci dar razumevanja in socutja.";

		else if (day < 22) var lesString = "Vasa naloga je - razvijanje in siritev Vase mentalne zavesti. Najdite dobrega ucitelja in koristno uporabite del Vasega casa in energije na njegovo modrost.";

		              else var lesString = "Vi boste izpolnili Vaso nalogo s pomaganjem starejsim ljudem in otrokom. V to zivljenje ste prisli, da se naucite skrbeti za slabotne in nebogljene."};

	if (p2 == 4) {

		     if (day < 12) var lesString = "Vi bi morali razvijati Vas talent za ljubezen, veselje in navdusenje in vse te obcutke prenesti vsem ljudem.";

		else if (day < 22) var lesString = "Vi bi morali razvijati samospostovanje in sposobnost vcepitve upanje v srca vseh ljudi. Ambicija - ni vse na svetu.Resnicno bogastvo gori v Vasem duhu.";

		              else var lesString = "Vasa naloga je - premagati zavistnost in jezo v Vas samih in v drugih ljudeh, ki so vas izbrali kot njihovega vodjo. Morali bi razumeti, da so te pomanjkljivosti povzrocene s strahom in samoobzalovanjem."};

	if (p2 == 5) {

		     if (day < 12) var lesString = "Vasa tezava je - nauciti se ljubiti in zaupati Univerzumu. Zavzeti ste z razmisljanjem, preucevanjem, odrazanjem in razvijanjem notranjega bogastva.";

		else if (day < 22) var lesString = "Vasa tezava je - nauciti se odlocnosti in vztrajnosti. Vsak spodrsljaj bi Vam moral se povecati Vaso mocno voljo.";

		              else var lesString = "Plahi, osamljeni in arogantni ljudje so vsepovsod in Vasa tezava je - premagati ta nagnjenja v  Vas samih  in potem pomagati drugim ljudem."};

	if (p2 == 6) {

		     if (day < 12) var lesString = "Svet je poln bolnih in osamljenih ljudi.Morali bi pomagati manj srecnim od Vas samih.";

		else if (day < 22) var lesString = "Obstaja nevidna povezava med materialnim in spiritualnim svetom. Vasa naloga je - iskati in najti, iskati in uporabiti ta most.";

		              else var lesString = "Vasa naloga je - nauciti se obzirnosti in zmernosti in potem nauciti druge ljudi tega. Vase zivljenje bo srecnejse, ko boste pomagali tistim,ki so v resnicni stiski."};

	if (p2 == 7) {

		     if (day < 12) var lesString = "Vasa naloga je - preucevati, prakticirati in uprabljati modrost, ki je prilozena v psihologiji in v starih rokopisih. Z velikim samozaupanjem in trdim delom, boste nasli Vaso zivljenjsko nalogo v tem zivljenju.";

		else if (day < 22) var lesString = "Vasa naloga je - premagati nasilje in neskladnost v Nasem svetu in razumeti njegov koren in izvor. Vsi globalni problemi imajo podoben izvor.";

		              else var lesString = "Carobno - magicno je povsod okoli nas,v glavnem v vsakodnevnih dogajanjih. Vasa naloga je - nauciti se carobnosti in pomagati drugim ljudem, da vse to spoznajo.Vi ste carobni - magicni !"};	


msgWindow.document.write("<p>Bili ste rojeni nekje na ozemlju danasnje " + countryString.fontcolor("yellow"));

	msgWindow.document.write(" priblizno okoli leta " + ys1.fontcolor("yellow") + ".<p>");

	msgWindow.document.write("Po poklicu ste bili " + proString.fontcolor("yellow") + ".<p><HR><p>");

	msgWindow.document.write("<p>Vas psiholoski profil v prejsnjem zivljenju :<p>" + charString.fontcolor("yellow") + "<p><HR><p>");

	msgWindow.document.write("<p>Vasa zivljenjska naloga, ki ste jo prejeli iz preteklosti za sedanjost :<p>" + lesString.fontcolor("yellow") + "<p><HR><p><div align=center><iframe scrolling=no frameborder=no src=pubreincarnatiesi.html style=width:728px; height: 150px; border:0; overflow:hidden;></iframe><p><a href=http://www.kwebbel.net/voyance/slovak.html>Otestuj svoje jasnovidectvo !</a></b><p><a href=http://www.kwebbel.net/neviem/>Test tvojej inteligencie je vzadu!</a><p><HR> ");



msgWindow.document.write("<P><DIV align=right><FONT COLOR=#ff0000 SIZE=+1>More ...  </FONT> <A HREF=next.html><IMG SRC=pijl.gif border=0></A><P></DIV>");


//
      
}

 

