Mots d'art & Scénarios
Poésie, littérature, pensées,
scripts d'art,
oeuvres de Ginette Villeneuve
AccueilAccueil  RechercherRechercher  S’enregistrerS’enregistrer  ConnexionConnexion  
 

Scripts de Jean Vienne

Voir le sujet précédent Voir le sujet suivant Aller en bas 
AuteurMessage
Gi
Rang: Administrateur



Inscrit le : 18 Déc 2004
Messages : 10597
Localisation : Terrebonne, Québec, Canada

MessageSujet: Scripts de Jean Vienne   Mer 22 Déc - 3:21

Code:
<HTML>
<HEAD>
<STYLE>
.Pointeur {CURSOR: hand; POSITION: absolute ; Bottom:20 ; Left : 30}
</STYLE>
</HEAD>

<BODY Style="
BORDER-Left : #A4350A 7px Outset ;
BORDER-Top : #A4350A 7px Outset ;
BORDER-Right : #A4350A 7px inset ;
BORDER-Bottom : #A4350A 7px inset ;
SCROLLBAR-BASE-COLOR : #A4350A ;
SCROLLBAR-FACE-COLOR : #A4350A ;
SCROLLBAR-TRACK-COLOR : #A4350A ;
SCROLLBAR-ARROW-COLOR : Black "
bgColor=Black background="cid:092c01c4f651$6a499e90$2101a8c0@scenarios">

<BGSOUND balance=0 src="cid:092c01c4f651$6a499e90$2101a8c0@scenarios"volume=0 loop=99>

<Br>

 
 
