<SCRIPT ID=clientEventHandlersVBS
LANGUAGE=vbscript><!--
option explicit
dim i
dim Cx,Cy
dim casovac
dim Uhol
dim stredX,stredY
sub animuj()
uhol=uhol+20
if uhol > 360 then uhol=0
OkoloT.style.posLeft = stredX+20 * cos(uhol*3.14/180)
OkoloT.style.posTop = stredY-20 * sin(uhol*3.14/180)
OkoloO.style.posLeft = stredX+50+20 * cos(uhol*3.14/180)
OkoloO.style.posTop = stredY-40 * sin(uhol*3.14/180)
OkoloM.style.posLeft = stredX+100+20 * cos(uhol*3.14/180)
OkoloM.style.posTop = stredY-60 * sin(uhol*3.14/180)
OkoloA.style.posLeft = stredX+150+20 * cos(uhol*3.14/180)
OkoloA.style.posTop = stredY-40 * sin(uhol*3.14/180)
OkoloS.style.posLeft = stredX+200+20 * cos(uhol*3.14/180)
OkoloS.style.posTop = stredY-20 * sin(uhol*3.14/180)
End Sub
Sub window_onload
casovac= window.setInterval ("animuj",100)'start
stredX=100
stredY=100
End Sub
Sub document_onmousemove
Cx = window.event.x
Cy = window.event.y
End Sub
--></SCRIPT>
|