// Steuerprogramm zum Durchsrcollen nach 10 min Wartezeit (für Schaufensterwerbung in Webbrowser)
// waiting DIV 20 entspricht der Wartezeit in sekunden bis das scrollen beginnt
// Jeder Mousemove innerhalb der Seite springt auf den Anfang zurück und startet waiting neu
//
// Sept. 09   H & G Ltd., Meilen
//

i = 0
var speed = 1
var xpos=0;
var ypos=0;
var xposalt=0;
var yposalt=0;
waiting = 12000;
//waiting = 50; // Nur für Test
var delay = waiting;

if (navigator.appName == 'Netscape') {
    document.captureEvents(Event.MOUSEMOVE);
}

document.onmousemove = mauspos;

function mauspos(e) {
        if (navigator.appName == 'Netscape') {
           xpos = e.pageX;
           ypos = e.pageY;
        } else {
           xpos = window.event.x;
           ypos = window.event.y;
        }
}


function scroll() {
  if (delay>0) {i = 0;delay=delay-1} else {i = i + speed}
  var div = document.getElementById("scroller")
  div.scrollTop = i
  if (xposalt != xpos) {i=0}
  if (yposalt != ypos) {i=0; delay=waiting}
  if (i > div.scrollHeight - 160) {delay=waiting}
  t1=setTimeout("scroll()",50)
  xposalt =xpos;
  yposalt =ypos;
}