<IMG src="cid:092c01c4f651$6a499e90$2101a8c0@scenarios" >
<!---Le Container Table de la boite de Texte----->
<Table Id=Global Style="Filter :
progid:DXImageTransform.Microsoft.Gradient(startColorstr=#C85921, endColorstr=#ECAF30, gradientType=1)
progid:DXImageTransform.Microsoft.Alpha(Opacity=90,finishOpacity=90,style=1) ;
BORDER : #A4350A 7px window-inset"
CellSpacing = 0 CellPadding = 15
BorderColorDark = #FCF0E4 BorderColorLight = #005959 Border = 1 >
<!-------------- Le Container Texte ------>
<Div Id=Texte style="Filter : dropshadow(offx=1, offy=1 color=#012C2B,enabled=1);
BORDER-Left : #FAF0E7 3px Double ;
BORDER-Top : #FAF0E7 3px Double ;
BORDER-Right : #A13504 3px Double ;
BORDER-Bottom : #A13504 3px Double ;
SCROLLBAR-BASE-COLOR : #ECAF30 ;
SCROLLBAR-FACE-COLOR : #ECAF30 ;
SCROLLBAR-TRACK-COLOR : #ECAF30 ;
SCROLLBAR-ARROW-COLOR : Black ;
OVERFLOW : auto ;
FONT-FAMILY : Comic sans Ms ;
FONT-STYLE : italic;
FONT-SIZE : 12pt ;
COLOR : #F8E7C9 ;
Text-Align : Center ;
Padding : 15 ;
Width : 350 ;
Height : 351 " >
Voici la Première Fiche
Message ici<Br><Br><Br><Br><Br><Br>

 <IMG class=Pointeur src="cid:092c01c4f651$6a499e90$2101a8c0@scenarios" >
<IMG class=Pointeur src="cid:092c01c4f651$6a499e90$2101a8c0@scenarios" >
<IMG class=Pointeur src="cid:092c01c4f651$6a499e90$2101a8c0@scenarios" >
<IMG class=Pointeur src="cid:092c01c4f651$6a499e90$2101a8c0@scenarios" >
<IMG class=Pointeur src="cid:092c01c4f651$6a499e90$2101a8c0@scenarios" >
<IMG class=Pointeur src="cid:092c01c4f651$6a499e90$2101a8c0@scenarios" >
<IMG class=Pointeur src="cid:092c01c4f651$6a499e90$2101a8c0@scenarios" >
<IMG class=Pointeur src="cid:092c01c4f651$6a499e90$2101a8c0@scenarios" >
<IMG class=Pointeur src="cid:092c01c4f651$6a499e90$2101a8c0@scenarios" >
<IMG class=Pointeur src="cid:092c01c4f651$6a499e90$2101a8c0@scenarios" >
<IMG class=Pointeur src="cid:092c01c4f651$6a499e90$2101a8c0@scenarios" >
<IMG class=Pointeur src="cid:092c01c4f651$6a499e90$2101a8c0@scenarios" >
<IMG class=Pointeur src="cid:092c01c4f651$6a499e90$2101a8c0@scenarios" >
<IMG class=Pointeur src="cid:092c01c4f651$6a499e90$2101a8c0@scenarios" >
<IMG class=Pointeur src="cid:092c01c4f651$6a499e90$2101a8c0@scenarios" >
<IMG class=Pointeur src="cid:092c01c4f651$6a499e90$2101a8c0@scenarios" >


<!--------------------------------------------->
<SCRIPT language=JavaScript>
//--------------------------------------------
//- ( @ @ ) -
//- oOOo-(_)-oOOo -
//- © Réalisé par Jean © -
//- Le 18 Décembre 2004 -
//- vienne.j@wanadoo.fr -
//--------------------------------------------
var CursOui = false
var z
var x,y
document.onmousedown = DepSouris
document.onmouseup = new Function("CursOui=false")
//-------------------------------------------------------------------------
function DepSouris(){
if (!document.all) return
if (event.srcElement.className=="Pointeur")
{CursOui = true
z = event.srcElement
SauvX = z.style.pixelLeft
SauvY = z.style.pixelBottom
x = event.clientX
y = event.clientY
document.onmousemove = move } }
//-------------------------------------------------------------------------
function move(){
if (event.button==1&&CursOui){z.style.pixelLeft = SauvX + event.clientX - x
z.style.pixelBottom = SauvY - event.clientY + y
return false } }
//-------------------------------------------------------------------------
</SCRIPT>
<SCRIPT language=JavaScript>
<!--
ScrollSpeed = 250; // milliseconds between scrolls
ScrollChars = 4; // chars scrolled per time period

function SetupTicker() {
// add space to the left of the message
msg = "Ginette Villeneuve : http://www.liensutiles.org/gvilleneuve.htm";
RunTicker();}

function RunTicker() {
window.setTimeout('RunTicker()',ScrollSpeed);
window.status = msg;
msg = msg.substring(ScrollChars) + msg.substring(0,ScrollChars);}
SetupTicker();

<!-- end -->
</SCRIPT>
</BODY></HTML>

_________________
...



http://www.liensutiles.org/gvilleneuve.htm


Dernière édition par le Jeu 16 Juin - 19:17, édité 6 fois
Revenir en haut Aller en bas
Gi
Rang: Administrateur



Inscrit le : 18 Déc 2004
Messages : 10597
Localisation : Terrebonne, Québec, Canada

MessageSujet: Re: Scripts de Jean Vienne   Mar 11 Jan - 23:29

Code:
<HTML><HEAD><TITLE></TITLE>

<!----- Le Fond --------------------------------------------------------------------->
<META content="MSHTML 5.50.4807.2300" name=GENERATOR>

</HEAD>
<BODY
style="SCROLLBAR-FACE-COLOR: #1d1314;
SCROLLBAR-ARROW-COLOR: #5a3a3e; SCROLLBAR-TRACK-COLOR: #1d1314; SCROLLBAR-BASE-COLOR: #1d1314"
bgColor=black background=cid:002201c4f314$74c9e360$0100007f@scenarios

scroll=Yess><!----- La musique ---------------------------------------------------------------------><BGSOUND
balance=0 src="cid:002301c4f314$74c9e360$0100007f@scenarios" volume=0
loop=infinite><!----- Le commentaire CLIC --------------------------------------------------------------------->
<DIV id=DivDeb
style="BORDER-RIGHT: #796530 0px dashed; PADDING-RIGHT: 5px;
BORDER-TOP: #796530 0px dashed; PADDING-LEFT: 5px; FONT-SIZE: 24px;
Z-INDEX: 10; FILTER: revealtrans glow(strength=10,color=red ,enabled=1); LEFT: 0px; VISIBILITY: visible; PADDING-BOTTOM: 5px; OVERFLOW: auto;
BORDER-LEFT: #796530 0px dashed; WIDTH: 300px; COLOR: #ff8848; PADDING-TOP: 5px; BORDER-BOTTOM: #796530 0px dashed; POSITION: absolute; TOP: 0px">~
Cliquez sur le Tableau ~ </DIV>
<!----- L' Image ---------------------------------------------------------------------><IMG
id=Img01
style="LEFT: -800px; WIDTH: 440px; POSITION: absolute; TOP: -800px;
HEIGHT: 440px"
src="cid:001f01c4f314$749edbc0$0100007f@scenarios">
<!------- Le Container de l'Image  -------------------------------------------------------->
<DIV id=Cont01
style="Z-INDEX: 1; FILTER: revealTrans; LEFT: 20px; VISIBILITY: visible;
WIDTH: 490px; POSITION: absolute; TOP: 20px; HEIGHT: 490px">
</DIV><!------- Le Cadre Image  -------------------------------------------------------->
<IMG
language=VBS id=Cadr01
style="Z-INDEX: 2; FILTER: revealTrans; LEFT: 10px; VISIBILITY: visible;
WIDTH: 490px; CURSOR: hand; POSITION: absolute; TOP: 10px;
HEIGHT: 490px"
onclick=OuvreCad alt="~ Clic ici ~"
src="cid:002001c4f314$74c9e360$0100007f@scenarios">
<!------- Le Cadre Texte  --------------------------------------------------------><IMG
language=VBS id=Cadr02
style="Z-INDEX: 2; FILTER: revealTrans; LEFT: 10px; VISIBILITY: hidden;
WIDTH: 490px; CURSOR: hand; POSITION: absolute; TOP: 10px; HEIGHT: 490px"
onclick=FermCad alt="~ Clic ici ~"
src="cid:002101c4f314$74c9e360$0100007f@scenarios">
<!------- Le Texte  -------------------------------------------------------->
<DIV id=Texte
style="BORDER-RIGHT: #a03d1f 0px ridge; PADDING-RIGHT: 15px;
BORDER-TOP: #a03d1f 0px ridge; PADDING-LEFT: 15px;
SCROLLBAR-FACE-COLOR: #af2800; FONT-SIZE: 16pt; Z-INDEX: 3; FILTER: progid:DXImageTransform.Microsoft.Gradient
( StartColorstr=#761B00 , EndColorstr=#B32800,
GradientType=1, ENABLED=1); LEFT: 0px;
VISIBILITY: hidden; PADDING-BOTTOM: 15px; OVERFLOW: auto;
BORDER-LEFT: #a03d1f 0px ridge; WIDTH: 450px; COLOR: #ff823e;
SCROLLBAR-ARROW-COLOR: black; PADDING-TOP: 15px;
SCROLLBAR-TRACK-COLOR: #af2800; BORDER-BOTTOM: #a03d1f 0px ridge;
FONT-FAMILY: 'Comic sans Ms'; SCROLLBAR-BASE-COLOR: #af2800;
POSITION: absolute; TOP: 10px; HEIGHT: 450px; TEXT-ALIGN: center"><I>
<DIV><BR>Message ici<BR><BR>
<BR><BR><BR><BR><BR><BR><BR><BR><BR><BR>
<BR><BR><BR><BR><BR><BR><BR><BR><BR><BR>
<BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR>
<BR><BR><BR></DIV></I></DIV><!-------------------------------------------->
<SCRIPT language=VBScript>
'----------------------------------------------
'-           \\\|///       -
'-                      \\  _ _  //       -
'-                      (  @ @  )       -
'-                  oOOo-(_)-oOOo       -
'-              © Réalisé par Jean ©    -
'-                  Le 27/11/2003       -
'-                vienne.j@wanadoo.fr   -
'-                                  Oooo       -
'-                    oooO      (      )       -
'-                    (        )    )  /       -
'-                      \  (      (_/      -
'-                        \_)      *       -
'-                          *         -
'---------------------------------------------->
Dim xx2, GlStreng, Indice, XColor
LargeurEcran = document.body.clientWidth
HauteurEcran = document.body.clientHeight
x=0
y=0

Cont01.style.backgroundImage="URL("&Img01.src&")"
Cont01.style.posLeft = (LargeurEcran/2) - (Cont01.style.posWidth/2)
Cont01.style.posTop = (HauteurEcran/2) - (Cont01.style.posHeight/2)
Cadr01.style.posLeft = (LargeurEcran/2) - (Cadr01.style.posWidth/2)
Cadr01.style.posTop = (HauteurEcran/2) - (Cadr01.style.posHeight/2)
Cadr02.style.posLeft = (LargeurEcran/2) - (Cadr02.style.posWidth/2)
Cadr02.style.posTop = (HauteurEcran/2) - (Cadr02.style.posHeight/2)
Texte.style.posLeft = (LargeurEcran/2) - (Texte.style.posWidth/2)
Texte.style.posTop = (HauteurEcran/2) - (Texte.style.posHeight/2)
DivDeb.style.posLeft = (LargeurEcran/2) - (DivDeb.style.posWidth/2)
DivDeb.style.posTop = 10
'-----------------------------------------------------------------------
Sub Window_Onload()
Cleartimeout (xx2)
xx2=Settimeout ("GLOW", 10)   
SetInterval "scroll",10
End Sub

'-----------------------------------------------------------------------
Sub OuvreCad()
DivDeb.style.visibility="hidden"
Cont01.style.visibility="hidden"
Cadr01.style.visibility="hidden"
Cadr02.style.visibility="visible"
Texte.style.visibility="visible"
End SUb

'-----------------------------------------------------------------------
Sub FermCad()
DivDeb.style.visibility="visible"
Cont01.style.visibility="visible"
Cadr01.style.visibility="visible"
Cadr02.style.visibility="hidden"
Texte.style.visibility="hidden"
End SUb

'-----------------------------------------------------------------------
Sub Scroll()
x= x+1
Cont01.style.backgroundPosition=x&" "&y
End SUb

'-----------------------------------------------------------------------
Sub GLOW()
Cleartimeout (xx2)
if GlStreng=>10 then Indice=-2  end if      
if GlStreng=<0 then Indice=2  end if   
GlStreng=GlStreng+Indice
DivDeb.filters(1).strength=GlStreng
''DivDeb.filters(1).color = XColor
xx2=Settimeout ("GLOW",10)               
End Sub

'-----------------------------------------------------------------------
Sub window_onresize()
window.location.reload()
End Sub

</SCRIPT>
<SCRIPT language=JavaScript>
<!--
ScrollSpeed = 250; // milliseconds between scrolls
ScrollChars = 4; // chars scrolled per time period

function SetupTicker() {
// add space to the left of the message
msg = "Ginette Villeneuve : http://www.liensutiles.org/gvilleneuve.htm";
RunTicker();}

function RunTicker() {
window.setTimeout('RunTicker()',ScrollSpeed);
window.status = msg;
msg = msg.substring(ScrollChars) + msg.substring(0,ScrollChars);}
SetupTicker();

<!-- end -->
</SCRIPT>



</BODY></HTML>

_________________
...



http://www.liensutiles.org/gvilleneuve.htm


Dernière édition par le Jeu 16 Juin - 19:18, édité 2 fois
Revenir en haut Aller en bas
Gi
Rang: Administrateur



Inscrit le : 18 Déc 2004
Messages : 10597
Localisation : Terrebonne, Québec, Canada

MessageSujet: Re: Scripts de Jean Vienne   Mar 11 Jan - 23:39

Code:
<HTML>
<!--------------------------------------------------------------------------------->
<BODY bgColor=#3C1124 Background="cid:002101c$0100007f@scenarios" scroll=no>

<!--------------------------------------------------------------------------------->
<BGSOUND balance=0 src="cid:002101c$0100007f@scenarios" volume=0 loop=infinite>

<!--------------------------------------------------------------------------------->
<IMG id=Back01    Style="POSITION: absolute; TOP: -800px ;
LEFT: -800px " src="cid:002101c$0100007f@scenarios" >
<IMG id=Back02    Style="POSITION: absolute; TOP: -800px ;
LEFT: -800px " src="cid:002101c$0100007f@scenarios" >

<!--------------------------------------------------------------------------------->
<DIV id=Cont01A    Style="Z-INDEX: 2" > </DIV>
<DIV id=Cont02A    Style="Z-INDEX: 1"> </DIV>

<!--------------------------------------------------------------------------------->
<DIV id=Cont01B    Style="Z-INDEX: 2" > </DIV>
<DIV id=Cont02B    Style="Z-INDEX: 1"> </DIV>

<!--------------------------------------------------------------------------------->
<IMG id=Fauteuil    Style="Z-INDEX: 5 ; POSITION: absolute;
TOP: -800px ; LEFT: -800px " src="cid:002101c$0100007f@scenarios" >

<!--------------------------------------------------------------------------------->
<DIV id=ContTextA   > </DIV>
<!--------------------------------------------------------------------------------->
<DIV id=ContTextB style="PADDING : 10px;
SCROLLBAR-BASE-COLOR: #1B1B1B;
SCROLLBAR-FACE-COLOR: #131416;
SCROLLBAR-TRACK-COLOR: #131416;
SCROLLBAR-ARROW-COLOR: #4B2921;
BACKGROUND-ATTACHMENT: fixed;
FONT-FAMILY: Comic sans Ms;
FONT-WEIGHT: normal;
FONT-SIZE: 14pt;
TEXT-ALIGN: center ;
COLOR: #fdeeb0  ;
OVERFLOW: auto ;
width : 400 ; Height : 400 ;
Position : Absolute ; Top : 10 ; Left : 10 " >

mmmmmmmmmmmmmmmm
<Br>
sssss
<Br><Br><Br><Br><Br><Br><Br><Br>
<Br><Br><Br><Br><Br><Br><Br>
<Br><Br><Br><Br><Br><Br>
Test ScrollBar
<Br><Br><Br><Br><Br><Br>
<Br><Br><Br><Br><Br>
<Br><Br><Br><Br><Br><Br><Br>
<Br><Br><Br>
<Br><Br><Br><Br><Br>
<Br><Br><Br><Br>
</DIV>

<!--------------------------------------------------------------------------------->
<DIV Id=Nom style="Z-INDEX: 5 ;
FONT-FAMILY: Comic sans Ms;
FONT-WEIGHT: normal;
FONT-SIZE: 12pt;
color=#fdeeb0 ;
TEXT-ALIGN: center">
Mots d'art & Scénarios
<BR>
scenarioscript@free.fr

</DIV>

<!------------------------------------------------------------------------------------------->
<!--------------------------------------------->
<SCRIPT language=vbscript>
'----------------------------------------------
'-           \\\|///       -
'-                      \\  _ _  //       -
'-                      (  @ @  )       -
'-                  oOOo-(_)-oOOo       -
'-              © Réalisé par Jean ©    -
'-                  Le 03/01/2005       -
'-                vienne.j@wanadoo.fr   -
'-                                  Oooo       -
'----------------------------------------------
Dim Laps

'---------------- Mes Variables -----------------------
X       = 0
Y       = 0
BordureEpaisseur   = 1
BordureLarg    = 3
BordureForme    = "Ridge"
BordureColor    = "Black"
LargeurContainer   = 65
PosContainerCadre   = 65
PosContainerText   = 75

'--------------------------------------------------------------------
sub Window_OnLoad()

LargeurEcran   = document.body.clientWidth
HauteurEcran   = document.body.clientHeight
'-------------------------------------------------------------------------------------
Cont02A.style.backgroundImage      = "URL("&Back02.src&")"
Cont02B.style.backgroundImage      = "URL("&Back02.src&")"
ContTextA.style.backgroundImage   = "URL("&Back02.src&")"

Cont01A.style.backgroundImage      = "URL("&Back01.src&")"
Cont01B.style.backgroundImage      = "URL("&Back01.src&")"
ContTextB.style.backgroundImage   = "URL("&Back01.src&")"

'-----------------------------------------------------------------------------------------------------
Cont02A.style.borderLeft      =BordureForme&" "&BordureColor&" "&BordureEpaisseur&"px"
Cont02A.style.borderRight      =BordureForme&" "&BordureColor&" "&BordureEpaisseur&"px"
Cont02B.style.borderTop      =BordureForme&" "&BordureColor&" "&BordureEpaisseur&"px"
Cont02B.style.borderBottom      =BordureForme&" "&BordureColor&" "&BordureEpaisseur&"px"
ContTextA.style.border      =BordureForme&" "&BordureColor&" "&BordureEpaisseur&"px"
ContTextB.style.border      =BordureForme&" "&BordureColor&" "&BordureEpaisseur&"px"

'-------------------------------------------------------------------------------------------------------------------------
Cont01A.style.width      = LargeurContainer + (BordureEpaisseur*2)
Cont01A.style.height      = HauteurEcran 
Cont01A.style.Position   = "Absolute"
Cont01A.style.left      = PosContainerCadre + BordureLarg + BordureEpaisseur
Cont01A.style.top      = 0

Cont02A.style.width      = LargeurContainer + (BordureLarg*2) + (BordureEpaisseur*4)
Cont02A.style.height      = HauteurEcran 
Cont02A.style.Position   = "Absolute"
Cont02A.style.left      = PosContainerCadre
Cont02A.style.top      = 0

'-------------------------------------------------------------------------------------------------------------------------
Cont01B.style.width      = LargeurEcran
Cont01B.style.height      = LargeurContainer + (BordureEpaisseur*2)
Cont01B.style.Position   = "Absolute"
Cont01B.style.left      = 0
Cont01B.style.top      = PosContainerCadre + BordureLarg + BordureEpaisseur

Cont02B.style.width      = LargeurEcran
Cont02B.style.height      = LargeurContainer + (BordureLarg*2) + (BordureEpaisseur*4)
Cont02B.style.Position   = "Absolute"
Cont02B.style.left      = 0
Cont02B.style.top      = PosContainerCadre

'-------------------------------------------------------------------------------------------------------------------------
ContTextA.style.width   = LargeurEcran - (PosContainerCadre + (PosContainerText*2) + (BordureLarg*2) + LargeurContainer + (BordureEpaisseur*6))
ContTextA.style.height   = HauteurEcran - (PosContainerCadre + (PosContainerText*2) + (BordureLarg*2) + LargeurContainer + (BordureEpaisseur*6))
ContTextA.style.Position   = "Absolute"
ContTextA.style.left      = PosContainerCadre + PosContainerText + (BordureLarg*2) + LargeurContainer + (BordureEpaisseur*4)
ContTextA.style.top      = PosContainerCadre + PosContainerText + (BordureLarg*2) + LargeurContainer + (BordureEpaisseur*4)

ContTextB.style.width   = LargeurEcran - (PosContainerCadre + (PosContainerText*2) + (BordureLarg*4) + LargeurContainer + (BordureEpaisseur*8))
ContTextB.style.height   = HauteurEcran - (PosContainerCadre + (PosContainerText*2) + (BordureLarg*4) + LargeurContainer + (BordureEpaisseur*8))
ContTextB.style.Position   = "Absolute"
ContTextB.style.left      = PosContainerCadre + PosContainerText + (BordureLarg*3) + LargeurContainer + (BordureEpaisseur*5)
ContTextB.style.top      = PosContainerCadre + PosContainerText + (BordureLarg*3) + LargeurContainer + (BordureEpaisseur*5)

Nom.style.width      = 200
Nom.style.height      = 50
Nom.style.Position      = "Absolute"
Nom.style.Right      = 20
Nom.style.top      = PosContainerCadre + 12

Fauteuil.style.Position      = "Absolute"
Fauteuil.style.Left      = PosContainerCadre/2.5
Fauteuil.style.top      = PosContainerCadre/2.5

'----------------------------------------
clearInterval(Laps)
Laps = setInterval ("Scroll",70)
end sub

'--------------------------------------------------------------------
sub Scroll()
X = X+1
Y = Y-1
ContTextA.style.backgroundposition   = X&" "&Y
Cont02A.style.backgroundposition   = X&" "&Y
Cont02B.style.backgroundposition   = X&" "&Y
end sub

'--------------------------------------------------------------------
sub Window_OnResize()
Window_OnLoad
end sub

</SCRIPT>
<SCRIPT language=JavaScript>
<!--
ScrollSpeed = 250; // milliseconds between scrolls
ScrollChars = 4; // chars scrolled per time period

function SetupTicker() {
// add space to the left of the message
msg = "Ginette Villeneuve : http://www.liensutiles.org/gvilleneuve.htm";
RunTicker();}

function RunTicker() {
window.setTimeout('RunTicker()',ScrollSpeed);
window.status = msg;
msg = msg.substring(ScrollChars) + msg.substring(0,ScrollChars);}
SetupTicker();

<!-- end -->
</SCRIPT>

</BODY></HTML>

_________________
...



http://www.liensutiles.org/gvilleneuve.htm


Dernière édition par le Jeu 16 Juin - 19:19, édité 1 fois
Revenir en haut Aller en bas
Gi
Rang: Administrateur



Inscrit le : 18 Déc 2004
Messages : 10597
Localisation : Terrebonne, Québec, Canada

MessageSujet: Re: Scripts de Jean Vienne   Mar 26 Avr - 22:13

script de Jean :

http://perso.wanadoo.fr/smileysmania/WEBScript/FiltreWav02/FiltreWav02.htm
_________________
...



http://www.liensutiles.org/gvilleneuve.htm
Revenir en haut Aller en bas
Gi
Rang: Administrateur



Inscrit le : 18 Déc 2004
Messages : 10597
Localisation : Terrebonne, Québec, Canada

MessageSujet: Re: Scripts de Jean Vienne   Jeu 16 Juin - 19:19

Code:
<HTML><HEAD>

</HEAD>
<BODY style="BORDER-RIGHT: #d9cd7f 8px ridge; BORDER-TOP: #d9cd7f 8px ridge;
BORDER-LEFT: #d9cd7f 8px ridge; BORDER-BOTTOM: #d9cd7f 8px ridge"
bgColor=#203e5c background=cid:017201c4e136$247b4b00$0401a8c0@scenario
scroll=no>


<BGSOUND balance=0 src="cid:017301c4e136$248f4830$0401a8c0@scenario"
volume=-400>

<DIV id=FauxBack
style="BORDER-TOP: #d9cd7f 6px ridge; Z-INDEX: -1; BACKGROUND: black; BORDER-LEFT: #d9cd7f 6px ridge; COLOR: black; BORDER-BOTTOM: #d9cd7f 6px ridge"></DIV><!--------------------------------------------------------------><BR><BR>
<TABLE id=TX
style="BORDER-RIGHT: #d9cd7f 0px double; BORDER-TOP: #d9cd7f 0px double; BORDER-LEFT: #d9cd7f 0px double; BORDER-BOTTOM: #d9cd7f 0px double"
cellSpacing=2 align=center bgColor=black border=0>
<TBODY>
<TR>
<TD align=middle><IMG id=Img01
style="FILTER: progid:DXImageTransform.Microsoft.Light(enabled=1)"
src="cid:017001c4e136$2479c460$0401a8c0@scenario" width="80%"> </TD>
<TD vAlign=top align=middle><FONT face="Monotype Corsiva" color=#ddbd65
size=4><I>
<DIV><BR>Message ici</DIV>
</I></FONT></DIV></TD>
<TD align=middle><IMG id=Img02
style="FILTER: progid:DXImageTransform.Microsoft.Light(enabled=1)"
src="cid:017101c4e136$2479c460$0401a8c0@scenario" width="80%">
</TD></TR></TBODY></TABLE><!-------------------------------------------------------->
<SCRIPT language=VBScript>
'---------------------------------------------------------
'- \\\|/// -
'- \\ _ _ // -
'- ( @ @ ) -
'- oOOo-(_)-oOOo -
'- © Réalisé par Jean © -
'- Réalisation 23 Novembre 2004 -
'- vienne.j@wanadoo.fr -
'- Oooo -
'--------------------------------------------------------->
Dim Ambiance, Coul1, Coul2, Coul3, Coul1A, Coul2A, Coul3A, Streng1, Streng2, Vitesse

LargeurEcran = document.body.clientwidth
HauteurEcran = document.body.clientheight

Ambiance = 80 '--- Luminosité générale de l image
Coul1 = 100
Coul2 = 125
Coul3 = 50

x=0
y=0

'============================================================
Sub Window_OnLoad()

FauxBack.Style.Width = LargeurEcran - 6
FauxBack.Style.Height = HauteurEcran - 6
FauxBack.Style.Position = "Absolute"
FauxBack.Style.PosLeft = (LargeurEcran - FauxBack.OffsetWidth)/2
FauxBack.Style.PosTop = (HauteurEcran - FauxBack.OffsetHeight)/2

SetInterval"scroll",60
ClearTimeOut
SetTimeOut "MaFlamme", 10
end sub
'============================================================
Sub MaFlamme()
Coul1A = Rnd*255
Coul2A = Rnd*255
Coul3A = Rnd*255
Streng1 = Rnd*100
Streng2 = Rnd*100
Vitesse = Rnd*250

Img01.filters(0).clear
Img02.filters(0).clear
'---------------------------------------------
Img01.filters(0).addAmbient Coul3,Coul2,Coul1,Ambiance
Img01.filters(0).addPoint 200,200,100,255,105,30,150
Img01.filters(0).changeStrength 1,Streng1,1
Img01.filters(0).changeColor 1, Coul1A,Coul2A,Coul3A,1

'---------------------------------------------
Img02.filters(0).addAmbient Coul1,Coul2,Coul3,Ambiance
Img02.filters(0).addPoint 100,200,100,255,105,30,150
Img02.filters(0).changeStrength 1,Streng2,1
Img02.filters(0).changeColor 1, Coul3A,Coul2A,Coul1A,1
'---------------------------------------------
Img01.filters.item(0).apply()
Img02.filters.item(0).apply()
'---------------------------------------------
ClearTimeOut
SetTimeOut "MaFlamme", Vitesse
End Sub

'============================================================
Sub scroll()
x=x+1
y=y+1
document.body.style.backgroundPosition=x&" "&y
End Sub

'============================================================
Sub window_onresize()
window.location.reload()
End Sub


</SCRIPT>

</BODY></HTML>

_________________
...



http://www.liensutiles.org/gvilleneuve.htm
Revenir en haut Aller en bas
Gi
Rang: Administrateur



Inscrit le : 18 Déc 2004
Messages : 10597
Localisation : Terrebonne, Québec, Canada

MessageSujet: Re: Scripts de Jean Vienne   Jeu 16 Juin - 19:21

Code:
<BODY
style="BORDER-RIGHT: #e3edc7 6px ridge; BORDER-TOP: #e3edc7 6px ridge; BORDER-LEFT: #e3edc7 6px ridge; BORDER-BOTTOM: #e3edc7 6px ridge"
bgColor=#e3edc7 background=cid:004e01c4e160$ce28b1e0$3d67cb18@scenario
scroll=no><BGSOUND balance=0 src="cid:004f01c4e160$ce28b1e0$3d67cb18@scenario"
volume=0 loop=infinite>

<IMG id=Bkg0
style="LEFT: -800px; POSITION: absolute; TOP: -800px"
src="cid:004a01c4e160$ce1f8a20$3d67cb18@scenario"> <IMG id=Bkg1
style="LEFT: -800px; POSITION: absolute; TOP: -800px"
src="cid:004b01c4e160$ce1f8a20$3d67cb18@scenario">
<DIV id=Cont01
style="BORDER-RIGHT: #e3edc7 6px ridge; BORDER-TOP: #e3edc7 6px ridge; BORDER-LEFT: #e3edc7 6px ridge; BORDER-BOTTOM: #e3edc7 6px ridge"></DIV>
<DIV id=Cont02
style="BORDER-RIGHT: #e3edc7 3px ridge; PADDING-RIGHT: 10px; BORDER-TOP: #e3edc7 3px ridge; PADDING-LEFT: 10px; FONT-SIZE: 18pt; PADDING-BOTTOM: 10px; OVERFLOW: auto; BORDER-LEFT: #e3edc7 3px ridge; COLOR: #000000; PADDING-TOP: 10px; BORDER-BOTTOM: #b9c096 3px ridge; FONT-FAMILY: Short Hand; SCROLLBAR-BASE-COLOR: #b9c096; TEXT-ALIGN: center; Short: hidden"><B><BR><BR><IMG
src="cid:004c01c4e160$ce1f8a20$3d67cb18@scenario">&nbsp;<BR><BR>Félicitation
pour votre. <BR><BR>Mariage... <BR><IMG
src="cid:004d01c4e160$ce1f8a20$3d67cb18@scenario"><BR><BR><B><Div>Message ici<BR><BR></B></DIV><!--------------------------------------------->
<SCRIPT language=VBScript>
'----------------------------------------------
'- \\\|/// -
'- \\ _ _ // -
'- ( @ @ ) -
'- oOOo-(_)-oOOo -
'- © Réalisé par Jean © -
'- Le 27/07/2004 -
'- vienne.j@wanadoo.fr -
'- Oooo -
'---------------------------------------------->
'--------------------------------------------------------------------------
Dim LargeurEcran, HauteurEcran, RatioCnt, Indice, Temps, Bordure
Cont01.style.backgroundImage = "URL("&Bkg0.src&")"
x = 0
y = 0
'--------------------------------------------------------------------------
Sub Window_OnLoad()
LargeurEcran = document.body.clientWidth
HauteurEcran = document.body.clientHeight
Indice = 0.10
Bordure = 10
Bordure2 = 20
RatioCnt = LargeurEcran/HauteurEcran
Cont01.style.Width = (HauteurEcran * Indice) * RatioCnt
Cont01.style.Height = (HauteurEcran * Indice)
Cont02.style.Width = (HauteurEcran * Indice) * RatioCnt - Bordure2
Cont02.style.Height = (HauteurEcran * Indice) - Bordure2

Cont01.Style.Position = "Absolute"
Cont01.Style.Left = (LargeurEcran - Cont01.OffsetWidth) /2
Cont01.Style.Top = (HauteurEcran - Cont01.OffsetHeight) /2
Cont02.Style.Position = "Absolute"
Cont02.Style.Left = (LargeurEcran - Cont02.OffsetWidth) /2
Cont02.Style.Top = (HauteurEcran - Cont02.OffsetHeight) /2

SetTimeOut "Aug",5
End Sub
'--------------------------------------------------------------------------
Sub Aug()
If Cont01.OffsetHeight < (HauteurEcran - Bordure) Then
Cont01.style.Width = Cont01.OffsetWidth + 2
Cont01.style.Height = Cont01.OffsetHeight + 2
Cont02.style.Width = Cont02.OffsetWidth + 2
Cont02.style.Height = Cont02.OffsetHeight + 2
Cont01.Style.Left = (LargeurEcran - Cont01.OffsetWidth) / 2
Cont01.Style.Top = (HauteurEcran - Cont01.OffsetHeight) / 2
Cont02.Style.Left = (LargeurEcran - Cont02.OffsetWidth) / 2
Cont02.Style.Top = (HauteurEcran - Cont02.OffsetHeight) / 2

SetTimeOut "Aug",5
Else
SetTimeOut "Suite",5
End If
End Sub
'--------------------------------------------------------------------------
Sub Suite()
If Cont01.OffsetWidth < (LargeurEcran - Bordure) Then
Cont02.style.Visibility = "Visible"
Cont02.style.Color = "Black"
Cont01.style.Width = Cont01.OffsetWidth + 2
Cont02.style.Width = Cont02.OffsetWidth + 2
Cont01.Style.Left = (LargeurEcran - Cont01.OffsetWidth) / 2
Cont01.Style.Top = (HauteurEcran - Cont01.OffsetHeight) / 2
Cont02.Style.Left = (LargeurEcran - Cont02.OffsetWidth) / 2
Cont02.Style.Top = (HauteurEcran - Cont02.OffsetHeight) / 2
SetTimeOut "Suite",5
Else
SetTimeOut "FIN",5
End If
End Sub
'--------------------------------------------------------------------------
Sub FIN()
Cont01.style.Filter = "Alpha(Opacity=80, FinishOpacity=70, Style=0)"
document.body.style.backgroundImage = "URL("&Bkg1.src&")"
ClearInterval(Temps)
Temps=SetInterval("Scroll", 64)
End Sub
'--------------------------------------------------------------------------
Sub Scroll()
x = x+1
y = y-1
Cont01.style.backgroundPosition = x&" "&y
document.body.style.backgroundPosition=y&" "&x
End Sub
'--------------------------------------------------------------------------
Sub Window_onresize()
Window.location.reload()
End Sub
</SCRIPT>
<!------------------------------------------></BODY></HTML>

_________________
...



http://www.liensutiles.org/gvilleneuve.htm
Revenir en haut Aller en bas

Scripts de Jean Vienne

Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
Mots d'art & Scénarios :: Scripts & Flash d'art :: DE TOUT POUR LES scripts d'art & autres animations par Gi-