var yy,mm,dd,kk;
function kabataro(form){

	if ((parseInt(form.yy.value) == 0)||(parseInt(form.yy.value) >9999)){
		alert('生まれた西暦を正しく入力してください(1〜9999までの数字)。');
		return;
	}
	else {true;}
	if ((parseInt(form.mm.value) == 0)||(parseInt(form.mm.value) >12)){
		alert('生まれた月を正しく入力してください(1〜12までの数字)。');
		return;
		}
	else {true;}
	if ((parseInt(form.dd.value) == 0)||(parseInt(form.dd.value) >31)){
		alert('生まれた日を正しく入力してください(1〜31までの数字)。');
		return;
	}
	else {true;}

	      with (Math) {
		//---year--
		y1 = floor (parseInt(form.yy.value) / 1000);
		y2 = floor ((parseInt(form.yy.value) - y1*1000)/ 100);
		y3 = floor ((parseInt(form.yy.value) - y1*1000 -y2*100)/ 10);
		y4 = floor (parseInt(form.yy.value) - y1*1000 -y2*100 - y3*10);
		y5 = y1 + y2 + y3 + y4;
			if ((y5 == 11)||(y5 == 22)) {
		 		yy = y5;
				}
			else {
		 		y6 = floor (y5 /10);
		 		y7 = y5 - y6*10;
		 		yy = y6 + y7;
					if (yy == 10) {
						yy = 1
					}
				}
		//---month---
		m1 = floor (parseInt(form.mm.value) / 10);
		m2 = floor (parseInt(form.mm.value) - m1*10);
			if (parseInt(form.mm.value) == 11) {
		 		mm = parseInt(form.mm.value);
				}
			else {
		 		mm = m1 + m2;
					if (mm == 10) {
						mm = 1
					}
				}
		//---day---
		d1 = floor (parseInt(form.dd.value) / 10);
		d2 = floor (parseInt(form.dd.value) - d1*10);
			if ((parseInt(form.dd.value) == 11)||	(parseInt(form.dd.value)) == 22) {
		 		dd = parseInt(form.dd.value);
				}
			else {
		 		dd = d1 + d2;
					if (dd == 10) {
						dd = 1
					}
				}
		//---kabbalah---
		kk = yy + mm + dd;
			if (kk < 10 ){
				true;
				}
			else {
				if ((kk == 11)||(kk == 22)) {
					true;
					}
				else {		
		 			k1 = floor (kk / 10);
		 			k2 = floor (kk - k1*10);
		 			kk = k1 + k2;
						if (kk == 10) {
							kk = 1
						}
					}
				}

			}

	if (kk == 1) {
            kk = 1
         	newwindow(kk);
	}


		else if(kk == 2) {
            kk = 2
         	newwindow(kk);
	}

		else if(kk == 3) {
            kk = 3
         	newwindow(kk);
	}

		else if (kk == 4) {
            kk = 4
         	newwindow(kk);
	}

		else if (kk == 5) {
            kk = 5
         	newwindow(kk);
	}

		else if (kk == 6) {
            kk = 6
         	newwindow(kk);
	}

		else if (kk == 7) {
            kk = 7
         	newwindow(kk);
	}

		else if (kk == 8) { 
            kk = 8
         	newwindow(kk);
	}

		else if (kk == 9) {
            kk = 9
         	newwindow(kk);
	}

		else if (kk == 11) {
            kk = 10
         	newwindow(kk);
	}

		else if (kk == 22) {
            kk = 11
         	newwindow(kk);
	}
		else {
			alert('生年月日を入力してください。計算できない場合は計算方法をご覧下さい。');
		}
		}


function newwindow(unmeisu) {
var msgkaba = new Array();

msgkaba[0]="<h3>運命数１　9/4(土)〜9/9(金)</h3>心身ともに疲れやすいとき。社交や遊びは止めて、自宅で有意義に過ごして吉。金銭処理は早く！<br><font color='#ff80ff'>幸運度２★★</font>☆☆☆";
msgkaba[1]="<h3>運命数２　9/4(土)〜9/9(金)</h3>タイミングが合えば、家の用事は済ませてお付き合いを前向きに。お金は計画的にして不安なしで！<br><font color='#ff80ff'>幸運度３★★★</font>☆☆";
msgkaba[2]="<h3>運命数３　9/4(土)〜9/9(金)</h3>貰い物や前向きにしてよい知らせあり。ただし身内や親しい人には期待せず落ち着いて！仕事よし。<br><font color='#ff80ff'>幸運度２★★</font>☆☆☆";
msgkaba[3]="<h3>運命数４　9/4(土)〜9/9(金)</h3>社交や遊びは延期して、仕事やお金など現実面を頑張るとき！微妙に疲れるので休養で活力復活を。<BR><font color='#ff80ff'>幸運度２★★</font>☆☆☆";
msgkaba[4]="<h3>運命数５　9/4(土)〜9/9(金)</h3>手一杯にせず可能なことを無理なくケアする範囲で！自宅でも忙しくしてよし！対人は休養のとき。<br><font color='#ff80ff'>幸運度３★★★</font>☆☆";
msgkaba[5]="<h3>運命数６　9/4(土)〜9/9(金)</h3>金銭は積極計画で吉。対人はなれ合いを避ければ有望です。仕事は優柔不断な男性に振り回されずにね。<br><font color='#ff80ff'>幸運３★★★</font>☆☆";
msgkaba[6]="<h3>運命数７　9/4(土)〜9/9(金)</h3>親しい人への連絡は怠らず！家で続ける努力をして吉。優柔不断な男性との堂々巡りな行いはストップ。<br><font color='#ff80ff'>幸運度３★★★</font>☆☆";
msgkaba[7]="<h3>運命数８　9/4(土)〜9/9(金)</h3>金銭管理は厳しく割り切って吉。外出は控えて友達とのメール程度でね。今後へ積極性を発揮！<br><font color='#ff80ff'>幸運度３★★★</font>☆☆";
msgkaba[8]="<h3>運命数９　9/4(土)〜9/9(金)</h3>気分による出費やお出かけは絶対にマイナス！自宅で自分スタイルにて有意義で楽しく。仕事は意欲！<br><font color='#ff80ff'>幸運３★★★</font>☆☆";
msgkaba[9]="<h3>運命数１１　9/4(土)〜9/9(金)</h3>出費を避ければ少し安心。仕事は意思表示や連絡を俊敏にね！社交や遊びは軽い程度なら吉。<br><font color='#ff80ff'>幸運度３★★★</font>☆☆";
msgkaba[10]="<h3>運命数２２　9/4(土)〜9/9(金)</h3>金銭管理は厳しく行い、遊びや外出も控えめがよし！付き合いは親しい人より仕事関係や知人と。<br><font color='#ff80ff'>幸運度３★★★</font>☆☆";

	nwin = window.open("", "Newwindow","width=400,height=300");
	nwin.document.open();
	nwin.document.write("<HTML><HEAD>");
	nwin.document.write("<TITLE>カバラTarot週間運勢</TITLE>");
	nwin.document.writeln("<body bgcolor='#000000' text='#ffffff' leftmargin='10' topmargin='10'>");
	nwin.document.writeln(msgkaba[unmeisu - 1]);
	nwin.document.write("<div align='right'>by Active Tarot Reading</div>");
	nwin.document.write("</body></HTML>");
	nwin.document.close();

	return false;
}