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 : -24%
PC Portable Gaming 15.6″ Medion Erazer Deputy ...
Voir le deal
759.99 €

 

 Scripts (tous les genres)

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 (tous les genres) Empty
MessageSujet: Scripts (tous les genres)   Scripts (tous les genres) EmptyDim 19 Déc - 22:14

Ici des scripts nettoyés autant que possible avec le nom de l'auteur du moteur.
Que j'ai mis entre

Code:
 et


Dernière édition par Gi le Sam 22 Aoû - 23:34, édité 3 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 (tous les genres) Empty
MessageSujet: script de Mackie   Scripts (tous les genres) EmptyDim 19 Déc - 22:40

script de Mackie

Script :



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


<SCRIPT language=vbs>
' Mini script to eliminate BASE tag "Access Denied" error from OE for popup scripts.
' Script by Bill Scott, June, 2002
' http://lettermanstationery.tripod.com
' VBScript version.
Set bs0 = document.all.tags("BASE")
on error resume next
bs0(0).removeAttribute "href",0
</SCRIPT>

<STYLE>BODY {
   BORDER-RIGHT: #6d3126 8px ridge; BORDER-TOP: #6d3126 8px ridge; BORDER-LEFT: #6d3126 8px ridge; SCROLLBAR-ARROW-COLOR: #6d3126;
BORDER-BOTTOM: #6d3126 8px ridge; SCROLLBAR-BASE-COLOR: #6d3126
}
</STYLE>

<META content="MSHTML 6.00.2800.1476" name=GENERATOR></HEAD>
<BODY bgColor=#6d3126
background=cid:001501c43853$26052950$abba2d3e@scenarios>
<DIV>&nbsp;</DIV><IMG id=pic
style="FILTER: glow(strength=2,enabled=1,color:#FDBB67); LEFT: -1800px;
POSITION: absolute; TOP: -1800px"
src="cid:000d01c43853$2602b850$abba2d3e@scenarios">
<BUTTON
language=vbscript id=openbtn
style="BORDER-RIGHT: #6d3126 2px ridge; BORDER-TOP: #6d3126 2px ridge;
FONT-SIZE: 16pt; LEFT: -1800px; BORDER-LEFT: #6d3126 2px ridge;
WIDTH: 60px; CURSOR: hand; COLOR: #fdbb67; BORDER-BOTTOM: #6d3126 2px ridge; FONT-FAMILY: schindler; POSITION: absolute; TOP: -1800px;
HEIGHT: 35px;
BACKGROUND-COLOR: #6d3126"
onclick=popOpen()>Open</BUTTON>
<DIV id=contents style="DISPLAY: none">
<STYLE id=PopupStyle>.div1{border-top:#6D3126 15px double;border-bottom:#6D3126 15px double;border-left:#6D3126 15px double;
border-right:#6D3126 15px double;scrollbar-base-color:#6D3126;
scrollbar-arrow-color:#6D3126}</STYLE>
<IMG id=back
style="LEFT: -1800px; VISIBILITY: hidden; POSITION: absolute;
TOP: -1800px"
src="cid:000e01c43853$26052950$abba2d3e@scenarios">
<IMG id=pic5
style="LEFT: -1800px; POSITION: absolute; TOP: -1800px"
src="cid:000f01c43853$26052950$abba2d3e@scenarios">
<IMG id=pic6
style="RIGHT: -1800px; POSITION: absolute; TOP: -1800px"
src="cid:001001c43853$26052950$abba2d3e@scenarios">
<IMG id=pic7
style="LEFT: -1800px; POSITION: absolute; TOP: -1800px"
src="cid:001101c43853$26052950$abba2d3e@scenarios">
<IMG id=pic8
style="LEFT: -1800px; BOTTOM: -1800px; POSITION: absolute"
src="cid:001201c43853$26052950$abba2d3e@scenarios">
<IMG id=pic1
style="LEFT: -1800px; POSITION: absolute; TOP: -1800px"
src="cid:001301c43853$26052950$abba2d3e@scenarios">
<IMG id=pic2
style="FILTER: progid:DXImageTransform.Microsoft.RandomDissolve();
LEFT: -1800px; VISIBILITY: visible; POSITION: absolute; TOP: -1800px"
src="cid:001401c43853$26052950$abba2d3e@scenarios">
<DIV class=div1 id=mess
style="FILTER:
progid:DXImageTransform.Microsoft.Iris(irisstyle=CIRCLE,motion=out)

glow(strength=5,enabled=1,color:#FDBB67); LEFT: 0px; VISIBILITY: hidden;
OVERFLOW: auto; WIDTH: 360px; POSITION: absolute;
TOP: 0px; HEIGHT: 410px; BACKGROUND-COLOR: #6d3126">
<FONT
style="LEFT: 5px; POSITION: relative; TOP: 5px" face="Lucida Handwriting"
color=#fdbb67 size=4>message ici</FONT>
</DIV><BUTTON
language=vbscript id=closeit
style="BORDER-RIGHT: #dd9d52 5px outset;
BORDER-TOP: #dd9d52 5px outset;
FONT-SIZE: 10pt; LEFT: 47%; BORDER-LEFT: #dd9d52 5px inset; WIDTH: 50px; CURSOR: hand; COLOR: #000000;
BORDER-BOTTOM: #dd9d52 5px inset;
POSITION: absolute; TOP: 95%;
HEIGHT: 30px; BACKGROUND-COLOR: #dd9d52"
onclick=parent.Popup.hide()>close</BUTTON>
</DIV>
<SCRIPT language=VBScript>
'--------------------------
'script geschreven door Mackie
'mei 2004
'deze tekst laten staan
'--------------------------

Dim scw,sch,picw,pich,openbtnw,openbtnh,thi

z=0
w=0
Sub Window_Onload()
scw=document.body.clientwidth
sch=document.body.clientheight
openbtnw=60
openbtnh=35
openbtn.style.postop=189
openbtn.style.posleft=scw/2-openbtnw/2+7
picw=401
pich=241
pic.style.postop=80
pic.style.posleft=scw/2-picw/2
window.status="~~~script and design by mackie~~~"
Clearinterval(thi)
thi=Setinterval ("scroll", 64)
End Sub

Sub scroll()
z=z
w=w-1
document.body.style.backgroundposition=z&" "&w
End Sub

Dim winx, winy,pic1w,pic1h,pic2w,pic2h,messw,messh,rd
Dim pic5w,pic5h,pic6w,pic6h,pic7w,pic7h,pic8w,pic8h,pic5posw,pic5posh,pic6posw,
pic6posh,pic7posw,pic7posh,pic8posw,pic8posh
Dim th,th1,th2,th3
z1=0
w1=0
Set Popup=window.createPopup()
Set PopupBody=Popup.document.body
set rd=PopupBody.all
winx=window.parent.screen.width
winy=window.parent.screen.height
messw=360
messh=410
mess.style.posleft=(winx/2)-(messw/2)
mess.style.postop=(winy/2)-(messh/2)+10
pic1w=800
pic1h=500
pic1.style.postop=winy/2-pic1h/2
pic1.style.posleft=winx/2-pic1w/2-13
pic2w=367
pic2h=500
pic2.style.postop=winy/2-pic2h/2
pic2.style.posleft=winx/2-pic2w/2
pic5w=163
pic5h=96
pic5posw=winx/2-pic5w/2
pic5posh=winy/2-pic5h/2
pic5.style.posleft=pic5posw
pic5.style.postop=pic5posh
pic6w=163
pic6h=96
pic6posw=winx/2-pic6w/2
pic6posh=winy/2-pic6h/2
pic6.style.posright=pic6posw
pic6.style.postop=pic6posh
pic7w=163
pic7h=96
pic7posw=winx/2-pic7w/2
pic7posh=winy/2-pic7h/2
pic7.style.posleft=pic7posw
pic7.style.postop=pic7posh
pic8w=163
pic8h=96
pic8posw=winx/2-pic8w/2
pic8posh=winy/2-pic8h/2-30
pic8.style.posleft=pic8posw
pic8.style.posbottom=pic8posh
PopupBody.style.border="10px ridge #6D3126"
PopupBody.background=back.src
PopupBody.innerHTML="<div style='display:none'>"+PopupStyle.innerHTML+"</div>"+contents.innerHTML

Sub popOpen()
Popup.show 0, 0, winx, winy
Settimeout "start",3000
SetInterval "scrollback", 64
Cleartimeout(th)
th=Settimeout ("move",7000)
Cleartimeout(th1)
th1=Settimeout ("move1",7000)
Cleartimeout(th2)
th2=Settimeout ("move2",7000)
Cleartimeout(th3)
th3=Settimeout ("move3",7000)
End Sub

Sub start()
Cleartimeout
rd.pic2.filters(0).Apply()
rd.pic2.style.visibility="hidden"
rd.pic2.filters(0).Play(4.000)
Settimeout "start2",3000
End Sub

Sub start2()
Cleartimeout
rd.mess.filters(0).Apply()
rd.mess.style.visibility="visible"
rd.mess.filters(0).Play(2.000)
End Sub

Sub move()
Cleartimeout(th)
pic5posh=pic5posh
pic5posw=pic5posw-2
rd.pic5.style.postop=pic5posh
rd.pic5.style.posleft=pic5posw
if pic5posw =< -200 then th=Settimeout
("nep",30) else th=Settimeout ("move",30)
End Sub

Sub nep()
Cleartimeout(th)
pic5posh=pic5posh
pic5posw=pic5posw+2
rd.pic5.style.postop=pic5posh
rd.pic5.style.posleft=pic5posw
if pic5posw => winx/2-pic5w/2 then th=Settimeout ("move",30) else th=Settimeout ("nep",30)
End Sub

Sub move1()
Cleartimeout(th1)
pic6posh=pic6posh
pic6posw=pic6posw-2
rd.pic6.style.postop=pic6posh
rd.pic6.style.posright=pic6posw
if pic6posw =< -200 then th1=Settimeout ("neppa",30) else th1=Settimeout ("move1",30)
End Sub

Sub neppa()
Cleartimeout(th1)
pic6posh=pic6posh
pic6posw=pic6posw+2
rd.pic6.style.postop=pic6posh
rd.pic6.style.posright=pic6posw
if pic6posw => winx/2-pic6w/2 then th1=Settimeout ("move1",30) else th1=Settimeout ("neppa",30)
End Sub

Sub move2()
Cleartimeout(th2)
pic7posh=pic7posh-2
pic7posw=pic7posw
rd.pic7.style.postop=pic7posh
rd.pic7.style.posleft=pic7posw
if pic7posh =< -280 then th2=Settimeout ("nep2",30) else th2=Settimeout ("move2",30)
End Sub

Sub nep2()
Cleartimeout(th2)
pic7posh=pic7posh+2
pic7posw=pic7posw
rd.pic7.style.postop=pic7posh
rd.pic7.style.posleft=pic7posw
if pic7posh => winy/2-pic7h/2 then th2=Settimeout ("move2",30) else th2=Settimeout ("nep2",30)
End Sub

Sub move3()
Cleartimeout(th3)
pic8posh=pic8posh-2
pic8posw=pic8posw
rd.pic8.style.posbottom=pic8posh
rd.pic8.style.posleft=pic8posw
if pic8posh =< -300 then th3=Settimeout ("neppa1",30) else th3=Settimeout ("move3",30)
End Sub

Sub neppa1()
Cleartimeout(th3)
pic8posh=pic8posh+2
pic8posw=pic8posw
rd.pic8.style.posbottom=pic8posh
rd.pic8.style.posleft=pic8posw
if pic8posh => winy/2-pic8h/2 then th3=Settimeout ("move3",30) else th=Settimeout ("neppa1",30)
End Sub

Sub scrollback()
z1=z1
w1=w1+1
PopupBody.style.backgroundposition=z1&" "&w1
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 Mer 11 Mai - 22:30, é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 (tous les genres) Empty
MessageSujet: Un script de Jetty   Scripts (tous les genres) EmptySam 25 Déc - 16:51

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

<STYLE>BODY {
   BORDER-RIGHT: #886b4b 3px ridge;
BORDER-TOP: #886b4b 3px ridge; MARGIN: 0px; SCROLLBAR-HIGHLIGHT-COLOR: #886b4b; BORDER-LEFT: #886b4b 3px ridge;
SCROLLBAR-SHADOW-COLOR: #886b4b; SCROLLBAR-ARROW-COLOR: #886b4b; SCROLLBAR-TRACK-COLOR: #d7b788;
BORDER-BOTTOM: #886b4b 3px ridge; SCROLLBAR-BASE-COLOR: #d7b788
}
.mess {
   BORDER-RIGHT: #886b4b 3px double;
PADDING-RIGHT: 7px; BORDER-TOP: #886b4b 3px double; PADDING-LEFT: 7px;
FONT-SIZE: 14pt; PADDING-BOTTOM: 7px; OVERFLOW: auto; BORDER-LEFT: #886b4b 3px double; WIDTH: 400px; COLOR: #000000;
PADDING-TOP: 7px; BORDER-BOTTOM: #886b4b 3px double;
FONT-FAMILY: papyrus; HEIGHT: 175px; TEXT-ALIGN: center
}
</STYLE>

<HEAD>
<BODY bgColor=#d7b788 background=cid:02d201c4d7fb$907c87e0$2101a8c0@scenarios>

<BGSOUND balance=0
src="cid:02d301c4d7fb$907c87e0$2101a8c0@scenarios" volume=0 loop=99>
<TABLE align=center>
  <TBODY>
  <TR>
    <TD id=div3
    style="FILTER: progid:DXImageTransform.Microsoft.Slide(slidestyle=HIDE,
Bands=50)"
    align=middle><!--hoofdplaatje--><IMG id=pic1
      src="cid:02d101c4d7fb$907c87e0$2101a8c0@scenarios"> </TD></TR>
  <TR>
    <TD align=middle>
      <DIV class=mess>
      <DIV>Message ici pour ce script
facile à réaliser mais qui demande une image et  un
cadre spécial à cause de l'image qui doit avoir des barres de
chaque coté de l'image pour donner un bel effet,</DIV>
      </DIV></TD></TR></TBODY></TABLE><BR>
<SCRIPT language=vbscript>
'------------------------------------------
'please leave all these lines in
'Script gemaakt door JettyM 10 november 2004
'Tekst tussen deze lijnen aub laten staan
'------------------------------------------
window.status=" ~~~ Script by JettyM ~~~ "

Dim sch, scw

Sub Window_onload()
sch=document.body.clientheight
scw=document.body.clientwidth
Cleartimeout
laatzien
End Sub

Sub laatzien()
Cleartimeout
div3.filters(0).Apply()
pic1.style.visibility="visible"
div3.filters(0).Play(8.000)
Settimeout "nogeens", 12000
End Sub

Sub nogeens()
Cleartimeout
div3.filters(0).Apply()
pic1.style.visibility="visible"
div3.filters(0).Play(8.000)
Settimeout "laatzien", 16000
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 Mer 11 Mai - 14:51, édité 6 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 (tous les genres) Empty
MessageSujet: script simple pour agrémenter un texte   Scripts (tous les genres) EmptyMar 28 Déc - 19:55

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


<BGSOUND balance=0
src="cid:008d01c4ec1c$36bd46b0$e300a8c0@scenario" volume=0>
<STYLE>BODY {
   FONT-WEIGHT: normal; FONT-SIZE: 12px;
COLOR: darkslategray; FONT-FAMILY: "Courier New", Arial,Verdana; BACKGROUND-COLOR: white
}
BLOCKQUOTE {
   PADDING-RIGHT: 8px;
PADDING-LEFT: 8px; PADDING-BOTTOM: 0px; MARGIN-LEFT: 2em; BORDER-LEFT: #d0b0ad 1px solid; COLOR: #d0b0bd;
PADDING-TOP: 0px; FONT-STYLE: italic
}
A {
   FONT-WEIGHT: bold; COLOR: crimson; TEXT-DECORATION: none
}
A:visited {
   COLOR: orangered; TEXT-DECORATION: none
}
A:hover {
   COLOR: orange; TEXT-DECORATION: none
}
DIV.zebre {
   PADDING-RIGHT: 10px; OVERFLOW-Y: auto;
PADDING-LEFT: 10px; FONT-SIZE: 11pt; LEFT: 64px; PADDING-BOTTOM: 30px; ; WIDTH: expression(document.body.offsetWidth - 90); COLOR: darkslategray;
PADDING-TOP: 30px;
SCROLLBAR-TRACK-COLOR: #f9f9f9; FONT-FAMILY: "courier new",arial;
SCROLLBAR-BASE-COLOR: #dedede; POSITION: relative; TOP: 2%; HEIGHT: 95%; TEXT-ALIGN: left
}
</STYLE>
</HEAD>
<BODY bgColor=white scroll=no>
<DIV id=oDiv
style="BORDER-RIGHT: white 2px solid; BORDER-TOP: white 2px solid; FILTER: progid:DXImageTransform.Microsoft.Gradient(startColorstr=#FFFFCAB6,endColorstr=#FF26003C,
gradientType=1,enabled=true); OVERFLOW: hidden;
BORDER-LEFT: white 2px solid; WIDTH: 1px; COLOR: white; BORDER-BOTTOM: white 2px solid; POSITION: absolute; TOP: -120px;
BACKGROUND-COLOR: #4a494a"></DIV>
<DIV id=b title=villancicos
style="PADDING-RIGHT: 0.1em;
PADDING-LEFT: 0.1em; FILTER: progid:DXImageTransform.Microsoft.Chroma(color=#4a494a);
PADDING-BOTTOM: 0.1em; FONT: bolder 48px webdings;
CURSOR: hand; COLOR: #4a494a; PADDING-TOP: 0.1em; POSITION: absolute; TOP: 2px; ; HEIGHT: expression(document.body.clientHeight);
BACKGROUND-COLOR: white">n<BR>n<BR>n<BR>n<BR>n<BR>
n<BR>n<BR>n<BR>n<BR>n<BR>n<BR>
n<BR>n<BR>n<BR>n<BR>n<BR>n<BR>
n<BR>n<BR>n<BR>n<BR>n<BR>n<BR>
n<BR>n<BR>n<BR>n<BR>n<BR>n<BR>
n<BR>n<BR>n<BR>n<BR>n<BR>n<BR>
n<BR>n<BR>n<BR>n<BR>n<BR>n<BR>
n<BR>n<BR>n<BR>n<BR>n<BR>n<BR>
n<BR>n<BR>n<BR>n<BR>n<BR></DIV><IMG
style="RIGHT: 0px; FILTER: Alpha(Opacity=0,FinishOpacity=40,Style=1);
POSITION: absolute; TOP: 0px; ;
HEIGHT: expression(document.body.offsetHeight)"
alt="La Bulle" hspace=0 src="cid:008d01c4ec1c$36bd46b0$e300a8c0@scenario"
border=0>
<DIV class=zebre>
<DIV>Message ici</DIV>
<BLOCKQUOTE>et encore ici</BLOCKQUOTE>
<SCRIPT>
//
// niqué
// du fameux message charnière: 7 secondes
//
// Original: GF Interactive DHTML art-demos (Oct 2001)
// http://www.dhteumeuleu.com/
//
var _n = 12, abject = new Object(), w, h

function aS(n){
   this.c = this.l = this.lw = this.dy = this.y = this.dx = this.x = -1
   oDiv.insertAdjacentHTML("afterBegin","<SPAN style='position:absolute'></SPAN>")
   s = oDiv.firstChild
   this.obj = s.style

   this.raZ = function (){
      with(this){
         lw = 4 * (l = .7 * w)
         Math.random() <.5 ? dx = .68: dx = -.02
         dx > 0 ? x = -w * .1: x = w * .2
         dy = 10 + 8 * Math.random()
         y = h
         c = Math.floor(Math.random() * 118 + 74)
         obj.zIndex = -1 - c
      }
   }

   this.sQ=function(){
      with(this){
         if(l < 8)raZ(); else
            with(obj){
               height = lw -= 4
               left = x += dx
               top = y -= dy
               borderLeft = "rgb("+c+","+c+","+c+") " + (l--) + " dotted"
               if(--c<73)c=192
            }
         }
      }
   setTimeout("setInterval(\"abject["+n+"].sQ()\", 33)",234+4567*Math.random())
}

function ziva(){
   oDiv.style.left = b.offsetLeft - 4
   oDiv.style.top = b.offsetTop
   h = oDiv.style.height = document.body.clientHeight
   w = oDiv.style.width = b.offsetWidth + 8
   for(i=0;i<_n;i++)abject[i] = new aS(i)
}
//
window.onerror = new Function("return true")
document.onselectstart = new Function("return false")
screen.bufferDepth = 16

//
setTimeout("ziva()", 123)
//
// incompatible is my middle name
//
</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 Mer 11 Mai - 14:49, édité 5 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 (tous les genres) Empty
MessageSujet: Re: Scripts (tous les genres)   Scripts (tous les genres) EmptyMar 11 Jan - 17:03

Code:
<HTML><HEAD id=HD><TITLE>script </TITLE>


<STYLE type=text/css>P {
   MARGIN: 0px
}
.a {
   BORDER-RIGHT: 0px; PADDING-RIGHT: 0px; BORDER-TOP: 0px;
PADDING-LEFT: 0px; Z-INDEX: 5; RIGHT: 0px; LEFT: 0px; PADDING-BOTTOM: 0px; MARGIN: 0px; OVERFLOW: hidden; BORDER-LEFT: 0px; WIDTH: 100%; BOTTOM: 0px; PADDING-TOP: 0px; BORDER-BOTTOM: 0px; POSITION: absolute; TOP: 0px; HEIGHT: 100%
}
.b {
   BORDER-RIGHT: 0px; PADDING-RIGHT: 0px; BORDER-TOP: 0px;
PADDING-LEFT: 0px; RIGHT: 0px; LEFT: 0px; PADDING-BOTTOM: 0px; MARGIN: 0px; OVERFLOW: hidden; BORDER-LEFT: 0px; WIDTH: 100%; BOTTOM: 0px;
PADDING-TOP: 0px; BORDER-BOTTOM: 0px; POSITION: absolute; TOP: 0px; HEIGHT: 100%
}
.i {
   LEFT: -5000px; POSITION: absolute; TOP: 0px
}
.e {
   BORDER-RIGHT: ridge; PADDING-RIGHT: 3pt; BORDER-TOP: ridge; PADDING-LEFT: 3pt; LEFT: 0px; PADDING-BOTTOM: 3pt; MARGIN: 3pt;
BORDER-LEFT: ridge; WIDTH: 100%; PADDING-TOP: 3pt; BORDER-BOTTOM: ridge; TOP: 0px
}
.f {
   PADDING-RIGHT: 0px; PADDING-LEFT: 0px; Z-INDEX: 5; RIGHT: 0px;
LEFT: 0px; PADDING-BOTTOM: 0px; MARGIN: 0px; WIDTH: auto; BOTTOM: 0px;
 LINE-HEIGHT: 0; PADDING-TOP: 0px; POSITION: absolute; TOP: 0px; HEIGHT: auto
}
.m {
   BORDER-RIGHT: medium none; BORDER-TOP: medium none; FONT-SIZE: 8pt; BORDER-LEFT: medium none; WIDTH: 100%; BORDER-BOTTOM: medium none; FONT-FAMILY: sans-serif; BACKGROUND-COLOR: #ffffff; TEXT-ALIGN: center
}
#STAT {
   POSITION: relative
}
#D0 {
   Z-INDEX: 1; LEFT: 0px; WIDTH: 760px; TOP: 0px; HEIGHT: 725px; BACKGROUND-COLOR: #bc9b76
}
#D2 {
   LEFT: 158px; WIDTH: 444px; TOP: 50px; HEIGHT: 291px
}
#D3 {
   LEFT: 0px; WIDTH: 222px; TOP: 0px; HEIGHT: 291px
}
#D4 {
   LEFT: 0px; WIDTH: 222px; TOP: 0px; HEIGHT: 291px
}
#D5 {
   LEFT: 0px; WIDTH: 222px; TOP: 0px; HEIGHT: 291px
}
#D6 {
   LEFT: 222px; WIDTH: 222px; TOP: 0px; HEIGHT: 291px
}
#D7 {
   LEFT: 0px; WIDTH: 222px; TOP: 0px; HEIGHT: 291px
}
#D8 {
   LEFT: 0px; WIDTH: 222px; TOP: 0px; HEIGHT: 291px
}
#D9 {
   OVERFLOW-Y: scroll; LEFT: 70px; OVERFLOW: auto;
