// data[] :テキストフィールドに流したい文字とURLを配列にする
	var data=new Array(
		"2008/3/14　イベントホウル、更新しました。セットリストなどなど。"
		,"2008/3/7　”楽宴祭貳”無事終了いたしました！"
		,"ご来場頂き、誠にありがとうございました！"
		,"ぜひ、ご来場者様アンケートにご協力下さい！"
	);
	
	// runable :ブラウザ判定
	var runable=(!document.getElementById)? (!document.all)? (!document.layers)? -1:1:2:3;
		
	// now :現在表示しているdata[]配列のインデックス
	var now=0;
	
	// count :moveMessage() , leaveMessage()用のループカウンタ
	var count=0;
	
	// width :表示する横幅
	width=10;
	
	// left :文字列の初期表示位置 px
	var left=10;
	
	// timerID :タイマー変数
	var timerID=0;
	
	// stay :文字列がとどまる時間(ミリ秒)
	var stay=5000;
	
	// stop :trueの時は動作を中止する
	var stop=false;
	
	function getElm(name,style)
	{//オブジェクト取得

		var obj;
		if (runable==1) obj=document.layers[name];
		else if (runable==2) obj=document.all(name);
		else obj=document.getElementById(name);

		if (style && runable>1) obj=obj.style;
		return obj;
	}
	function set()
	{
		if (runable==1) getElm("slide").clip.width=width;
		else getElm("new").clip="rect(0 "+width+" 21 0)";
		start(1);
	}
	function start(flg)
	{// 初期化と文字流しの開始

		if (!runable || stop) return;

		space=left;
		count=0;
		if (!flg) now%=data.length;
		
		if (runable>1)
		{
			getElm("slideLink").innerHTML=data[now];
			getElm("slideLink").blur();
		}
		put(data[now],0);
		timerID=setTimeout("moveMessage()",0);
	}
	function moveMessage()
	{// 文字列を流す
	
		clearTimeout(timerID);
		if (stop) return;
		
		// 文字列を流す
		space=Math.floor(space*0.66);
		put(data[now],space);
		
		if (space!=0)
		{
			count+=1
			timerID=setTimeout("moveMessage()",20);
		}
		else
		{
			count=0;
			timerID=setTimeout("leaveMessage()",stay);
		}
	}
	function leaveMessage()
	{//文字列を消す
	
		clearTimeout(timerID);
		if (stop) return;
		
		// L :文字列を何回に分けて消すか
		var L=4;
		var mess=data[now];
		var a=Math.floor(mess.length/L);
		
		// 1回分の文字を消す
		var str=mess.substr(count*a,mess.length);
		if (count==L && a*L!=mess.length) str=mess.substr(a*L,mess.length);
		put(str,false,1);
		
		if (str=="" || !str)
		{
			now++;
			start();
		}
		else
		{
			count+=1;
			timerID=setTimeout("leaveMessage()",20);
		}
	}
	function put(text,spc,leave)
	{//文字列をオブジェクトに書く
	
		var slideHTML=(""
			+(
				(spc && runable==1)? 
					"<table width='"+spc+"' border='1' cellspacing='0' cellpadding='0' align='left''>"
					+"<tr><td width='"+spc+"'600'> </td></tr></table>"
					:""
			)
			+text
		);
		if (runable==1)
		{
			getElm("new").document.open();
			getElm("new").document.write(slideHTML);
			getElm("new").document.close();
			return;
		}
		else if (leave) getElm("slideLink").innerHTML=text;
		if (spc) getElm("spacerTd").width=spc;
	}