Une colchique jaune
pour fêter l'automne
qui est arrivé!
Passez un bon automne !
'Script by Diann Seech
'© Seechmo Scripts .-.
'www.seechmo.com ()^()
'January 2008 "=.__:*:__.="
' .-'~~"~=--...,_/ D \_,...--=~"~~'-.
' { .*~..~..*{ ~I~ }*..~..~*. }
' '-. ,.-"`;\/|\/;`"-., .-'
' `~"--~` .-~` \|/ `~-. `~--"~`
' .-~` /|S|\ `~-.
' .~` / |E| \ `~.
' .-~` .' |E| '. `~-.
' {` _,.-="` |C| `"=-.,_ `}
' `~"~"` |H| `"~"~`
' |M|
' |O|
' /=\
' \=/
' ^
REM - required materials
'a body background
'a glitter background
'a background for the strips
'a large scrolling background
'a main image
'a midi
'a null wav
'a sound wav
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Option Explicit
SetLocale("en-us")
Dim seecw, seech, seechmo, spMo, stream, pathname, pathvol, joe
Dim dms, d, s, bW, bS, bC, gW, sW, smW, sp, pH, pW, image1, image2, image3, pause
'~~~~~~~~~~~~~~~*start of user changes*~~~~~~~~~~~~~~~
REM - place artist info here
REM - artist: © Unknown
REM - tutorial: Metalic Frame by msJynxDesigns http://www.msjynxdesigns.net/Tutorials/MetalicFrame.html
REM - music: © Alan Parsons-Eve
REM - place your ticker message between the quotes
seechmo=" Metalic Frame "
'---*music
REM - if you want to use streamed music then stream="Y" and enter the music path below between the ""
REM - if you want to use a midi in the tag then stream="N" and leave the pathname "" below empty
stream="N"
pathname=""
REM - enter volume here 0(mute) to 100(full)
pathvol=80
'--*textbox
REM - set amount of pause before text opens
' number represents seconds
pause=18
'--*side scrolls
REM - set border width,style and color
bW=3
bS="ridge"
bC="#000000"
REM - set large scroll width
sW=200
REM - set small scroll width
smW=30
REM - set glitter border width
gW=5
REM - set space between scrolls
REM - keep this number low
sp=55
REM - set direction of scrolling bar
REM 0 - no scroll
REM 1 - scroll up
REM 2 - scroll down
image1=0 'main scrolling panel
image2=2 'left scroll
image3=1 'right scroll
'--*
REM - filters
box3.style.filter="progid:DXImageTransform.Microsoft.Wheel(duration=5, spokes=2, enabled=1);"
dsp.style.filter="progid:DXImageTransform.Microsoft.Fade(duration=5, overlap=0.50, enabled=1)progid:DXImageTransform.Microsoft.Wheel(duration=5, spokes=12, enabled=1);"
box5.style.filter="progid:DXImageTransform.Microsoft.Iris(duration=5, enabled=1, irisStyle=star, motion=out);"
box1.style.filter="progid:DXImageTransform.Microsoft.Blinds(duration=5, bands=6, direction=up, enabled=1);"
box2.style.filter="progid:DXImageTransform.Microsoft.Blinds(duration=5, bands=10, direction=down, enabled=1);"
box1a.style.filter="progid:DXImageTransform.Microsoft.Blinds(duration=5, bands=6, direction=down, enabled=1);"
box2a.style.filter="progid:DXImageTransform.Microsoft.Blinds(duration=5, bands=10, direction=up, enabled=1);"
box1b.style.filter="progid:DXImageTransform.Microsoft.Blinds(duration=5, bands=6, direction=up, enabled=1);"
box2b.style.filter="progid:DXImageTransform.Microsoft.Blinds(duration=5, bands=10, direction=down, enabled=1);"
'==========*end of user changes*===========
if stream="Y" then
document.write""
end if
Set dms=document.body
d=0
s=0
pW=dsp.width
pH=dsp.height
sub window_onload()
size_and_position
window.clearTimeout(joe)
window.setTimeout "switchIt", 15000
window.setTimeout "openIt",3000
REM - backgrounds
box1.style.backgroundImage="URL("&dsbg2.src&")"
box2.style.backgroundImage="URL("&dsbg1.src&")"
box1a.style.backgroundImage="URL("&dsbg2.src&")"
box2a.style.backgroundImage="URL("&dsbg1.src&")"
box1b.style.backgroundImage="URL("&dsbg2.src&")"
box2b.style.backgroundImage="URL("&dsbg1.src&")"
box3.style.backgroundImage="URL("&dsbg2.src&")"
box5.style.backgroundImage="URL("&dsbg3.src&")"
REm - borders
box1.style.borderLeft=bS&" "&bC&" "&bW&"px"
box1.style.borderRight=bS&" "&bC&" "&bW&"px"
box2.style.borderLeft=bS&" "&bC&" "&bW&"px"
box2.style.borderRight=bS&" "&bC&" "&bW&"px"
box1a.style.borderLeft=bS&" "&bC&" "&bW&"px"
box1a.style.borderRight=bS&" "&bC&" "&bW&"px"
box2a.style.borderLeft=bS&" "&bC&" "&bW&"px"
box2a.style.borderRight=bS&" "&bC&" "&bW&"px"
box1b.style.borderLeft=bS&" "&bC&" "&bW&"px"
box1b.style.borderRight=bS&" "&bC&" "&bW&"px"
box2b.style.borderLeft=bS&" "&bC&" "&bW&"px"
box2b.style.borderRight=bS&" "&bC&" "&bW&"px"
box3.style.border=bS&" "&bC&" "&bW&"px"
box5.style.border=bS&" "&bC&" "&bW&"px"
end sub
sub size_and_position ()
REM - get window dimensions
seecw=dms.clientWidth
seech=dms.clientHeight
dms.style.overflowX="hidden"
REM - don't remove
spMo=" "
window.status="Script by: >¡< Seechmo ~ "&spMo&seechmo
REM - position side scroll
box1.style.left=(sp+sp/2)+smW+gW*2+bW*2
box1.style.top=0
box1.style.width=gW*2+bW*2+sW
box1.style.height=seech
box2.style.left=(sp+sp/2)+smW+gW*3+bW*3
box2.style.top=0
box2.style.width=sW
box2.style.height=seech
box1a.style.left=sp
box1a.style.top=0
box1a.style.width=gW*2+bW*2+smW
box1a.style.height=seech
box2a.style.left=sp+gW+bW
box2a.style.top=0
box2a.style.width=smW
box2a.style.height=seech
box1b.style.left=sp*2+gW*4+bW*4+smW+sW
box1b.style.top=0
box1b.style.width=gW*2+bW*2+smW
box1b.style.height=seech
box2b.style.left=sp*2+gW*5+bW*5+smW+sW
box2b.style.top=0
box2b.style.width=smW
box2b.style.height=seech
box3.style.left=(seecw-seecw/2)
box3.style.top=(seech-(pH+gW*2+bW*2))/2
box3.style.width=gW*2+bW*2+pW
box3.style.height=gW*2+bW*2+pH
box4.style.left=(seecw-seecw/2)+gW+bW
box4.style.top=(seech-pH)/2
box4.style.width=pW
box4.style.height=pH
box5.style.left=(seecw-seecw/2)+gW+bW
box5.style.top=(seech-pH)/2
box5.style.width=pW
box5.style.height=pH
end sub
sub openIt()
window.clearTimeout(joe)
box1a.filters(0).Apply()
box1a.style.visibility="visible"
box1a.filters(0).Play()
box2a.filters(0).Apply()
box2a.style.visibility="visible"
box2a.filters(0).Play()
box1b.filters(0).Apply()
box1b.style.visibility="visible"
box1b.filters(0).Play()
box2b.filters(0).Apply()
box2b.style.visibility="visible"
box2b.filters(0).Play()
window.setTimeout "openIt2",6000
end sub
sub openIt2()
window.clearTimeout(joe)
box1.filters(0).Apply()
box1.style.visibility="visible"
box1.filters(0).Play()
box2.filters(0).Apply()
box2.style.visibility="visible"
box2.filters(0).Play()
window.setTimeout "showP",6000
end sub
sub showP()
window.clearTimeout(joe)
dsp.filters(0).Apply()
dsp.style.visibility="visible"
dsp.filters(0).Play()
box5.filters(0).Apply()
box5.style.visibility="hidden"
box5.filters(0).Play()
window.setTimeout "showB",8000
end sub
sub showB()
window.clearTimeout(joe)
box3.filters(0).Apply()
box3.style.visibility="visible"
box3.filters(0).Play()
window.setTimeout "showT",(pause*1000)
end sub
sub showT()
window.clearTimeout(joe)
dsp.filters(1).Apply()
dsp.style.visibility="hidden"
dsp.filters(1).Play()
box5.filters(0).Apply()
box5.style.visibility="visible"
box5.filters(0).Play()
window.setTimeout "showP", (pause*1000)
end sub
window.setInterval "dsrollIt", 64
sub dsrollIt()
if image1=0 then
d=d+1
box2.style.backgroundPosition=s&" "&s
box1.style.backgroundPosition=-d&" "&-d
box3.style.backgroundPosition=-d&" "&-d
elseif image1=1 then
d=d+1
box2.style.backgroundPosition=s&" "&-d
box1.style.backgroundPosition=d&" "&d
box3.style.backgroundPosition=d&" "&d
elseif image1=2 then
d=d+1
box2.style.backgroundPosition=s&" "&d
box1.style.backgroundPosition=-d&" "&-d
box3.style.backgroundPosition=-d&" "&-d
end if
if image2=0 then
d=d+1
box2a.style.backgroundPosition=s&" "&s
box1a.style.backgroundPosition=-d&" "&-d
elseif image2=1 then
d=d+1
box2a.style.backgroundPosition=s&" "&-d
box1a.style.backgroundPosition=d&" "&d
elseif image2=2 then
d=d+1
box2a.style.backgroundPosition=s&" "&d
box1a.style.backgroundPosition=-d&" "&-d
end if
if image3=0 then
d=d+1
box2b.style.backgroundPosition=s&" "&s
box1b.style.backgroundPosition=-d&" "&-d
elseif image3=1 then
d=d+1
box2b.style.backgroundPosition=s&" "&-d
box1b.style.backgroundPosition=d&" "&d
elseif image3=2 then
d=d+1
box2b.style.backgroundPosition=s&" "&d
box1b.style.backgroundPosition=-d&" "&-d
end if
end sub
sub switchIt()
switcher.src=sound.src
window.setTimeout "switchIt", 18000
end sub
sub Window_OnResize()
size_and_position
end sub