// ASM SCROLLER 2.0 - (c) 2000 Brent Gustafson, vitaflo.com and assembler.org
//
// Feel free to hack around with this code for personal use, it's open source
// so do what ya want w/ it.  Though a link would be nice. ;)  While this code
// doesn't have a ton of documentation, please remember that I am a busy man,
// so support of this code will be very minimal.  Use at your own risk.
//
// Follow me into a solo, get in the FLO
// And you can picture like a photo
// Music mixed mellow maintains to make 
// Melodies for MC's motivates the breaks 
// I'm everlasting, I can go on for days and days 
// With rhyme displays that engrave deep as X-rays
//
// -Brent (brent@assembler.org)
// assembler.org || vitaflo.com

var w3c = (document.getElementById) ? 1:0
var ns4 = (document.layers) ? 1:0
var ie4 = (document.all) ? 1:0

var range = "";
var cap = "";
var mutex = 0;

var ymin = 0;
var screensHeight = 0;


if (ns4){
var ymax_screens = 330;
}

if (ie4){
var ymax_screens = 0;
}

if (ns4){
var yplace_screen = 330;
}

if (ie4){
var yplace_screen = 0;
}

if (ns4){
var xplace_screen = 320;
}

if (ie4){
var xplace_screen = 0;
}
/** The only code you should ever need to change here are the following 3 vars **/
var speed = 3;                         //speed at which the screens scrolls

if (ns4){
var screensId = "screens";
}

if (ie4){
var screensId = "screens";
}
                   
var screensClipId = "screensClipping";       //name of the screens clipping div

function redrawScreen_screens() {
  location.reload();
  return false
}

function shiftTo_screens(obj, x, y) {
  if (w3c) {
    obj.style.left = x + "px";
    obj.style.top = y + "px";
  }
  else if (ns4) {
	 obj.moveTo(x,y);
  } 
  else if (ie4) {
    obj.style.pixelLeft = x;
	obj.style.pixelTop = y;
  }
}

function getObject_screens(obj) {
	var theObj = eval("document." + range + obj + cap);
	return theObj;
} 

function scrollUp_screens() {
  if (mutex == 1){
    var theObj = getObject_screens(screensId);
    if (yplace_screen < ymax_screens) {
      yplace_screen = yplace_screen + speed;
      if (yplace_screen > ymax_screens) yplace_screen = ymax_screens;
      shiftTo(theObj, xplace_screen, yplace_screen);
      setTimeout("scrollUp_screens()",25);
    }
  }
}
  
function scrollDown_screens() {
  if (mutex == 2){
    var theObj = getObject_screens(screensId);
    if (yplace_screen > ymin) {
      yplace_screen = yplace_screen - speed;
      if (yplace_screen < ymin) yplace_screen = ymin;
      shiftTo(theObj, xplace_screen, yplace_screen);
      setTimeout("scrollDown_screens()",25);
    }
  }
}

function scrollIt_screens(msg, dir) {
  window.status = msg; 
  mutex = dir;
  if (mutex == 1) scrollUp_screens();
  else if (mutex == 2) scrollDown_screens();
}

function init_screens() {
  if (w3c) {
    range = "getElementById(\"";
    cap = "\")";
    theObj = getObject_screens(screensClipId);
    screensHeight = parseInt(theObj.offsetHeight);
    theObj = getObject_screens(screensId);
    ymin = (parseInt(theObj.offsetHeight) - screensHeight) * -1;
  }
  else if (ns4) {
    window.captureEvents(Event.RESIZE);
    window.onresize = redrawScreen;
    theObj = getObject(screensClipId);
    screensHeight = theObj.clip.height;
    screensId = screensClipId + ".document." + screensId;
    theObj = getObject(screensId);
    ymin = (theObj.clip.height - screensHeight) * -1;
  }
  else if (ie4) {
    range = "all.";
    theObj = getObject_screens(screensClipId);
    screensHeight = theObj.offsetHeight;
    theObj = getObject_screens(screensId);
    ymin = ((theObj.offsetHeight - screensHeight) * -1) + 320;
  }
}

// END OF LINE