document.write "<img src='"&float.src&"' id=floatie1 class=im>"   
document.write "<img src='"&float.src&"' id=floatie2 class=im>" 
document.write "<img src='"&float.src&"' id=floatie3 class=im>" 
document.write "<img src='"&float.src&"' id=floatie4 class=im>"   
document.write "<img src='"&float.src&"' id=floatie5 class=im>" 
document.write "<img src='"&float.src&"' id=floatie6 class=im>" 
'---------------------------
'Script written by Annem@rie
'juni 2004
'http://www.annemaries.net/
'please leave these lines in
'---------------------------
window.status="~~~ MeuSonho - Músicas ~~~~"

Dim scw,sch,pa,pb,pc,tekstw,teksth,picw,pich
Dim PosX,PosY,ccw,cch,posfloatie1w,posfloatie1h,posfloatie2w,posfloatie2h,posfloatie3w,posfloatie3h,thf1,thf2,thf3 
Dim posfloatie4w,posfloatie4h,posfloatie5w,posfloatie5h,posfloatie6w,posfloatie6h,thf4,thf5,thf6 

<!--maat plaatjes vermelden-->
picw=264
pich=264

<!--maat gifje vermelden-->
floatiew=17
floatieh=17

tekstw=380
teksth=480

A1=3
A2=5
A3=7
A4=3
A5=5
A6=7
R1=175
R2=175
R3=175
R4=100
R5=100
R6=100
pa = 0
pb = 0
pc = 0

sub window_Onload()
scw=document.body.ClientWidth
sch=document.body.ClientHeight
document.body.style.overflowX="hidden" 
tekst.style.left=scw-400
tekst.style.top=sch/2-teksth/2
pic1.style.left=20
pic1.style.top=20
pic2.style.left=120
pic2.style.top=sch/2-pich/2
pic3.style.left=220
pic3.style.top=sch-284
document.body.onmousemove=getref("mousetrail")
floatie1.style.width=floatiew
floatie1.style.height=floatieh
floatie2.style.width=floatiew
floatie2.style.height=floatieh
floatie3.style.width=floatiew
floatie3.style.height=floatieh
floatie4.style.width=floatiew
floatie4.style.height=floatieh
floatie5.style.width=floatiew
floatie5.style.height=floatieh
floatie6.style.width=floatiew
floatie6.style.height=floatieh
PosX=(scw/2)
PosY=(sch/2)
ccw=PosX
cch=PosY
ClearInterval(thf1)
thf1=SetTimeOut("circle1",6615)
ClearInterval(thf2)
thf2=SetTimeOut("circle2",6625)
ClearInterval(thf3)
thf3=SetTimeOut("circle3",6635)
ClearInterval(thf4)
thf4=SetTimeOut("circle4",6615)
ClearInterval(thf5)
thf5=SetTimeOut("circle5",6625)
ClearInterval(thf6)
thf6=SetTimeOut("circle6",6635)
settimeout "show1",500
end sub

