CCG 5
Explications

Voici donc le script seul
 

-<Html><HEAD>
 <Title> Luis Royo </Title>
 <!-- le son que vous pouvez changer directement dans OE dans format /arrière plan/ son-->
<BGSOUND ID=SOUND1  balance=0 src="file:///C:/windows/media/Bach_violin sonata2.mid" volume=0  loop= -1 >
 
</HEAD>
<!--------la couleur du fond -------->
<Body bgcolor=black>
<Div>
 
<!-- les images dans leur ordre d'apparition, attention au poids final -->
<SPAN id=Bilder1 Style="Left:-1000px; Height:0px; Position: Absolute;Top:0px; Width:0px; Visibility:hidden; Z-Index:-1">
<P><IMG src="c:\archives\royo\tentation.jpg"style="HEIGHT: 244px; LEFT: -203px; POSITION: absolute; TOP: 10px; Left:120px; WIDTH: 191px; Z-INDEX: -100"></P>
<P><IMG src="c:\archives\royo\felure.jpg"style="HEIGHT: 244px; LEFT: -203px; POSITION: absolute; TOP: 10px; Left:120px; WIDTH: 191px; Z-INDEX: -100"></P>
<P><IMG src="c:\archives\royo\diane.jpg"style="HEIGHT: 244px; LEFT: -203px; POSITION: absolute; TOP: 10px; Left:120px; WIDTH: 191px; Z-INDEX: -100"></P>
<P><IMG src="c:\archives\royo\echo.jpg"style="HEIGHT: 244px; LEFT: -203px; POSITION: absolute; TOP: 10px; Left:120px; WIDTH: 191px; Z-INDEX: -100"></P>
 
</SPAN>
<Div Id=Fin55>
 
</Div>
 
<Div ID=ELIN>
<!-- ici l'image qui est toujours en fond-->
<P><IMG id=lys src="c:\archives\royo\conception.jpg"style="HEIGHT: 244px; LEFT: -203px; POSITION: absolute; TOP: 10px; Left:120px; WIDTH: 191px;Visibility:hidden; Z-INDEX: -100"></P>
 
</Div>
 

