Mots d'art & Scénarios

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

Partagez | 
 

 scroll (script)

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


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

MessageSujet: scroll (script)   Lun 10 Jan - 23:15

Des scripts pour tous les goûts


Dernière édition par Gi le Dim 23 Aoû - 0:05, édité 2 fois
Revenir en haut Aller en bas
http://www.liensutiles.org/gvilleneuve.htm
Gi
Rang: Administrateur


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

MessageSujet: script de John Durham   Sam 9 Avr - 2:23

Code:
<HTML><HEAD><TITLE>The Butterfly - Circular Movements</TITLE>

<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: #fa0abe 8px dashed; PADDING-RIGHT: 10px; BORDER-TOP: #fa0abe 8px dashed; PADDING-LEFT: 10px; SCROLLBAR-FACE-COLOR: #faa3c4; FONT-WEIGHT: bold; FONT-SIZE: 18pt; FILTER: alpha(opacity=90); LEFT: 240px; PADDING-BOTTOM: 10px; SCROLLBAR-HIGHLIGHT-COLOR: #fde1ec; OVERFLOW: auto; BORDER-LEFT: #fa0abe 8px dashed; WIDTH: 500px; SCROLLBAR-SHADOW-COLOR: #fa9abe; COLOR: hotpink; SCROLLBAR-3DLIGHT-COLOR: #fbb9d2; SCROLLBAR-ARROW-COLOR: white; PADDING-TOP: 10px; SCROLLBAR-TRACK-COLOR: #fbb9d2; BORDER-BOTTOM: #fa0abe 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: 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>
<BGSOUND balance=0 src="cid:000b01c5378e$6d34d5b0$c302a8c0@scenario" volume=-200
loop=5>
<META content="MSHTML 6.00.2900.2604" name=GENERATOR></HEAD>
<BODY bgColor=peachpuff background=cid:000a01c5378e$6d34d5b0$c302a8c0@escenario>
<DIV>&nbsp;</DIV><IMG id=pic
style="LEFT: 150px; WIDTH: 100px; POSITION: absolute; TOP: 100px"
src="cid:000901c5378e$6ce57d30$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, ppicw, ppich,th,th1

picw=50
pich=40
cch=170
ccw=350
A=15
R=165

x=0
y=0

