you="";
yousan="あなた";
mode=0;
cookiekey="PANEURANAI";
scrd=30;
scra=2;
fsize=12;
ip1=3;
ip2=142;
cl=new Array(0,0,0);
cp=new Array(0,0,0);

function changeColor(){
	with(Math){
		for(i=0;i<3;i++){
			cl[i]*=cp[i];
			if(cl[i]<1){
				cl[i]=1;
				cp[i]=(random()*0.02)+1.005;
			}
			else if(cl[i]>255){
				cl[i]=255;
				cp[i]=(random()*0.02)+0.974;
			}
		}
		document.all["MSG"].bgColor=floor(cl[0])+floor(cl[1])*256+floor(cl[2])*65536;
	}
	setTimeout("changeColor()",2);
}

function static_position(){
	for(i=0;i<document.all.length;i++){
		document.all.item(i).style.position="static";
	}
}

function clear_cookie(){
	tmp =cookiekey+"="+"; ";
	tmp+="expires=Sat, 01-Jan-2000 00:00:00 GMT; ";
	tmp+="domain=www5d.biglobe.ne.jp; ";
	tmp+="path=/~owhari/; ";
	document.cookie=tmp;
}

function set_cookie(){
	dd=new Date();
	month=new Array("Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec");
	week=new Array("Sun","Mon","Tue","Wed","Thu","Fri","Sat");
	ye=dd.getYear();	if(ye<1900)	ye+=1900;
	ye++;
	mo=dd.getMonth();
	da=dd.getDate();	if(da<10)	da="0"+da;
	dw=dd.getDay();
	ho=dd.getHours();	if(ho<10)	ho="0"+ho;
	mi=dd.getMinutes();	if(mi<10)	mi="0"+mi;
	se=dd.getSeconds();	if(se<10)	se="0"+se;
	val="you<>"+you+",scrd<>"+scrd+",scra<>"+scra+",fsize<>"+fsize+",ipa<>"+"3"+",ipb<>"+"142";
	tmp =cookiekey+"="+escape(val)+"; ";
	tmp+="expires="+week[dw]+", "+da+"-"+month[mo]+"-"+ye+" "+ho+":"+mi+":"+se+" GMT; ";
	tmp+="domain=www5d.biglobe.ne.jp; ";
	tmp+="path=/~owhari/; ";
	document.cookie=tmp;
}

function ctrl_make(x){
	mode=x;
	if(mode==0){
		ctrl="<input type='button' value='おなまえ登録 (Cookie)' onclick='name_input();'> IE6にて動作確認";
	}
	else if(mode==1){
		ctrl ="おなまえ -&gt; <input name='INPUT' type='text' maxlenth='20' onMouseover='this.focus();'>&nbsp;&nbsp;";
		ctrl+="<input type='button' value='Cookie登録' onclick='regist();'><input type='button' value='キャンセル' onclick='cansel();'>";
	}
	else if(mode==2){
		ctrl ="";
	}
	else{
		ctrl ="Delay[<span id='DELAY'>"+String(scrd)+"</span>]<input type='button' value='<' onclick='speed(0);'><input type='button' value='>' onclick='speed(1);'>&nbsp;&nbsp;";
		ctrl+="Amount[<span id='AMOUNT'>"+String(scra)+"</span>]<input type='button' value='<' onclick='speed(2);'><input type='button' value='>' onclick='speed(3);'>&nbsp;&nbsp;";
		ctrl+="Font[<span id='FSIZE'>"+String(fsize)+"</span>]<input type='button' value='<' onclick='speed(4);'><input type='button' value='>' onclick='speed(5);'>&nbsp;&nbsp;";
		ctrl+="<input type='button' value='再登録' onclick='name_input();'>&nbsp;&nbsp;";
		ctrl+="<input type='button' value='消' onclick='pop_memu(0);'>";
	}
}

function pop_memu(x){
	if((x==1)&&(mode==2)){
		ctrl_make(3);
		document.CTRL.innerHTML=ctrl;
	}
	else if((x==0)&&(mode==3)){
		ctrl_make(2);
		document.CTRL.innerHTML=ctrl;
	}
}

function name_input(){
	ctrl_make(1);
	document.CTRL.innerHTML=ctrl;
}