<SCRIPT LANGUAGE="vbscript">
'''***********Cato Saelid 20-01-2001*********
dim oPopup,oPopupBody,OX,OY,w,Data,b
 

function versjontest()
 dim test, resultat
 test = window.navigator.userAgent
           
 resultat = Instr(test , "MSIE") 
 if ( resultat > 0 ) then
  resultat = mid ( test , (resultat + 5))
                        
   versjontest=  (left ( resultat , (Instr (resultat , ";") - 1)))
           If versjontest =>"5.5" then '***To test in normal window change this to 5.7
                      
                        OX=window.parent.screen.width
                        OY=window.parent.screen.HEIGHT
                        set  oPopup = window.createPopup
                         set  oPopupBody =oPopup.document.body
                         oPopupBody.innerHTML = ELIN.INNERHTML                         
                         oPopupBody.bgcolor="Black" 'This set the color for popup
                          oPopup.show 0, 0, OX, OY
                         set w=oPopupBody.all
                         set b=oPopupBody
                         settimeout"vers55",300
                       
             else
 
                        OX=window.document.body.offsetwidth
                        OY=window.document.body.offsetheight
                        set w=document.all
                        set b=document.body
                        settimeout"vers5",300
            end if
            end if
         end function
 
versjontest()
 
             Sub vers5()
            On error resume next
                 Fin55.style.visibility="hidden"
                document.body.bgcolor=" " 'This set the color if version 5
               Data= Data & "<Div Id=txt  class=txt  Style='Filter:" 
               Data=Data & " DropShadow(color=#FF0080,offX=1,offY=1,positive=1); "
               Data=Data & " color: #FFFFFF;  font-family: Freestyle Script;  font-size: 24;"
               Data=Data &  " font-weight: bold; Left:30%; Height:30px; Position:"
               Data=Data & " Absolute;Bottom:3%; Width:300px; Visibility:visible; Z-Index:1'></div>"
                b.insertAdjacentHTML "BeforeEnd",Data
               Data=""
setup
           
 
End sub
            Sub vers55()
            On error resume next
''*************This is the text box / ici le texte ************
               Data= Data & "<Div Id=txt  class=txt  Style='Filter:" 
             Data=Data & " DropShadow(color=#FF0080,offX=1,offY=1,positive=1); "
            Data=Data & " color: #FFFFFF;  font-family: Flemish Script BT;  font-size: 42;"
           Data=Data &  " font-weight: bold; Left:30%; Height:30px; Position:"
           Data=Data & " Absolute;Bottom:3%; Width:300px; Visibility:visible; Z-Index:1'></div>"
            b.insertAdjacentHTML "BeforeEnd",Data
            Data=""
 
''*********This is the button / ici le bouton ************
 Data="<button ID=lukk LANGUAGE=""VBScript"" onclick=""parent.Lukk()"" name=Button"
            Data=Data & " style=""Position:Absolute;Bottom:5%;Right:5%; color:gold;"
            Data= Data & " BACKGROUND-COLOR: #000000;"" > A bientôt</button>"
             b.insertAdjacentHTML "BeforeEnd",Data
          Data=""
           setup
          end sub
        Sub Lukk()
            on error resume next
            oPopup.hide()
            OX=window.document.body.offsetwidth
            OY=window.document.body.offsetheight
            set w=document.all
            set b=document.body
            settimeout"vers5",100
 
End Sub
 
</SCRIPT>
 
 
 

<!-- ************************************************
************************************************* -->

<!-- Ici le texte qui apparaît en bas des images -->
<SPAN id=Text1 class=txt Title="All text goes here,One div tag is one line" Style="Left:100px; Height:0px; Position: Absolute;Top:10px; Width:0px; Visibility:visible; Z-Index:1">
<DIV>Si vous voyez / if you see</DIV>
<DIV>c'est que le contrôle/ It's because the control</DIV>
<DIV>du filtre Alpha / of the Alpha filter</DIV>
<DIV>a fonctionné / has rightly functioned</DIV>
<DIV>Les images de l'avant utilisent le filtre en Fx</DIV>
<DIV>The fore pictures use the filter in Fx</DIV>
 
</SPAN>
 
<!-- ************************************************
************************************************* -->
 

<SCRIPT LANGUAGE="VBScript">
''***** Cato Saelid 03-06-2001*****
''*****cato.salid@chello.no********
Dim num,z,Image,Fx,xBase,yBase,mor,far,Xpos,Ypos,j,T,L,p,R,G,B,n,farve,Timerfarve
Dim Tekst,TI,Tnum,sg
    Fx=" BlendTrans(Duration=12) "
Fx=Fx & " Alpha(Opacity=70,FinishOpacity=0, Style=1,startX=0,startY=40,finishX=0,finishY=0)"
    sg=" Alpha(Opacity=80,FinishOpacity=0,Style=1,startX=0,startY=60,finishX=0,finishY=100 )"
 
Text1.style.visibility="hidden"
 Sub setup()
 
 data=data&"<IMG id=ThisImage src=''style='position:absolute;visibility:hidden;z-index:-10'>"
        b.insertAdjacentHTML "BeforeEnd", data
           data=""
 
 z=0
 set Image=Bilder1.all.tags("IMG")
 k=0:z=Image.length
               
                SetTimeOut "NewDog",1000
            resizelys(w.lys)
           Applyconelys(w.lys)
          settimeout"resizelys(w.ThisImage)",1000
              w.lys.style.visibility="visible"
          settimeout"mo",1000
           w.txt.style.visibility="Visible"
          TI=0
         set Tekst=Text1.all.tags("Div")
           Tl=Tekst.length
           playtxt
 
             End Sub
 
 
 Sub NewDog()
  On Error Resume Next
  num = num + 1
  If num = z Then num = 0
  neste(Image(num))
                         SetTimeOut "NewDog",26000
 End Sub
 
 Sub Neste(PicPath)
                                On Error Resume Next
w.ThisImage.style.filter=Fx
w.ThisImage.filters(0).Apply()
 
w.ThisImage.style.visibility = "Visible"
w.ThisImage.src=Image(num).src
w.ThisImage.filters(0).Play()
 
   End Sub
 

Function resizelys(lysfr)
On error resume next
lysfr.Style.postop =0
lysfr.Style.posleft =0
lysfr.style.poswidth=OX
lysfr.style.posheight=OY
End Function
 

Function Applyconelys(lysaddc)
On error resume next
hx=lysaddc.style.poswidth/2
hy=lysaddc.style.posheight
hz=lysaddc.style.posheight
hx1=lysaddc.style.posheight/2
hy1=lysaddc.style.poswidth/2
lysaddc.style.filter= "light" & space(1) & " BlendTrans(Duration=17)" & sg
lysaddc.filters.Light.addCone hx,hy,hz,hx1,hy1,255,255,0,100,39
lysaddc.filters.Light.addCone hx,hy,hz,hx1,hy1,255,25,250,100,46
lysaddc.filters.Light.addCone hx,hy,hz,hx1,hy1,25,255,250,100,55
lysaddc.filters.Light.addCone hx,hy,hz,hx1,hy1,255,25,40,100,14
lysaddc.filters.Light.addCone hx,hy,hz,hx1,hy1,255,0,250,100,35
 
End Function
 
xBase = OX/2
yBase = OY/2
 mor =0.2
far = 0
z=3
p=3
Xpos = xBase
Ypos = yBase
Sub mo
               On Error Resume Next
    for j=0 to z
 
                         T=sin((20*sin(far/20))+(j*70))*xBase*(sin(10+far/(10+j))+0.2)*cos((far + (j*25))/10)
 
                         y=Ypos+T
                         
                           L=cos((20*sin(far/(20+j)))+j*70)*yBase*(sin(10+far/10)+0.2)*cos((far + j*25)/10)
                           x=Xpos+L
                w.lys.filters(0).movelight (j),x,y,15,1
 
                          next
               far =far+ mor
                        
                         SetTimeOut "mo",1
              End sub
 
 
 
Function ColorThisImage(ThisImagecolor)
On error resume next
 On Error Resume Next
    for p=0 to z
 
 R=INT((R * 1.02) + 2)
 G=FIX((G * 1.2) +1)
  B=FIX((B *1.1)+4)
 
     
if R> 155 then R=0
if G> 255 then G=0
if B> 255 then B=0
    ThisImagecolor.filters(0).ChangeColor p,R,G,B,1
next
 
End Function
Timerfarve=Setinterval ("ColorThisImage(w.lys)",10000)
 Sub playtxt()
           on error resume next
                   w.txt.innerhtml=Tekst(Tnum).innerHtml
                   w.txt.style.visibility="visible"                    
                    Tnum=Tnum+1
                    If Tnum = Tl Then Tnum = 0
                    Settimeout"playtxt",5000
               
        End Sub
</script>
 
</Div>
</Body>
</Html>
 
 
 
<!-- **********Amusez vous bien**************************************
************************************************* -->
Mes images risquent de choques la pudeur de certains et je vour prie de m'en excuser par avance
 
Suzy

Menu