/* 180sc.js Scroll script Copyright(c)M.Murakami 2002-2003 mmurakami@mx4.kiti.ne.jp */
/* 2003.6.10 Version */

w = 1 ; // dot
t = 20 ; // ms
st = 1000 ; // ms
ds = 20 ; // dot
pw2 = 20 ; // dot
var scw;
pn_flg = true ;
play_flg = true ;
down_flg = false ;
pic_flg = false ;
c = "on" ;
h = ">" ;
lim = "off";

document.write(
"<TABLE width=\"100%\" cellpadding=\"0\" cellspacing=\"0\">",
" <TBODY>",
"  <TR>",
"   <TD>",
"    <TABLE id=\"cont1\" cellpadding=\"0\" cellspacing=\"4\" style=\"visibility :hidden;\">",
"     <TBODY>",
"      <TR>",
"       <TD nowrap align=\"center\" width=\"70\" bgcolor=\"#cccccc\" onclick='b_click(\"pic\")' style=\"cursor:hand\"><FONT color=\"#000000\" size=\"-1\"><SPAN id=\"pic\">Scroll Off</SPAN></FONT></TD>",
"       <TD nowrap width=\"16\"></TD>",
"       <TD nowrap width=\"50\" align=\"center\" bgcolor=\"#bbbb99\" onclick='b_click(\"play\")' style=\"cursor:hand\"><FONT color=\"#000000\" size=\"-1\"><SPAN id=\"stop\">Stop</SPAN></FONT></TD>",
"       <TD nowrap width=\"40\" align=\"center\" bgcolor=\"#bbbb99\" onclick='b_click(\"rev\")' style=\"cursor:hand\"><FONT color=\"#000000\" size=\"-1\">Rev.</FONT></TD>",
"       <TD nowrap width=\"24\" align=\"center\" bgcolor=\"#bbbb99\" onclick='b_click(\"f\")' style=\"cursor:hand\"><FONT color=\"#000000\" size=\"-2\"><SPAN id=\"f\">&gt;</SPAN></FONT></TD>",
"       <TD nowrap width=\"24\" align=\"center\" bgcolor=\"#bbbb99\" onclick='b_click(\"ff\")' style=\"cursor:hand\"><FONT color=\"#000000\" size=\"-2\"><SPAN id=\"ff\">&gt;&gt;</SPAN></FONT></TD>",
"       <TD nowrap width=\"24\" align=\"center\" bgcolor=\"#bbbb99\" onclick='b_click(\"fff\")' style=\"cursor:hand\"><FONT color=\"#000000\" size=\"-2\"><SPAN id=\"fff\">&gt;&gt;&gt;</SPAN></FONT></TD>",
"       <TD nowrap width=\"16\"></TD>",
"       <TD nowrap width=\"30\" align=\"center\" bgcolor=\"#bbbb99\" onmousedown='b_updown(\"f_down\")' onmouseup='b_updown(\"f_up\")' onmouseout='b_updown(\"out\")' style=\"cursor:hand\"><FONT color=\"#000000\" size=\"-2\">&lt;--</FONT></TD>",
"       <TD nowrap width=\"30\" align=\"center\" bgcolor=\"#bbbb99\" onmousedown='b_updown(\"r_down\")' onmouseup='b_updown(\"r_up\")' onmouseout='b_updown(\"out\")' style=\"cursor:hand\"><FONT color=\"#000000\" size=\"-2\">--&gt;</FONT></TD>",
"       <TD nowrap width=\"16\"></TD>",
"      </TR>",
"     </TBODY>",
"    </TABLE>",
"   </TD>",
"   <TD id=\"cont2\" align=\"right\" nowrap width=\"100%\"><A href=\"http://ww4.tiki.ne.jp/~mmurakami/setoy/\" target=\"_blank\"><FONT size=\"-1\" color=\"#aaaa88\">JavaScript by M.Murakami</FONT></A></TD>",
"  </TR>",
" </TBODY>",
"</TABLE>"
);

