text animator javascript

este codigo javascript muestra un pequeño texto que se desplaza verticalmente, con un efecto muy bien logrado.

Código Javascript


<HTML>
<HEAD>
<TITLE>text animator javascript</TITLE>
</HEAD>
<script type="text/javascript">
<!-- Hiding
/*	Script by Lefteris Haritou	
	Copyright ©1997 
	http://www.geocities.com/~lef
	This Script is free as long 
	as you keep the above credit !
*/
/*
        Script por Lefteris Haritou
        Derechos Reservados ©1997 
        http://www.geocities.com/~lef   
        Este Script es libre mientras
        usted mantenga el crédito anterior
 
*/
bname=navigator.appName;
bversion=parseInt(navigator.appVersion)
if ((bname=="Netscape" && bversion>=4) || (bname=="Microsoft Internet Explorer" && bversion>=4)){
if (bname=="Netscape")
brows=true
else
brows=false
var z=0;
var msg=0;
var rgb=0;
var message= new Array();
var value=0;
var timer1;
var timer2;
var convert = new Array()
var hexbase= new Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "A", "B", "C", "D", "E", "F");

// Put here your own messages. Add as many as you wan't (Do not edit anything else in the Script except the lines below)

var bgcolor="#FFFFFF"; //Color of background
var color="#0000FF";  //Color of the Letters

message[0]='Textanimator Version 3.1'
message[1]='Microsoft Internet Explorer 4 now Supported !'
message[2]='This version does NOT support Links for MSIE'
message[3]='Netscape supports links as normal'
message[4]='Damn Microsoft.....'
message[5]='© 1997      Lefteris Haritou'

// Put here your own messages. Add as many as you wan't (Do not edit anything else in the Script except the lines above)

for (x=0; x<16; x++){
for (y=0; y<16; y++){
convert[value]= hexbase[x] + hexbase[y];
value++;
}
}

redx=color.substring(1,3);
greenx=color.substring(3,5);
bluex=color.substring(5,7);
hred=eval(parseInt(redx,16));
hgreen=eval(parseInt(greenx,16));
hblue=eval(parseInt(bluex,16));
eredx=bgcolor.substring(1,3);
egreenx=bgcolor.substring(3,5);
ebluex=bgcolor.substring(5,7);
ered=eval(parseInt(eredx,16));
egreen=eval(parseInt(egreenx,16));
eblue=eval(parseInt(ebluex,16));
red=ered;
green=egreen;
blue=eblue;

function start(){
if (brows)
res=document.layers['textanim'].top
else
res=textanim.style.top
timer1=window.setInterval('up()',1)
}

function stopf(){
window.clearInterval(timer1);
window.clearInterval(timer2);
for (x=0; x<2000; x++){}
}

function up(){
if (red<hred){
if ((red+15)<hred){
red+=15;
redx = convert[red]
}
else{
red=hred
redx = convert[red]
}
}

if (red>hred){
if ((red-15)>hred){
red-=15;
redx = convert[red]
}
else{
red=hred
redx = convert[red]
}
}

if (green<hgreen){
if ((green+15)<hgreen){
green+=15;
greenx = convert[green]
}
else{
green=hgreen
greenx = convert[green]
}
}

if (green>hgreen){
if ((green-15)>hgreen){
green-=15;
greenx = convert[green]
}
else{
green=hgreen
greenx = convert[green]
}
}

if (blue<hblue){
if ((blue+15)<hblue){
blue+=15;
bluex = convert[blue]
}
else{
blue=hblue
bluex = convert[blue]
}
}

if (blue>hblue){
if ((blue-15)>hblue){
blue-=15;
bluex = convert[blue]
}
else{
blue=hblue
bluex = convert[blue]
}
}

rgb = "#"+redx+greenx+bluex;
if (brows){
document.layers['textanim'].document.linkColor=rgb;
document.layers['textanim'].document.vlinkColor=rgb;
document.layers['textanim'].document.writeln('<Pre><P Class="main" Align="Center"><font color="'+rgb+'">'+message[msg]+'</font></P></Pre>')
document.layers['textanim'].document.close();
}
else
textanim.innerHTML='<Pre><P Class="main" Align="Center"><font color="'+rgb+'">'+message[msg]+'</font></P></Pre>'

if (z<19){
if (brows)
document.layers['textanim'].top-=2
else
textanim.style.posTop-=2
z++
}
else
{
window.clearInterval(timer1);
timer2=window.setInterval('down()',1)
}
}


function down(){
if (red<ered){
if ((red+15)<ered){
red+=15;
redx = convert[red]
}
else{
red=ered
redx = convert[red]
}
}

if (red>ered){
if ((red-15)>ered){
red-=15;
redx = convert[red]
}
else{
red=ered
redx = convert[red]
}
}

if (green<egreen){
if ((green+15)<egreen){
green+=15;
greenx = convert[green]
}
else{
green=egreen
greenx = convert[green]
}
}

if (green>egreen){
if ((green-15)>egreen){
green-=15;
greenx = convert[green]
}
else{
green=egreen
greenx = convert[green]
}
}

if (blue<eblue){
if ((blue+15)<eblue){
blue+=15;
bluex = convert[blue]
}
else{
blue=eblue
bluex = convert[blue]
}
}

if (blue>eblue){
if ((blue-15)>eblue){
blue-=15;
bluex = convert[blue]
}
else{
blue=eblue
bluex = convert[blue]
}
}

rgb = "#"+redx+greenx+bluex;
if (brows){
document.layers['textanim'].document.linkColor=rgb;
document.layers['textanim'].document.vlinkColor=rgb;
document.layers['textanim'].document.writeln('<Pre><P Class="main" Align="Center"><font color="'+rgb+'">'+message[msg]+'</font></P></Pre>')
document.layers['textanim'].document.close();
}
else
textanim.innerHTML='<Pre><P Class="main" Align="Center"><font color="'+rgb+'">'+message[msg]+'</font></P></Pre>'

if (z<38){
if (brows)
document.layers['textanim'].top-=2
else
textanim.style.posTop-=2
z++
}
else
{
if (brows){
document.layers['textanim'].document.writeln('')
document.layers['textanim'].document.close();
}
else
textanim.innerHTML='';
window.clearInterval(timer2);
if(msg<message.length-1){
msg++;
z=0;
if (brows)
document.layers['textanim'].top=res;
else
textanim.style.top=res;
window.setTimeout('start()',100);
}
else
{
msg=0;
z=0;
if (brows)
document.layers['textanim'].top=res;
else
textanim.style.top=res;
window.setTimeout('start()',2000);
}
}
}
}

// done hiding -->
</Script>
<style type="text/css">
<!-- 
  A:LINK {
              text-decoration : none;
}
  A:VISITED {
              text-decoration : none;
}

P.main {
	font-family : Comic Sans Ms;
	font-size : 16pt;
	font-weight : bold;
}
-->
</style>

<BODY BGCOLOR="#FFFFFF" onLoad="start()">
<center><h2>Text Animator</h2>
Autor:<a href="mailto:lef@writeme.com">Lefteris Haritou</a>...<br>
URL:<a href="http://www.geocities.com/~lef" target="_new">http://www.geocities.com/~lef</a><br></center>
<CENTER>
<Div id="textanim" style="position: absolute; left: 4; top: 180">
</Div>
<Layer name="textanim" left=4 top=180>
</Layer>
</CENTER>
<BR><BR><BR><BR><BR><BR><center><H4>Aclaración : Los Links solo son soportados en Netscape 4</H4></center>
</BODY>
</HTML>
Ver ejemplo Javascript en funcionamiento