¿Cómo crear una barra de control de video en AS2?

Una de las constantes preguntas sobre video es como crear la propia barra de control de video, aqui les dejo el codigo explicado (es necesario haber leido los anteriores tutoriales de video de esta página)

[code]

var nc:NetConnection = new NetConnection();
nc.connect(null);
var ns:NetStream = new NetStream(nc);
mi_video.attachVideo(ns);

//obtener los datos del video

ns.onMetaData = function(infoObject:Object) {
   total = infoObject.duration;
   trace(total);
};
var loop:MovieClip = this.createEmptyMovieClip("loop", 0);
loop.onEnterFrame = function() {
    tiempo = ns.time;

    //obtenemos en base a la fórmula la duración del video
    percent = Math.round(((tiempo)*100)/total);
    barra._xscale = percent;
    trace(percent);
};
ns.onStatus = function(infoObject:Object) {
    if (infoObject.code == "NetStream.Play.Stop") {
       delete loop.onEnterFrame;

       trace("acabo el video");
    }
    if (infoObject.code == "NetStream.Play.StreamNotFound") {
       trace("encontro error");
    }
};
ns.play("http://www.helpexamples.com/flash/video/water.flv");

[/code]

archivo