Vysvφcenφ textu








<div ID="divLabel" style="position:absolute;visibility:hidden;filter:alpha(opacity=0,style=0)">
<p><b><font face="Arial" size="6">Java Script Library</font></b></p>
</div>

<div ID="divLabel" style="position:absolute;visibility:hidden;filter:alpha(opacity=0,style=0)">
<p><b><font face="Arial" size="6">http://java.tatousek.cz</font></b></p>
</div>

<div ID="divLabel" style="position:absolute;visibility:hidden;filter:alpha(opacity=0,style=0)">
<p><b><font face="Arial" size="6">JT WebDesign Studio</font></b></p>
</div>

<div ID="divLabel" style="position:absolute;visibility:hidden;filter:alpha(opacity=0,style=0)">
<p><b><font face="Arial" size="6">http://webdesign.tatousek.cz</font></b></p>
</div>

<div ID="OuterDiv" style="position:absolute">

<p>
<object ID="Seq" CLASSID="clsid:B0A6BAE2-AAF0-11d0-A152-00A0C908DB96" width="50" height="50">Ahoj</object>
</p>

</div>

<script LANGUAGE="VBScript">

dim nCurLabel
dim Labels
dim nLabelsLen
dim MinLeft
dim MaxLeft
dim MinTop
dim MaxTop

sub Window_Onload
call InitLabels
end sub

sub InitLabels
MinLeft = 100
MaxLeft = 300
MinTop = 100
MaxTop = 300

nPrevLabel = 0
nCurLabel = 0
set labels= document.all.item("divLabel")
nLabelsLen = labels.length-1
call seq("ShowLabel").at(0.00,"AddOpacity",10,0.200,1)
call seq("HideLabel").at(1.00,"SubtractOpacity",10,0.200,1)

Randomize Timer

labels(nCurLable).Style.PixelLeft = int((MaxLeft - MinLeft)*RND) + MinLeft
labels(nCurLable).Style.PixelTop = int((MaxTop - MinTop)*RND) + MinTop

labels(nCurLabel).style.visibility=""

call seq("ShowLabel").play
end sub

sub SubtractOpacity
labels(nCurLabel).filters.alpha.opacity = labels(nCurLabel).filters.alpha.opacity - 10
end sub

sub AddOpacity
labels(nCurLabel).filters.alpha.opacity = labels(nCurLabel).filters.alpha.opacity + 10
end sub

sub seq_OnStop(Actionset)
select case ActionSet
case "ShowLabel"
call seq("HideLabel").play
case "HideLabel"
labels(nCurLabel).style.visibility="hidden"
nCurLabel = nCurLabel + 1
if nCurLabel > nLabelsLen then
nCurLabel = 0
end if

Randomize Timer

labels(nCurLabel).Style.PixelLeft = int((MaxLeft - MinLeft)*RND) + MinLeft
labels(nCurLabel).Style.PixelTop = int((MaxTop - MinTop)*RND) + MinTop

labels(nCurLabel).style.visibility=""
call seq("ShowLabel").play
end select
end sub

</script>