//	------------------------------------------------------------- // 
// 		Adapted Tokyo 200804 srwadleigh@gmail.com
//	------------------------------------------------------------- // 
//  DocOzone's Javascript code, all rights reserved.
//  Copyright © 1995,1996,1997,1998,1999,2000 and 2001. (woo!)
//  You may this code to help learn how to use Javascript.
//  Feel free to use bits and pieces of it in your own work,
//  but please remember to credit me properly! Redistributing
//  my code and claiming it as your own is frowned upon. :/
//
//  Your pal,   -Dr. Thaddeus Ozone-    
//        http://www.ozonicLabs.com/
//
// important variables here! Refer to the instructions.
//
//      mark = 20;  distance = 9;   // milliseconds to repeat & amount to scroll.
//      sTop = 72;     sLeft = 607; // define the top left corner of the scroller area.
//     sHigh = 362;    sWide = 15;  // overall height & width of the scrolling area.
//      tTop = 73;     tLeft = 32;  // define the top left corner of the text area.
//     tHigh = 360;    tWide = 572; // overall height & width of the text window to display.
//     uHigh = 12;     dHigh = 12;  // how tall are the 'up' and 'down' arrows?
// 	 slidTop = 84;  slidLeft = 609; // define the 'rest' position of the slider.
//	slidWide = 11;  slidHigh = 44;  // define the dimensions of the slider.
//
//	------------------------------------------------------------- // 

    mark = 20; 	distance = 9;		// milliseconds to repeat & amount to scroll.
    sTop = 310;    sLeft = 1025; 	// define the top left corner of the scroller area.
   sHigh = 442;    sWide = 11;  	// overall height & width of the scrolling area.
    tTop = 310;    tLeft = 310;  	// define the top left corner of the text area.
   tHigh = 442;    tWide = 600; 	// overall height & width of the text window to display.
   uHigh = 12;     dHigh = 12;  	// how tall are the 'up' and 'down' arrows?
 slidTop = 322; slidLeft = 1025; 	// define the 'rest' position of the slider.
slidWide = 11;  slidHigh = 44;  	// define the dimensions of the slider.

//	------------------------------------------------------------- // 

window.onerror=null;
NS = (document.layers) ? 1:0;
IE = (document.all) ? 1:0;
opera = (navigator.appName.indexOf("pera") > -1) ? 1:0;
gecko = (document.getElementById) ? 1:0;

loaded=0;
layerPreStart = "";
layerStart = "";
layerLeft = ".left";
layerTop = ".top";
layerStyle = ""; 

if (NS) {
	layerPreStart = "document.scrollFrame.";
	layerStart = "document.";
	layerStyle = "";
}
if (gecko || IE) {
	layerStart = "document.getElementById('";
	layerStyle = "').style";
}
if (IE && !gecko) {
	layerStart = "document.all.";
	layerStyle = ".style"; 
}

travel = sHigh-uHigh-dHigh-slidHigh; 

if (NS || opera) {
	window.captureEvents(Event.MOUSEMOVE | Event.MOUSEDOWN | Event.MOUSEUP | Event.CLICK);
	window.onMouseMove = moveHandler;
	window.onMouseDown = StartE;
	window.onMouseUp = EndE;
} else if (IE) {
	document.onmousemove=moveHandler;
	document.onmousedown=StartE;
	document.onmouseup=EndE;
	document.ondragstart=StartE;
} else if (gecko && !opera) {
	document.ondragstart = StartE;
	document.addEventListener("mousedown", StartE, true);
	document.addEventListener("mousemove", moveHandler, true);
	document.addEventListener("mouseup", EndE, true);
}

pageY = 0;sAmount = 0;
cUp=0; cDown=0; cBar=0; mDown=0;