WIDTH: 620px; POSITION: relative; TOP: 375px; HEIGHT: 280px
}
</STYLE>

<STYLE type=text/css>
<!--
BODY {
scrollbar-base-color:#AA875F;
}
-->
</STYLE>
<!--End Cool Web Scrollbars code--><!--[if IE]>
<STYLE>
 .f { width:100%; height:100%; }
</STYLE>
<![endif]-->

</HEAD>
<BODY bgColor=#ffffff>
<DIV contentEditable=false align=center>
<BGSOUND id=D1 balance=0
src="cid:001801c4f7db$73f808b0$0100a8c0@scenario" volume=0 loop=infinite>
<SCRIPT language=JavaScript type=text/ecmascript><!--
function O(t){return document.getElementById(t);}
function S(t){return O(t).style;}
 var msie=0,moz=0,ok=0;
 if(document.getElementById)if(document.createElement){ok=1;
 var ua=navigator.userAgent.toLowerCase();if(0<=ua.indexOf("msie"))msie=1;if(0<=ua.indexOf("gecko"))moz=1;
 try{S("NOSC").display="none";}catch(e){}
  var o1=O("D1"),src1="";try{src1=o1.getAttribute("src");o1.setAttribute("src","");}catch(e){}
 }// -->
</SCRIPT>

<DIV class=a id=STAT
style="WIDTH: 760px; POSITION: relative; HEIGHT: 725px; BACKGROUND-COLOR: #b79d77"
align=left>
<DIV class=a id=D0><SPAN class=b id=S0><IMG class=i id=I0
style="WIDTH: 150px; HEIGHT: 150px" alt=""
src="cid:001201c4f7db$73f808b0$0100a8c0@scenarios"> </SPAN></DIV>
<DIV class=a id=D2>
<DIV class=a id=D3>
<DIV class=a id=D4><SPAN class=b id=S4 style="LEFT: -222px"><IMG class=i id=I4
style="WIDTH: 222px; HEIGHT: 291px" alt=""
src="cid:001301c4f7db$73f808b0$0100a8c0@scenarios"> </SPAN></DIV>
<DIV class=a id=D5><SPAN class=b id=S5 style="LEFT: -222px"><IMG class=i id=I5
style="WIDTH: 222px; HEIGHT: 291px" alt=""
src="cid:001401c4f7db$73f808b0$0100a8c0@scenarios"> </SPAN></DIV></DIV>
<DIV class=a id=D6>
<DIV class=a id=D7><SPAN class=b id=S7 style="LEFT: -444px"><IMG class=i id=I7
style="WIDTH: 222px; HEIGHT: 291px" alt=""
src="cid:001501c4f7db$73f808b0$0100a8c0@scenarios"> </SPAN></DIV>
<DIV class=a id=D8><SPAN class=b id=S8 style="LEFT: -444px"><IMG class=i id=I8
style="WIDTH: 222px; HEIGHT: 291px" alt=""
src="cid:001601c4f7db$73f808b0$0100a8c0@scenarios"> </SPAN></DIV></DIV></DIV>
<DIV class=a id=D9 contentEditable=true style="FONT-FAMILY: 'Comic Sans MS'">
<DIV align=center>Message ici</STRONG></FONT></DIV>
<DIV class=e id=LM
style="WIDTH: 760px; FONT-FAMILY: 'Comic Sans MS'; BACKGROUND-COLOR: #b79d77"
align=left><SPAN id=LMP contentEditable=true style="WIDTH: 100%"><BR><BR>
<CENTER><IMG id=imgid1 style="FLOAT: none; MARGIN: 0px"
src="cid:001701c4f7db$73f808b0$0100a8c0@scenarios" border=0></CENTER></SPAN></DIV>
<DIV class=e id=TM contentEditable=true style="WIDTH: 760px"
align=left></DIV></DIV>
<DIV class=a id=SC1
style="LEFT: -500px; OVERFLOW: scroll; WIDTH: 100px; HEIGHT: 100px">
<DIV id=SC2 style="WIDTH: 100%; HEIGHT: 100%"></DIV></DIV>
<SCRIPT language=JavaScript type=text/ecmascript><!--
 var startf=0,loadtick="",maxn,mw=0,wh,ww,bh,bw,th,tw,pww=0,pwh=0;
 var tmn=0,tmc=0,tmp=-1,tmst=0,tmctl=null,tmrt=new Array(),tmrf=new Array();
function X(){return 0;}
function W(){if(window.innerWidth){ww=window.innerWidth;wh=window.innerHeight;}else{ww=bo.offsetWidth-bw;wh=bo.offsetHeight-bh;}
 x=st;while(x.offsetParent){wh-=x.offsetTop;ww-=x.offsetLeft;x=x.offsetParent;}}
function txt(n){
 var i,t;if((i=n.nodeType)==3)return n.nodeValue;
 if(i==1){t=n.nodeName.toUpperCase();if(t=="BR")return "\n";if(t=="IMG")return "X";}
 t="";for(i=0;i<n.childNodes.length;++i)t+=txt(n.childNodes[i]);return t;}
 if(ok){
 var scpx=0,i,j,x,y,bo=document.body,rn=X,dones=0;
 var bos=bo.style,st=O("STAT"),sts=S("STAT"),lm=O("LM"),lms=S("LM");
 bos.margin="0";
 if(msie){
 bos.overflow="hidden"; bw=bo.offsetWidth-bo.clientWidth; bh=bo.offsetHeight-bo.clientHeight;
 bos.overflow="auto";}
 try{x=y=O("NOSC");j="";while((x=x.previousSibling))j+=txt(x);i=/[\s\xA0]/g;
 if(j.replace(i,"")=="")while((y=y.previousSibling))y.style.display="none";}catch(e){}
 st.parentNode.align="left"; W();
 sts.visibility="hidden";
 O("LMP").contentEditable="false"; S("LMP").display="block"; S("LMP").padding="50px";
 lm.className="";lms.position="absolute";
function lmsiz(){W();lms.top=st.offsetTop+"px";lms.left=st.offsetLeft+"px";
 lms.width=lms.height="";
 i=lm.offsetWidth;j=lm.offsetHeight;
 if(msie)if((i<=ww)&&(j<=wh))bos.overflow="hidden";
 lms.width=Math.max(i,ww)+"px"; lms.height=Math.max(j,wh)+"px"; }
 window.onresize=lmsiz;lmsiz();
 window.onload=DoSt;
 var s0=S("D0"),w0,h0,rn0=rn; rn=R0;
 s0.backgroundColor="transparent";
 var oSp0=O("S0"),oI0=O("I0"); oI0.style.left=0; var sSp0=oSp0.style;
 sSp0.backgroundImage="url('"+oI0.src+"')"; oI0.style.display="none";
 var s2=S("D2"),th2=291,tw2=444,rp2=rn,rn2=X; rn=R2;
 var s3=S("D3"),th3=291,tw3=222,rp3=rn2,rn3=X; rn2=R3;
 var s4=S("D4"),oSp4=O("S4"),oI4=O("I4"); oI4.style.left=0; var sSp4=oSp4.style;
 var rn4=rn3; rn3=R4;
 var ct4=1,adj4=-222;
 var lastsc4=0;
 var s5=S("D5"),oSp5=O("S5"),oI5=O("I5"); oI5.style.left=0; var sSp5=oSp5.style;
 var rn5=rn3; rn3=R5;
 var ct5=1,adj5=-222;
 var lastsc5=0;
 var s6=S("D6"),th6=291,tw6=222,rp6=rn2,rn6=X; rn2=R6;
 var s7=S("D7"),oSp7=O("S7"),oI7=O("I7"); oI7.style.left=0; var sSp7=oSp7.style;
 var rn7=rn6; rn6=R7;
 var ct7=1,adj7=-444;
 var lastsc7=0;
 var s8=S("D8"),oSp8=O("S8"),oI8=O("I8"); oI8.style.left=0; var sSp8=oSp8.style;
 var rn8=rn6; rn6=R8;
 var ct8=1,adj8=-444;
 var lastsc8=0;
 var o9=O("D9"); var s9=o9.style; o9.contentEditable="false";
 var strs11=new Array(),snum11=0,str11;
 var oTM=O("TM"); oTM.style.display="none";
 if(moz)window.setTimeout("DoSt()",2000);
 }
