Nenhuma avalição
COMENTAR
INDICAR
Cores no fundo da imagemPostada em: 07/11/2009
Demonstração do script
Código fonte do script
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD><TITLE>Colors-R.B.</TITLE>
<META http-equiv=Content-Type content="text/html; charset=windows-1252">
<META content="MSHTML 5.50.4522.1800" name=GENERATOR><!-- saved from url=(0022)http://internet.e-mail --><!--Making Scripts easy to use
Make a new Folder Called "Changing Color"
in your Default Stationery Folder.
Select a Bacground Seamless Tile,
A Midi and an Image. Copy then to the
New Folder and rename them. bkgrd.jpg,
Midi.mid,Image.jpg and then all you have to
do is Enter the height and width of the Image
Where it says "Enter Image here" in the
Style filter section and change the Margin
in the Style Box below-->
<STYLE type=text/css>BODY {
MARGIN-TOP: 0px; FONT-WEIGHT: bold; FONT-SIZE: 14pt; MARGIN-LEFT: 245px; COLOR: #000000; MARGIN-RIGHT: 10px; FONT-FAMILY: Arial; BACKGROUND-COLOR: #000000
}
#dropText {
FONT-WEIGHT: bold; FONT-SIZE: 14pt; FILTER: shadow(direction=135, color=#9C315A) OffX=1, OffY=1, Positive=1; MARGIN: 0px; COLOR: #000000; LINE-HEIGHT: 25px; FONT-FAMILY: Arial; HEIGHT: 50px
}
</STYLE>
<!--Back Ground Here--></HEAD>
<BODY bgColor=#ffffff background=E:><!--Midi Here--><BGSOUND balance=0
src="C:Program FilesCommon FilesMicrosoft SharedStationeryChange ColorMidi.mid"
volume=0 loop=0><!--Enter text in Compose Window-->
Script Facil
<DIV> </DIV><!--CHANGE COLOR STRIP BEHIND PHOTOS HERE. SEE BACKGROUND-COLOR: TAG-->
<DIV id=topStrip
style="Z-INDEX: 1; BACKGROUND: none transparent scroll repeat 0%; LEFT: -1800px; VISIBILITY: hidden; POSITION: absolute"
back2.jpg?></DIV>
<DIV> </DIV>
<DIV> </DIV>
<DIV> </DIV>
<DIV></DIV><!--Image goes Here Enter width and height of Image in
the Filter and Name in IMG Tag-->
<DIV id=container
style="FILTER: Light; LEFT: -1800px; WIDTH: 239px; POSITION: absolute; TOP: -1800px; HEIGHT: 384px"><FONT
color=#c0c0ff><IMG id=pic
style="LEFT: 0px; WIDTH: 100%; POSITION: absolute; TOP: 0px; HEIGHT: 100%"
src="bichinho.jpeg">
<SCRIPT language=VBScript>
REM Edgar V. Poirier
REM moomoo@nbnet.nb.ca
REM Rainbow Spotlight
REM May 2, 2000
Dim w, wW, wH, sH, bH, wx, Res, baseFont, pH, pRatio, myTimer, sFlag
Dim x1, y1, z1, x2, y2, R, G, B, strength, spread, A1, A2, A3
Set w=document.body
REM *** Set base font size here ***
baseFont=14
sub setUp()
REM Repeat to correct OE bug.
wW=w.clientWidth
wW=w.clientWidth
wH=w.clientHeight
wH=w.clientHeight
REM Size the image - never larger than original size
if w.clientHeight<pH then
container.style.height=wH
container.style.width=wH*pRatio
else
container.style.height=pH
container.style.width=pH*pRatio
end if
container.style.left=0
container.style.top=0
REM Define the light source and position
REM Three initial color settings
A1=0
A2=0
A3=0
REM Position the light source
x1=container.offsetWidth/2
y1=container.offsetHeight*1.7
z1=container.offsetHeight/3
REM Position the light target
x2=container.offsetWidth/2
y2=container.offsetHeight/4
REM Initialize the colors
R=255
G=255
B=255 REM Initialize the light intensity
strength=70
REM Initialize the beam width
spread=40
REM Start the cycling only when first loaded
if sFlag=0 then myTimer=setTimeout("doIt",200)
end sub
REM Subroutine to cycle the colors
sub doIt()
clearTimeout(myTimer)
REM Reset the light filter before changing parameters
call container.filters(0).Clear
REM Increment the color value offsets
A1=A1+.05
A2=A2+.04
A3=A3+.065
REM Calculate the new colors
R=int(abs(SIN(A1)*128))+128
G=int(abs(COS(A2)*128))+128
B=int(abs(SIN(A3)*128))+128
REM Set the spotlight
call container.filters(0).addCone(x1, y1, z1, x2, y2, R, G, B, strength, spread)
REM Repeat forever
myTimer=setTimeout("doIt",200)
end sub
sub window_onLoad()
REM Turn off normal scrolling
w.scroll="yes"
REM Get users screen resolution
wx=window.screen.width
REM and adjust font size to match. This will have the same size font
REM appear no matter what the viewer's screen resolution is
Res=INT(SQR(wx))-25
REM Set the font size
w.style.fontSize = baseFont+Res
REM Remember the image original height and aspect ratio
pH=container.style.pixelHeight
pRatio=container.style.pixelWidth/pH
REM Clear the resize flag
sFlag=0
setUp
end sub
</SCRIPT>
</FONT></DIV>
<DIV dir=ltr style="MARGIN-RIGHT: 0px" align=left><FONT face="Tempus Sans ITC"
color=#9c315a size=2></FONT></DIV< BODY></DIV>
<SCRIPT language=JavaScript>
<!--
/*
Slowly coming together status bar scroller
Written by BengalBoy (www.angelfire.com/nt/bengaliboy/index.html)
Visit http://wsabstract.com for this script and more
*/
//set message:
msg = " Script facil - - scriptfacil.com.br" ;
timeID = 10;
stcnt = 16;
wmsg = new Array(33);
wmsg[0]=msg;
blnk = " ";
for (i=1; i<32; i++)
{
b = blnk.substring(0,i);
wmsg[i]="";
for (j=0; j<msg.length; j++) wmsg[i]=wmsg[i]+msg.charAt(j)+b;
}
function wiper()
{
if (stcnt > -1) str = wmsg[stcnt]; else str = wmsg[0];
if (stcnt-- < -40) stcnt=31;
status = str;
clearTimeout(timeID);
timeID = setTimeout("wiper()",100);
}
wiper()
// -->
</SCRIPT>
<STYLE>BODY {
SCROLLBAR-FACE-COLOR: 000000; SCROLLBAR-ARROW-COLOR:d0e0ff; SCROLLBAR-TRACK-COLOR: ffffff
}
</STYLE>
<STYLE>BODY {
BORDER-BOTTOM: #ffffff 19px dashed; BORDER-LEFT: #000000 19px dashed; BORDER-RIGHT: #000000 19px dashed; BORDER-TOP: #ffffff 19px dashed
}
</STYLE>
</BODY></HTML>
<HTML><HEAD><TITLE>Colors-R.B.</TITLE>
<META http-equiv=Content-Type content="text/html; charset=windows-1252">
<META content="MSHTML 5.50.4522.1800" name=GENERATOR><!-- saved from url=(0022)http://internet.e-mail --><!--Making Scripts easy to use
Make a new Folder Called "Changing Color"
in your Default Stationery Folder.
Select a Bacground Seamless Tile,
A Midi and an Image. Copy then to the
New Folder and rename them. bkgrd.jpg,
Midi.mid,Image.jpg and then all you have to
do is Enter the height and width of the Image
Where it says "Enter Image here" in the
Style filter section and change the Margin
in the Style Box below-->
<STYLE type=text/css>BODY {
MARGIN-TOP: 0px; FONT-WEIGHT: bold; FONT-SIZE: 14pt; MARGIN-LEFT: 245px; COLOR: #000000; MARGIN-RIGHT: 10px; FONT-FAMILY: Arial; BACKGROUND-COLOR: #000000
}
#dropText {
FONT-WEIGHT: bold; FONT-SIZE: 14pt; FILTER: shadow(direction=135, color=#9C315A) OffX=1, OffY=1, Positive=1; MARGIN: 0px; COLOR: #000000; LINE-HEIGHT: 25px; FONT-FAMILY: Arial; HEIGHT: 50px
}
</STYLE>
<!--Back Ground Here--></HEAD>
<BODY bgColor=#ffffff background=E:><!--Midi Here--><BGSOUND balance=0
src="C:Program FilesCommon FilesMicrosoft SharedStationeryChange ColorMidi.mid"
volume=0 loop=0><!--Enter text in Compose Window-->
Script Facil
<DIV> </DIV><!--CHANGE COLOR STRIP BEHIND PHOTOS HERE. SEE BACKGROUND-COLOR: TAG-->
<DIV id=topStrip
style="Z-INDEX: 1; BACKGROUND: none transparent scroll repeat 0%; LEFT: -1800px; VISIBILITY: hidden; POSITION: absolute"
back2.jpg?></DIV>
<DIV> </DIV>
<DIV> </DIV>
<DIV> </DIV>
<DIV></DIV><!--Image goes Here Enter width and height of Image in
the Filter and Name in IMG Tag-->
<DIV id=container
style="FILTER: Light; LEFT: -1800px; WIDTH: 239px; POSITION: absolute; TOP: -1800px; HEIGHT: 384px"><FONT
color=#c0c0ff><IMG id=pic
style="LEFT: 0px; WIDTH: 100%; POSITION: absolute; TOP: 0px; HEIGHT: 100%"
src="bichinho.jpeg">
<SCRIPT language=VBScript>
REM Edgar V. Poirier
REM moomoo@nbnet.nb.ca
REM Rainbow Spotlight
REM May 2, 2000
Dim w, wW, wH, sH, bH, wx, Res, baseFont, pH, pRatio, myTimer, sFlag
Dim x1, y1, z1, x2, y2, R, G, B, strength, spread, A1, A2, A3
Set w=document.body
REM *** Set base font size here ***
baseFont=14
sub setUp()
REM Repeat to correct OE bug.
wW=w.clientWidth
wW=w.clientWidth
wH=w.clientHeight
wH=w.clientHeight
REM Size the image - never larger than original size
if w.clientHeight<pH then
container.style.height=wH
container.style.width=wH*pRatio
else
container.style.height=pH
container.style.width=pH*pRatio
end if
container.style.left=0
container.style.top=0
REM Define the light source and position
REM Three initial color settings
A1=0
A2=0
A3=0
REM Position the light source
x1=container.offsetWidth/2
y1=container.offsetHeight*1.7
z1=container.offsetHeight/3
REM Position the light target
x2=container.offsetWidth/2
y2=container.offsetHeight/4
REM Initialize the colors
R=255
G=255
B=255 REM Initialize the light intensity
strength=70
REM Initialize the beam width
spread=40
REM Start the cycling only when first loaded
if sFlag=0 then myTimer=setTimeout("doIt",200)
end sub
REM Subroutine to cycle the colors
sub doIt()
clearTimeout(myTimer)
REM Reset the light filter before changing parameters
call container.filters(0).Clear
REM Increment the color value offsets
A1=A1+.05
A2=A2+.04
A3=A3+.065
REM Calculate the new colors
R=int(abs(SIN(A1)*128))+128
G=int(abs(COS(A2)*128))+128
B=int(abs(SIN(A3)*128))+128
REM Set the spotlight
call container.filters(0).addCone(x1, y1, z1, x2, y2, R, G, B, strength, spread)
REM Repeat forever
myTimer=setTimeout("doIt",200)
end sub
sub window_onLoad()
REM Turn off normal scrolling
w.scroll="yes"
REM Get users screen resolution
wx=window.screen.width
REM and adjust font size to match. This will have the same size font
REM appear no matter what the viewer's screen resolution is
Res=INT(SQR(wx))-25
REM Set the font size
w.style.fontSize = baseFont+Res
REM Remember the image original height and aspect ratio
pH=container.style.pixelHeight
pRatio=container.style.pixelWidth/pH
REM Clear the resize flag
sFlag=0
setUp
end sub
</SCRIPT>
</FONT></DIV>
<DIV dir=ltr style="MARGIN-RIGHT: 0px" align=left><FONT face="Tempus Sans ITC"
color=#9c315a size=2></FONT></DIV< BODY></DIV>
<SCRIPT language=JavaScript>
<!--
/*
Slowly coming together status bar scroller
Written by BengalBoy (www.angelfire.com/nt/bengaliboy/index.html)
Visit http://wsabstract.com for this script and more
*/
//set message:
msg = " Script facil - - scriptfacil.com.br" ;
timeID = 10;
stcnt = 16;
wmsg = new Array(33);
wmsg[0]=msg;
blnk = " ";
for (i=1; i<32; i++)
{
b = blnk.substring(0,i);
wmsg[i]="";
for (j=0; j<msg.length; j++) wmsg[i]=wmsg[i]+msg.charAt(j)+b;
}
function wiper()
{
if (stcnt > -1) str = wmsg[stcnt]; else str = wmsg[0];
if (stcnt-- < -40) stcnt=31;
status = str;
clearTimeout(timeID);
timeID = setTimeout("wiper()",100);
}
wiper()
// -->
</SCRIPT>
<STYLE>BODY {
SCROLLBAR-FACE-COLOR: 000000; SCROLLBAR-ARROW-COLOR:d0e0ff; SCROLLBAR-TRACK-COLOR: ffffff
}
</STYLE>
<STYLE>BODY {
BORDER-BOTTOM: #ffffff 19px dashed; BORDER-LEFT: #000000 19px dashed; BORDER-RIGHT: #000000 19px dashed; BORDER-TOP: #ffffff 19px dashed
}
</STYLE>
</BODY></HTML>
