Actionscript for Flash 5 dummies: Scrolling a text box II - Page 10

Okay, it's time for some ActionScript already! Once again, old code is grayed out.

onClipEvent (load){

	this.loadVariables("text.txt");
	scrolling = 0;
	frameCounter = 1;
	speedFactor = 3;
	numLines = 7;

	origHeight = scrollbar._height;
	origX = scrollbar._x;
	needInit = false;

	function initScrollbar(){
		var totalLines = numLines + daTextBox.maxscroll - 1;
		scrollbar._yscale = 100*(numLines)/totalLines;
		deltaHeight = origHeight - scrollbar._height;
		lineHeight = deltaHeight/(daTextBox.maxScroll - 1);
	}
	function updateScrollBarPos(){
		scrollbar._y = lineHeight*(daTextBox.scroll - 1);
	}

}

onClipEvent (enterFrame){

	if( needInit ){
		if(daTextBox.maxscroll <%gt%> 1){
			initScrollbar();
			needInit = false;
		}
	}
	if( frameCounter % speedFactor == 0){
		if( scrolling == "up" && daTextBox.scroll <%gt%> 1){
			daTextBox.scroll--;
			updateScrollBarPos();
		}
		else if( scrolling == "down" && daTextBox.scroll <%lt%> daTextBox.maxscroll){
			daTextBox.scroll++;
			updateScrollBarPos();
		}
		frameCounter = 0;
	}
	frameCounter++;

}

onClipEvent (mouseDown){

	if(up.hitTest(_root._xmouse,_root._ymouse)){
		scrolling = "up";
		frameCounter = speedFactor;
		up.gotoAndStop(2);
	}
	if(down.hitTest(_root._xmouse,_root._ymouse)){
		scrolling = "down";
		frameCounter = speedFactor;
		down.gotoAndStop(2);
	}
	if(scrollbar.hitTest(_root._xmouse,_root._ymouse)){
		scrollbar.startDrag(0,origX,deltaHeight,origX);
		scrolling = "scrollbar";
	}
	updateAfterEvent();

}

onClipEvent (mouseUp){

	scrolling = 0;
	up.gotoAndStop(1);
	down.gotoAndStop(1);
	stopDrag();

	updateAfterEvent();

}

onClipEvent (mouseMove){

	if(scrolling == "scrollbar"){
		daTextBox.scroll = Math.round((scrollbar._y)/lineHeight + 1);
	}
	updateAfterEvent();

}

onClipEvent (data){

	needInit = true;

}

Oh, the humanity! Take a deep breath, make yourself a coffee, and get ready for some serious explanations.