function DoSt(){
 if(dones) return; dones=1;
 x=O("SCE"); if(x){ x=x.parentNode.childNodes;
 j=x.length; while(0<=(j-=1)){y=x.item(j);if(y.style)y.style.display="none";
 if(y.id=="SCE")break;}}
 scpx=O("SC1").offsetWidth-O("SC2").offsetWidth;
 s9.height="auto"; s9.overflowY=""; s9.overflow="visible"; s9.width=scpx+"px";
 window.onbeforeprint=BefPr;window.onafterprint=AftPr;window.setTimeout("DispResize()",10);}
function DispResize(){
 W(); if((ww==pww)&&(wh==pwh))return; pww=ww; pwh=wh;
 if(startf==0)lmsiz();
 if(tmctl!=null){ window.clearInterval(tmctl); tmctl=null;}
 if(mw==0)if((mw=o9.offsetWidth)<=0)mw=1;
 tw=Math.max(ww-scpx,444); th=493;
 if(tw<mw+140)tw=mw+140; s9.width=(tw-140)+"px";
 window.setTimeout("DispR2()",10); }
function DispR2(){
 if(moz)bos.overflow="";
 j=o9.offsetHeight+445; if(th<j) th=j;
 if((ww-scpx<tw)&&((ww<tw)||(wh-scpx<th))) {
 if(th<=wh-scpx) th=wh-scpx; }
 else if(th<=wh) {
 s9.width=(ww-140)+"px";
 tw=ww; th=wh; if(moz)bos.overflow="hidden"; }
 sts.width=tw+"px"; sts.height=th+"px"; DoSize(); }
function DoSize(){ maxn=40;
 if(rn()!=0) {
 if(startf==0) { loadtick+="+"; window.status=loadtick; }
 window.setTimeout("DoSize()",10); return; }
 W();if((ww!=pww)||(wh!=pwh)){pww=0;DispResize();return;}
 if(startf==0){startf=1;
 window.setTimeout("DoSt2()",10);}
 if(startf==2) if(tmctl==null) tmctl=window.setInterval("TmRun()",10); }
function T(f,t){
 if(tmp==-1) { while(++tmp<tmn)if(tmrt[tmp]==-1)break; if(tmp==tmn) ++tmn; }
 tmrt[tmp]=tmc+Math.round(t); tmrf[tmp]=f; tmp=-1; }
function TmRun(){
 var n,t=new Date(); if(tmst==0)tmst=t.getTime(); tmc=t.getTime()-tmst;
 for(n=0;n<tmn;++n){ if(tmrt[n]<=tmc) if(tmrt[n]!=-1){ tmrt[n]=-1;tmp=n;tmrf[n](); }}}
function BefPr() {
 if(tmctl!=null){window.clearInterval(tmctl);tmctl=null;}
 tw=Math.max(670,444);th=493;
 if(tw<mw+140)tw=mw+140;s9.width=(tw-140)+"px";
 j=o9.offsetHeight+445;if(th<j)th=j;
 sts.width=tw+"px";sts.height=th+"px";maxn=200;rn();}
function AftPr(){pww=0;DispResize();}
function R0(){
 w0=Math.max(tw-0,1); s0.width=w0+"px";
 h0=Math.max(th-0,1); s0.height=h0+"px";
 sSp0.width=((Math.floor((w0+149)/150))*150)+"px";
 sSp0.height=((Math.floor((h0+149)/150))*150)+"px";
 return rn0();}
function R2(){
 s2.left=(Math.floor((tw-444)/2)+0)+"px";
 if(rn2()!=0) return 1; return rp2(); }
function R3(){
 s3.left=(Math.floor((tw2-222)/2)+-111)+"px";
 s3.top=(Math.floor((th2-291)/2)+0)+"px";
 if(rn3()!=0) return 1; return rp3(); }
function M4(){
 var scms=1000*1/50; j=Math.floor((tmc-lastsc4)/scms);
 lastsc4+=j*scms;
 adj4+=j; while(0<adj4)adj4-=666;
 sSp4.left=adj4+"px";
 T(M4,20+lastsc4-tmc);}
function R4(){
 s4.top=Math.max(0,Math.floor((th3-291)/2)+0)+"px";
 s4.width=tw3+"px";
 var n=Math.floor((tw3-1)/666)+2;
 if(ct4<n){
 sSp4.width=(n*666)+"px";
 while(ct4<n){ if((maxn-=1)<0) return 1;
 x=oI4.cloneNode(false);
 x.style.left=666*ct4+"px";
 oSp4.appendChild(x); ++ct4; }}
 return(rn4());}
function M5(){
 var scms=1000*1/50; j=Math.floor((tmc-lastsc5)/scms);
 lastsc5+=j*scms;
 adj5-=j; while(adj5<=-666)adj5+=666;
 sSp5.left=adj5+"px";
 T(M5,20+lastsc5-tmc);}
function R5(){
 s5.top=Math.max(0,Math.floor((th3-291)/2)+0)+"px";
 s5.width=tw3+"px";
 var n=Math.floor((tw3-1)/666)+2;
 if(ct5<n){
 sSp5.width=(n*666)+"px";
 while(ct5<n){ if((maxn-=1)<0) return 1;
 x=oI5.cloneNode(false);
 x.style.left=666*ct5+"px";
 oSp5.appendChild(x); ++ct5; }}
 return(rn5());}
function R6(){
 s6.left=(Math.floor((tw2-222)/2)+111)+"px";
 s6.top=(Math.floor((th2-291)/2)+0)+"px";
 if(rn6()!=0) return 1; return rp6(); }
function M7(){
 var scms=1000*1/50; j=Math.floor((tmc-lastsc7)/scms);
 lastsc7+=j*scms;
 adj7-=j; while(adj7<=-666)adj7+=666;
 sSp7.left=adj7+"px";
 T(M7,20+lastsc7-tmc);}
function R7(){
 s7.top=Math.max(0,Math.floor((th6-291)/2)+0)+"px";
 s7.width=tw6+"px";
 var n=Math.floor((tw6-1)/666)+2;
 if(ct7<n){
 sSp7.width=(n*666)+"px";
 while(ct7<n){ if((maxn-=1)<0) return 1;
 x=oI7.cloneNode(false);
 x.style.left=666*ct7+"px";
 oSp7.appendChild(x); ++ct7; }}
 return(rn7());}
function M8(){
 var scms=1000*1/50; j=Math.floor((tmc-lastsc8)/scms);
 lastsc8+=j*scms;
 adj8+=j; while(0<adj8)adj8-=666;
 sSp8.left=adj8+"px";
 T(M8,20+lastsc8-tmc);}
function R8(){
 s8.top=Math.max(0,Math.floor((th6-291)/2)+0)+"px";
 s8.width=tw6+"px";
 var n=Math.floor((tw6-1)/666)+2;
 if(ct8<n){
 sSp8.width=(n*666)+"px";
 while(ct8<n){ if((maxn-=1)<0) return 1;
 x=oI8.cloneNode(false);
 x.style.left=666*ct8+"px";
 oSp8.appendChild(x); ++ct8; }}
 return(rn8());}
function movein11(){
 window.status=str11;
 str11=str11.substring(1)+str11.substring(0,1);
 T(movein11,1000/6);}
function DoSt2(){
 window.onresize=X;lms.display="none";
 if(msie)bos.overflow="auto";
 if(src1!=""){ if(msie)o1.src=src1;
 else{x=document.createElement("EMBED"); x.setAttribute("height","0"); x.setAttribute("width","0");
 x.setAttribute("autostart","true"); x.setAttribute("volume","100"); x.setAttribute("loop","true");
 x.setAttribute("src",src1); bo.appendChild(x);}} T(M4,20);
 T(M5,20);
 T(M7,20);
 T(M8,20);
 i=0; try{x=txt(oTM);} catch(e){ x=" ";}
 while(i<x.length) {
 j=i; while((j<x.length)&&(32<=x.charCodeAt(j)))++j;
 strs11[strs11.length]=x.substr(i,j-i);
 i=j; while((++i<x.length)&&(x.charCodeAt(i)<32)&&(x.charCodeAt(i)!=x.charCodeAt(j))){}}
 if(strs11.length==0) strs11[0]=""; str11=strs11[0];
 movein11();
 sts.visibility="visible";startf=2;window.status="";window.onresize=DispResize;
 tmctl=window.setInterval("TmRun()",10);DispResize();}
// -->
</SCRIPT>

<DIV id=SCE>
<SCRIPT language=JavaScript>
<!--
ScrollSpeed = 350; // 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 Dim 29 Mai - 21:58, édité 3 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 (tous les genres) Empty
MessageSujet: Re: Scripts (tous les genres)   Scripts (tous les genres) EmptyMar 11 Jan - 17:18

Code:
<HTML><HEAD>

<STYLE>BODY {
   PADDING-LEFT: 420px
}
</STYLE>

<STYLE type=text/css>
<!--
BODY {
scrollbar-base-color:#573D24;
}
-->
</STYLE>