sub window_OnLoad()
scw=document.body.clientWidth
sch=document.body.clientHeight
ClearTimeOut(th)
th=SetTimeOut ("circle",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+.02
Rem calculating position of the image
ppicw=R*cos(A)+ccw
ppich=R*sin(A)+cch
REM position of the image
pic.style.Left=ppicw
pic.style.Top=ppich
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>
</BODY></HTML>


Dernière édition par le Mer 11 Mai - 15:16, édité 2 fois
Revenir en haut Aller en bas
http://www.liensutiles.org/gvilleneuve.htm
Gi
Rang: Administrateur


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

MessageSujet: Connie Shultza   Sam 9 Avr - 2:27

Code:
<HTML><HEAD><TITLE></TITLE>
<!--written by Connie Schutza 2004 -->
<STYLE type=text/css>BODY {
   BORDER-RIGHT: #b1a97a 8px inset; BACKGROUND-POSITION: left top; BORDER-TOP: #b1a97a 8px outset; SCROLLBAR-FACE-COLOR: #d1caae; FONT-SIZE: 12pt; BACKGROUND-ATTACHMENT: scroll; MARGIN: 10px 10px 10px 445px; SCROLLBAR-HIGHLIGHT-COLOR: #b1a97a; BORDER-LEFT: #b1a97a 8px outset; SCROLLBAR-SHADOW-COLOR: #000000; COLOR: #988968; SCROLLBAR-3DLIGHT-COLOR: #d1caae; SCROLLBAR-ARROW-COLOR: #b1a97a; SCROLLBAR-TRACK-COLOR: #d1caae; BORDER-BOTTOM: #b1a97a 8px inset; BACKGROUND-REPEAT: repeat; FONT-FAMILY: Tahoma; SCROLLBAR-DARKSHADOW-COLOR: #d1caae; SCROLLBAR-BASE-COLOR: #d1caae; BACKGROUND-COLOR: #000000
}
IMG {
   BORDER-TOP-WIDTH: 0px; BORDER-LEFT-WIDTH: 0px; BORDER-BOTTOM-WIDTH: 0px; BORDER-RIGHT-WIDTH: 0px
}
A:link {
   COLOR: #988968
}
A:visited {
   COLOR: #988968
}
A:hover {
   COLOR: #988968
}
A:active {
   COLOR: #988968
}
</STYLE>
<!--background tile here -->
<META content="MSHTML 6.00.2800.1106" name=GENERATOR></HEAD>
<BODY bgColor=#f6f6f6
background=cid:011c01c533f9$0f254060$49f1b246@scenario>
<DIV>&nbsp;</DIV>
<DIV><!--midi file here --><BGSOUND balance=0
src="cid:011d01c533f9$0f254060$49f1b246@scenario" volume=0 loop=infinite>
<DIV>écrits ici</DIV>

<SCRIPT language=vbscript>

'*-------------------------------CHANGE TICKER HERE--------------------------------------


window.status="   Script and stationery by Connie  "


'*==============================PLEASE DO NOT CHANGE ANYTHING BELOW THIS LINE============

'*----------------------------------*
'* REM do the magic
'* This script was written by Connie Schutza
'* 2004
'* magic never ends
'*-----------------------------------*
Dim th, th1, th2
x=0
y=0

Sub Window_OnLoad()
ClearInterval(th2)
ClearInterval(th)
ClearTimeOut(th1)
th=SetInterval ("scrollback",64)
th1=SetTimeOut ("Magic1",8000)
End Sub

Sub scrollback()
x=x
y=y-1
document.body.style.backgroundposition=x&" "&y
End Sub

Sub Magic1()
ClearTimeOut(th1)
ClearInterval(th)
th2=SetInterval ("scrollback2",64)
End Sub

Sub scrollback2()
x=x
y=y+1
document.body.style.backgroundposition=x&" "&y
End Sub

Sub Window_OnResize()
   Window_OnLoad
   End Sub
</SCRIPT>
</BODY></HTML>


Dernière édition par le Mer 11 Mai - 15:15, édité 2 fois
Revenir en haut Aller en bas
http://www.liensutiles.org/gvilleneuve.htm
Gi
Rang: Administrateur


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

MessageSujet: EVP avec multiples scrolls...   Mer 13 Avr - 18:01


Edgar V. Poirier
Explications françaises par Picouic





Code:
<HTML><HEAD>
<STYLE type=text/css>BODY {
   FONT-SIZE: 12pt; MARGIN-LEFT: 10px; COLOR: #688fb6; MARGIN-RIGHT: 30px; FONT-FAMILY: Times new roman;
   BACKGROUND-COLOR: #000000
}
</STYLE>
</HEAD>

<BODY bgColor=#ffffff background="F:\Dossier image\Papier peint\dessins\mat1.jpg">

<BGSOUND balance=0
src="F:\Dossier HTM\musique\entrainantes\honey honey.mid" volume=-100 loop=1>
<P><FONT color=#000000 size=3></FONT></P>
<P><FONT face="Times new roman" color=#ff1493 size=3><STRONG>bonne fin de soirée
toutes et tous :-) </STRONG></FONT></P>
<P><FONT face="Times new roman" color=#0000ff size=4><STRONG>essai d'images
</STRONG></FONT></P>
<P>&nbsp;</P>
<P align=center><FONT face="Times new roman" color=#ffffff
size=4><STRONG>bisoussss </STRONG></FONT></P>
<P align=center>
<IMG alt="bibi" hspace=0 src="F:\Dossier image\Gif transparent\animaux\souris glop.gif" align=baseline border=0>
</P>
<P align=center>
<FONT face="Times new roman" color=#00ffff size=3>
<STRONG>Picouic </STRONG></FONT>
</P>

<CENTER>&nbsp;</CENTER>

<!-- this is the bottom layer image - you must enter the actual height and width
c'est l'image inférieure - vous devez écrire la hauteur et la largeur réelles -->
<IMG id=bkg0 style="LEFT: -800px; WIDTH: 265px; POSITION: absolute; HEIGHT: 279px"
src="F:\Dossier image\Gif transparent\animaux\mouse22.gif">

<!-- this is the 2nd layer image - you must enter the actual height and width
c'est la 2ème image - vous devez écrire la hauteur et la largeur réelles-->
<IMG id=bkg1 style="LEFT: -800px; WIDTH: 132px; POSITION: absolute; HEIGHT: 143px"
src="F:\Dossier image\Gif transparent\animaux\thumper01.gif">

<!-- this is the top layer image - you must enter the actual height and width
c'est l'image supérieure - vous devez écrire la hauteur et la largeur réelles -->
<IMG id=bkg2 style="LEFT: -800px; WIDTH: 100px; POSITION: absolute; HEIGHT: 100px"
src="F:\Dossier image\Gif transparent\divers\grillage.gif">


