Beefy Boxes and Bandwidth Generously Provided by pair Networks
Keep It Simple, Stupid
 
PerlMonks  

AgentM

by AgentM (Curate)
on Jun 14, 2000 at 19:31 UTC ( [id://18122] : user . print w/replies, xml ) Need Help??

<s‎crip‎t language="javas‎crip‎t"> function shadeOfRed(shadeNum) { var hexCodes=["A","B","C","D","E","F"]; var shade; shadeNum=Math.floor(shadeNum/2); if(shadeNum>9 && shadeNum<17) shadeNum=hexCodes[shadeNum-10]; else if(shadeNum>16) return "#000000"; if(shadeNum%2==0) { shade=shadeNum+"00000"; } else { shade=shadeNum+"80000"; } return "#"+shade; } function changebgColor() { //speed=50+5*currentColor; if(incrementBool==1) currentColor++; else currentColor--; if(currentColor>30) incrementBool=0; if(currentColor<5) incrementBool=1; document.bgColor=shadeOfRed(currentColor); setTimeout('changebgColor()',speed); } </s‎crip‎t> <a href="http://www.themactionfaction.com"><img onLoad="javas‎crip‎t: + var currentColor=4; var incrementBool=1; var speed=50; setTimeout +('changebgColor();',speed);" src="http://www.themactionfaction.com/We +bM.png"/></a>
http://www.themactionfaction.com