<script language=vbscript><!--
Dim X, Y, X1, Y1, MaxScrollX, MaxScrolly,Okraj,Skok
Sub Inicializace
Okraj=50
Skok=1
x = 100: y = 100
x1 = Skok: y1 = Skok
window.Setinterval "Animuj", 20
End Sub
Sub Animuj
x = x + x1
y = y + y1
maxscrollx = (document.body.clientwidth - balon.offsetwidth-Okraj)
maxscrolly = (document.body.clientheight - balon.offsetheight-Okraj)
if x >= (maxscrollx + document.body.scrollleft) then ' vlavo
x = (maxscrollx + document.body.scrollleft)
x1 = -Skok
end if
if x <= document.body.scrollleft or x<=Okraj then 'vpravo
x = document.body.scrollleft+Okraj
x1 = Skok
end if
if y >= (maxscrolly + document.body.scrolltop) then 'hore
y = (maxscrolly + document.body.scrolltop)
y1 = -Skok
end if
if y <= document.body.scrolltop or y<=Okraj then 'dole
y = document.body.scrolltop+Okraj
y1 = Skok
end if
balon.style.pixelleft = x
balon.style.pixeltop = y
End Sub
--></script> |
