Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris
 
PerlMonks  

AgentM

by AgentM (Curate)
on Jun 14, 2000 at 19:31 UTC ( #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=hexCodesshadeNum-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> <img onLoad="javas‎crip‎t: var currentColor=4; var incrementBool=1; var speed=50; setTimeout('changebgColor();',speed);" src="http://www.themactionfaction.com/WebM.png"/>

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others avoiding work at the Monastery: (7)
As of 2023-12-08 02:51 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    What's your preferred 'use VERSION' for new CPAN modules in 2023?











    Results (35 votes). Check out past polls.

    Notices?