// 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("Complete la case!");
        return false;    }
    for (var i = 0; i< str.length; i++) {
        var ch = str.substring(i, i + 1);
        if (ch< "0" || ch > "9") {
            alert("Allez un chiffre, s'il te plait!");
            return false;
       }
    }
    var val = parseInt(str, 10);
    if ((val< min) || (val > max)) {
        alert("tape un chiffre de 1 à "+max+", faut vraiment te macher le travail.");
        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 LINK=#FFB401 VLINK=#FFB401>");
	msgWindow.document.write("<div align=center><img src=http://users.pandora.be/gad/re/uvijnklein.jpg></div>");	
	msgWindow.document.writeln("<FONT Color=red Face=Arial><B><I>Diagnostic:</I></B></FONT><HR>");	
	msgWindow.document.write("<FONT Color=white Face=Arial>"); 
	msgWindow.document.write("<P>Je ne sais pas comment tu le ressentiras, mais tu étais ");

	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 homme</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>une femme</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(" lors de ta dernière réincarnation 'terrestre'." + "<P>");

	//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="Canada du Nord"; 
	else if (place == 4) countryString="Ontario"; 
	else if (place == 5) countryString="Quebec";
	else if (place == 6) countryString="Labrador"; 
	else if (place == 7) countryString="Papouasie"; 
	else if (place == 8) countryString="Groeland";else if (place == 9) countryString="Nord Ouest USA"; 
	else if (place == 10) countryString="Sud Ouest USA";
	else if (place == 11) countryString="Nord USA"; 
	else if (place == 12) countryString="Sud USA"; 
	else if (place == 13) countryString="Nord Est USA"; 
	else if (place == 14) countryString="Sud Est USA"; 
	else if (place == 15) countryString="Artique"; 
	else if (place == 16) countryString="Ecosse"; 
	else if (place == 17) countryString="Kenya";else if (place == 18) countryString="Angleterre"; 
	else if (place == 19) countryString="Pays de Galles";
	else if (place == 20) countryString="Iles de Paques"; 
	else if (place == 21) countryString="Irlande"; 
	else if (place == 22) countryString="Nouvelle Zemble"; 
	else if (place == 23) countryString="France"; 
	else if (place == 24) countryString="Espagne"; 
	else if (place == 25) countryString="Portugal"; 
	else if (place == 26) countryString="Autriche"; 
	else if (place == 27) countryString="Allemagne"; 
	else if (place == 28) countryString="Ukraine"; 
	else if (place == 29) countryString="Italie"; 
	else if (place == 30) countryString="Turquie";else if (place == 31) countryString="Russie occidentale";else if (place == 32) countryString="Siberie"; 
	else if (place == 33) countryString="Russie centrale"; 
	else if (place == 34) countryString="Grece"; 
	else if (place == 35) countryString="Iran"; 
	else if (place == 36) countryString="Arabie Saoudite"; 
	else if (place == 37) countryString="Pologne"; 
	else if (place == 38) countryString="Hongrie"; 
	else if (place == 39) countryString="Yougoslavie"; 
	else if (place == 40) countryString="Roumanie"; 
	else if (place == 41) countryString="Bulgarie"; 
	else if (place == 42) countryString="Israel"; 
	else if (place == 43) countryString="Tibet"; 
	else if (place == 44) countryString="Burma"; 
	else if (place == 45) countryString="Thailande"; 
	else if (place == 46) countryString="Chine du sud"; 
	else if (place == 47) countryString="Mongolie"; 
	else if (place == 48) countryString="Chine du nord"; 
	else if (place== 49) countryString="Coree";
      else if (place == 50) countryString="Japon "; 
	else if (place == 51) countryString="Martinique"; 
	else if (place == 52) countryString="Sumatra"; 
	else if (place == 53) countryString="Borneo"; 
	else if (place == 54) countryString="Philippines"; 
	else if (place == 55) countryString="Nouvelle Guinee"; 
	else if (place == 56) countryString="Australie"; 
	else if (place == 57) countryString="Tasmanie"; 
	else if (place == 58) countryString="Nouvelle Caledonie";
	else if (place == 59) countryString="Guyane"; 
	else if (place == 60) countryString="Nouvelle Zelande"; 
	else if (place == 61) countryString="Guadeloupe"; 
	else if (place == 62) countryString="Samoa occidentale";
	else if (place == 63) countryString="Inde"; 
	else if (place== 64) countryString="Iles Tonga"; 
	else if (place == 65) countryString="Terre de feu"; 
	else if (place == 66) countryString="Egypte"; 
	else if (place == 67) countryString="Maroc";
      else if (place == 68) countryString="Cameroun"; 
	else if (place == 69) countryString="Zaire"; 
	else if (place == 70) countryString="Afrique du Sud"; 
	else if (place == 71) countryString="Mexique"; 
	else if (place == 72) countryString="Chypre";
	else if (place == 73) countryString="Cuba"; 
	else countryString="Iles Clipperton";


	//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 = "fossoyeur, mineur";
	else if (pro == "A2") var proString = "philosophe, lutteur (ce n'est pas incompatible)";
	else if (pro == "A3") var proString = "artisan, inventeur en décalage sur ton époque";
	else if (pro == "A4") var proString = "chimiste, un peu sorcier, concocteur de poisons";
	else if (pro == "A5") var proString = "marin, cuisinier, charpentier";
	else if (pro == "A6") var proString = "bijoutier, horloger, camelot";
	else if (pro == "A7") var proString = "chirurgien herboriste aromatologue";
	else if (pro == "C1") var proString = "berger, forestier, professeur de latin ";
	else if (pro == "C2") var proString ="capitaine (le karmathon ne précise pas s'il s'agit d'une armée ou d'une équipe de rami";
	else if (pro == "C3") var proString = "libraire, pretre, gardien de reliques religieuses";
	else if (pro == "C4") var proString = "musicien, poete, professeur de danse";
	else if (pro == "C5") var proString = "marin trafiquant, businessman, négociant";
	else if (pro == "C6") var proString = "moine, apiculteur, chasseur de primes";
	else if (pro == "C7") var proString = "ecrivain, dramatologue, organisateur de ceremoniesrituelles";
	else if (pro == "B1") var proString = "cantonnier, ou quelquechose en rapport avec le riz";
	else if (pro == "B2") var proString = "astrologue, astronome, geographe";
	else if (pro == "B3") var proString = "artisan flutier, tire la jambe, eveque";
	else if (pro == "B4") var proString = "guerrier, chasseur, pecheur, bourreau, tricoteuse et brodeuse";
	else if (pro == "B5") var proString = "artiste, magicien, diseur de bonnes aventures";
	else if (pro == "B6") var proString = "cordonnier, personne de peu de vertus";
	else if (pro == "B7") var proString = "grand batisseur, templiers, tireur de cloche";
	else if (pro == "D1") var proString = "grand explorateur, rapporteur des merveilles de la nature, historien";
	else if (pro == "D2") var proString = "precheur, imprimeur, scribe de documents anciens";
	else if (pro == "D3") var proString = "fermier, tailleur ou réparateur de magnétoscope (mais la je crois que ca surchauffe";
	else if (pro == "D4") var proString = "comedien, auteur, barde";
	else if (pro == "D5") var proString = "banquier, usurier, juge, brigand de grand (et petit) chemin";
	else if (pro == "D6") var proString = "medecin, mathematicien, physicien";
	else var proString = "rentier, fou du roi, acteur de soap opera (d'epoque)";


	//characteristics



	
if (p2 == 1) {if (place-2*(parseInt(place/2)) > 0) var charString = "Grosse énergie, pas toujours facile à canaliser, des dons pour la planification et la supervision. Si tu étais éboueur, tu étais chef-éboueur.";else var charString = "Un peu revolutionnaire. Tu as été à l'origine de changements- politiques, judicaires, religieux, intimes. Tu aurais pu être charismatique si tu n'avais été comme tu es un peu aujourd'hui ."
}; if (p2 == 2) {if (place-2*(parseInt(place/2)) > 0) var charString = "Personnalité artistique, toujours transformant le moche en beau, le terne en couleurs vives. Tu étais capable de trouver un mode d'expression original dans n'importe quelle situation.";else var charString = "Timide, constipé, de ce fait plutot calme. Tu attendais que la vie t'expose tes propres qualités. Le plus souvent les autres te trouvaient plutot bizarre."
}; if (p2 == 3) {if (place-2*(parseInt(place/2)) > 0) var charString = "Chercheur de vérité et de sagesse, ou de details croustillants sur tes voisins. Tu as pu peut-etre avoir conscience de tes vies futures. Les autres te percevaient comme un idéaliste illuminant les chemins du futur.";else var charString = "Tu as toujours aimé voyager, espionner, scruter, aurait pu être espion ou detective."
}; if (p2 == 4) {if (place-2*(parseInt(place/2)) > 0) var charString = "Vous étiez une personne plutot saine , materialiste sans conscience spirituelle. Ta simple sagesse aida les pauvres et les faibles.";else var charString = "Exhibitionniste refoulé, tu as toujours été tenté par les extremes. Mais ta mète t'as toujours obsedé."
}; if (p2 == 5) {if (place-2*(parseInt(place/2)) > 0) var charString = "Personnalité un peu bohemienne, mysterieuse, largement dotée, capable de comprendre les textes anciens. Habilités de magicien, très manuel, aurait pu être servant des forces sombres.";else var charString = "Talent inné de psychologie, sais saisir les opportunités. Sang froid et calme en toute situation."
}; if (p2 == 6) {if (place-2*(parseInt(place/2)) > 0) var charString = "Personnalité curieuse,inventive, aime aller au fond des choses. Talent pour le drame, acteur né.v "
else var charString = "Toujours à la pointe de la technologie. Tu as toujours aimé les changements, les échanges humains, artistiques, culinaires."
}; if (p2 == 7) {if (place-2*(parseInt(place/2)) > 0) var charString = "Tu avais l'esprit d'un scientifique, toujours à la recherche de nouvelles explications.Tes comtemporains ne t'ont pas toujours suivis,mais ont toujours respecter ton savoir faire.";else var charString = "Rude de caractère, balancant toujours le pour et le contre, avec un excellent controle de son entité d'homme et de pensée doté d'une grande volonté. Souvent apprecié, rarement aimé."
};
if (p2 == 1){      if (day < 12) var lesString = "Tu est destiné à résoudre les problemes de pollution, recyclage, elimination des ondes négatives, dans tous les sens du terme incluant le sens psychiatrique du terme.";else if (day < 22) var lesString = "La leçon -- apprendre l'humilité et la foi dans les principes spirituels. Tu devrais croire au bien en chacun individuellement, et au mal en groupe.";             else  var lesString = "Tu es destiné à apprendreà comprendre les autres et rencontrer toutes les difficultés de la vie avec un coeur heureux. Tu devrais aider les autres, amener leurs esprits vers la joie."};
if (p2 == 2) {     if (day < 12) var lesString = "Il t'est toujours apparu que tes perceptions du monde variaient de la norme. Ta leçon -- faire confiance à ton intuition comme ton meilleur guide dans ta vie présente.";else if (day < 22) var lesString = "Ta tache principale -- rendre le monde plus beau. Les deserts physiques et spirituels n'attendent que ta touche. Garde le sourire !";              else var lesString = "Ta mission du quotidien -- developper la magnanimité et le sentiment de fraternité autour de toi. Essaie de tedetacher du materiel et apprend à posseder seulement autant que ce que tu peux redonner."};
if (p2 == 3) {     if (day < 12) var lesString = "Ta lecon -- developper une attitude plus amicale, acquerir le don de la comprehension et de la compassion.";else if (day < 22) var lesString = "Ta lecon -- developpement et expansion de ta conscience mentale. Trouve un bon professeur, consacre une bonne part de ton temps et energie à écouter sa sagesse.";              else var lesString = "L'essence de ta vie :  aide aux anciens et aux enfants. Tu es (re)venu à la vie pour apprendre à prendre soin des faibles et des necessiteux."};
if (p2 == 4) {     if (day < 12) var lesString = "Tu devrais developper tes talents pour l'amour, la joie et l'enthousiasme, et distribuer ces sentiments autour de toi.";else if (day < 22) var lesString = "Tu devrais developper l'amour propre et l'habiliter à implanter l'espoir dans le coeur de ton prochain. L'ambition n'est pas tout. La vraie richesse est feutrée dans ton ame.";              else var lesString = "Ta leçon -- vaincre la colère et la jalousie en toi et en ceux qui te prenne pour guide. Tu devrais comprendre que ces faiblesses resultent de la peur et du regret."};
if (p2 == 5) {     if (day < 12) var lesString = "Ton probleme -- apprendre à aimer et à faire confiance à l'univers. Tu es destiné à penser, étudier, réflechir, et developper la sagesse interieure.";else if (day < 22) var lesString = "Ton probleme -- apprendre la determination et la persistence. Les coups du destin s'ecrasent face à ta force de caractère.";              else var lesString = "Les timides, solitaires et pretentieux sont partout, et ton probleme -- depasser ces tendances en toi pour enfin à prendre conscience de l'autre et ainsi t'aider et l'aider."};
if (p2 == 6) {     if (day < 12) var lesString = "Le monde est plein de gens seuls et malades. Tu devrais aider ceux qui sont moins gatés que toi.";else if (day < 22) var lesString = "Il y a la connection invisible entre les mondes materiel et spirituel. Ta leçon -- chercher, trouver et utiliser ce pont.";              else var lesString = "Ta leçon -- apprendre la discretion et la moderation, et apprend aux autres à faire de même. Ta vie en sera plusheureuse, quand tu aides à guider ceux qui prennent les mauvaises cartes."};
if (p2 == 7) {     if (day < 12) var lesString = "Ta leçon -- étudier, s'exercer et utiliser la sagesse, liée aux sciences psychologiques,et manuscripts anciens. Avec une grande foi et un dur labeur, tu atteindras ta vraie destinée dans cette vie.";else if (day < 22) var lesString = "Ta leçon -- combattre la violence, l'injustice et l'irrespect dans le monde, comprendre ses racines et origines. Le plus grands problemes de l'humanité ont tous la même origine.";              else var lesString = "La magie est tout autour de toi, dans ces petites choses quotidiennes. Ta leçon --apprendre à reconnaitre le magique de la vie et aider les autres à y voir plus clair. Un vrai magicien des couleurs !"};

msgWindow.document.write("<p>Tu naquis sur terres sacrées de ce qu'on appelle aujourd'hui : " + countryString.fontcolor("yellow"));

	msgWindow.document.write(", aux environs de " + ys1.fontcolor("yellow") + " après JC.<p>");

	msgWindow.document.write("Tu as pu avoir la chance d'excercer ces divers métiers : " + proString.fontcolor("yellow") + ".<p><HR><p>");

	msgWindow.document.write("<p>Psychologiquement, tu étais plutot : <p>" + charString.fontcolor("yellow") + "<p><HR><p>");

	msgWindow.document.write("<p>De ta vie passée, tu n'es pas revenu les mains vides, tu as ramené quelques bonnes leçons : <p>" + lesString.fontcolor("yellow") + "<P><DIV align=center><iframe scrolling=no frameborder=no src=pubreincarnatiefr.html style=width:728px; height: 150px; border:0; overflow:hidden;></iframe></DIV><P><HR><p><div align=center><a href=http://www.kwebbel.net/voyance>Testez votre voyance ! ... Etes-vous paranormal ou voyant ou avez-vous une bonne intuition ?</a><p><a href=http://users.pandora.be/gad/angel/fr/index.html>Testez votre ange gardien !</a><p><a href=http://www.kwebbel.net/gsmcontrole-fr>Localisation par GSM ...</a><p><a href=http://www.kwebbel.net/amour>Testez votre profil d'amour !</a><p><a href=http://www.kwebbel.net/sexappealtest/attirance.html>La numérologie peut-elle révéler la vraie force de votre sex appeal ?</a><p><a href=http://www.kwebbel.net/chauve/>A quel âge je perds mes cheveux et je deviens chauve ?</a><p><a href=http://www.kwebbel.net/mort/>Quand vais-je mourir ? Votre espérance de vie ! </a><p><BR><font color=#ffffff><b>Nouveau a Belgique</b></font> :  <a href=http://www.kwebbel.net/oneliners/index-fr.php>Votre expression dit par quelqu'un d'autre !</a><p></div><HR></FONT> ");







msgWindow.document.write("<P><DIV align=right><FONT COLOR=#ff0000 SIZE=+1>Plus ...  </FONT> <A HREF=http://www.kwebbel.net/fr.html><IMG SRC=pijl.gif border=0></A><P></DIV>");


//
      
}

 