/* size */
function pwset(){
	dw = w ;
	ds += 20;
	pw2 -= 10;
	pic1.style.position = "relative" ;
	switch (h){
		case '>' : dw = w ; break ;
		case '>>' : dw = w * 2 ; break ;
		case '>>>' : dw = w * 4 ; break ;
	}

	if(document.body.clientWidth){
		scw = document.body.clientWidth ;
		if (scw < 80){ scw = 80 };
		if (scw > 2048){ scw = 2048 };
	}
	else{
		scw = 800 ;
		if (screen.width >= 800){ scw = screen.width };
		if ((screen.width > 1280) && (lim.toLowerCase() == "on")) { scw = 1024 };
		ds += 80;
	}
	if (document.referrer.search(/setoy/) > 0 ) {cont2.style.visibility  = "hidden" };
	pw1 = -( pic1.width - scw + ds ) ;
	if (( scw - ds ) < pic1.width ) {
		b_set();
		s_mov();
	}
}

/* start move */
function s_mov(){
	if ( pn_flg ) { p_mov() } else { n_mov() };
}

/* move left */
function p_mov(){
	pic1.style.posLeft -= dw ;
	if ( pic1.style.posLeft > pw1 ) { timerID = setTimeout( "p_mov()", t ) } 
	else { pn_flg = false ; t_mov()};
}

/* move right */
function n_mov(){
	pic1.style.posLeft += dw ;
	if ( pic1.style.posLeft < pw2 ) {  timerID = setTimeout( "n_mov()", t ) }
	else { pn_flg = true ; t_mov()};
}

/* turn */
function t_mov(){
	timerID = setTimeout( "s_mov()", st );
	b_set();
}

/* show buttons */
function b_set(){
	if (c.toLowerCase() == "on") {cont1.style.visibility  = "visible"};
	if (play_flg){stop.innerText="Stop"} else { stop.innerText="Play" };
	if (pn_flg){f.innerText=">";ff.innerText=">>";fff.innerText=">>>"}
		else {f.innerText="<";ff.innerText="<<";fff.innerText="<<<"};
	if (pic_flg) {pic.innerText="Scroll ON"} else {pic.innerText="Scroll Off"};
}

/* button click */
function b_click(b){
	clearTimeout(timerID);
	switch (b){
		case 'play' : play_flg = !play_flg ; break;
		case 'f' : dw = w ; play_flg = true ; break;
		case 'ff' : dw = w * 2 ; play_flg = true ; break;
		case 'fff' : dw = w * 4 ; play_flg = true ; break;
		case 'rev' : pn_flg = !pn_flg ; break;
		case 'pic' : if (pic_flg) { pic_flg = false ; pn_flg = true ; play_flg = true }
				else { pic_flg = true ; pn_flg = true ; play_flg = false ; pic1.style.posLeft = 0 } ; break;
	}
	if (play_flg) { pic_flg = false };
	b_set();
	if (play_flg) { pic_flg = false ;  s_mov() };
}

/* Arrow move right */
function pf_mov(){
	pic1.style.posLeft -= 16 ;
	if (( pic1.style.posLeft > pw1 ) && (down_flg)) { timerID = setTimeout( "pf_mov()", t ) } 
}
/* Arrow move left */
function nf_mov(){
	pic1.style.posLeft += 16 ;
	if (( pic1.style.posLeft < pw2) && (down_flg)) {  timerID = setTimeout( "nf_mov()", t ) } 
}

/* Arrow click */
function b_updown(b){
	switch (b){
		case 'r_down' : pn_flg = true  ; down_flg = true ; break ;
		case 'f_down' : pn_flg = false ; down_flg = true ; break ;
		default : down_flg = false ;
	}
	if (down_flg) {
		clearTimeout(timerID) ; play_flg = false ; pic_flg = false ; b_set();
		if (pn_flg) {pf_mov()} else {nf_mov()};
	};
}