function setup() { 
	loaded=1;
	eval(layerStart+"scrollFrame"+layerStyle+layerLeft+" = " + tLeft);
	eval(layerStart+"scrollFrame"+layerStyle+layerTop+" = " + tTop);
	eval(layerStart+"scrollBarSlider"+layerStyle+layerLeft+" = " + slidLeft);
	eval(layerStart+"scrollBarSlider"+layerStyle+layerTop+" = " + slidTop);
	eval(layerStart+"scrollBar"+layerStyle+layerLeft+" = " + sLeft); 
	eval(layerStart+"scrollBar"+layerStyle+layerTop+" = " + sTop);
	if (NS)    { conHigh=document.divCont.document.floatContent.document.height; }
	if (IE)    { conHigh=document.all.floatContent.offsetHeight; }
	if (gecko) { conHigh=document.getElementById('scrollContent').offsetHeight; }
	if (opera) { conHigh=document.getElementById('scrollContent').style.pixelHeight; }
	if (conHigh >= sHigh) {
		markID = setInterval ("fix()",mark);
		sAmount = conHigh-sHigh;reveal();
	}
}

function reveal() { 
	if (conHigh >= sHigh) {
		eval(layerStart+"scrollBar"+layerStyle+".visibility = 'visible'"); 
		eval(layerStart+"scrollBarSlider"+layerStyle+".visibility = 'visible'"); 
	}
}

function moveHandler(e) {
	if (NS || IE || gecko || opera) { 
		if (loaded && NS) { reveal(); }
		Xpos = (IE)?event.x:e.pageX
		Ypos = (IE)?event.y:e.pageY 
		if (mDown) return false;
		if ((Xpos >= sLeft) && (Xpos <= sLeft+sWide)) { 
			if ((Ypos >= sTop) && (Ypos <= sTop+uHigh))  { cUp=1; cDown=0; cBar=0; }
			if ((Ypos >  sTop+uHigh) && (Ypos <= sHigh+sTop-dHigh)) { cUp=0; cDown=0; cBar=1; }
			if ((Ypos > sHigh+sTop-dHigh) && (Ypos <= sTop+sHigh)) { cUp=0; cDown=1; cBar=0; }
		} else { cUp=0;cDown=0;cBar=0;mDown=0; }
	}
}

function EndE() { mDown=0; if (IE) { return false; }}
function StartE() { mDown=1; if (cBar || cDown || cUp || IE) { return false; }}

function fix() {
	if (mDown && cBar) {
		where = Ypos-(slidHigh/2); 
		if (where < slidTop) { where=slidTop; } 
		if (where > sHigh+sTop-dHigh-slidHigh) { where=sHigh+sTop-dHigh-slidHigh; }
		eval(layerStart+"scrollBarSlider"+layerStyle+layerTop+" = where"); 
		pageY = -((where-slidTop)/travel) * sAmount;
		eval(layerPreStart+layerStart+"scrollContent"+layerStyle+layerTop+" = pageY");
	}
	if (mDown && (cUp || cDown)) { Clicker(); }
}

function Clicker() {
	if ((cUp && (pageY < 0)) || (cDown && (pageY > (-sAmount))) || cBar) {
		if (cUp) { pageY = pageY + distance; if (pageY > 0) { pageY = 0; } } 
		else if (cDown) { pageY = pageY - distance; if (pageY < (-sAmount)) { pageY = (-sAmount); }
	} else if (cBar) { pageY = -(((Ypos-(slidHigh/2))-(sTop+uHigh))/travel) * sAmount; }
	eval(layerPreStart+layerStart+"scrollContent"+layerStyle+layerTop+" = pageY"); 
	where = sTop+uHigh-((pageY/sAmount)*travel);
	if (where < sTop+uHigh) { where=sTop+uHigh; } 
	if (where > sHigh+sTop-dHigh-slidHigh) { where=sHigh+sTop-dHigh-slidHigh; }
	eval(layerStart+"scrollBarSlider"+layerStyle+layerTop+" = where"); }
}

function topper() {
	where=slidTop;pageY=0;
	eval(layerStart+"scrollBarSlider"+layerStyle+layerTop+" = where"); 
	eval(layerPreStart+layerStart+"scrollContent"+layerStyle+layerTop+" = pageY");
}

onload=setup;