</HEAD>
<BODY bgColor=#573D24
background="cid:003d01c4d895$4586b7c0$7343c153@scenarios"><BGSOUND balance=0
src="cid:003e01c4d895$458928c0$7343c153@scenarios" volume=0 loop=infinite>
<DIV align=center>
<TABLE
style="BORDER-RIGHT: #c09973 6px double; BORDER-TOP: #c09973 6px double; FILTER: dropshadow(offx=1, offy=1, color=#000000,enabled=1); BORDER-LEFT: #c09973 6px double; BORDER-BOTTOM: #c09973 6px double"
height=230 borderColorDark=#be9f80 cellPadding=0 width=430
borderColorLight=#be9f80 color="#000000,enabled=1);" #BE9F80 BORDER: 4px double;
FILTER: dropshadow(offx="1," offy="1,">
  <TBODY>
  <TR vAlign=center align=middle>
    <TD>
      <TABLE id=tabBak4
      style="BORDER-RIGHT: #c09973 6px double; BORDER-TOP: #c09973 6px double; FILTER: dropshadow(offx=1, offy=1, color=#000000,enabled=1); BORDER-LEFT: #c09973 6px double; WIDTH: 350px; BORDER-BOTTOM: #c09973 6px double; POSITION: relative; HEIGHT: 150px; ALIGN: center">
        <TBODY>
        <TR>
          <TD>
            <DIV
            style="PADDING-RIGHT: 15px; PADDING-LEFT: 15px; FILTER: shadow(direction=135,color=#BE9F80,enabled=1); PADDING-BOTTOM: 15px; OVERFLOW: auto; WIDTH: 100%; PADDING-TOP: 15px; FONT-FAMILY: times new roman; HEIGHT: 100%; TEXT-ALIGN: center">
            <DIV><B>Message ici</B></DIV></DIV></TD></TR>
        <TBODY></TBODY></TABLE></TD></TR></TBODY>
  <DIV id=imageholder
  style="Z-INDEX: -1; LEFT: 0px; POSITION: absolute; TOP: 0px">
  <SCRIPT language=VBScript>
<!--
direction="down"     ' change the direction of the scroll here: "up" or "left" or "down" or "right"
sizew=1024   ' enter the width of the scrolling image here
sizeh=373   ' enter the height of the scrolling image here
nail=0
source=document.body.background
tall=((screen.height\sizeh)+1)*3
wide=(screen.width\sizew)+1

if direction="up" then
   max=tall
   axis=sizeh
   placement=0
   reset=0
elseif direction="left" then
   max=wide
   axis=sizew
   placement=0
   reset=0
elseif direction="down" then
   max=tall
   axis=0
   placement=-sizeh
   reset=-sizeh
elseif direction="right" then
   max=wide
   axis=0
   placement=-sizew
   reset=-sizew
end if

document.write "<pre>"
for temp=0 to max
   if direction="up" then
      document.write "<img id=pics"&temp&" src><br>"
    elseif direction="left" then
      document.write "<img id=pics"&temp&" src>"
   elseif direction="down" then
      document.write "<img id=pics"&temp&" src><br>"
   elseif direction="right" then
      document.write "<img id=pics"&temp&" src>"
   end if
   document.all("pics"&temp).src=source
next
document.write "</pre>"

document.body.background=" "

sub scroll()
   if nail=1 then
      exit sub
   end if
   if placement < axis then 
      setTimeout "move", 1
   else
      placement=reset
      setTimeout "move", 1
   end if
end sub

sub move()
   if direction="up" then
      imageholder.style.top=-placement 
   elseif direction="left" then
      imageholder.style.left=-placement
   elseif direction="down" then
      imageholder.style.top=placement
   elseif direction="right" then
      imageholder.style.left=placement
   end if
   placement=placement+1
   setTimeout "scroll", 1
end sub

sub imageholder_onclick()
   if nail=0 then
      nail=1
   else
      nail=0
   end if
   scroll()
end sub

scroll()
-->
</SCRIPT>

  <SCRIPT language=JavaScript>
<!--
ScrollSpeed = 350; // 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 Dim 29 Mai - 21:58, é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 (tous les genres) Empty
MessageSujet: un script de John Durham   Scripts (tous les genres) EmptySam 9 Avr - 2:32

Code:


<HTML><HEAD><TITLE>jsd - Happy Spring - Moving dot to place 4 images in the corners</TITLE>

<STYLE type=text/css>BODY {
   BORDER-RIGHT: #9da2f2 18px ridge; BORDER-TOP: #9da2f2 18px ridge; SCROLLBAR-FACE-COLOR: #9da2f2; SCROLLBAR-HIGHLIGHT-COLOR: #4645e8; BORDER-LEFT: #9da2f2 18px ridge; SCROLLBAR-SHADOW-COLOR: white; SCROLLBAR-3DLIGHT-COLOR: white; SCROLLBAR-ARROW-COLOR: white; SCROLLBAR-TRACK-COLOR: #81b4f5; BORDER-BOTTOM: #9da2f2 18px ridge; SCROLLBAR-BASE-COLOR: #8dbef7
}
.t1 {
   BORDER-RIGHT: #9da2f2 3px ridge; PADDING-RIGHT: 10px; BORDER-TOP: #9da2f2 3px ridge; PADDING-LEFT: 10px; SCROLLBAR-FACE-COLOR: #9da2f2; FONT-WEIGHT: bold; FONT-SIZE: 12pt; FILTER: alpha(opacity=55); LEFT: 41.2%; PADDING-BOTTOM: 10px; SCROLLBAR-HIGHLIGHT-COLOR: #4645e8; OVERFLOW: auto; BORDER-LEFT: #9da2f2 3px ridge; WIDTH: 160px; SCROLLBAR-SHADOW-COLOR: white; COLOR: #464fe8; SCROLLBAR-3DLIGHT-COLOR: white; SCROLLBAR-ARROW-COLOR: white; PADDING-TOP: 10px; SCROLLBAR-TRACK-COLOR: #81b4f5; BORDER-BOTTOM: #9da2f2 3px ridge; FONT-FAMILY: Arial Black, Arial; SCROLLBAR-BASE-COLOR: #8dbef7; POSITION: absolute; TOP: 25%; HEIGHT: 270px; BACKGROUND-COLOR: #afd2fa
}
.textbox2 {
   BORDER-RIGHT: midnightblue 6px dashed; PADDING-RIGHT: 10px; BORDER-TOP: midnightblue 6px dashed; PADDING-LEFT: 10px; SCROLLBAR-FACE-COLOR: deepskyblue; FONT-WEIGHT: bold; FONT-SIZE: 26pt; FILTER: alpha(opacity=55); LEFT: 100px; PADDING-BOTTOM: 10px; SCROLLBAR-HIGHLIGHT-COLOR: blue; OVERFLOW: auto; BORDER-LEFT: midnightblue 6px dashed; WIDTH: 700px; SCROLLBAR-SHADOW-COLOR: blue; COLOR: midnightblue; SCROLLBAR-3DLIGHT-COLOR: midnightblue; SCROLLBAR-ARROW-COLOR: white; PADDING-TOP: 10px; SCROLLBAR-TRACK-COLOR: darkblue; BORDER-BOTTOM: midnightblue 6px dashed; FONT-FAMILY: Comic Sans MS bold, Black Chancery, Arial; SCROLLBAR-BASE-COLOR: blue; POSITION: absolute; TOP: 700px; HEIGHT: 400px; BACKGROUND-COLOR: powderblue
}
.d3 {
   LEFT: 100px; WIDTH: 700px; POSITION: absolute; TOP: 2300px; HEIGHT: 209px
}
</STYLE>

<META content="MSHTML 6.00.2900.2604" name=GENERATOR></HEAD>
<BODY bgColor=black background=cid:000f01c533cc$245592a0$c302a8c0@scenarios
scroll=yes>
<DIV>&nbsp;</DIV><BGSOUND balance=0
src="cid:001001c533cc$245592a0$c302a8c0@eMachine" volume=-200 loop=5>
<DIV class=t1 id=t1>Greetings,<BR><BR>Happy Changing Season. Still playing with
image movement at run time and shrink and grow. <BR><BR>Question: Please discuss
the difference between using the apparent different subs on Resize (Window
OnLoad and using the handle (th) and window.location. reload). Do each do the
same thing? I have spent some time removing the sub Window onResize - window
OnLoad using the th method as posted in my last script submittal. It used both
methods (subs). Better safe than sorry (LOL). I don't think I need to use this
cumbersome method ever again. Correct? Thanks for any input. <BR><BR>A
disclaimer follows in textbox 2 below. <BR><BR>Thanks and
Hugs<BR><BR>John</DIV><IMG id=tldot1
style="LEFT: -1800px; VISIBILITY: hidden; WIDTH: 5px; POSITION: absolute; TOP: -1800px; HEIGHT: 5px"
src="cid:000b01c533cc$24434320$c302a8c0@scenarios"> <IMG id=bldot2
style="LEFT: -1800px; VISIBILITY: hidden; WIDTH: 5px; POSITION: absolute; TOP: -1800px; HEIGHT: 5px"
src="cid:000c01c533cc$244f7820$c302a8c0@scenarios"> <IMG id=trdot3
style="LEFT: -1800px; VISIBILITY: hidden; WIDTH: 5px; POSITION: absolute; TOP: -1800px; HEIGHT: 5px"
src="cid:000d01c533cc$2450fec0$c302a8c0@scenarios"> <IMG id=brdot4
style="LEFT: -1800px; VISIBILITY: hidden; WIDTH: 5px; POSITION: absolute; TOP: -1800px; HEIGHT: 5px"
src="cid:000e01c533cc$2450fec0$c302a8c0@scenarios">
<script language=vbscript>

'*---------------------------------------------
'*This script was written by John Durham
'*You may freely alter or edit this script
'*However, Please leave this block of text intact
'*Keep the Magic Going !!!!
'*Shrink and Grow - VBscript
'*March 2005
'*--------------------------------------------
Dim sch, scw, tldot1h, tldot1w, bldot2w, bldot2h, trdot3h, trdot3w, brdot4h, brdot4w, tldot1l, tldot1t, bldot2l, bldot2t, trdot3l, trdot3t, brdot4l, brdot4t
x=0
y=0

pich=262
picw=350

Sub Window_OnLoad()

pich=262
picw=350

tldot1w=5
tldot1h=5
bldot2w=5
bldot2h=5
trdot3w=5
trdot3h=5
brdot4w=5
brdot4h=5

scw=document.body.clientWidth
sch=document.body.clientHeight

window.status=".......script written and Stat assembled by John Durham......March 2005.........."

tldot1.Style.Filter="revealTrans"
bldot2.Style.Filter="revealTrans"
trdot3.Style.Filter="revealTrans"
brdot4.Style.Filter="revealTrans"

tldot1l=10
tldot1t=(sch/2)-(tldot1h/2)
bldot2l=10
bldot2t=(sch/2)-(bldot2h/2)
trdot3l=10
trdot3t=(sch/2)-(trdot3h/2)
brdot4l=10
brdot4t=(sch/2)-(brdot3h/2)

tldot1.style.PosLeft=tldot1l
tldot1.style.PosTop=tldot1t

bldot2.style.PosLeft=bldot2l
bldot2.style.PosTop=bldot2t

trdot3.style.PosLeft=trdot3l
trdot3.style.PosTop=trdot3t

brdot4.style.PosLeft=brdot4l
brdot4.style.PosTop=brdot4t

ClearInterval
ClearTimeOut
SetTimeout "jsdmovedot1", 1000
SetInterval "jsdscroll",64

End Sub

Sub Window_OnResize()
window.location.reload
End Sub   

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

Sub jsdmovedot1()
ClearTimeOut
tldot1.style.visibility="visible"
tldot1l=tldot1l+10
tldot1t=(sch/2)-(tldot1h/2)
tldot1.style.posLeft=tldot1l
tldot1.style.posTop=tldot1t
if tldot1l>(scw/2)-(picw/2) then SetTimeOut "jsdgrowW", 30 else SetTimeOut "jsdmovedot1", 50
End Sub

Sub jsdgrowW()
 ClearTimeOut
 tldot1w=tldot1w+10
 tldot1.style.width=tldot1w
 tldot1h=tldot1h
 tldot1.style.height=tldot1h
 tldot1.style.posLeft=tldot1l
 tldot1.style.posTop=tldot1t

if tldot1w>picw then SetTimeOut "jsddot1pos", 150 else SetTimeOut "jsdgrowW", 75
End Sub

Sub jsddot1pos()
ClearTimeOut
tldotll=tldot1l                               
tldot1t=(sch/2)-(tldot1h/2)
tldot1.style.posLeft=tldot1l     
tldot1.style.posTop=tldot1t
SetTimeOut "jsddot1up",65
End Sub

Sub jsddot1up()
ClearTimeOut()
tldot1l=tldot1l
tldot1t=tldot1t-5
tldot1.style.posTop=tldot1t
tldot1.style.posLeft=tldot1l
if tldot1t=<10 then SetTimeOut "jsddot1goesleft", 30 else SetTimeOut "jsddot1up", 30
End Sub

Sub jsddot1goesleft()
ClearTimeOut
tldot1t=tldot1t
tldot1l=tldot1l-5
tldot1.style.PosLeft=tldot1l
tldot1.style.PosTop=tldot1t
if tldot1l<10 then SetTimeOut "jsdenlargedot1h", 40 else SetTimeOut "jsddot1goesleft",40
End Sub


Sub jsdenlargedot1h()
ClearTimeOut
tldot1h=tldot1h+2
tldot1.style.height=tldot1h
if tldot1h=>pich then SetTimeOut "jsdmovedot2", 40 else SetTimeOut "jsdenlargedot1h", 55
End Sub



Sub jsdmovedot2()
ClearTimeOut
trdot3.style.visibility="visible"
trdot3l=trdot3l+10
trdot3t=(sch/2)-(trdot3h/2)
trdot3.style.posLeft=trdot3l
trdot3.style.posTop=trdot3t
if trdot3l=>(scw/2)-(picw/2) then SetTimeOut "jsdgrowW2", 30 else SetTimeOut "jsdmovedot2", 50
End Sub




Sub jsdgrowW2()
 ClearTimeOut
 trdot3w=trdot3w+10
 trdot3.style.width=trdot3w
 trdot3h=trdot3h
 trdot3.style.height=trdot3h
 trdot3.style.posLeft=trdot3l
 trdot3.style.posTop=trdot3t
if trdot3w>picw then SetTimeOut "jsddot2pos", 150 else SetTimeOut "jsdgrowW2", 75
End Sub



Sub jsddot2pos()
ClearTimeOut
trdot3l=(scw/2)-(trdot3w/2)                             
trdot3t=(sch/2)-(trdot3h/2)
trdot3.style.posLeft=trdot3l     
trdot3.style.posTop=trdot3t
SetTimeOut "jsddot2up",65
End Sub

Sub jsddot2up()
ClearTimeOut
trdot3l=trdot3l
trdot3t=trdot3t-5
trdot3.style.posTop=trdot3t
trdot3.style.posLeft=trdot3l
if trdot3t=<10 then SetTimeOut "jsddot2goesright", 30 else SetTimeOut "jsddot2up", 30
End Sub



Sub jsddot2goesright()
ClearTimeOut
trdot3t=trdot3t
trdot3l=trdot3l+5
trdot3.style.PosLeft=trdot3l
trdot3.style.PosTop=trdot3t
if trdot3l>scw-(picw+15) then SetTimeOut "jsdenlargedot2h", 40 else SetTimeOut "jsddot2goesright",40
End Sub




Sub jsdenlargedot2h()
ClearTimeOut
trdot3h=trdot3h+2
trdot3.style.height=trdot3h
if trdot3h=>pich then SetTimeOut "jsdmovedot3", 40 else SetTimeOut "jsdenlargedot2h", 55
End Sub


Sub jsdmovedot3()
ClearTimeOut
bldot2.style.visibility="visible"
bldot2l=bldot2l+6
bldot2t=(sch/2)-(bldot2h/2)
bldot2.style.posLeft=bldot2l
bldot2.style.posTop=bldot2t
if bldot2l>(scw/2)-(picw/2) then SetTimeOut "jsdgrowW3", 30 else SetTimeOut "jsdmovedot3", 50
End Sub

Sub jsdgrowW3()
 ClearTimeOut
 bldot2w=bldot2w+10
 bldot2.style.width=bldot2w
 bldot2h=bldot2h
 bldot2.style.height=bldot2h
 bldot2.style.posLeft=bldot2l
 bldot2.style.posTop=bldot2t

if bldot2w>picw then SetTimeOut "jsddot3pos", 150 else SetTimeOut "jsdgrowW3", 75
End Sub

Sub jsddot3pos()
ClearTimeOut(th)
bldot2l=bldot2l                               
bldot2t=(sch/2)-(bldot2h/2)
bldot2.style.posLeft=bldot2l     
bldot2.style.posTop=bldot2t
SetTimeOut "jsddot2down",65
End Sub

Sub jsddot2down()

ClearTimeOut
bldot2l=bldot2l
bldot2t=bldot2t+5
bldot2.style.posTop=bldot2t
bldot2.style.posLeft=bldot2l
if bldot2t=>(sch-pich-10) then SetTimeOut "jsddot3goesleft", 30 else SetTimeOut "jsddot2down", 30
End Sub

Sub jsddot3goesleft()
ClearTimeOut
bldot2t=bldot2t
bldot2l=bldot2l-5
bldot2.style.PosLeft=bldot2l
bldot2.style.PosTop=bldot2t
if bldot2l<10 then SetTimeOut "jsdenlargedot3h", 40 else SetTimeOut "jsddot3goesleft",40
End Sub

Sub jsdenlargedot3h()
ClearTimeOut
bldot2h=bldot2h+2
bldot2.style.height=bldot2h
if bldot2h=>pich then SetTimeOut "jsdmovedot4", 40 else SetTimeOut "jsdenlargedot3h", 55
End Sub

Sub jsdmovedot4()
ClearTimeOut
brdot4.style.visibility="visible"
brdot4l=brdot4l+10
brdot4t=(sch/2)-(brdot4h/2)
brdot4.style.posLeft=brdot4l
brdot4.style.posTop=brdot4t
if brdot4l>(scw/2)-(picw/2) then SetTimeOut "jsdgrowW4", 30 else SetTimeOut "jsdmovedot4", 50
End Sub




Sub jsdgrowW4()
 ClearTimeOut
 brdot4w=brdot4w+10
 brdot4.style.width=brdot4w
 brdot4h=brdot4h
 brdot4.style.height=brdot4h
 brdot4.style.posLeft=brdot4l
 brdot4.style.posTop=brdot4t

if brdot4w>picw then SetTimeOut "jsddot4pos", 150 else SetTimeOut "jsdgrowW4", 75
End Sub

Sub jsddot4pos()
ClearTimeOut
brdot4l=brdot4l                               
brldot4t=(sch/2)-(b4dot4h/2)
brdot4.style.posLeft=brdot4l     
brdot4.style.posTop=brdot4t
SetTimeOut "jsddot4down",65
End Sub

Sub jsddot4down()
ClearTimeOut
brdot4l=brdot4l
brdot4t=brdot4t+5
brdot4.style.posTop=brdot4t
brdot4.style.posLeft=brdot4l
if brdot4t=>(sch-pich-10) then SetTimeOut "jsddot4goesright", 30 else SetTimeOut "jsddot4down", 30
End Sub

Sub jsddot4goesright()
ClearTimeOut
brdot4t=brdot4t
brdot4l=brdot4l+5
brdot4.style.PosLeft=brdot4l
brdot4.style.PosTop=brdot4t
if brdot4l>scw-(picw+15)then SetTimeOut "jsdenlargedot4h", 40 else SetTimeOut "jsddot4goesright",40
End Sub
 
   
   
   
   
Sub jsdenlargedot4h()
ClearTimeOut
brdot4h=brdot4h+2
brdot4.style.height=brdot4h
if brdot4h=>pich then SetTimeOut "jsdbeginshow", 940 else SetTimeOut "jsdenlargedot4h", 55
End Sub

Sub jsdbeginshow()
Cleartimeout
tldot1.Filters(0).Apply()
tldot1.Filters(0).Transition=23
tldot1.Style.visibility="Hidden"
tldot1.Filters(0).Play(8.000)
bldot2.Filters(0).Apply()
bldot2.Filters(0).Transition=23
bldot2.Style.visibility="Hidden"
bldot2.Filters(0).Play(12.000)
trdot3.Filters(0).Apply()
trdot3.Filters(0).Transition=23
trdot3.Style.visibility="Hidden"
trdot3.Filters(0).Play(14.000)
brdot4.Filters(0).Apply()
brdot4.Filters(0).Transition=23
brdot4.Style.visibility="Hidden"
brdot4.Filters(0).Play(16.000)
Settimeout "jsdOpenthepictures", 16000
End Sub

Sub jsdopenthepictures()
Cleartimeout
tldot1.Filters(0).Apply()
tldot1.Filters(0).Transition=23
tldot1.Style.visibility="visible"
tldot1.Filters(0).Play(12.000)
bldot2.Filters(0).Apply()
bldot2.Filters(0).Transition=23
bldot2.Style.visibility="visible"
bldot2.Filters(0).Play(16.000)
trdot3.Filters(0).Apply()
trdot3.Filters(0).Transition=23
trdot3.Style.visibility="visible"
trdot3.Filters(0).Play(18.000)
brdot4.Filters(0).Apply()
brdot4.Filters(0).Transition=23
brdot4.Style.visibility="visible"
brdot4.Filters(0).Play(20.000)
Settimeout "jsdbeginshow", 20000
End Sub



Sub jsdscript ()
ClearTimeOut
'Sub used for script Checking and to end this script - don't remove
End Sub


</script>
 
<DIV class=textbox2>Texte ici</DIV>
<DIV class=d3></DIV></BODY></HTML>




Dernière édition par Gi le Sam 22 Aoû - 23:29, é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 (tous les genres) Empty
MessageSujet: slide show   Scripts (tous les genres) EmptyDim 10 Avr - 19:12

Code:

<html>

<head>
<meta http-equiv="content-type" content="text/html; charset=ISO-8859-1">
<title>Slide show 1</title>
<script LANGUAGE="Javascript">
<!-- Original:  Mike Canonigo (mike@canonigo.com) -->
<!-- Web Site:  http://www.munkeehead.com -->

<!-- This script and many more are available free online at -->
<!-- The Javascript Source!! http://javascript.internet.com -->

<!-- Begin
NewImg = new Array (
"1.jpg",
"2.jpg",
"3.jpg",
"4.jpg",
"5.jpg"
);
var ImgNum = 0;
var ImgLength = NewImg.length - 1;

//Délai entre les diapositives en millisecondes.
var delay = 3000;

var lock = false;
var run;
function chgImg(direction) {
if (document.images) {
ImgNum = ImgNum + direction;
if (ImgNum > ImgLength) {
ImgNum = 0;
}
if (ImgNum < 0) {
ImgNum = ImgLength;
}
document.slideshow.src = NewImg[ImgNum];
  }
}
function auto() {
if (lock == true) {
lock = false;
window.clearInterval(run);
}
else if (lock == false) {
lock = true;
run = setInterval("chgImg(1)", delay);
  }
}
//  End -->
</script>


</head>

<body bgcolor="black" text="#DCCCB5" link="#DCCCB5" vlink="#DCCCB5" alink="#DCCCB5">
<p align="center"><img src="1.jpg" name="slideshow" width="209" height="209">
<table width="211" align="center">
<tr>
<td align="right" width="61">
<p align="center"><a href="javascript:chgImg(-1)"><font face="Verdana" size="1" color="#DCCCB5">Précédent</font></a></td>
<td align="center" width="63">
<p align="center"><a href="javascript:auto()"><font face="Verdana" size="1" color="#DCCCB5">Auto/Stop</font></a></td>
<td align="left" width="44">
<p align="center"><a href="javascript:chgImg(1)"><font face="Verdana" size="1" color="#DCCCB5">Suivant</font></a></td>
<p>
</tr>
</table>
<p><font color="#DCCCB5"> </font></p>
<p align="center"><font size="1" face="Verdana" color="#DCCCB5">écrits ici <br></font><a href="adresse du lien" target="_blank"><font size="1" face="Verdana" color="#DCCCB5">Anne Geddes</font></a>
<p align="center">&nbsp;</p>
<p align="center"><font size="1" face="Verdana"><a href=# onclick="self.close()">Fermer cette fenêtre</a></font></p>
</body>
</html>


Dernière édition par Gi le Sam 22 Aoû - 23:30, é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 (tous les genres) Empty
MessageSujet: par John Durham   Scripts (tous les genres) EmptyMar 12 Avr - 13:57

Code:


<HTML><HEAD><TITLE>The Butterfly - Circular Movements (4)</TITLE>
<!--This script was written by John Durham.......Moving Images at Runtime using VBscript.........Circular Movements -->
<STYLE type=text/css>BODY {
   BORDER-RIGHT: mediumvioletred 18px ridge; BORDER-TOP: mediumvioletred 18px ridge; SCROLLBAR-HIGHLIGHT-COLOR: antiquewhite; BORDER-LEFT: mediumvioletred 18px ridge; SCROLLBAR-3DLIGHT-COLOR: navajowhite; SCROLLBAR-ARROW-COLOR: white; SCROLLBAR-TRACK-COLOR: #fccfe0; BORDER-BOTTOM: mediumvioletred 18px ridge; SCROLLBAR-BASE-COLOR: #fbb9d2
}
.t1 {
   BORDER-RIGHT: #9d1e22 8px dashed; PADDING-RIGHT: 10px; BORDER-TOP: #9d1e22 8px dashed; PADDING-LEFT: 10px; SCROLLBAR-FACE-COLOR: #faa3c4; FONT-WEIGHT: bold; FONT-SIZE: 18pt; FILTER: alpha(opacity=85); LEFT: 230px; PADDING-BOTTOM: 10px; SCROLLBAR-HIGHLIGHT-COLOR: #fde1ec; OVERFLOW: auto; BORDER-LEFT: #9d1e22 8px dashed; WIDTH: 500px; SCROLLBAR-SHADOW-COLOR: #fa9abe; COLOR: #9d1e22; SCROLLBAR-3DLIGHT-COLOR: #fbb9d2; SCROLLBAR-ARROW-COLOR: white; PADDING-TOP: 10px; SCROLLBAR-TRACK-COLOR: #fbb9d2; BORDER-BOTTOM: #9d1e22 8px dashed; FONT-FAMILY: Times-Roman; SCROLLBAR-BASE-COLOR: #faa3c4; POSITION: absolute; TOP: 450px; HEIGHT: 200px; BACKGROUND-COLOR: #fbb9d2; TEXT-ALIGN: center
}
.textbox2 {
   BORDER-RIGHT: midnightblue 6px dashed; PADDING-RIGHT: 10px; BORDER-TOP: midnightblue 6px dashed; PADDING-LEFT: 10px; SCROLLBAR-FACE-COLOR: deepskyblue; FONT-WEIGHT: bold; FONT-SIZE: 26pt; FILTER: progid:DXImageTransform.Microsoft.Gradient  (startColorstr=blue, endColorstr=pink, GradientType=0, ENABLED=1); LEFT: 100px; PADDING-BOTTOM: 10px; SCROLLBAR-HIGHLIGHT-COLOR: blue; OVERFLOW: auto; BORDER-LEFT: midnightblue 6px dashed; WIDTH: 700px; SCROLLBAR-SHADOW-COLOR: blue; COLOR: midnightblue; SCROLLBAR-3DLIGHT-COLOR: midnightblue; SCROLLBAR-ARROW-COLOR: white; PADDING-TOP: 10px; SCROLLBAR-TRACK-COLOR: darkblue; BORDER-BOTTOM: midnightblue 6px dashed; FONT-FAMILY: Comic Sans MS bold, Black Chancery, Arial; SCROLLBAR-BASE-COLOR: blue; POSITION: absolute; TOP: 900px; HEIGHT: 400px; BACKGROUND-COLOR: powderblue
}
.d3 {
   LEFT: 100px; WIDTH: 700px; POSITION: absolute; TOP: 1400px; HEIGHT: 209px
}
</STYLE>
<BGSOUND balance=0 src="cid:000901c53aa7$79cb4040$c302a8c0@scenario" volume=-200
loop=5>
<META content="MSHTML 6.00.2900.2604" name=GENERATOR></HEAD>
<BODY bgColor=peachpuff background=cid:000801c53aa7$79cb4040$c302a8c0@scenario>
<DIV>&nbsp;</DIV><IMG id=p
style="LEFT: 30%; WIDTH: 350px; POSITION: absolute; TOP: 10%; HEIGHT: 350px"
src="cid:000601c53aa7$79a36cf0$c302a8c0@scenario> <IMG id=pic1
style="LEFT: 110px; WIDTH: 50px; POSITION: absolute; TOP: 300px"
src="cid:000701c53aa7$79b76a20$scenario"> <IMG id=pic2
style="LEFT: 110px; WIDTH: 50px; POSITION: absolute; TOP: 300px"
src="cid:000701c53aa7$79b76a20$c302a8c0@scenario"> <IMG id=pic3
style="LEFT: 110px; WIDTH: 50px; POSITION: absolute; TOP: 300px"
src="cid:000701c53aa7$79b76a20$c302a8c0@scenario"> <IMG id=pic4
style="LEFT: 110px; WIDTH: 50px; POSITION: absolute; TOP: 300px"
src="cid:000701c53aa7$79b76a20$c302a8c0@scenario">
<script language=VBscript>

'*---------------------------------------------
'*This script was written by John Durham
'*You may freely alter or edit this script
'*However, Please leave this block of text intact
'*Keep the Magic Going !!!!
'*Circular Movements - VBscript
'*April 2005
'*--------------------------------------------

Dim cch, ccw, R, A, ppic1w, ppic1h, th, th1, pic1w, pic1h, cch2, ccw2, R2, A2, ppic2h,ppic2w, pic2h, pic2w, cch3, ccw3, R3, A3, ppic3w, ppic3h, pic3w, pic3h, cch4, ccw4, R4, A4, ppic4h, ppic4w, pic4h, pic4w

pic1h=pic1.style.posHeight
pic1w=pic1.style.posWidth
pic2h=pic2.style.posHeight
pic2w=pic2.style.posWidth
cch=275
ccw=450
A=360
R=265

cch2=275
ccw2=450
A2=160
R2=26

cch3=275
ccw3=450
A3=360
R3=265

cch4=275
ccw4=450
A4=160
R4=26

x=0
y=0

sub window_OnLoad()
window.status="   (VBS script - Circular Movement ....... script by John Durham......
April 2005.........."
scw=document.body.clientWidth
sch=document.body.clientHeight
pic1h=pic1.style.posHeight
pic1w=pic1.style.posWidth
pic2h=pic2.style.posHeight
pic2w=pic2.style.posWidth
cch=275
ccw=450
A=360
R=265

cch2=275
ccw2=450
A2=360
R2=265

scw=document.body.clientWidth
sch=document.body.clientHeight
pic3h=pic3.style.posHeight
pic3w=pic3.style.posWidth
pic4h=pic4.style.posHeight
pic4w=pic4.style.posWidth
cch3=275
ccw3=450
A3=260
R3=265

cch4=275
ccw4=450
A4=260
R4=265
ClearTimeOut(th)
th=SetTimeOut ("circle",1)
th=SettimeOut("circleCCW",1)

ClearInterval(th1)
th1=SetInterval("scroll", 64)
End sub

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


Sub circle()
ClearTimeOut(th)
Rem angle gets bigger
A=A+.03
Rem calculating position of the image
ppic1w=R*cos(A)+ccw
ppic1h=R*sin(A)+cch
REM position of the image
pic1.style.Left=ppic1w
pic1.style.Top=ppic1h
Rem nex angle
SetTimeOut"circleCCW",40
End Sub

Sub circleCCW()
ClearTimeOut(th)
Rem angle gets bigger
A2=A2-.02
Rem calculating position of the image
ppic2w=R2*cos(A2)+ccw2
ppic2h=R2*sin(A2)+cch2
REM position of the image
pic2.style.Left=ppic2w
pic2.style.Top=ppic2h
Rem nex angle
th=SetTimeOut("circle2",440)
End Sub

 Sub circle2()
ClearTimeOut(th)
Rem angle gets bigger
A3=A3+.02
Rem calculating position of the image
ppic3w=R3*cos(A3)+ccw3
ppic3h=R3*sin(A3)+cch3
REM position of the image
pic3.style.Left=ppic3w
pic3.style.Top=ppic3h
Rem nex angle
SetTimeOut"circleCCW2",40
End Sub

Sub circleCCW2()
ClearTimeOut(th)
Rem angle gets bigger
A4=A4-.03
Rem calculating position of the image
ppic4w=R4*cos(A4)+ccw4
ppic4h=R4*sin(A4)+cch4
REM position of the image
pic4.style.Left=ppic4w
pic4.style.Top=ppic4h
Rem nex angle
th=SetTimeOut("circle",40)
End Sub
 
 
 
 
Sub Window_OnResize()
window.location.reload
End Sub   


Sub jsdscript ()
ClearTimeOut
'Sub used for script Checking and to end this script - don't remove
End Sub


</script>
 
<DIV class=t1 id=t1>
<DIV>écrits ici </DIV>
<DIV class=d3></DIV></BODY></HTML>



Dernière édition par Gi le Sam 22 Aoû - 23:31, é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 (tous les genres) Empty
MessageSujet: script de Lavonne   Scripts (tous les genres) EmptyMar 12 Avr - 14:01

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

<!--Script by LaVonne-->
<STYLE>BODY {
   BORDER-RIGHT: #69b12f 7px inset; BORDER-TOP: #69b12f 7px outset; SCROLLBAR-FACE-COLOR: #69b12f; SCROLLBAR-HIGHLIGHT-COLOR: #cdebb5; BORDER-LEFT: #69b12f 7px outset; SCROLLBAR-SHADOW-COLOR: #86d347; SCROLLBAR-3DLIGHT-COLOR: #86d347; SCROLLBAR-ARROW-COLOR: #cdebb5; SCROLLBAR-TRACK-COLOR: #69b12f; BORDER-BOTTOM: #69b12f 7px inset; SCROLLBAR-DARKSHADOW-COLOR: #aedb8a
}
.tc {
   BORDER-RIGHT: #69b12f 7px inset; PADDING-RIGHT: 20px; BORDER-TOP: #69b12f 7px outset; PADDING-LEFT: 20px; BACKGROUND: #aedb8a; PADDING-BOTTOM: 20px; BORDER-LEFT: #69b12f 7px outset; PADDING-TOP: 20px; BORDER-BOTTOM: #69b12f 7px inset
}
.tc2 {
   BORDER-RIGHT: #69b12f 7px inset; BORDER-TOP: #69b12f 7px outset; BACKGROUND: #aedb8a; BORDER-LEFT: #69b12f 7px outset; BORDER-BOTTOM: #69b12f 7px inset
}
.phto {
   LEFT: 0px; WIDTH: 301px; POSITION: absolute; TOP: 0px; HEIGHT: 432px
}
.dv {
   BORDER-RIGHT: #69b12f 7px inset; BORDER-TOP: #69b12f 7px outset; LEFT: 0px; BORDER-LEFT: #69b12f 7px outset; WIDTH: 315px; BORDER-BOTTOM: #69b12f 7px inset; POSITION: relative; TOP: 0px; HEIGHT: 446px
}
.txt {
   BORDER-RIGHT: #69b12f 7px inset; PADDING-RIGHT: 10px; BORDER-TOP: #69b12f 7px outset; PADDING-LEFT: 10px; SCROLLBAR-FACE-COLOR: #69b12f; FONT-SIZE: 18pt; PADDING-BOTTOM: 10px; SCROLLBAR-HIGHLIGHT-COLOR: #cdebb5; OVERFLOW: auto; BORDER-LEFT: #69b12f 7px outset; WIDTH: 100%; SCROLLBAR-SHADOW-COLOR: #86d347; COLOR: #69b12f; SCROLLBAR-3DLIGHT-COLOR: #86d347; SCROLLBAR-ARROW-COLOR: #cdebb5; PADDING-TOP: 10px; SCROLLBAR-TRACK-COLOR: #69b12f; BORDER-BOTTOM: #69b12f 7px inset; FONT-FAMILY: Chancellor; SCROLLBAR-DARKSHADOW-COLOR: #aedb8a; HEIGHT: 150px; TEXT-ALIGN: center
}
</STYLE>
<!--background tile here keep this all on one line-->
<META content="MSHTML 6.00.2900.2180" name=GENERATOR></HEAD>
<BODY bgColor=#ffffff background=cid:009301c53655$e0d89ea0$1fc4a818@scenario>
<DIV>&nbsp;</DIV><!--Midi file here--><BGSOUND balance=0
src="cid:009401c53655$e0d89ea0$1fc4a818@scenario" volume=0 loop=infinite>
<TABLE cellSpacing=30 cellPadding=0 width=350 align=center>
  <TBODY>
  <TR>
    <TD class=tc align=middle>
      <DIV class=dv align=center><A href="http://www.liensutiles.org/gvilleneuve.htm "><IMG
      class=phto id=p1 src="cid:009001c53655$e0d3e3b0$1fc4a818@scenario"
      border=0> <IMG class=phto id=p2
      src="cid:009101c53655$e0d62da0$1fc4a818@scenario"
  border=0></A></A></DIV></TD></TR>
  <TR>
    <TD class=tc2 align=middle>
      <DIV class=txt id=tx>
      <DIV>cliquez sur l'image</DIV>
      <DIV>message ici</DIV>
     
      <DIV></DIV></TD></TR></TBODY></TABLE><!--tile goes on textbox--><IMG id=tbg1
style="LEFT: -1800px; POSITION: absolute; TOP: -1800px"
src="cid:009201c53655$e0d62da0$1fc4a818@scenario">
<SCRIPT language=vbscript>

'*>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>*
'*----------------do not remove or change these lines
'*----------------This script was written by LaVonne Boruk
'*----------------© March 31, 2005
'*>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>*
'*--------Please change the ticker below---------------*
window.status="Script and stationery by LaVonne"

tx.style.backgroundimage="URL("&tbg1.src&")"

x=0
y=0

SetInterval "hltbscroll",64
Sub hltbscroll()
x=x+1
y=y+1
document.body.style.backgroundposition=x&" "&y
End Sub

p1.style.FILTER="progid:DXImageTransform.Microsoft.Stretch"
p2.style.FILTER="progid:DXImageTransform.Microsoft.Stretch"

Sub Window_OnLoad
p1.style.visibility="visible"
p2.style.visibility="visible"
SetTimeout "hltbaction", 6000
End Sub

Sub hltbaction()
ClearTimeOut
p2.filters(0).Apply()
p2.filters(0).StretchStyle="push"
p2.style.visibility="hidden"
p2.filters(0).Duration=6.000
p2.filters(0).Play()
p1.filters(0).Apply()
p1.filters(0).StretchStyle="push"
p1.style.visibility="visible"
p1.filters(0).Duration=6.000
p1.filters(0).Play()
SetTimeout "hltbaction2", 6000
End Sub

Sub hltbaction2()
ClearTimeout
p1.filters(0).Apply()
p1.filters(0).StretchStyle="spin"
p1.style.visibility="hidden"
p1.filters(0).Duration=8.000
p1.filters(0).Play()
p2.filters(0).Apply()
p2.filters(0).StretchStyle="spin"
p2.style.visibility="visible"
p2.filters(0).Duration=6.000
p2.filters(0).Play()
SetTimeout "hltbaction3", 6000
End Sub

Sub hltbaction3()
ClearTimeOut
p2.filters(0).Apply()
p2.filters(0).StretchStyle="hide"
p2.style.visibility="hidden"
p2.filters(0).Duration=6.000
p2.filters(0).Play()
p1.filters(0).Apply()
p1.filters(0).StretchStyle="hide"
p1.style.visibility="visible"
p1.filters(0).Duration=6.000
p1.filters(0).Play()
SetTimeout "hltbaction4", 6000
End Sub

Sub hltbaction4()
ClearTimeOut
p1.filters(0).Apply()
p1.filters(0).StretchStyle="spin"
p1.style.visibility="hidden"
p1.filters(0).Duration=6.000
p1.filters(0).Play()
p2.filters(0).Apply()
p2.filters(0).StretchStyle="spin"
p2.style.visibility="visible"
p2.filters(0).Duration=6.000
p2.filters(0).Play()
SetTimeout "hltbaction", 6000
End Sub


</SCRIPT>
 </BODY></HTML>


Dernière édition par le Mer 11 Mai - 14:50, é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 (tous les genres) Empty
MessageSujet: Coloriser la barre de défilement de vos pages   Scripts (tous les genres) EmptyMer 27 Avr - 2:39

Coloriser la barre de défilement de vos pages

A coller entre les balises <HEAD> et </HEAD>. Modifiez les couleurs en fonction de votre page (couleurs exadécimales qui se présentent ainsi : #CC0066).

Note : Ce script ne fonctionne qu'avec IE 5.5 et plus.

Code:
<style type="text/css"><!--
 BODY {
 scrollbar-arrow-color:#CC0066 ;
 scrollbar-track-color:#FFFFCC ;
 scrollbar-shadow-color:#990066 ;
 scrollbar-face-color:#FFCCCC ;
 scrollbar-highlight-color:#FFFFFF ;
 scrollbar-darkshadow-color:#660066 ;
 scrollbar-3dlight-color:#CC3399 ;
 }
//--></style>
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 (tous les genres) Empty
MessageSujet: Script de Michel Claveau : fond qui change de couleur   Scripts (tous les genres) EmptyMer 11 Mai - 14:55

Code:

<HTML xmlns:v = "urn:schemas-microsoft-com:vml"><HEAD>

<!---><!---><!---><!-----------------fond (couleur uniquement--------------->
</HEAD>
<BODY bgColor=#ffffff><!---><!---><!---><!--------------------- musique ---------------------><BGSOUND
balance=0 src="cid:001101c29c33$89ada940$0701a8c0@scenario" volume=0
loop=infinite>

<BLOCKQUOTE dir=ltr style="MARGIN-RIGHT: 0px">
 

<!---><!---><!---><!---------------------- texte ---------------------->Écrits ici.</FONT></EM></STRONG></DIV>
  </DIV><!---------------------------------------------------><!---------- Michel Claveau Informatique ------------><!---------------------- 2002 -----------------------><!--------------- http://mclaveau.com ---------------><!---------------------------------------------------><!---------------------------------------------------><!- Vous pouvez ajouter des images & autres objets -><!--------------------------------------------------->
  <OBJECT id=VMLRender
  classid=CLSID:10072CEC-8CC1-11D1-986E-00A0C955B42E></OBJECT>
  <STYLE>v\:* {
   BEHAVIOR: url(#VMLRender)
}
BODY {
   FONT-SIZE: 14pt; MARGIN-LEFT: 0px; COLOR: #2020ac; MARGIN-RIGHT: 0px; FONT-FAMILY: "Comic Sans MS"; BACKGROUND-COLOR: #ffffff
}
</STYLE>

  <DIV style="FONT: 10pt arial"><v:rect id=grad
  style="Z-INDEX: -1; LEFT: 0pt; WIDTH: 1000px; POSITION: absolute; TOP: 0pt; HEIGHT: 1000pt"
  coordsize = "21600,21600" fillcolor = "navy"><v:fill id=fl type = "gradient"
  color2 = "white" angle = "0" method = "none"></v:fill></v:rect></DIV><!---><!---><!---><!---------------------- script ---------------------->
  <SCRIPT language=VBScript>

Dim w, wW, wH, sH, wx, Res, Ang, myTimer, rr, vv, bb, r, v, b, dr, dv, db
Set w=document.body


sub setUp()
   grad.style.width=document.body.clientWidth
   wW=w.clientWidth
   wH=w.offsetHeight
   sH=w.scrollHeight
   bH=wH
   if sH>wH then bH=sH
   grad.style.height=bH
   Ang=0
   rr=32
   vv=32

   bb=140
   dr=1.1
   dv=1.5
   db=1
   doIt
end sub


sub doIt()
   ClearTimeOut(myTimer)
   Ang=Ang+6
   rr=rr+dr
   if rr>=240 then  dr=-dr
   if rr<20 then  dr=-dr
   vv=vv+dv
   if vv>=240 then  dv=-dv
   if vv<20 then  dv=-dv
   bb=bb+db
   if bb>=250 then  db=-db
   if bb<=20 then  db=-db
   r=Hex(rr)
   v=Hex(vv)
   b=Hex(bb)
//   if r<="F" then  r="0" & r
//   if v<="F" then  v="0" & v
//   if b<="F" then  b="0" & b
   fl.color= "#" & r & v & b

   if Ang>359 then Ang=0
   fl.angle=Ang

   myTimer=SetTimeOut("doIt",72)
end sub


sub Window_OnLoad()
   wW=w.clientWidth
   wH=w.offsetHeight
   wx=window.screen.width
   Res=INT(wx/128)
   w.style.fontSize = 14+Res
   setUp
end sub


sub Window_OnResize()
   setUp
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 (tous les genres) Empty
MessageSujet: Re: Scripts (tous les genres)   Scripts (tous les genres) EmptyMer 11 Mai - 15:01

Code:
<HTML><HEAD>

<STYLE>BODY {
   BORDER-RIGHT: silver 0px outset; BORDER-TOP: silver 6px outset; OVERFLOW: auto; BORDER-LEFT: silver 0px outset; COLOR: #9999ff; BORDER-BOTTOM: silver 6px outset; FONT-FAMILY: arial
}
</STYLE>

</HEAD>
<BODY
style="BORDER-RIGHT: #4682b4 0px ridge; BORDER-TOP: #4682b4 0px ridge; FILTER: progid:DXImageTransform.Microsoft.GRADIENT(startColorstr=#4682b4 ,endColorstr=#99cccc,gradientType=1 ;; BORDER-LEFT: #4682b4 0px ridge; BORDER-BOTTOM: #4682b4 0px ridge"
bgColor=#ffffff>

<BGSOUND balance=0
src="D:\Magie\Musique coup de coeur\sons divers\MerOiseaux.mid" volume=0
loop=infinite><BGSOUND balance=0
src="D:\Magie\Musique coup de coeur\sons divers\OCEAN.WAV" volume=0
loop=infinite>


<DIV><IMG style="WIDTH: 192px; HEIGHT: 106px" height=156 alt="" hspace=0
src="D:\Magie\gifs animés merveilleux\oiseaux\angedenuit.gif" width=192
align=baseline border=0><IMG alt="" hspace=0
src="D:\Magie\gifs animés merveilleux\oiseaux\nbbird2.gif" align=baseline
border=0><BR></DIV>
<BUTTON language=vbs id=" Open Popup"
style="Z-INDEX: 100; BACKGROUND: none transparent scroll repeat 0% 0%; LEFT: 50%; FONT: bold 12px Arrial; CURSOR: hand; COLOR: red; POSITION: absolute; TOP: 3%; HEIGHT: 25px"
onclick=popOpen()>Le bord de
mer</FONT></BUTTON>
<DIV id=text
style="DISPLAY: none; FONT-SIZE: 12pt; LEFT: 0px; WIDTH: 100%; POSITION: absolute; TOP: 40%; HEIGHT: 60%; TEXT-ALIGN: center">message ici</DIV>
<DIV id=src style="DISPLAY: none">
<STYLE id=PopupStyle>BODY {
   
}
</STYLE>
<! Put your transparent airplane gif here using your sources
<!-- marqueee -->
<DIV style="LEFT: 0px; POSITION: absolute; TOP: 40px">
<MARQUEE scrollAmount=3 scrollDelay=10 width="105%" align="bottom"
z-index="0"><IMG src="D:\Magie\gifs animés merveilleux\oiseaux\nbbird2.gif"><IMG
alt="" hspace=0 src="D:\Magie\gifs animés merveilleux\oiseaux\angedenuit.gif"
align=baseline border=0></MARQUEE></DIV>
<DIV style="LEFT: 0px; BOTTOM: 40px; POSITION: absolute">
<MARQUEE scrollAmount=2 scrollDelay=20 direction=right width="105%"
align="bottom" z-index="0"><IMG
src="D:\Magie\gifs animés merveilleux\oiseaux\angedenuit.gif"><IMG
style="WIDTH: 207px; HEIGHT: 113px" height=156 alt="" hspace=0
src="D:\Magie\gifs animés merveilleux\oiseaux\angedenuit.gif" width=207
align=baseline border=0></MARQUEE></DIV><BUTTON language=vbs id="Close Popup"
style="Z-INDEX: 100; RIGHT: 50%; BACKGROUND: none transparent scroll repeat 0% 0%; FONT: 12px Arrial; CURSOR: hand; COLOR: white; BOTTOM: 3%; POSITION: absolute; HEIGHT: 36px"
onclick=parent.Popup.hide()>Les oiseaux</BUTTON> <!-- The image is being used as the background,
enter the dimensions of your image where you see
bkgwidth and bkgheight in the script below --><IMG id=bkg style="DISPLAY: none"
src="D:\Magie\Mes images coup de coeur\femmes\eau.jpg"> <IMG alt="" hspace=0
src="D:\Magie\gifs animés merveilleux\oiseaux\nbbird1.gif" align=baseline
border=0></DIV>
<SCRIPT language=VBS>
'for Jim's marquess - Uncle Debi May 2001
'
'scénario : Gi givi-le-ek@iquebec.com - 13 déc. 2002

bkgwidth=670
bkgheight=480


Set Popup=window.createPopup()
Set PopupBody=Popup.document.body
PopupBody.style.cursor="crosshair"
PopupBody.style.backgroundColor="#9999ff"
PopupBody.style.color="#9999ff"
PopupBody.style.border = "9 ridge #9999ff"
PopupBody.background=bkg.src
PopupBody.innerHTML="<div style='display:none'>"+PopupStyle.innerHTML+"</div>"+src.innerHTML
nx=window.parent.screen.width
ny=window.parent.screen.height



sub popOpen
Popup.show(nx-bkgwidth)/2,(ny-bkgheight)/2,bkgwidth,bkgheight
text.style.display=""
end sub
</SCRIPT>

</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 (tous les genres) Empty
MessageSujet: Neige dans une image Animated Floaties by EVP   Scripts (tous les genres) EmptyMer 11 Mai - 15:40

Neige dans une image...

Code:


<HTML><HEAD>

</HEAD>
<BODY id=BG bgColor=#ac0005 background=cid:01b301c29cc6$cd759cd0$8825fea9@scenario scroll=no onload=strt();>


<!-- IMPORTANT - When using a Full-Screen post, delete the <BASE> line in the <HEAD> section from the Source window before posting or it won't work --><!-- This message displayed on opening or closing post -->

<DIV id=textbox
style="BORDER-RIGHT: #d3c1d2 0px dotted; BORDER-TOP: #d3c1d2 0px dotted; DISPLAY: none; SCROLLBAR-FACE-COLOR: #959bbb; FONT-WEIGHT: bold; FONT-SIZE: 14pt; FILTER: progid:DXImageTransform.Microsoft.shadow(color=#98819D, direction=135,strength=1); LEFT: 10px; OVERFLOW: auto; BORDER-LEFT: #d3c1d2 0px dotted; WIDTH: 400px; COLOR: #4b4e63; SCROLLBAR-ARROW-COLOR: #d3c1d2; BORDER-BOTTOM: #d3c1d2 0px dotted; FONT-FAMILY: hansa; SCROLLBAR-BASE-COLOR: #959bbb; POSITION: absolute; TOP: 10px; HEIGHT: 300px">

<DIV
style="Z-INDEX: 100; LEFT: 40%; FONT: bold 12pt 'tempus sans itc'; WIDTH: 10%; CURSOR: hand; COLOR: #5c6699; BOTTOM: 4px; POSITION: absolute; HEIGHT: 116px" onclick=doPop() align=center>
<CENTER>message ici</CENTER>
<CENTER>message qui se continue .</CENTER>


<IMG src="cid:01ad01c29cc6$cd759cd0$8825fea9@scenario"></DIV>
<!-- This DIV contains the FS HTML -->
<DIV id=src style="DISPLAY: none">
<STYLE id=PopupStyle>IMG {
   Z-INDEX: -1; POSITION: absolute
}
</STYLE>
<!-- Image container -->
<DIV id=box
style="BORDER-RIGHT: #5c6699 5px ridge; BORDER-TOP: #5c6699 5px ridge; LEFT: -1800px; OVERFLOW: hidden; BORDER-LEFT: #5c6699 5px ridge; WIDTH: 100px; COLOR: #000090; BORDER-BOTTOM: #5c6699 5px ridge; POSITION: absolute; TOP: -1800px; HEIGHT: 100px"></DIV><!-- This is the popup textbox. Double-click when in the Edit mode and enter your message here. DO NOT delete outside the text area. -->
<DIV id=popText
style="PADDING-RIGHT: 10px; DISPLAY: none; PADDING-LEFT: 10px; FILTER: progid:DXImageTransform.Microsoft.shadow(color=#595E7F, direction=135,strength=1); LEFT: 410px; PADDING-BOTTOM: 10px; FONT: 14pt 'hansa'; OVERFLOW: auto; WIDTH: 400px; COLOR: #c2bcd8; SCROLLBAR-ARROW-COLOR: #d3c1d2; PADDING-TOP: 10px; SCROLLBAR-BASE-COLOR: #959bbb; POSITION: absolute; TOP: 10px; HEIGHT: 300px; BACKGROUND-COLOR: #606060"
scrollbar-arrow-color: #f0f0ff; scrollbar-base-color: F8E26B; z-index:100?>

<P>Message ici !<BR><BR>!<BR><BR>

<DIV
style="Z-INDEX: 100; LEFT: 70%; FONT: bold 12pt 'tempus sans itc'; WIDTH: 10%; CURSOR: hand; COLOR: #5c6699; BOTTOM: 40px; POSITION: absolute; HEIGHT: 116px" onclick=parent.closeIt();parent.objPopup.hide() align=center>
<IMG src="cid:01ad01c29cc6$cd759cd0$8825fea9@scenario"></DIV><!-- End of FS HTML -->
<!-- This is the popup image -->
<IMG
id=bkg1
style="Z-INDEX: -1; LEFT: -1800px; WIDTH: 559px; POSITION: absolute; TOP: -1800px; HEIGHT: 680px" src="cid:01ae01c29cc6$cd759cd0$8825fea9@scenario">

<!-- These are the floating images, numbered sequentially -->
<IMG id=p1 style="LEFT: -1800px; WIDTH: 12px; POSITION: absolute; TOP: -1800px; HEIGHT: 10px" src="cid:01af01c29cc6$cd759cd0$8825fea9@scenario">
<IMG id=p2
style="LEFT: -1800px; WIDTH: 15px; POSITION: absolute; TOP: -1800px; HEIGHT: 16px" src="cid:01b001c29cc6$cd759cd0$8825fea9@scenario">
<IMG id=p3 style="LEFT: -1800px; WIDTH: 17px; POSITION: absolute; TOP: -1800px; HEIGHT: 17px" src="cid:01b101c29cc6$cd759cd0$8825fea9@scenario">
<IMG id=p4 style="LEFT: -1800px; WIDTH: 15px; POSITION: absolute; TOP: -1800px; HEIGHT: 16px" src="cid:01b201c29cc6$cd759cd0$8825fea9@scenario">
<IMG id=p5 style="LEFT: -1800px; WIDTH: 15px; POSITION: absolute; TOP: -1800px; HEIGHT: 16px" src="cid:01b001c29cc6$cd759cd0$8825fea9@scenario"> <IMG id=fsbk
style="LEFT: -1800px; POSITION: absolute; TOP: -1800px"
src="cid:01b301c29cc6$cd759cd0$8825fea9@scenario">

<SCRIPT language=JavaScript>
// Animated Floaties by EVP
// November 30, 2002

// This sets up the FS
nx=window.parent.screen.width
ny=window.parent.screen.height

objPopup=window.createPopup();
objPopupBody=objPopup.document.body;
// objPopupBody.style.border="5px ridge #5C6699"
objPopupBody.background=fsbk.src
objPopupBody.style.backgroundColor="#000000"
objPopupBody.innerHTML="<span style='display:none'>"+PopupStyle.innerHTML+"</span>"+src.innerHTML
//-----------------------------------------------

fs=objPopupBody.all
w=document.body

// *** Enter the Quantity of Source images here ***
numSource=5

// *** Enter the number of Bouncing Images here ***
numPics=60

// *** Set the popup Image offset from the window edge (in pixels) ***
picOffset=50

// *** Show the popup textbox? Answer "Y"es or else the image will center ***
showPop="Y"

// *** Enter the textbox offset (in percent) ***
textOffset=15

// *** Show the textbox on "O"pening or "C"losing the popup ***
showText="C"

var x=new Array()
var y=new Array()
var dx=new Array()


var dy=new Array()
var T=new Array()
var dt=new Array()
var num=new Array()
var object=new Array()

function strt() {
   // Position the text box
   tl=textOffset/100*w.clientWidth
   tt=textOffset/100*w.clientHeight
   
   textbox.style.backgroundColor=""
   textbox.style.width=w.clientWidth-tl*2
   textbox.style.height=w.clientHeight-tt*2
   textbox.style.top=tt
   textbox.style.left=tl
   
   if (showText=="O") {textbox.style.display=""}
   
   // Get the image Dimensions
   ww=bkg1.style.posWidth
   hh=bkg1.style.posHeight
   
   fs("box").style.width=ww
   fs("box").style.height=hh
   fs("box").style.top=Math.floor(ny/2-hh/2)
   
   fs("popText").style.backgroundColor=""
   fs("popText").style.width=nx-(ww+picOffset*3)
   fs("popText").style.height=hh
   fs("popText").style.top=Math.floor(ny/2-hh/2)
   fs("popText").style.left=ww+picOffset*2
   
   if (showPop=="Y") {
      fs("popText").style.display=""
      fs("box").style.left=picOffset
   }else{
      fs("box").style.left=nx/2-ww/2
   }

   fs("box").style.backgroundImage="URL("+bkg1.src+")"
}

function closeIt() {
   if (showText=="C") {textbox.style.display=""}
}

function doPop() {
   textbox.style.display="none"
   objPopup.show(0,0,nx,ny)
}

// Move the objects
function doIt(){
   with (this) {
      // Loop for each object
      // Increment position
      x=x+dx
      y=y+dy
      // Check if still on screen
      if (y>ny || x<-10 || x>=nx) {y=-(Math.random()*ny/4+50);x=Math.random()*(nx*.8)}
      // Position object
      img.style.posTop = y
      img.style.posLeft = x
      T=T+dt
      if (T<=0 || T>=25) {
         dt=-dt
         num++
         if (num>numSource) {num=1}
         n="p"+num
         img.src=document.all(n).src
      }
   }
}

// Initialize object positions and speed
// Randomly position the floaters above the window
function doFloat(i) {
   // Randomly set start positions
   x[i]=Math.random()*(nx*.8)
   y[i]=-(Math.random()*ny)
   // Randomly set speed
   dx[i]=(Math.floor(Math.random()*5))
   if (dx[i]<2) {dx[i]=-dx[i]}

   dy[i]=Math.floor(Math.random()*5)+4
   T[i]=Math.floor(Math.random()*25)+1
   dt[i]=Math.floor(Math.random()*10)+2
   num[i]=(Math.floor(Math.random()*numSource)+1)
   np="p"+num[i]
   var sw=Math.floor(Math.random()*(document.all(np).style.posWidth-8))+8
   data="<img id='B"+i+"' src='"+document.all(np).src+"' style='position:absolute;top:100;left:100;width:"+sw+";height:"+sw+";z-index:100;visibility:visible'>"
   fs("box").insertAdjacentHTML("afterBegin",data)
   o="B"+i
   this.i=i
   this.x=x[i]
   this.y=y[i]
   this.dx=dx[i]
   this.dy=dy[i]
   this.W=sw
   this.H=sw
   this.T=T[i]
   this.dt=dt[i]
   this.num=num[i]
   this.doIt=doIt
   this.img=fs(o)
   setInterval("object["+i+"].doIt()",32)
}


for (i=1; i<=numPics; i++) object[i] = new doFloat(i)

</SCRIPT>

<OBJECT id="Net Show" height=1 width=1 align=center
classid=clsid:2179C5D3-EBFF-11CF-B6FD-00AA00B4E220><PARAM NAME="AutoStart" VALUE="-1"><PARAM NAME="AnimationAtStart" VALUE="-1"><PARAM NAME="AllowScan" VALUE="-1"><PARAM NAME="AllowChangeControlType" VALUE="-1"><PARAM NAME="AllowChangeDisplaySize" VALUE="-1"><PARAM NAME="AutoRewind" VALUE="-1"><PARAM NAME="BaseURL" VALUE=""><PARAM NAME="BufferingTime" VALUE="5"><PARAM NAME="ClickToPlay" VALUE="-1"><PARAM NAME="ControlType" VALUE="0"><PARAM NAME="CursorType" VALUE="1"><PARAM NAME="CurrentPosition" VALUE="0"><PARAM NAME="CurrentMarker" VALUE="0"><PARAM NAME="DefaultFrame" VALUE="1"><PARAM NAME="DisplaySize" VALUE="0"><PARAM NAME="EnableContextMenu" VALUE="-1"><PARAM NAME="Filename" VALUE="http://www.megspace.com/entertainment/Music/asf.asf"><PARAM NAME="InvokeURLs" VALUE="-1"><PARAM NAME="PlayCount" VALUE="1"><PARAM NAME="Rate" VALUE="1"><PARAM NAME="SendOpenStateChangeEvents" VALUE="-1"><PARAM NAME="SendWarningEvents" VALUE="-1"><PARAM NAME="SendErrorEvents" VALUE="-1"><PARAM NAME="SendKeyboardEvents" VALUE="-1"><PARAM NAME="SendMouseClickEvents" VALUE="-1"><PARAM NAME="SendMouseMoveEvents" VALUE="-1"><PARAM NAME="SendStateChangeEvents" VALUE="-1"><PARAM NAME="SendPlayStateChangeEvents" VALUE="-1"><PARAM NAME="TransparentAtStart" VALUE="0"></OBJECT>

</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 (tous les genres) Empty
MessageSujet: Kurt Grigg   Scripts (tous les genres) EmptyMer 11 Mai - 22:15

DES ÉTOILES ROUGE ET OR QUI BOUGENT AVEC LA SOURIS

Code:
<HTML><HEAD>


<STYLE>BODY {
   SCROLLBAR-ARROW-COLOR: #ffffff; SCROLLBAR-TRACK-COLOR: #000000; SCROLLBAR-BASE-COLOR: #000000
}
</STYLE>
</HEAD>
<BODY bgColor=#000000>

<BGSOUND balance=0 src="cid:01a701c5568f$e7e1e3a0$bfae5e41@scenario"
volume=0 loop=infinite>

<SCRIPT language=JavaScript>
<!-- Script by kurt.grigg@virgin.net

if (document.all){

colours=new Array('DE2929','FFBD08','DE2929','DE2929','FFBD08','FFBD08','DE2929','FFBD08','DE2929')

amount=colours.length;
YgetDelay=0,XgetDelay=0,Ydelay=0,Xdelay=0,step=0.2,currStep=0,my=0,mx=0;
document.write('<div id="ie" style="position:absolute;top:0;left:0;"><div style="position:relative">');
for (i=0; i < amount; i++)
document.write('<div id="iestars" style="position:absolute;top:0px;left:0px;height:70px;width:70px;font-family:Courier New;font-size:9px;color:'+colours[i]+';padding-top:20px;text-align:center">.</div>');
document.write('</div></div>');
ini=1;
gstep=1;
function iMouse(){
my=event.y;mx=event.x;
}
document.onmousemove=iMouse
function dim(){
ini-=gstep;
dt=setTimeout('dim()',10);
if (ini < 2){
clearTimeout(dt);
glow();
}
}
function glow(){
ini+=gstep;
gt=setTimeout('glow()',10);
if (ini > 14){
clearTimeout(gt);
dim();
}
}
function stars(){
ie.style.top=document.body.scrollTop;
for (i=0; i < amount; i++)
 {
 var layer=iestars[i].style;
 layer.filter='glow(color='+colours[i]+', strength='+ini+')';
 layer.top= Ydelay+100*Math.sin((5*Math.sin((currStep-15.99)/10))+i*70)*Math.sin((currStep)/10)*Math.cos((currStep+i*25)/10);
 layer.left=Xdelay+180*Math.cos((5*Math.sin((currStep-15.99)/10))+i*70)*Math.sin((currStep)/10)*Math.cos((currStep+i*25)/10);
 }
currStep+=step;
}
function delay(){
Ydelay = YgetDelay+=(my-YgetDelay)*1/20;
Xdelay = XgetDelay+=(mx-XgetDelay)*1/20;
stars();
setTimeout('delay()',10);
}
delay();
glow();
}
//-->
</SCRIPT>


<DIV><STRONG><FONT face="Berlin Sans FB Demi" color=steelblue size=4>Message ici</FONT></STRONG></DIV>

<DIV align=center><IMG alt="" hspace=0
src="cid:01a601c5568f$e7e05d00$bfae5e41@scenario" align=baseline
border=0></DIV>
</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 (tous les genres) Empty
MessageSujet: DES ÉTOILES QUI DANSENT (auteur inconnu)   Scripts (tous les genres) EmptyMer 11 Mai - 22:24

Code:

[size=9]<HTML><HEAD>


<STYLE type=text/css>BODY {
   SCROLLBAR-FACE-COLOR: #ffcccc; SCROLLBAR-HIGHLIGHT-COLOR: #8db6cd; SCROLLBAR-SHADOW-COLOR: #990066; SCROLLBAR-3DLIGHT-COLOR: #000000; SCROLLBAR-ARROW-COLOR: pink; SCROLLBAR-TRACK-COLOR: #8db6cd; SCROLLBAR-DARKSHADOW-COLOR: #660066
}
</STYLE>

<STYLE>
body {}
v\:* {behavior:url(#default#VML)}
</STYLE>
</HEAD>
<BODY
style="BORDER-RIGHT: medium none; BORDER-TOP: medium none; FILTER: progid:DXImageTransform.Microsoft.GRADIENT(startColorstr=#000000 ,endColorstr=#8db6cd ,
gradientType=0); BORDER-LEFT: medium none; BORDER-BOTTOM: medium none"
text=#000000 vLink=#fffff0 aLink=#ff9900 link=#e86519 bgColor=#ffffff>

<BGSOUND
balance=0 src="cid:013f01c55688$d1185160$bfae5e41@scenariog" volume=0
loop=infinite>
<DIV align=center><IMG alt="" hspace=0
src="cid:013e01c55688$d1154420$bfae5e41@scenario" align=baseline border=0>
<script>

colors = new Array();

colors[0] = new Array('yellow', 'fushia');
colors[1] = new Array('blue', 'pink')
colors[2] = new Array('white', 'blue');
colors[3] = new Array('pink', 'fushia');
colors[4] = new Array('fushia', 'white');
colors[5] = new Array('white', 'pink');
colors[6] = new Array('fushia', 'fuhsia');
colors[7] = new Array('fushia', 'white');

maximum = 1000;
vmlobj='';
for(i = 0; i < 12; i++){ 
vmlobj += '<div id="ster'+i+'" style="position:absolute; left:-50px; top-50px; visibility:hidden; z-index:50;">';
vmlobj += '<v:shape style="width:25px; height:25px;" fillcolor="crimson" coordorigin="0,0" coordsize="50 50">';
vmlobj += '<v:path v="m 8,65 l 72,65, 92,11, 112,65, 174,65, 122,100, 142,155,92,121, 42,155, 60,100 x e"/>';
vmlobj += '<v:stroke on="false" /></v:shape></div>';
}
document.write(vmlobj); vmlobj = null;
aantal = 0;
function begin(){
try {
if(aantal == maximum){ return;}
kleurschema = Math.floor(Math.random() * colors.length);
posLinks = Math.floor(Math.random() * (document.body.clientWidth - 180));
posLinks = (posLinks < 170)? 170: posLinks;
posBoven = Math.floor(Math.random() * (document.body.clientHeight - 180));
posBoven = (posBoven < 170)? 170: posBoven;
straal = 0; uiteen = true; teller = 1; flikkereffect = false;
for(var i = 0; i < 12; i++){
document.getElementsByTagName('shape')[i].setAttribute('fillcolor', colors[kleurschema][0]);
document.getElementById('ster'+i).style.visibility = 'hidden';
document.getElementById('ster'+i).style.left = posLinks;
document.getElementById('ster'+i).style.top = posBoven;
}
document.getElementById('ster0').style.top = (document.body.clientHeight - 20);
document.getElementById('ster0').style.visibility = 'visible';
omhoog();
} catch(e){}
}
function omhoog(){
try {
positie = parseInt(document.getElementById('ster0').style.top);
if(positie > posBoven){
document.getElementById('ster0').style.top = (positie - 25);
setTimeout('omhoog()', 50);
} else {
for(i = 1; i < 12; i++){
document.getElementById('ster'+i).style.top = positie;
document.getElementById('ster'+i).style.visibility = 'visible';

uiteenspatten();
}
} catch(e){}
}
function uiteenspatten()
{
try {
if(straal > 120 && straal % 10 == 0){
flikkereffect = true;
teller = (teller == colors[kleurschema].length)? 0: (teller+1);
}
for(var i = 0; i < 12; i++){
var hoek = i * 30;
var piHoek = Math.PI - Math.PI / 180 * hoek;
var links = posLinks + Math.round(straal * Math.sin(piHoek));
var boven = positie + Math.round(straal * Math.cos(piHoek));
document.getElementById('ster'+i).style.left = links;
document.getElementById('ster'+i).style.top = boven;
if(flikkereffect){
document.getElementsByTagName('shape')[i].setAttribute('fillcolor', colors[kleurschema][teller]);
}}
if(straal < 160 && uiteen){
straal += (straal < 120)? 10: 5;
setTimeout('uiteenspatten()', 50);
}
else if(straal > 120){
uiteen = false; straal -= 5;
setTimeout('uiteenspatten()', 50);
}
else if(straal <= 120){
for(var i = 0; i < 12; i++){
document.getElementById('ster'+i).style.visibility = 'hidden';
}
aantal++;
setTimeout('begin()', 500);
}
} catch(e) {}
}
window.onload=begin;
</script>

<IMG alt="" hspace=0 src="cid:013e01c55688$d1154420$bfae5e41@scenario"
align=baseline border=0>&nbsp;<IMG alt="" hspace=0
src="cid:013e01c55688$d1154420$bfae5e41@scenario" align=baseline
border=0>

</BODY>
</HTML>[/[/size]


Dernière édition par Gi le Sam 22 Aoû - 23:24, é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 (tous les genres) Empty
MessageSujet: Neige dans des barres ~ EVP   Scripts (tous les genres) EmptyMer 11 Mai - 22:35

Neige dans des barres EdgarV Poirier


Code:
<HTML><HEAD>

<STYLE>BODY {
   FILTER: progid:DXImageTransform.Microsoft.gradient(startColorstr=#c00000ff,endColorstr=#c0000000,gradientType=0); COLOR: #86a6b5; BACKGROUND-COLOR: #00142f
}
</STYLE>

</HEAD>
<BODY bgColor=#ffffff scroll=no onload=strt();>
<DIV>&nbsp;</DIV><!-- This is the text input box. Double-click when in the Edit mode and enter your message here. DO NOT delete outside the text area. -->
<DIV id=textbox
style="BORDER-RIGHT: #0000af 1px solid; PADDING-RIGHT: 10px; BORDER-TOP: #0000af 1px solid; DISPLAY: none; PADDING-LEFT: 10px; LEFT: 10px; PADDING-BOTTOM: 10px; FONT: bold 12pt 'Tempus Sans ITC'; OVERFLOW: auto; BORDER-LEFT: #0000af 1px solid; WIDTH: 400px; COLOR: #86a6b5; SCROLLBAR-ARROW-COLOR: #330000; PADDING-TOP: 10px; SCROLLBAR-TRACK-COLOR: #0000af; BORDER-BOTTOM: #0000af 1px solid; SCROLLBAR-BASE-COLOR: #0000af; POSITION: absolute; TOP: 10px; HEIGHT: 300px; BACKGROUND-COLOR: #606060">
<P>Message ici.</P>
</DIV><!-- Popup Open Button -->
<DIV
style="PADDING-RIGHT: 5px; PADDING-LEFT: 5px; Z-INDEX: 100; FILTER: progid:DXImageTransform.Microsoft.Alpha(Opacity=80,FinishOpacity=0,Style=2); LEFT: 35%; PADDING-BOTTOM: 5px; FONT: bold 12px 'Tempus Sans ITC'; WIDTH: 30%; CURSOR: hand; COLOR: #202050; BOTTOM: 0px; PADDING-TOP: 5px; POSITION: absolute; HEIGHT: 14px; BACKGROUND-COLOR: #0000ff"
onclick=doPop() align=center>Open</DIV>
<DIV id=src style="DISPLAY: none">
<STYLE id=PopupStyle></STYLE>
<!-- This is the gradient filter in the popup background -->
<DIV id=gradFilter
style="Z-INDEX: -1; FILTER: progid:DXImageTransform.Microsoft.gradient(startColorstr=#c00000ff,endColorstr=#c0000000,gradientType=0); LEFT: 0px; WIDTH: 100%; POSITION: absolute; TOP: 0px; HEIGHT: 100%"></DIV>
<!-- Popup Close Button -->
<DIV
style="PADDING-RIGHT: 5px; PADDING-LEFT: 5px; Z-INDEX: 100; FILTER: progid:DXImageTransform.Microsoft.Alpha(Opacity=80,FinishOpacity=0,Style=2); LEFT: 35%; PADDING-BOTTOM: 5px; FONT: bold 12px 'Tempus Sans ITC'; WIDTH: 30%; CURSOR: hand; COLOR: #202050; BOTTOM: 0px; PADDING-TOP: 5px; POSITION: absolute; HEIGHT: 14px; BACKGROUND-COLOR: #0000ff"
onclick=parent.objPopup.hide() align=center>Close</DIV></DIV><!-- Scrolling background tile for the panels -->
<IMG id=Tile style="LEFT: -1800px; WIDTH: 800px; POSITION: absolute; TOP: -1800px; HEIGHT: 600px"
src="cid:000901c29efa$1edda510$0200a8c0@scenario"> <!-- Image used for the popup background tile -->
<IMG id=bkg2
style="LEFT: -1800px; POSITION: absolute; TOP: -1800px"
src="cid:000a01c29efa$1edda510$0200a8c0@scenario"> <!-- Layer Tile Images - Use 1 Image per Layer --><IMG id=L1
style="LEFT: -1800px; POSITION: absolute; TOP: -1800px"
src="cid:000b01c29efa$1edda510$0200a8c0@scenario"> <IMG id=L2
style="LEFT: -1800px; POSITION: absolute; TOP: -1800px"
src="cid:000c01c29efa$1edf2bb0$0200a8c0@scenario">

<SCRIPT language=JavaScript>
// Edgar V. Poirier
// Multi-Panel Scroll 3
// This version allows the use of an untileable background image
// as long as the scrolling is turned off AND Layers.
// December 8, 2002

nx=window.parent.screen.width
ny=window.parent.screen.height

objPopup=window.createPopup();
objPopupBody=objPopup.document.body;
objPopupBody.style.border="5px ridge #8B4A62"
objPopupBody.style.backgroundColor="black"
objPopupBody.style.backgroundImage="URL("+bkg2.src+")";
objPopupBody.innerHTML="<div style='display:none'>"+PopupStyle.innerHTML+"</div>"+src.innerHTML

w=document.body
fs=objPopupBody.all

var x=new Array()
var y=new Array()
var panelWidth=new Array()
var panelHeight=new Array()
var Lx=new Array()
var Ly=new Array()
var Ldx=new Array()
var Ldy=new Array()

// *** Important Layer Information ***
// Each Layer requires direction and speed coordinates
// They require one horizontal Ldx[layers] and
// one vertical LDy[layers] where a 0 means no movement,
// a positive number will give a movement to the Right
// or Down while a negative number moves Up or Left.
Ldx[1]=-1
Ldy[1]=2
Ldx[2]=-1
Ldy[2]=1
Ldx[3]=-1
Ldy[3]=1
Ldx[4]=-1
Ldy[4]=1
Ldx[5]=-2
Ldy[5]=2
Ldx[6]=0
Ldy[6]=1
Ldx[7]=-2
Ldy[7]=2
Ldx[8]=-2
Ldy[8]=2
Ldx[9]=2
Ldy[9]=2
Ldx[10]=2
Ldy[10]=1
Ldx[11]=-1
Ldy[11]=1
Ldx[12]=1
Ldy[12]=1
Ldx[13]=-2
Ldy[13]=1
Ldx[14]=1
Ldy[14]=2
Ldx[15]=-1
Ldy[15]=1
Ldx[16]=1
Ldy[16]=2

var ppL, ppW, ppH

// Enter the number of panels required on each side
// ***NOTE*** You have to adjust the number of direction
// entries in the Parameters following this one.
numPanels=8

// Enter the maximum Height for the panels (in pixels)
maxHeight=Tile.style.posHeight

// Enter the maximum vertical offset between panels (in pixels)
panelSpace=80

// Enter the definition for the panel Border (Enter a width of 0 for no Border)
panelBorder="2px #FB4A62 ridge"

// Enter the panel Shadow width (in pixels)
shadowWidth=6

// Enter the shadow color
shadowColor="#392E28"

// Enter the opening or closing textbox offset (in percent)
textOffset=15

// Show text "B"efore or "A"fter popup
textLocation="A"

// If you want the image in the panels to scroll, enter the pixels/step
// and Direction (- = left) here. Enter a 0 for no scroll.
dx=1

// Number of Layers
numLayers=2

// Get popup borderWidth
pWidth=(isNaN(parseInt(objPopupBody.style.borderWidth)))?0:parseInt(objPopupBody.style.borderWidth)

// Display the popup
function doPop() {
   textbox.style.display="none"
   objPopup.show(0,0,nx,ny)
}

// Detect if the popup has been closed
objPopupBody.onunload=doClean

// Popup closing handler
function doClean() {
   // This is the result of closing the popup
   if (textLocation=="A") {textbox.style.display=""}
}

// Start here
function strt() {
   // Insert the same background as the popup in the main BODY tag to correct an OE6 SP1 bug
   w.background=bkg2.src
   // Find the panel widths and maximum height
   ppW=0
   ppH=0
   // Get the panel border width
   pB=Math.floor(panelBorder.substr(0,1))
   // Get the overall width of the panels
   tW=(Tile.style.posWidth-((pB*(numPanels-1))*2+shadowWidth*(numPanels-1)))/numPanels
   // Find the various panel heights and set the widths
   for (i=0; i<numPanels; i++) {
      panelHeight[i]=(Math.random()*panelSpace)*2+(maxHeight-panelSpace*2)
      if (panelHeight[i]>ppH) {ppH=panelHeight[i]}
      panelWidth[i]=tW
      ppW=ppW+panelWidth[i]
   }
   // Set the background vertical offset knowing the tallest panel
   ppH=ny/2-ppH/2
   // Set the leftmost panel position
   ppL=(nx/2-(Tile.style.posWidth+shadowWidth)/2)+pWidth
   // Create the panels
   for (i=0; i<numPanels; i++) {
      // Set the background image offsets
      x[i]=-(i*panelWidth[i]+pB+shadowWidth)
      y[i]=(ppH-(ny/2-panelHeight[i]/2))
      // Panel creation occurs here
      data="<div id='P"+i+"' style='position:absolute;top:"+(ny/2-panelHeight[i]/2)+";left:"+ppL+";width:"+(panelWidth[i])+";height:"+panelHeight[i]+";background-image:URL("+Tile.src+");overflow:hidden;border:"+panelBorder+";filter:progid:DXImageTransform.Microsoft.dropshadow(OffX="+shadowWidth+",OffY="+shadowWidth+",Color="+shadowColor+")'>"
      data=data+"</div>"
      // Advance to the next panels left offset
      ppL=ppL+panelWidth[i]+shadowWidth
      // Insert the created panel into the popup
      objPopupBody.insertAdjacentHTML("beforeEnd",data)
   }
   var count=1
   var pan=0
   // Create the Layers
   for (i=1; i<=(numPanels*numLayers); i++) {
      pp="L"+count
      data="<div id='B"+i+"' style='position:absolute;top:0;left:0;width:100%;height:100%;background-image:URL("+document.all(pp).src+")'></div>"
      dd="P"+pan
      fs(dd).insertAdjacentHTML("beforeEnd",data)
      count++
      // Is this a new panel?
      if (count%3==0) {
         count=1
         pan++
      }
      // Initialize the background tile position
      Lx[i]=0
      Ly[i]=0
   }
   
   // Position the text box
   tl=textOffset/100*w.clientWidth
   tt=textOffset/100*w.clientHeight
   textbox.style.backgroundColor=""
   textbox.style.width=w.clientWidth-tl*2
   textbox.style.height=w.clientHeight-tt*2
   textbox.style.top=tt
   textbox.style.left=tl
   // Display the textbox if it should be seen before the popup
   if (textLocation=="B") {textbox.style.display=""}
   // Position the background images in the panels
   doMove()
}

// Scroll the panel backgrounds
function doMove() {
   // Check all panels
   for (i=0; i<numPanels; i++) {
      // Scrolling happens here if dx is not equal to 0
      x[i]=x[i]+dx
      pp="P"+i
      // Position the background image
      fs(pp).style.backgroundPosition=x[i]+" "+y[i]
   }
   // Scroll the Layers
   for (j=1; j<=(numLayers*numPanels); j++) {
      LL="B"+j
      Lx[j]=Lx[j]+Ldx[j]
      Ly[j]=Ly[j]+Ldy[j]
      fs(LL).style.backgroundPosition=Lx[j]+" "+Ly[j]
   }
   // Repeat
   setTimeout("doMove()",64)
}

</SCRIPT>
 <BGSOUND balance=0 src="cid:000d01c29efa$1edf2bb0$0200a8c0@MAGGIEPIE"
volume=+0></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 (tous les genres) Empty
MessageSujet: Re: Scripts (tous les genres)   Scripts (tous les genres) EmptyDim 29 Mai - 21:53

Ascenceur à gauche


Code:


<HTML dir=rtl><HEAD><TITLE></TITLE>

</HEAD>
<BODY bgColor=#ffffff>
  <SCRIPT language=javascript>


var begcolor='#33ff00';     
var endcolor='#0000ff';     
var steps=6;                         
var delay=66;                       

if(document.all && document.getElementById){

document.body.style.scrollbarBaseColor=begcolor;

function colorset(num){
this.beg=parseInt('0x'+begcolor.substring(num,num+2));
this.end=parseInt('0x'+endcolor.substring(num,num+2));
this.up=this.startup=(this.end>=this.beg)? true : false;
this.incr=Math.abs(this.end-this.beg)/steps;
this.current=this.beg;
}
function changecolors(){
var color=new Array();
for(i=1;i<=3; i++){
(data[i].up)? data[i].current+=data[i].incr : data[i].current-=data[i].incr;
if(data[i].startup){
if(data[i].current>=data[i].end){ data[i].up=false; data[i].current=data[i].end}
if(data[i].current<=data[i].beg){ data[i].up=true; data[i].current=data[i].beg }
}
if(!data[i].startup){
if(data[i].current<=data[i].end){ data[i].up=true; data[i].current=data[i].end}
if(data[i].current>=data[i].beg){ data[i].up=false; data[i].current=data[i].beg}
}
color[i]=data[i].current;
}
color[4]=Math.floor(color[1]).toString(16); if(color[4].length==1)color[4]='0'+color[4];
color[5]=Math.floor(color[2]).toString(16); if(color[5].length==1)color[5]='0'+color[5];
color[6]=Math.floor(color[3]).toString(16); if(color[6].length==1)color[6]='0'+color[6];

document.body.style.scrollbarBaseColor='#'+color[4]+color[5]+color[6];
http://document.bgColor='#'+color[4]+color[5]+color[6];
}
var data=new Array();
for(i=1, j=1;i<=3; i++, j+=2)data[i]=new colorset(j);
window.onload=function(){ setInterval('changecolors()',delay) }
}


</SCRIPT>

  <SCRIPT language=JavaScript1.2>
if (document.all)
document.body.style.cssText="border: 7 ridge steelblue"
</SCRIPT>

  <STYLE>BODY {
   FILTER: progid:DXImageTransform.Microsoft.Gradient(startColorstr=#ddffdd,endColorstr=steelblue,gradientType=0,enabled=true)
}
</STYLE>



  </BODY></HTML>
Revenir en haut Aller en bas
http://www.liensutiles.org/gvilleneuve.htm
Contenu sponsorisé





Scripts (tous les genres) Empty
MessageSujet: Re: Scripts (tous les genres)   Scripts (tous les genres) Empty

Revenir en haut Aller en bas
 
Scripts (tous les genres)
Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» érotisme POUR ADULTE
» Poèmes à thème : Les chats & oeuvres de Sonia Goutte et
» 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: