<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> </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>
Accueil 
Sujet: scroll (script)