Mots d'art & Scénarios
Vous souhaitez réagir à ce message ? Créez un compte en quelques clics ou connectez-vous pour continuer.

Mots d'art & Scénarios

Poésie, littérature, pensées,
scripts d'art,
oeuvres de Ginette Villeneuve
 
AccueilAccueil  RechercherRechercher  Dernières imagesDernières images  S'enregistrerS'enregistrer  ConnexionConnexion  
Le Deal du moment :
Jeux, jouets et Lego : le deuxième à ...
Voir le deal

 

 Scripts de Jean Vienne

Aller en bas 
AuteurMessage
Gi
Rang: Administrateur



Nombre de messages : 14616
Localisation : Lévis secteur Charny, Québec, Canada
Date d'inscription : 18/12/2004

Scripts de Jean Vienne Empty
MessageSujet: Scripts de Jean Vienne   Scripts de Jean Vienne EmptyMer 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>


Dernière édition par Gi le Sam 22 Aoû - 23:39, édité 7 fois
Revenir en haut Aller en bas
http://www.liensutiles.org/gvilleneuve.htm
Gi
Rang: Administrateur



Nombre de messages : 14616
Localisation : Lévis secteur Charny, Québec, Canada
Date d'inscription : 18/12/2004

Scripts de Jean Vienne Empty
MessageSujet: Re: Scripts de Jean Vienne   Scripts de Jean Vienne EmptyMar 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>


Dernière édition par le Jeu 16 Juin - 20:18, édité 2 fois
Revenir en haut Aller en bas
http://www.liensutiles.org/gvilleneuve.htm
Gi
Rang: Administrateur



Nombre de messages : 14616
Localisation : Lévis secteur Charny, Québec, Canada
Date d'inscription : 18/12/2004

Scripts de Jean Vienne Empty
MessageSujet: Re: Scripts de Jean Vienne   Scripts de Jean Vienne EmptyMar 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>


Dernière édition par le Jeu 16 Juin - 20:19, édité 1 fois
Revenir en haut Aller en bas
http://www.liensutiles.org/gvilleneuve.htm
Gi
Rang: Administrateur



Nombre de messages : 14616
Localisation : Lévis secteur Charny, Québec, Canada
Date d'inscription : 18/12/2004

Scripts de Jean Vienne Empty
MessageSujet: Re: Scripts de Jean Vienne   Scripts de Jean Vienne EmptyMar 26 Avr - 23:13

script de Jean :

http://perso.wanadoo.fr/smileysmania/WEBScript/FiltreWav02/FiltreWav02.htm
Revenir en haut Aller en bas
http://www.liensutiles.org/gvilleneuve.htm
Gi
Rang: Administrateur



Nombre de messages : 14616
Localisation : Lévis secteur Charny, Québec, Canada
Date d'inscription : 18/12/2004

Scripts de Jean Vienne Empty
MessageSujet: Re: Scripts de Jean Vienne   Scripts de Jean Vienne EmptyJeu 16 Juin - 20: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>
Revenir en haut Aller en bas
http://www.liensutiles.org/gvilleneuve.htm
Gi
Rang: Administrateur



Nombre de messages : 14616
Localisation : Lévis secteur Charny, Québec, Canada
Date d'inscription : 18/12/2004

Scripts de Jean Vienne Empty
MessageSujet: Re: Scripts de Jean Vienne   Scripts de Jean Vienne EmptyJeu 16 Juin - 20: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>
Revenir en haut Aller en bas
http://www.liensutiles.org/gvilleneuve.htm
Contenu sponsorisé





Scripts de Jean Vienne Empty
MessageSujet: Re: Scripts de Jean Vienne   Scripts de Jean Vienne Empty

Revenir en haut Aller en bas
 
Scripts de Jean Vienne
Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Boites de texte (avec ou sans script)
» scroll (script)
» Scripts de Gi & moteurs de scripts de Gérard Ferrandez
» Scripts & moteurs de scripts : de Ginette Villeneuve
» Liens de scripts

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-
Sauter vers: