/*

 Ticky-Ticky Tape Ticker

 (C) 2003 by Alejandro Guerrieri - Magicom

 alejandro@magicom-bcn.net

 

 This Script is Open Source. You can use it in your site at no cost

 as long as you leave this legend intact.

 

 Please send comments, suggestions, improvements, etc. to my e-mail address

  

 If you use it in your site, please drop me a line so I know if my job

 was worth the effort and Iīm actually helping someone! :)

*/



var direction = new Array();

var temporary = new Array();

//This does the real job (moves the ticker)

function move_ticker( mess, speed, msg_start, msg_end, fname ) {

  var doc = eval(''+fname+'.scroll');

  var len = doc.size;

  var dir = direction[fname];

  if (dir > -1) {

    if (msg_end >= mess.length) {

      mess = mess.substring(msg_start, mess.length) + mess.substring(0, msg_start);

      msg_start = 0;

      msg_end = len;

    }

  } else {

    if (msg_start <= 0) {

      mess = mess.substring(msg_end, mess.length) + mess.substring(0, msg_end);

      msg_start = mess.length - msg_end;

      msg_end = mess.length;

    }

  }

  doc.value=mess.substring(msg_start, msg_end);

  msg_start+= dir;

  msg_end+= dir;

  window.setTimeout("move_ticker('"+mess+"', "+speed+", "+msg_start+", "+msg_end+", '"+fname+"')", speed);

}



//This inits the ticker and starts the movement. Executed only once at startup time

function init_ticker(fname, mess, speed, dir) {

  var len = eval(''+fname+'.scroll.size');

  direction[fname] = dir;

  while (mess.length < len) {

    mess = '' + mess + mess;

  }

  window.setTimeout("move_ticker('"+mess+"', "+speed+", 0, "+len+", '"+fname+"')", speed);

}



//This switches the tickerīs state (stop or start)

function switch_ticker(fname) {

  if (direction[fname] != 0) {

    temporary[fname] = direction[fname];

    direction[fname] = 0;

  } else {

    direction[fname] = temporary[fname];

  }

}



//This restarts the movement after a stop

function start_ticker(fname) {

   direction[fname] = temporary[fname];

}



//This stops the ticker

function stop_ticker(fname) {

  temporary[fname] = direction[fname];

  direction[fname] = 0;

}



//This reverts the tickerīs direction

function revert_ticker(fname) {

  temporary[fname] = -temporary[fname];

  direction[fname] = -direction[fname];

}