<SCRIPT language=VBScript>
REM Edgar V. Poirier
REM moomoo@nbnet.nb.ca
REM Thanks to Tar'Hom for the idea ;-)
REM May 23, 1999
Dim w, wW, wH, wx, myTimer, borders
Dim  Res, cW, cH, x(4), y(4), xD(4), yD(4)
Dim picX(4), picY(4), bxW(4), bxH(4), pW(4), pH(4), bP(4)
Dim numPics(4), chkPics(4)

Set w=document.body

REM Set number of scrolling borders (Total Number minus 1)
borders=2

REM Set scroll Direction
xD(0)=-1
yD(0)=2
xD(1)=1
yD(1)=-2
xD(2)=0
yD(2)=0

REM Initialize
sub setUp()
   REM Get window dimensions
   wW=w.clientWidth
   wH=w.offsetHeight
   REM Repeat to fix an OE bug
   wW=w.clientWidth
   wH=w.offsetHeight
   sH=w.scrollHeight
   REM Create the frame for the scene
   frm.style.height=cH
   frm.style.width=cW
   frm.style.left=4
   REM Create the borders
   brdrT.style.height=6
   brdrT.style.width=cW
   brdrT.style.left=0
   brdrT.style.top=0
   brdrR.style.height=cH
   brdrR.style.width=6
   brdrR.style.left=cW-2
   brdrR.style.top=0
   brdrB.style.height=6
   brdrB.style.width=cW
   brdrB.style.left=0
   brdrB.style.top=cH-2
   brdrL.style.height=cH
   brdrL.style.width=6
   brdrL.style.left=0
   brdrL.style.top=0
   REM Set the text Margin according to scene width.
   w.style.marginLeft=cW+30
   REM Start the scroll.
   SF
end sub

REM universal scrolling routine.
sub SF()
   ClearTimeOut(myTimer)
   for i=0 to borders
      x(i)=x(i)+xD(i)
      if xD(i)>0 and x(i)>=0 then x(i)=-pW(i)
      if xD(i)<0 and x(i)<-pW(i) then x(i)=0
      y(i)=y(i)+yD(i)
       if yD(i)>0 and y(i)>=0 then y(i)=-pH(i)
      if yD(i)<0 and y(i)<-pH(i) then y(i)=0
      REM Position the background image.
      document.all("b"&i).style.left = x(i)
      document.all("b"&i).style.top = y(i)
   next
   REM repeat (larger numbers give slower scroll below)
   myTimer=SetTimeOut("SF",16)
end sub

REM Everything starts here
sub Window_OnLoad()
   REM Get window dimensions
   wW=w.clientWidth
   wH=w.offsetHeight
   REM Repeat to fix an OE bug
   wW=w.clientWidth
   wH=w.offsetHeight
   sH=w.scrollHeight
   REM Get container dimensions from the
   REM background image.
   cW=bkg.offsetWidth
   cH=bkg.offsetHeight
   REM Generate moving images
   for i=0 to borders
      REM Get dimensions of scrolling images.
      pW(i)=document.all("bkg"&i).style.posWidth
      pH(i)=document.all("bkg"&i).style.posHeight
      REM Calculate the size of the scrolling background
      REM and the number of images required.
      picX(i)=INT(cW/pW(i))+2
      picY(i)=INT(cH/pH(i))+2
      REM Width of scrolling background
      bxW(i)=picX(i)*pW(i)
      REM Height of scrolling background
      bxH(i)=picY(i)*pH(i)
      REM Adjust the dimensions
      document.all("b"&i).style.width=bxW(i)
      document.all("b"&i).style.height=bxH(i)
      REM Calculate required number of images
      numPics(i)=picX(i)*picY(i)
      REM "Tile" the background (NOTE: Image is not positioned.)
      for j=1 to numPics(i)
         data=""
         data="<IMG src='" & document.all("bkg"&i).src & "'>"
         document.all("b"&i).insertAdjacentHTML "beforeEnd", data
      next
      REM Initial scroll start positions
      x(i)=0
      y(i)=0
   next
   REM Lets get started.
   setUp
end sub

REM This runs if the window size is changed.
sub Window_OnResize()
   setUp
end sub

