CCG 5
|
|
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 |
|