function cansel(){
	if(you=="")	ctrl_make(0);
	else				ctrl_make(2);
	document.CTRL.innerHTML=ctrl;
}

function regist(){
	you=document.CTRL.INPUT.value;
	if(you==""){
		yousan="あなた";
		clear_cookie();
		ctrl_make(0);
	}
	else{
		yousan=you+"さん";
		set_cookie();
		ctrl_make(2);
	}
	document.CTRL.innerHTML=ctrl;
	document.all.item("YOUR").innerHTML=yousan;
	static_position();
	if(you!=""){
		alert("スクロールメッセージ上をクリックすると調整・再登録フォームが現れます。Cookie登録を抹消したい場合は、おなまえを空欄にして再登録してください。");
	}
}

function speed(x){
	if(x==0){
		scrd-=1;
		if(scrd<1)	scrd=1;
		document.all.item("DELAY").innerHTML=String(scrd);
		scrd_str="scrolldelay="+String(scrd);
		maq=document.all.item("MSG").innerHTML;
		maq=maq.replace(/scrolldelay=[0-9]+/i,scrd_str);
	}
	else if(x==1){
		scrd+=5;
		if(scrd>100)	scrd=100;
		document.all.item("DELAY").innerHTML=String(scrd);
		scrd_str="scrolldelay="+String(scrd);
		maq=document.all.item("MSG").innerHTML;
		maq=maq.replace(/scrolldelay=[0-9]+/i,scrd_str);
	}
	else if(x==2){
		scra+=5;
		if(scra>100)	scra=100;
		document.all.item("AMOUNT").innerHTML=String(scra);
		scra_str="scrollamount="+String(scra);
		maq=document.all.item("MSG").innerHTML;
		maq=maq.replace(/scrollamount=[0-9]+/i,scra_str);
	}
	else if(x==3){
		scra--;
		if(scra<1)	scra=1;
		document.all.item("AMOUNT").innerHTML=String(scra);
		scra_str="scrollamount="+String(scra);
		maq=document.all.item("MSG").innerHTML;
		maq=maq.replace(/scrollamount=[0-9]+/i,scra_str);
	}
	else if(x==4){
		fsize--;
		if(fsize<6)	fsize=6;
		document.all.item("FSIZE").innerHTML=String(fsize);
		fsize_str="font-size:"+String(fsize);
		maq=document.all.item("MSG").innerHTML;
		maq=maq.replace(/font-size:[ ]*[0-9]+/i,fsize_str);
	}
	else{
		fsize++;
		if(fsize>48)	fsize=48;
		document.all.item("FSIZE").innerHTML=String(fsize);
		fsize_str="font-size:"+String(fsize);
		maq=document.all.item("MSG").innerHTML;
		maq=maq.replace(/font-size:[ ]*[0-9]+/i,fsize_str);
	}
	set_cookie();
	document.all.item("MSG").innerHTML=maq;
}

ctrl_make(mode);

with(document){
write("<center>");
write("<br>");
write("<table width='50%' cellspacing=0 cellpadding=2 style='color:#FFFF00;background-color:#000000;border:3px #0000FF ridge;'>");
write("	<tr>");
write("		<td id='MSG' nowrap width='100%' bgcolor='black' onClick='pop_memu(1);'>");
write("<marquee truespeed scrolldelay='30' scrollamount='2' style='font-family:HGS創英丸ﾎﾟｯﾌﾟ体;font-size:12pt;color:#FFFFFF;'>");
write("<i><font color='yellow'>パネキット占い？</font></i> ★★★今日の<span id='YOUR'>"+yousan+"</span>の運勢は「");
write("<font color='#D0CAFF'><b>ザリガニスレッジ</b></font>");
write("」でしょう．．．．．．");
write("ちなみに明日は「");
write("<font color='#D5DBDC'><b>にそうしきせんたくき</b></font>");
write("」かもしれない．．．★★★ ");
write("</marquee>");
write("		</td>");
write("	</tr>");
write("</table>");
write("<table>");
write("	<tr>");
write("		<td>");
write("			<form name='CTRL' action='javascript:regist();'>"+ctrl+"</form>");
write("		</td>");
write("	</tr>");
write("</table>");
write("</center>");
}

setTimeout("changeColor()",2);
//alert(document.all.item("MSG").innerHTML);