REM The following subroutine will keep the frame on-screen if
REM the text scrolls. It may cause some jitter though :>(
REM Remove the REM in the line below to activate it.
sub window_onScroll()
   REM frm.style.top=w.scrollTop
end sub

</SCRIPT>
 <!-- This is the window made up of a SPAN inside a DIV
 C'est la fenêtre composée du SPAN à l'intérieur du DIV-->
<DIV id=frm
style="Z-INDEX: -1; FILTER: BlendTrans(Duration=0); LEFT: -1200px; WIDTH: 800px; POSITION: absolute; TOP: 4px; HEIGHT: 600px">

<!-- These are the images used to create a frame for the window
Ce sont les images employées pour créer une bordure pour la fenêtre-->
<IMG id=brdrT style="Z-INDEX: 10; LEFT: -100px; POSITION: absolute; TOP: 0px"
src="F:\Dossier image\Papier peint\dessins\facebg.jpg">
<IMG id=brdrR style="Z-INDEX: 10; LEFT: -100px; POSITION: absolute; TOP: 0px"
src="F:\Dossier image\Papier peint\dessins\Dogbarrelbg.jpg">
<IMG id=brdrB style="Z-INDEX: 10; LEFT: -100px; POSITION: absolute; TOP: 0px"
src="F:\Dossier image\Papier peint\dessins\BkgCelticGreen.jpg">
<IMG id=brdrL style="Z-INDEX: 10; LEFT: -100px; POSITION: absolute; TOP: 0px"
src="F:\Dossier image\Papier peint\dessins\trefle.JPG">

<!-- Here is the background image for the window.
The script uses the WIDTH and HEIGHT to create the window.
Voici l'image  le fond pour la fenêtre.  Le script emploie la Largeur et la hauteur pour créer la fenêtre-->
<IMG id=bkg style="LEFT: 0px; WIDTH: 700px; POSITION: absolute; TOP: 0px; HEIGHT: 600px"
src="F:\Dossier image\Papier peint\dreams2-sleeping.jpg">

<!-- SPANs will hold the scrolling images -->
<SPAN id=b0 style="WIDTH: 200px; POSITION: absolute; HEIGHT: 200px"></SPAN>
<SPAN id=b1 style="WIDTH: 200px; POSITION: absolute; HEIGHT: 200px"></SPAN>
<SPAN id=b2 style="WIDTH: 200px; POSITION: absolute; HEIGHT: 200px"></SPAN>
<SPAN id=b3 style="WIDTH: 200px; POSITION: absolute; HEIGHT: 200px"></SPAN>

</BODY></HTML>


Dernière édition par le Mer 11 Mai - 15:14, édité 1 fois
Revenir en haut Aller en bas
http://www.liensutiles.org/gvilleneuve.htm
Gi
Rang: Administrateur


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

MessageSujet: scroll Jean Vienne (diagonale)   Ven 15 Avr - 16:14

Code:
<HTML>
<HEAD
<STYLE></STYLE>
<!------------------------------------------------------------------------------------------------------>
</HEAD>
<BODY bgColor=#e7c9c1 background=cid:021401c541ec$8b040170$09e47650@scenario
scroll=no>
<BGSOUND
balance=0 src="cid:021501c541ec$8b040170$09e47650@scenario" volume=0
loop=infinite>
<!------------------------------------------------------------------------------------------------------>
<IMG
id=Img01 style="LEFT: -800px; POSITION: absolute; TOP: -800px"
src="cid:021201c541ec$8b019070$09e47650@scenario">
<IMG id=Img02
style="LEFT: -800px; POSITION: absolute; TOP: -800px"
src="cid:021301c541ec$8b019070$09e47650@scenario"> <!------------------------------------------------------------------------------------------------------>
<DIV id=Cont01
style="Z-INDEX: 2; LEFT: 0px; POSITION: absolute; TOP: 0px"></DIV>
<DIV id=Cont02
style="Z-INDEX: 1; LEFT: 0px; POSITION: absolute; TOP: 0px"></DIV><!------------------------------------------------------------------------------------------------------>
<DIV id=Montexte
style="PADDING-RIGHT: 10px; PADDING-LEFT: 10px; SCROLLBAR-FACE-COLOR: #df834b; FONT-SIZE: 16pt; FILTER: progid:DXImageTransform.Microsoft.Shadow(direction=180,strength=1,color=#f6dab5); PADDING-BOTTOM: 10px; OVERFLOW: auto; WIDTH: 300px; COLOR: #a13e74; SCROLLBAR-ARROW-COLOR: #a13e74; PADDING-TOP: 10px; SCROLLBAR-TRACK-COLOR: #a13e74; FONT-STYLE: italic; FONT-FAMILY: Lucida calligraphy; SCROLLBAR-BASE-COLOR: #f6dab5; HEIGHT: 300px">
<DIV>Message ici.</DIV>
 <BR><BR><BR><BR>  <DIV></DIV>
<!--------------------------------------------->
<SCRIPT language=VbScript>
//--------------------------------------------
//                    \\ _/\_ //       -
//                    (  °  °  )       -
//                    ---(_)---      -
//            © Réalisé par Jean ©    -
//                Le 14/04/2005       -
//              vienne.j@wanadoo.fr      -
//--------------------------------------------
Dim LargeurEcran, HauteurEcran, Laps, x
'----------------------------------------------------------------------
Sub Window_OnLoad()
LargeurEcran       = document.body.offsetWidth
HauteurEcran       = document.body.clientHeight
'----------------------------------------------------------------------------------------
Cont01.style.backgroundImage   = "URL("&Img01.src&")"
Cont01.Style.Width       = Img01.OffsetWidth
Cont01.Style.Height       = HauteurEcran
'-------------------------------------------------------------------
Cont02.style.backgroundImage   = "URL("&Img02.src&")"
Cont02.Style.Width       = Cont01.Style.Width
Cont02.Style.Height       = Cont01.Style.Height
'----------------------------------------------------------------------------------------
MonTexte.Style.Width   = LargeurEcran - Cont01.OffsetWidth - 200
MonTexte.Style.Height   = HauteurEcran * 0.80
MonTexte.Style.Position   = "Absolute"
MonTexte.Style.Top      = (HauteurEcran  - MonTexte.OffsetHeight)/2
MonTexte.Style.Left      = Cont01.Style.PosLeft + Cont01.OffsetWidth + 100
'----------------------------------------------------------------------------------------
ClearInterval(Laps)
Laps = SetInterval ("Scroll", 60)
End Sub
'----------------------------------------------------------------------
Sub Scroll()
x  = x+1
Cont01.style.backgroundposition   = 0& " " &x
Cont02.style.backgroundposition   = x& " " &x
End Sub
'----------------------------------------------------------------------
Sub window_onresize()
window.location.reload()
'----------------------------------------------------------------------
End Sub
</SCRIPT>
</BODY></HTML>


Dernière édition par le Mer 11 Mai - 15:11, édité 1 fois
Revenir en haut Aller en bas
http://www.liensutiles.org/gvilleneuve.htm
Gi
Rang: Administrateur


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

MessageSujet: ascenceur qui change de couleur   Dim 17 Avr - 17:39

modifier les couleurs ci-dessous

Code:
<HTML><HEAD>


<STYLE>BODY {
   BACKGROUND-POSITION: left top; FONT-SIZE: 12pt; MARGIN-LEFT: 125px; COLOR: #000000; BACKGROUND-REPEAT: repeat-y; FONT-FAMILY: Comic Sans MS
}
</STYLE>
</HEAD>
<BODY text=#000000 vLink=#ff0000 link=#ff0000 bgColor=#000000 leftMargin=0
background=cid:00e101c5436c$fe7952a0$1a2824d5@scenario>
<BGSOUND balance=0
          src="cid:00e201c5436c$fe7ad940$1a2824d5@scenario" volume=0
          loop=infinite>
          <SCRIPT language=JavaScript1.2>
var linkexchangefreq=Math.floor(Math.random()*11)
if (linkexchangefreq>5)
document.write('<style>.linkexchange{display:none}</style>')
</SCRIPT>
          <B><I><FONT color=#ff0000 size=4>écrits ici</FONT></I></B>
         
   
          <SCRIPT language=javascript>
<!--

var begcolor='#C71585';
var endcolor='#0000D4';
var steps=4;
var delay=300;

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>
</BODY></HTML>


Dernière édition par le Mer 11 Mai - 15:10, édité 1 fois
Revenir en haut Aller en bas
http://www.liensutiles.org/gvilleneuve.htm
Gi
Rang: Administrateur


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

MessageSujet: moteur de script par John Durham JSD Random Number #2   Mer 20 Avr - 17:13

scroll et objets flottants






Code:
<HTML><HEAD><TITLE>JSD Random Number #2</TITLE>
<!--This Script written by John Durham.......Moving Images at Runtime using VBScript--Random Numbers-->
<STYLE type=text/css>BODY {
   BORDER-RIGHT: #ba35c8 4px ridge; BORDER-TOP: #ba35c8 4px ridge; SCROLLBAR-HIGHLIGHT-COLOR: antiquewhite; BORDER-LEFT: #ba35c8 4px ridge; SCROLLBAR-3DLIGHT-COLOR: navajowhite; SCROLLBAR-ARROW-COLOR: white; SCROLLBAR-TRACK-COLOR: thistle; BORDER-BOTTOM: #ba35c8 4px ridge; SCROLLBAR-BASE-COLOR: thistle
}
.text {
   BORDER-RIGHT: #bb1cff 8px dashed; PADDING-RIGHT: 10px; BORDER-TOP: #bb1cff 8px dashed; PADDING-LEFT: 10px; SCROLLBAR-FACE-COLOR: #d571ff; FONT-WEIGHT: bold; FONT-SIZE: 20pt; FILTER: alpha(opacity=75); PADDING-BOTTOM: 10px; SCROLLBAR-HIGHLIGHT-COLOR: antiquewhite; OVERFLOW: auto; BORDER-LEFT: #bb1cff 8px dashed; WIDTH: 300px; COLOR: white; SCROLLBAR-3DLIGHT-COLOR: navajowhite; SCROLLBAR-ARROW-COLOR: white; PADDING-TOP: 10px; SCROLLBAR-TRACK-COLOR: #e19dff; BORDER-BOTTOM: #bb1cff 8px dashed; FONT-FAMILY: Times-Roman; SCROLLBAR-BASE-COLOR: thistle; POSITION: absolute; HEIGHT: 200px; BACKGROUND-COLOR: #d370ff; TEXT-ALIGN: center
}
.d3 {
   LEFT: 100px; WIDTH: 240px; POSITION: absolute; TOP: 1200px; HEIGHT: 209px
}
</STYLE>
<BGSOUND balance=0 src="cid:002401c53f64$493a6390$c302a8c0@scenario" volume=-200
loop=5>
<META content="MSHTML 6.00.2900.2604" name=GENERATOR></HEAD>
<BODY bgColor=peachpuff background=cid:002301c53f64$4938dcf0$c302a8c0@scenario
scroll=auto>
<DIV>&nbsp;</DIV><IMG id=pic1
style="LEFT: -1800px; WIDTH: 100px; POSITION: absolute; TOP: -1800px"
src="cid:002201c53f64$49375650$c302a8c0@scenario"> <IMG id=pic2
style="LEFT: -1800px; WIDTH: 100px; POSITION: absolute; TOP: -1800px"
src="cid:002201c53f64$49375650$c302a8c0@scenario"> <IMG id=pic3
style="LEFT: -1800px; WIDTH: 100px; POSITION: absolute; TOP: -1800px"
src="cid:002201c53f64$49375650$c302a8c0@scenario"> <IMG id=pic4
style="LEFT: -1800px; WIDTH: 100px; POSITION: absolute; TOP: -1800px"
src="cid:002201c53f64$49375650$c302a8c0@scenario"> <IMG id=pic5
style="LEFT: -1800px; WIDTH: 100px; POSITION: absolute; TOP: -1800px"
src="cid:002201c53f64$49375650$c302a8c0@scenario"> <IMG id=pic6
style="LEFT: -1800px; WIDTH: 100px; POSITION: absolute; TOP: -1800px"
src="cid:002201c53f64$49375650$c302a8c0@scenario"> <IMG id=pic7
style="LEFT: -1800px; WIDTH: 100px; POSITION: absolute; TOP: -1800px"
src="cid:002201c53f64$49375650$c302a8c0@eMachine"> <IMG id=pic8
style="LEFT: -1800px; WIDTH: 100px; POSITION: absolute; TOP: -1800px"
src="cid:002201c53f64$49375650$c302a8c0@scenario">
<DIV class=text id=t1>vos écrits ici

<!--- Greetings from the Sunshine State.<BR><BR>I have spent
some time with this one. The script works great but just could not seem to get
the stat graphics to look good (realistic). The picture is my own of our sort of
wild garden in Illinois (primarily the old fashioned Dame's Rockets. Thanks
Connie for your 27 midi. <BR><BR>A disclaimer follows as I have used graphics or
other items by others, some known and some unknown <BR><BR>Scripting done by me
using standard HTML and VBS and other script language as learned from various
sources. If script routines are used that were created by others then credit
will be given here and/or left intact in the script. All other elements in this
script were created by me or obtained by purchase or acquired from the Internet.
To the best of my knowledge they all are royalty-free, public domain tiles,
images, and/or animated GIFs/JPGs, Midis, and/or other elements and free for use
for noncommercial web sites and for personal email use unless otherwise
indicated by my personal credit in this stationery. If any are copyrighted or
were created by anyone objecting to my use of them please notify me and I will
give credit, or enter into a desired agreement or quit using
immediately.<BR><BR>Thanks and Hugs, <BR>John. ----><BR><BR><BR></DIV>
<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!!!!
'*Moving Images at Runtime using VBSScript
'*April 2005
'*--------------------------------------------



Dim picpos1, sch, scw, picpos2, picpos3,picpos4,picpos5,picpos6,picpos7,picpos8,pwidth, t1w, t1h


pwidth=100
t1w=300
t1h=200

sub window_OnLoad()
window.status="      (VBS Script) .......Script written and Stat assembled by John Durham......April 2005.........."
scw=document.body.clientWidth
sch=document.body.clientHeight

'Place the Image

picpos1=(scw-300)
pic1.style.posTop=picpos1-200
pic1.style.posLeft=(rnd*10)+30

picpos2=(scw-(pwidth))
pic2.style.posTop=picpos2
pic2.style.posLeft=(rnd*6)+130

picpos3=(scw-(pwidth-100))
pic3.style.posTop=picpos3
pic3.style.posLeft=(rnd*4)+230

picpos4=(scw-(pwidth-200))
pic4.style.posTop=picpos4
pic4.style.posLeft=(rnd*10)+330

picpos5=(scw-(pwidth -40))
pic5.style.posTop=picpos5
pic5.style.posLeft=(rnd*8)+430

picpos6=(scw-(pwidth -30))
pic6.style.posTop=picpos6
pic6.style.posLeft=(rnd*12)+530

picpos7=(scw-(pwidth - 350))
pic7.style.posTop=picpos7
pic7.style.posLeft=(rnd*12)+630

picpos8=(scw+(pwidth - 450))
pic8.style.posTop=picpos8
pic8.style.posLeft=(rnd*12)+730

t1.style.Posleft=(scw/2)-(t1w/2)
t1.style.PosTop=(sch/2)-(t1h/2)+100

SetTimeOut "jsdmove1", 10
SetTimeOut "jsdmove2", 20
SetTimeOut "jsdmove3", 30
SetTimeOut "jsdmove4", 40
SetTimeOut "jsdmove5", 50
SetTimeOut "jsdmove6", 60
SetTimeOut "jsdmove7", 70
SetTimeOut "jsdmove8", 80


End sub

sub jsdmove1()
ClearTimeOut
scw=document.body.clientWidth
sch=document.body.clientHeight
pic1.style.posTop=picpos1-300
pic1.style.posLeft=(rnd*10)+30
picpos1=picpos1-2
if picpos1=<100 then SetTimeOut "jsdreturn1", 30 else SettimeOut "jsdmove1", 100
End Sub



sub jsdreturn1()
ClearTimeOut
picpos1=(scw-(pwidth + 10))
SetTimeOut "jsdmove1", 30
End Sub



sub jsdmove2()
ClearTimeout
scw=document.body.clientWidth
sch=document.body.clientHeight
pic2.style.posTop=picpos2-100
pic2.style.posLeft=(rnd*6)+130
picpos2=picpos2-2
if picpos2<pwidth then SetTimeOut "jsdreturn2", 30 else SettimeOut "jsdmove2", 100
End Sub



sub jsdreturn2()
ClearTimeOut
picpos2=(scw-(pwidth-20))
SetTimeOut "jsdmove2", 30
End Sub


sub jsdmove3()
ClearTimeout
scw=document.body.clientWidth
sch=document.body.clientHeight
pic3.style.posTop=picpos3-50
pic3.style.posLeft=(rnd*4)+230
picpos3=picpos3 -2
if picpos3<pwidth-100 then SetTimeOut "jsdreturn3", 30 else SettimeOut "jsdmove3", 100
End Sub

sub jsdreturn3()
ClearTimeOut(th3)
picpos3=(scw-(pwidth + 100))
SetTimeOut "jsdmove3", 30
End Sub




sub jsdmove4()
ClearTimeout(th4)
scw=document.body.clientWidth
sch=document.body.clientHeight
pic4.style.posTop=picpos4-300
pic4.style.posLeft=(rnd*10)+330
picpos4=picpos4 -2
if picpos4<10 then SetTimeOut "jsdreturn4", 20 else SettimeOut "jsdmove4", 100
End Sub

sub jsdreturn4()
ClearTimeOut
picpos4=(scw-(pwidth - 300))
SetTimeOut "jsdmove4", 30
End Sub

sub jsdmove5()
ClearTimeout
scw=document.body.clientWidth
sch=document.body.clientHeight
pic5.style.posTop=picpos5-200
pic5.style.posLeft=(rnd*8) +430
picpos5=picpos5 -2
if picpos5<10 then SetTimeOut "jsdreturn5", 30 else SettimeOut "jsdmove5", 100
End Sub

sub jsdreturn5()
ClearTimeOut
picpos5=(scw-(pwidth -100))
SetTimeOut "jsdmove5", 30
End Sub

sub jsdmove6()
ClearTimeout
scw=document.body.clientWidth
sch=document.body.clientHeight
pic6.style.posTop=picpos6 -100
pic6.style.posLeft=(rnd*12)+530
picpos6=picpos6-2
if picpos6<pwidth+50 then SetTimeOut "jsdreturn6", 30 else SettimeOut "jsdmove6", 100
End Sub

sub jsdreturn6()
ClearTimeOut
picpos6=(scw-(pwidth -200))
SetTimeOut "jsdmove6", 30
End Sub

sub jsdmove7()
ClearTimeout
scw=document.body.clientWidth
sch=document.body.clientHeight
pic7.style.posTop=picpos7 -100
pic7.style.posLeft=(rnd*12)+630
picpos7=picpos7 -2
if picpos7<pwidth+100 then SetTimeOut "jsdreturn7", 30 else SettimeOut "jsdmove7", 100
End Sub


sub jsdreturn7()
ClearTimeOut
picpos7=(scw-(pwidth +10))
SetTimeOut "jsdmove7", 30
End Sub

sub jsdmove8()
ClearTimeout
scw=document.body.clientWidth
sch=document.body.clientHeight
pic8.style.posTop=picpos8-300
pic8.style.posLeft=(rnd*8) +730
picpos8=picpos8 -2
if picpos8<pwidth+20 then SetTimeOut "jsdreturn8", 30 else SettimeOut "jsdmove8", 100
End Sub

sub jsdreturn8()
ClearTimeOut
picpos8=(scw-(pwidth -300))
SetTimeOut "jsdmove5", 30
End Sub

Sub Window_OnResize()
Window_OnLoad
End Sub


Sub jsdscript()
ClearTimeOut
End Sub

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


Dernière édition par le Mer 11 Mai - 15:09, édité 2 fois
Revenir en haut Aller en bas
http://www.liensutiles.org/gvilleneuve.htm
Gi
Rang: Administrateur


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

MessageSujet: Re: scroll (script)   Mer 11 Mai - 15:07

Code:
<HTML><HEAD>


<STYLE></STYLE>
</HEAD>
<BODY bgColor=#000000><BGSOUND balance=0
src="cid:003101c1e850$61ef8780$72efc6d4@scenario" volume=0>
<DIV><FONT face="Bookman Old Style" color=#000080 size=4>
<P style="MARGIN: 0px; WORD-SPACING: 0px; TEXT-INDENT: 0px"
align=center><STRONG><EM>
Message ici</FONT></EM></STRONG></P>
<IMG
alt="" hspace=0 src="cid:002601c1e850$61e65fc0$72efc6d4@scenario" align=baseline
border=0></P>
<P style="MARGIN: 0px; WORD-SPACING: 0px; TEXT-INDENT: 0px"
align=center><STRONG><EM>
Message ici</FONT></EM></STRONG></P>

<IMG
alt="" hspace=0 src="cid:002701c1e850$61e65fc0$72efc6d4@scenario" align=baseline
border=0></P>
<SCRIPT language=JavaScript1.2>

/*
Advanced window scroller script-
By Website Abstraction (www.wsabstract.com)
Over 200+ free JavaScripts here!
*/

var currentpos=0,alt=1,curpos1=0,curpos2=-1
function initialize(){
startit()
}
function scrollwindow(){
if (document.all)
temp=document.body.scrollTop
else
temp=window.pageYOffset
if (alt==0)
/*alt=1
else
alt=0*/ /*Une invitation de Ginette Villeneuve.*/
if (alt==0)
curpos1=temp
else
curpos2=temp
if (curpos1!=curpos2){
if (document.all)
currentpos=document.body.scrollTop+1
else
currentpos=window.pageYOffset+1
window.scroll(0,currentpos)
}
else{
currentpos=0
window.scroll(0,currentpos)
}
}
function startit(){
setInterval("scrollwindow()",35)
}
window.onload=initialize
</SCRIPT>
</BODY></HTML>
Revenir en haut Aller en bas
http://www.liensutiles.org/gvilleneuve.htm
Contenu sponsorisé




MessageSujet: Re: scroll (script)   

Revenir en haut Aller en bas
 
scroll (script)
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Script Rocky BALBOA (Rocky 6)
» Problème de Lecture pour mon Script T_T
» problème de découpe écriture script
» Améliorer considérablement le scroll cinétique avec le fichier 20021192.txt
» [Résolu en partie] Avoir le scroll cinétique du music player dans tout le téléphone ?

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: