
<!----------　オンロード　スタート　-------->

window.onload = function Step(){
	Step_0()
	Disp_back_1();
	Bouquet_Tomei_0();
}

<!----------　ＵＰＰＥＲの左「赤い糸・結婚してハッピーネーム」の　タイトル　表示　-------->

Title_0="赤い糸";
Title_1="結婚して";
Title_2="ハッピーネーム";

cnt_0=0;

function Step_0(){
	if(cnt_0>Title_0.length)Step_T1();
		Title_o=Title_0.substring(0,cnt_0++);
	if(document.all)document.all["Disp_hidari_1"].innerHTML=Title_o;
	if(document.layers){
		document.layers["Disp_hidari_1"].document.open();
		document.layers["Disp_hidari_1"].document.write(Title_o);
		document.layers["Disp_hidari_1"].document.close();
}
		time_0=setTimeout("Step_0()",400);
}

function Step_T1(){
	clearTimeout(time_0);
	Step_1();
}

cnt_1=0;

function Step_1(){
	if(cnt_1>Title_1.length)Step_T2();
		Title_a=Title_1.substring(0,cnt_1++);
	if(document.all)document.all["Disp_ue_1"].innerHTML=Title_a;
	if(document.layers){
		document.layers["Disp_ue_1"].document.open();
		document.layers["Disp_ue_1"].document.write(Title_a);
		document.layers["Disp_ue_1"].document.close();
}
		time_1=setTimeout("Step_1()",400);
}

function Step_T2(){
	clearTimeout(time_1);
	Step_2();
}

cnt_2=0;

function Step_2(){
	if(cnt_2>Title_2.length)Step_T3();
		Title_b=Title_2.substring(0,cnt_2++);
	if(document.all)document.all["Disp_sita_1"].innerHTML=Title_b;
	if(document.layers){
		document.layers["Disp_sita_1"].document.open();
		document.layers["Disp_sita_1"].document.write(Title_b);
		document.layers["Disp_sita_1"].document.close();
}
		time_2=setTimeout("Step_2()",400);
}

function Step_T3(){
	clearTimeout(time_2);
	Step_3();
}

cnt_3=0;

function Step_3(){
	if(cnt_3>Title_0.length)Step_T4();
		Title_b=Title_0.substring(0,cnt_3++);
	if(document.all)document.all["Disp_hidari_2"].innerHTML=Title_o;
	if(document.layers){
		document.layers["Disp_hidari_2"].document.open();
		document.layers["Disp_hidari_2"].document.write(Title_o);
		document.layers["Disp_hidari_2"].document.close();
}
		time_3=setTimeout("Step_3()",400);
}

function Step_T4(){
	clearTimeout(time_3);
	Step_4();
}

cnt_4=0;

function Step_4(){
	if(cnt_4>Title_1.length)Step_T5();
		Title_a=Title_1.substring(0,cnt_4++);
	if(document.all)document.all["Disp_ue_2"].innerHTML=Title_a;
	if(document.layers){
		document.layers["Disp_ue_2"].document.open();
		document.layers["Disp_ue_2"].document.write(Title_a);
		document.layers["Disp_ue_2"].document.close();
}
		time_4=setTimeout("Step_4()",400);
}

function Step_T5(){
	clearTimeout(time_4);
	Step_5();
}

cnt_5=0;

function Step_5(){
	if(cnt_5>Title_2.length)Step_Tend();
		Title_b=Title_2.substring(0,cnt_5++);
	if(document.all)document.all["Disp_sita_2"].innerHTML=Title_b;
	if(document.layers){
		document.layers["Disp_sita_2"].document.open();
		document.layers["Disp_sita_2"].document.write(Title_b);
		document.layers["Disp_sita_2"].document.close();
}
		time_5=setTimeout("Step_5()",400);
}

function Step_Tend(){
	clearTimeout(time_5);
}

<!-------------　ＤＥＭＯ　背景写真　ブーケ　透明化　薄く------->
var a_0=100;
function setfilter_0(op_0){
	back_right_bouquet.filters.item('DXImageTransform.Microsoft.alpha').opacity=op_0;
}

function Bouquet_Tomei_0(){
		a_0-=1;
	if(a_0>=40){
		setfilter_0(a_0);
		Time_Bouquet_Tomei_0=setTimeout("Bouquet_Tomei_0()",50);
	}else{
		clearTimeout(Time_Bouquet_Tomei_0);
}}

<!--------　ＤＥＭＯ　背景写真　表面の花嫁花婿 to 後ろ向きの花嫁　------>
function Disp_back_1(){
	Time_Disp_back_6=setTimeout("Disp_back_6_end()",1000);
}
function Disp_back_6_end(){
	tp.style.zIndex=50;
	tp.style.visibility="visible";
}

var dialog_toroku_syohyo = '\n「ハッピーネーム」 は 登録商標です。' + 
			   '\n\n　　　登録第４３５８１５５号' + 
			   '\n\n　（平成１０年商願、１２年登録）' + 
 			   '\n\n第４２類　…姓名判断に関する…。\n　'

var dialog_sei_1 = '\n　ご先祖をたどれば由緒ある、お家の出であることはまちがいなし。' + 
 		   '\n\n古都に住んで、たまには和服で茶会に出ると、絵になります。\n　'
var dialog_sei_2 = '\n　宝塚歌劇団の芸名風の名前になるかもしれません。' + 
		   '\n\nファッションとメイクに、磨きをかけることはもちろん、' + 
		   '\n\n太った白鳥さん、早乙女さんは許されません。' + 
		   '\n\nダイエットに励み、結婚式までエステへ数回予約を入れましょう。\n　' 
var dialog_sei_3 = '\n　恐そうな名前になるかも知れません。' + 
		   '\n\n心配いりません、大事なのは画数で行う姓名判断。' + 
		   '\n\nハッピーネームになることも多くあります。' + 
 		   '\n\n「鬼」がつく姓は意外と多いのです（１万件中１８件）。\n　'
var dialog_sei_4 = '\n　読み方は５種類ほど、一番多いのが「みたらい」さん。' + 
		   '\n\n窓口などで呼ばれる時、緊張が走ります、呼ぶ方も呼ばれる方も。' + 
		   '\n\nもし最悪の読みで呼ばれた場合、相手の気配りのなさ、教養のＸＸ、' + 
		   '\n\n内心のムカツキを抑え、「バカ」とつぶやきましょう。' + 
 		   '\n\nこの姓の人は、なぜか立派な人が多いようです。\n　'
var dialog_sei_5 = '\n　濁音が続き、インパクトの強い響きです。' + 
		   '\n\n絶対イヤという地方もあるようですが、' + 
 		   '\n\n一度聞いたら忘れられない、存在感抜群の名前になります。\n　'
var dialog_sei_6 = '\n　よくある姓というか、日本の主流というか、とにかくお仲間が多いのです。' + 
		   '\n\n日本を支えているのは私たち、という自信が湧いてきます。\n　'

var dialog_mosikomi_siharai = '\n【 お申込み 】' + 
			   '\n\n１． 有料の申込みをされると、翌朝（営業日）には赤い糸・リスト（日本人' + 
			   '\n　　の姓・多い順と読仮名・あいうえお順の２種類）を郵送致します。' + 
			   '\n\n２． 申込みと同時に、この画面で赤い糸リスト（２種類）を表示と印刷' + 
			   '\n　　ができます。（１週間使い放題、郵送物到着前にＰＣでチェックできます）' + 
 　　			　 '\n\n\n【 ご利用料金 】' + 
			   '\n\n　　２,０００円 （消費税込み）　　 料金後納 （１４日以内）' + 
			   '\n\n\n【 お支払い方法 】' + 
			   '\n\n　・郵便口座 振込み　（同封の払込取扱票で）' + 
			   '\n　・銀行口座 振込み　（詳しくは有料申し込み画面に記載しています。）'

var dialog_happy_seimeihandan = '\n　・ハッピーネームの姓名判断は' + 
			   '\n\n日本の代表的３つの潮流（三大流派）を基に' + 
			   '\n\n画数別に各流派の判定を実態調査し、最適化しました。' + 
			   '\n\n\n　・この姓名判断をベースに、ホームページで初めて' + 
			   '\n\n即時に、赤ちゃんの名づけ候補名が表示される' + 
 　　			　 '\n\n「赤ちゃんの名づけはハッピーネーム」が平成１０年に開始しました。' + 
			   '\n\n\n【 的中率抜群のハッピーネームの姓名判断 】' + 
			   '\n\n　・このページの左サイドメニューにある「無料 ハッピーネームの姓名判断」　' + 
			   '\n\nをクリックして、ご自身の姓名判断を是非一度お試し下さい。'