Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask
 
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

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 exploiting the Monastery: (3)
As of 2024-07-21 13:31 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?
    erzuuli‥ 🛈The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.