sub show1()
pic1.filters.blendTrans.Apply
pic1.style.visibility = "visible"
pic1.filters.blendTrans.Play
setTimeout"show2", 1500
end sub
sub show2()
pic2.filters.blendTrans.Apply
pic2.style.visibility = "visible"
pic2.filters.blendTrans.Play
setTimeout"show3", 1500
end sub
sub show3()
pic3.filters.blendTrans.Apply
pic3.style.visibility = "visible"
pic3.filters.blendTrans.Play
end sub
sub pic1_onclick()
if pa=0 then
pa = 1
pic1.style.visibility = "hidden"
pic2.style.visibility = "visible"
pic3.style.visibility = "visible"
floatie1.style.visibility = "visible"
floatie2.style.visibility = "visible"
floatie3.style.visibility = "visible"
floatie4.style.visibility = "visible"
floatie5.style.visibility = "visible"
floatie6.style.visibility = "visible"
else
pa = 0
pic1.style.visibility = "visible"
pic2.style.visibility = "visible"
pic3.style.visibility = "visible"
floatie1.style.visibility = "hidden"
floatie2.style.visibility = "hidden"
floatie3.style.visibility = "hidden"
floatie4.style.visibility = "hidden"
floatie5.style.visibility = "hidden"
floatie6.style.visibility = "hidden"
end if
end sub
sub pic2_onclick()
if pb=0 then
pb = 1
pic1.style.visibility = "visible"
pic2.style.visibility = "hidden"
pic3.style.visibility = "visible"
floatie1.style.visibility = "visible"
floatie2.style.visibility = "visible"
floatie3.style.visibility = "visible"
floatie4.style.visibility = "visible"
floatie5.style.visibility = "visible"
floatie6.style.visibility = "visible"
else
pb = 0
pic1.style.visibility = "visible"
pic2.style.visibility = "visible"
pic3.style.visibility = "visible"
floatie1.style.visibility = "hidden"
floatie2.style.visibility = "hidden"
floatie3.style.visibility = "hidden"
floatie4.style.visibility = "hidden"
floatie5.style.visibility = "hidden"
floatie6.style.visibility = "hidden"
end if
end sub
sub pic3_onclick()
if pc=0 then
pc = 1
pic1.style.visibility = "visible"
pic2.style.visibility = "visible"
pic3.style.visibility = "hidden"
floatie1.style.visibility = "visible"
floatie2.style.visibility = "visible"
floatie3.style.visibility = "visible"
floatie4.style.visibility = "visible"
floatie5.style.visibility = "visible"
floatie6.style.visibility = "visible"
else
pc = 0
pic1.style.visibility = "visible"
pic2.style.visibility = "visible"
pic3.style.visibility = "visible"
floatie1.style.visibility = "hidden"
floatie2.style.visibility = "hidden"
floatie3.style.visibility = "hidden"
floatie4.style.visibility = "hidden"
floatie5.style.visibility = "hidden"
floatie6.style.visibility = "hidden"
end if
end sub

Sub mousetrail()
PosX=window.event.clientX
PosY=window.event.clientY
ccw=PosX-25
cch=PosY-25
End Sub
Sub circle1()
ClearTimeOut(thf1)
A1=A1+0.5
posfloatie1w=R1*cos(A1)+ccw
posfloatie1h=R1*sin(A1)+cch
floatie1.style.Left=posfloatie1w+document.body.scrollLeft
floatie1.style.Top=posfloatie1h+document.body.scrollTop
thf1=SetTimeOut("circle1", 15) 
End Sub
Sub circle2()
ClearTimeOut(thf2)
A2=A2+0.5
posfloatie2w=R2*cos(A2)+ccw
posfloatie2h=R2*sin(A2)+cch
floatie2.style.Left=posfloatie2w+document.body.scrollLeft
floatie2.style.Top=posfloatie2h+document.body.scrollTop
thf2=SetTimeOut("circle2", 15)
End Sub
Sub circle3()
ClearTimeOut(thf3)
A3=A3+0.5
posfloatie3w=R3*cos(A3)+ccw
posfloatie3h=R3*sin(A3)+cch
floatie3.style.Left=posfloatie3w+document.body.scrollLeft
floatie3.style.Top=posfloatie3h+document.body.scrollTop
thf3=SetTimeOut("circle3", 15) 
End Sub
Sub circle4()
ClearTimeOut(thf4)
A4=A4-0.5
posfloatie4w=R4*cos(A4)+ccw
posfloatie4h=R4*sin(A4)+cch
floatie4.style.Left=posfloatie4w+document.body.scrollLeft
floatie4.style.Top=posfloatie4h+document.body.scrollTop
thf4=SetTimeOut("circle4", 15) 
End Sub
Sub circle5()
ClearTimeOut(thf5)
A5=A5-0.5
posfloatie5w=R5*cos(A5)+ccw
posfloatie5h=R5*sin(A5)+cch
floatie5.style.Left=posfloatie5w+document.body.scrollLeft
floatie5.style.Top=posfloatie5h+document.body.scrollTop
thf5=SetTimeOut("circle5", 15)
End Sub
Sub circle6()
ClearTimeOut(thf6)
A6=A6-0.5
posfloatie6w=R6*cos(A6)+ccw
posfloatie6h=R6*sin(A6)+cch
floatie6.style.Left=posfloatie6w+document.body.scrollLeft
floatie6.style.Top=posfloatie6h+document.body.scrollTop
thf6=SetTimeOut("circle6", 15) 
End Sub

Sub Window_Onresize()
window.location.reload()
End Sub