// Algoritm made by Natalie V. Zubar <kopilka@infocom.kharkov.ua>// Program rewriten, now works probably in all browsers by Pete Minus <pete@pete.eu.org>// Natalie:// 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!// Pete:// I don't care if you use this program. But there must be written on your page who made it and who solve bugs in it.// If you can't do that, if you can't write that on you page ... make your own program! If you're smart enough.function mod(x, x_div){    for (var i=x; i>=x_div; i -= x_div);    return i;}function CheckInput(){ if (document.PastLife.day.value == "" || document.PastLife.month.value == "" || document.PastLife.year.value == "") {    if (document.PastLife.day.value == "")    document.PastLife.day.value = "13";    if (document.PastLife.month.value == "")     document.PastLife.month.value = "09";        if (document.PastLife.year.value == "")    document.PastLife.year.value = "79";      alert("Ker nisi izpolnil vseh okencev, sem ti prazne zapolnil z mojimi podatki!\nBo zato letos zame več daril? :)");  return false;    } }function checkNum(str, min, max) {    if (str == "") {        //alert("Ne puscaj praznih okencev!");        return false;    }    for (var i = 0; i < str.length; i++) {        var ch = str.substring(i, i + 1);        if (ch < "0" || ch > "9") {            alert("Stevilko, prosim");            return false;        }    }    var val = parseInt(str, 10);    if ((val < min) || (val > max)) {        alert("Dovoljene so stevilke od 1 do "+max+".");           if (document.PastLife.day.value < 1 || document.PastLife.day.value > 31)         document.PastLife.day.value="";        if (document.PastLife.month.value < 1 || document.PastLife.month.value > 12)         document.PastLife.month.value="";        if (document.PastLife.year.value < 01 || document.PastLife.year.value > 99)         document.PastLife.year.value="";                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};	var yearString = "ZYXWOTZYQVUTSXWVNZYXPQTZRWVUMYXWOTZYQVUTSXWVNZYXPUTZRWVUMYXWOTZYQVUTSXWVNZYXPUTZRWVUMYXWOTZYQVUTSXWV";	var ys; ys = yearString.charAt(cur_year);	var p1; var p2; var place;	if (sex == 1){		MyPastLifeSex="bil moški. Rodil";	//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 		MyPastLifeSex="bila ženska. Rodila";	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;	//countries data	var countryString="";	if (place == 1) countryString="Aljaska";	else if (place == 2) countryString="Yukon";	else if (place == 3) countryString="Severna Kanada";	else if (place == 4) countryString="Ontario";	else if (place == 5) countryString="Quebeck";	else if (place == 6) countryString="Labrador";	else if (place == 7) countryString="Newfoundland";	else if (place == 8) countryString="Grenlandija";	else if (place == 9) countryString="severo-zahod ZDA";	else if (place == 10) countryString="jugo-zahod ZDA";	else if (place == 11) countryString="sever ZDA";	else if (place == 12) countryString="Albanija";	else if (place == 13) countryString="severo-vzhod ZDA";	else if (place == 14) countryString="jugo-vzhod ZDA";	else if (place == 15) countryString=" Antarktika";	else if (place == 16) countryString=" Škotska";	else if (place == 17) countryString="južna Anglija";	else if (place == 18) countryString="srednja Anglija";	else if (place == 19) countryString="severna Anglija";	else if (place == 20) countryString="Wales";	else if (place == 21) countryString="Irska";	else if (place == 22) countryString="južna Evropa";	else if (place == 23) countryString="Francija";	else if (place == 24) countryString="Španija";	else if (place == 25) countryString="Portugalska";	else if (place == 26) countryString="Avstrija";	else if (place == 27) countryString="Nemčija";	else if (place == 28) countryString="Ukrajina";	else if (place == 29) countryString="Italija";	else if (place == 30) countryString="Turčija";	else if (place == 31) countryString="zahodna Rusija";	else if (place == 32) countryString="Sibirija";	else if (place == 33) countryString="srednja Rusija";	else if (place == 34) countryString="Grčija";	else if (place == 35) countryString="Iran";	else if (place == 36) countryString="Saudska Arabija";	else if (place == 37) countryString=" Poljska";	else if (place == 38) countryString=" Madžarska";	else if (place == 39) countryString="Slovenija";	else if (place == 40) countryString="Romunija";	else if (place == 41) countryString="Bolgarija";	else if (place == 42) countryString="Izrael";	else if (place == 43) countryString="Tibet";	else if (place == 44) countryString="Burma";	else if (place == 45) countryString="Tajska";	else if (place == 46) countryString="Jugoslavija";	else if (place == 47) countryString="Mongolija";	else if (place == 48) countryString="severna Kitajska";	else if (place == 49) countryString="Koreja";	else if (place == 50) countryString="Minmar";	else if (place == 51) countryString="južna Japonski";	else if (place == 52) countryString="Sumatra";	else if (place == 53) countryString="Borneo";	else if (place == 54) countryString="Filipinija";	else if (place == 55) countryString="Nova Gvineja";	else if (place == 56) countryString="severna Avstralija";	else if (place == 57) countryString="zahodna Avstralija";	else if (place == 58) countryString="vzhodna Avstralija";	else if (place == 59) countryString="južna Avstralija";	else if (place == 60) countryString="sever Nove Zelandije";	else if (place == 61) countryString="jug Nove Zelandije";	else if (place == 62) countryString="Oceania";	else if (place == 63) countryString="serverna Indija";	else if (place == 64) countryString="srednja Indija";	else if (place == 65) countryString="južna Indija";	else if (place == 66) countryString="Egipt";	else if (place == 67) countryString="severna Afrika";	else if (place == 68) countryString="zahodna Afrika";	else if (place == 69) countryString="srednja Afrika";	else if (place == 70) countryString="južna Afrika";	else if (place == 71) countryString="Mehika";	else if (place == 72) countryString="Ciper";	else if (place == 73) countryString="jug Latinske Amerike";	else countryString="sever 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 = "kopač, pogrebnik";	else if (pro == "A2") var proString = "filozof, mislec";	else if (pro == "A3") var proString = "oblikovalec, tehnik, rokodelec";	else if (pro == "A4") var proString = "kemik, alkimist, proizvajalec strupov";	else if (pro == "A5") var proString = "mornar, kuhar, tesar";	else if (pro == "A6") var proString = "zlatar, urar";	else if (pro == "A7") var proString = "zdravnik, kirurg, zeliščar";	else if (pro == "C1") var proString = "ovčar, jezdec, gozdar";	else if (pro == "C2") var proString = "vodja, major, kapitan";	else if (pro == "C3") var proString = "knjižničar, duhovnik, grobar";	else if (pro == "C4") var proString = "zabaviščnik, glasbenik, poet, obredni plesalec";	else if (pro == "C5") var proString = "pomorščak, trgovec, poslovnež, mešetar";	else if (pro == "C6") var proString = "menih, čebelar, osamljeni bandit";	else if (pro == "C7") var proString = "pisec, dramatik, organizator ritualov";	else if (pro == "B1") var proString = "graditelj cest, mostov, pristanišč";	else if (pro == "B2") var proString = "geograf, astrolog, astronom";	else if (pro == "B3") var proString = "rokodelec, mehanik";	else if (pro == "B4") var proString = "vojščak, lovec, ribič, rabelj";	else if (pro == "B5") var proString = "umetnik, čarovnik, vedeževalec";	else if (pro == "B6") var proString = "mornar, čevljar";	else if (pro == "B7") var proString = "graditelj hiš, templjev, katedral";	else if (pro == "D1") var proString = "trener, imetnik malih živali, ptic, insektov";	else if (pro == "D2") var proString = "pridigar, založnik, prevajalec starodavnih zapisov";	else if (pro == "D3") var proString = "kmetovalec, tkalec, krojač";	else if (pro == "D4") var proString = "dramatik, direktor, glasbenik, narodni pevec";	else if (pro == "D5") var proString = "bankir, oderuh, izposojevalec denarja, sodnik";	else if (pro == "D6") var proString = "učitelj, matematik, geolog";	else var proString = "plesalec, pevec, igralec";	//characteristics    charString="Nisi vnesel popolnih podatkov, oziroma je prišlo do napake.";	if (p2 == 1) {		if (place-2*(parseInt(place/2)) > 0) var charString = "Oseba z veliko energije, prava za načrtovanje in nadzorovanje. Če si bil samo smetar, si bil glavni smetarjev.";		else var charString = "Revolucionarnega značaja. Bil si navdih za spremembe v katerikoli smeri - politika, posli, religija, gospodinjstvo. Lahko bi bil tudi vodja."		}	else if (p2 == 2) {		if (place-2*(parseInt(place/2)) > 0) var charString = "Umetniška osebnost, vedno si v grdem videl dobro, belo v črnem. Vedno si našel pot do kreativnega izražanja svoje osebnosti.";		else var charString = "Plašen, boječ in tih. Imel si kreativne talente, a nikoli izkoriščene. Včasih te je okolica jemala kot čudaka."		}	else if (p2 == 3) {		if (place-2*(parseInt(place/2)) > 0) var charString = "Iskalec resnice in modrosti. Lahko si videl svojo prihodnost. Ostali so te dojemali kot idealista, ki jim sveti pot do lepše prihodnosti.";		else var charString = "Vedno si rad potoval, raziskoval. Lahko da si bil tudi detektiv ali vohun."		}	else if (p2 == 4) {		if (place-2*(parseInt(place/2)) > 0) var charString = "Bil si razumna, praktična oseba, materialist brez duhovne zavesti. S svojim preprostim razumom si pomagal šibkejšim in revnim.";		else var charString = "Vedno si rad potoval, raziskoval. Lahko da si bil tudi detektiv ali vohun."		}	else if (p2 == 5) {		if (place-2*(parseInt(place/2)) > 0) var charString = "Ciganska oseba, misteriozna, visoko nadarjena, zmožna razumevanja starodavnih zapisov. Čarovniško nadarjen, lahko si bil tudi strežnik temnih sil.";		else var charString = "Naravni talent psihologije, znal si izkoristiti vse priložnosti. Vedno hladokrven in umirjen."		}	else if (p2 == 6) {		if (place-2*(parseInt(place/2)) > 0) var charString = "Radoveden, izumiteljski, vedno si hotel priti do dna vsake zadeve in brskal po knjiga. Naravni talent za igralca, še posebej drame."		else var charString = "Taki ljudje so vedno vpleteni v vse novotarije. Vedno si ljubil spremembe, še posebej v umetnosti, glasbi in kuhanju."		}	else if (p2 == 7) {		if (place-2*(parseInt(place/2)) > 0) var charString = "Imel si možgane znanstvenika, vedno si iskal nove razlage. Ostali te niso vedno razumeli, toda bil si spoštovan.";		else var charString = "Brezobziren, grob karakter, vedno si skrbno premislil vse odločitve v kritičnih situacijah ter odlično brzdal vsak izpad. Oseba z izredno močno voljo. Taki ljudje so večinoma priljubljeni, toda ne vedno ljubljeni."		}	// past life lesson	lesString="Nisi vnesel popolnih podatkov, oziroma je prišlo do napake.";	if (p2 == 1){ 		     if (day < 12) var lesString = "Zavezan si k rešitvi problema onesnaževanja okolja, recikliranja, napačne uporabe surovih materialov, k odpravi radioaktivnosti na vseh področjih.";		else if (day < 22) var lesString = "Tvoja naloga - naučiti se ponižnosti in vere v duhovna vodila. Moral bi verjeti v Večji Razlog.";		             else  var lesString = "Zavezan si k razumevanju ostalih in k reševanju vseh življenskih težav z veselim srcem. Pomagati bi moral ostalim ter jim prinašati dobro voljo."}	else if (p2 == 2) {		     if (day < 12) var lesString = "Vedno se ti je zdelo, da je tvoje videnje sveta nekako drugačno. Tvoja naloga - upoštevaj intuicijo kot svoje najboljše vodilo v sedanjem življenju.";		else if (day < 22) var lesString = "Tvoja glavna naloga - izboljšati svet, ga polepšati. Psihični in duhovni kotički kar čakajo na tvoj pridih. Ostani nasmejan!";		              else var lesString = "Tvoja glavna naloga v sedanjosti - razviti velikodušnost in občutek bratstva. Poizkusi postati manj privržen materialnim dobrinam in se nauči imeti le toliko, kolikor lahko daš tudi nazaj."}	else if (p2 == 3) {		     if (day < 12) var lesString = "Tvoja naloga - razviti topel odnos do soljudi ter pridobiti sposobnost razumevanja in sočutja.";		else if (day < 22) var lesString = "Tvoja naloga - razvoj in razširitev tvojih umskih sposobnosti. Najti dobrega učitelja in porabiti nekaj časa in energije ob njegovi učenosti.";		              else var lesString = "Dovršitev tvoje naloge s pomočjo starejšim in otrokom. V prejšnje življenje si prišel z namenom pomagati ubogim in nemočnim."}	else if (p2 == 4) {		     if (day < 12) var lesString = "Lahko bi razvil svoj talent za ljubezen, srečo in navdušenje in razširiti te občutke med ostale ljudi.";		else if (day < 22) var lesString = "Lahko bi razvil nesebičnost in sposobnost vcepiti upanje v srca ostalih. Ambicije niso vse. Resnično bogastvo leži zakopano v tvoji duši.";		              else var lesString = "Tvoja naloga - premagati ljubosumje in jezo v samemu sebi in tistih, ki so te izbrali kot svojega vodjo. Moraš razumeti, da so te slabosti posledica strahu in obžalovanja."}	else if (p2 == 5) {		     if (day < 12) var lesString = "Tvoj problem - učiti se ljubiti in zaupati univerzumu. Primoran si k preučevanju, študiranju, premišljevanju, razvoju notranje modrosti.";		else if (day < 22) var lesString = "Tvoj problem - učiti se odločnosti in vztrajnosti. Vsaka nesreča naj bi se razblinila ob tvoji močni volji.";		              else var lesString = "Plašni, osamljeni in nesamozavestni ljudje so vsepovsod; in tvoj problem - premagati te probleme v sebi in pomagati to tudi ostalim."}	else if (p2 == 6) {		     if (day < 12) var lesString = "Svet je poln bolnih in osamljenih ljudi. Moral bi pomagati tistim, ki imajo manj sreče kot ti.";		else if (day < 22) var lesString = "Obstajajo nevidne povezave med materialnim in duhovnim svetom. Tvoja naloga - iskati in najti ter uporabiti ta most.";		              else var lesString = "Tvoja naloga - naučiti se diskretnosti in razmnosti ter to naučiti tudi druge. Tvoje življenje bo srečnejše, če boš pomagal tistim, ki jim manjka razsodnost."}	else if (p2 == 7) {		     if (day < 12) var lesString = "Tvoja naloga - študirati, vaditi in uporabljati razum, se prilagoditi psihološkim in starodavnim učenostim. Z močno vero in trdim delom ti bo uspelo doseči cilj v sedanjem življenju.";		else if (day < 22) var lesString = "Tvoja naloga - izkoreniniti je treba nasilje in nesoglasje v svetu, a razumeti njihov izvor in korenine. Vsi globalni problemi imajo isti izvor.";		              else var lesString = "Čarovnija je vsepovsod okoli tebe, v najbolj navadnih, običajnih pripetljajih. Tvoja naloga - naučiti se magije in drugim odpreti oči do nje. Ti si čarovnik!"}	//message composition	document.bgColor="#baad9d";//    MyPastLife="<table align=center BORDER bordercolor=black CELLSPACING=0 cellpadding=1 COLS=1 WIDTH=600><tr><td BGCOLOR=#b2a882><b><font face=Tahoma color=#000000><font size=-1>Diagnoza:</font></font></font></b></td></tr>";//    MyPastLife=MyPastLife+"<tr><td BGCOLOR=#ccb890><font face=Tahoma font size=-1 color=black>Ne vem kako se ti to sliši, ampak v prejšnjem življenju si";//		MyPastLife=MyPastLife+" "+MyPastLifeSex+" " ;//		MyPastLife=MyPastLife+" si se nekje tam, kjer je danes " + countryString.fontcolor('blue');//    MyPastLife=MyPastLife+" leta " + ys1.fontcolor('blue') + ". Približno.<BR>";//    MyPastLife=MyPastLife+"Po poklicu si bila oziroma bil " + proString.fontcolor('blue') + ".";//    MyPastLife=MyPastLife+"<tr><td BGCOLOR=#ccb890><font face=Tahoma font size=-1 color=black>Kratek opis tvojega psihološkega profila v prejšnjem življenju:<BR>" + charString.fontcolor('blue') + "";//    MyPastLife=MyPastLife+"<tr><td BGCOLOR=#ccb890><font face=Tahoma font size=-1 color=black>Naloga, ki si jo prinesel iz prejšnjega življenje:<BR>" + lesString.fontcolor('blue') + "</FONT> ";//    MyPastLife=MyPastLife+"<tr><td BGCOLOR=#b2a882><b><font face=Tahoma color=red font size=-1>Se sedaj spomniš?</b></td></tr></table>";    MyPastLife="";    MyPastLife=MyPastLife+"Ne vem kako se ti to sliši, ampak v prejšnjem življenju si";		MyPastLife=MyPastLife+" "+MyPastLifeSex+" " ;		MyPastLife=MyPastLife+" si se nekje tam, kjer je danes " + countryString.fontcolor('blue');    MyPastLife=MyPastLife+" leta " + ys1.fontcolor('blue') + ". Približno.<BR>";    MyPastLife=MyPastLife+"Po poklicu si bila oziroma bil " + proString.fontcolor('blue') + ".";    MyPastLife=MyPastLife+"<br><br><strong>Kratek opis tvojega psihološkega profila v prejšnjem življenju</strong><BR>" + charString.fontcolor('blue') + "";    MyPastLife=MyPastLife+"<br><br><strong>Naloga, ki si jo prinesel iz prejšnjega življenje:</strong><BR>" + lesString.fontcolor('blue') + "</FONT> ";    MyPastLife=MyPastLife+"<br><br><strong>Se sedaj spomniš?</strong>";    Pisi(MyPastLife);//}<!-- function Pisi(MyPastLife) {   if (!document.layers&&!document.all&&!document.getElementById)   return if (document.layers){   document.layers.divPISI.left="10";   //document.layers.divPISI.document.write(MyPastLife)   document.layers.divPISI.document.close() } else if (document.all)   divPISI.innerHTML=MyPastLife else if (document.getElementById)  document.getElementById("divPISI").innerHTML=MyPastLife}function MoveLayerLeft() { if (document.layers){  document.layers.divPISI.left="50"; }}onLoad=MoveLayerLeft//-->
