'------------------------------------------
'please leave all these lines in
'Script (261) gemaakt door JettyM November 2005
'www.molehofje.com
'Tekst tussen deze lijnen aub laten staan
'------------------------------------------

Option Explicit 
SetLocale("en-gb")  

Dim x, y, direct, tm, maxtm, hud

Const dirDownR=0
Const dirDownL=1  
Const dirUpL=2
Const dirUpR=3  

REM amount of time before scroll direction changes
maxtm=75
REM text statusbar
window.status=" MeuSonho "

x=0
y=0
tm=0
document.body.style.backgroundImage="url("&bkg.src&")"
hud=pic.width
direct=dirDownR
jet.style.width=hud
son.style.width=hud-60
son.style.left=20
poppy.style.width=hud
poppy.style.visibility="visible"
son.style.visibility="visible"
jet.style.visibility="visible"
window.setInterval "scrollIt", 64

sub scrollIt()
 select case direct
   case dirDownR
      x=x+1
			y=y+1
      tm=tm+1
         if tm>=maxtm then
            tm=0
            direct=dirDownL
         end if 	
   case dirDownL
      x=x-1
			y=y+1
      tm=tm+1
         if tm>=maxtm then
            tm=0
            direct=dirUpL
         end if
   case dirUpL
      x=x-1
			y=y-1
      tm=tm+1
         if tm>=maxtm then
            tm=0
            direct=dirUpR
         end if 	
   case dirUpR
      x=x+1
			y=y-1
      tm=tm+1
         if tm>=maxtm then
            tm=0
            direct=dirDownR
         end if 	 							  	 						 
   case else
    window.status="unexpected case value"
 end select
document.body.style.backgroundPosition=x&" "&y
end sub