07- Movendo o Fundo 

 

A) Aqui, usaremos um script que movimenta  o papel e o texto para cima.

Abra a nova mensagem e aplique nela um papel de carta da sua preferência.

Coloque o seu texto, aplique figuras, som, o que quiser.

Se você não aplicar o texto antes não verá o efeito acontecer.

Em seguida, abra a aba Origem ( veja detalhes na página 05 ) e cole antes de </BODY>, no fim da página, o seguinte texto:


 

<SCRIPT language=JavaScript1.2>
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*/ /*esta parte faz com que volte para o topo.*/
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()",50)
}
window.onload=initialize
</SCRIPT>



Obs: Clique sobre o texto a ser copiado e arraste o mouse sobre ele para selecionar.  Clique com o botão direito e dê o comando Copy ( ou copiar). Vá ao local onde quer inserir o texto e posicione o cursor, usando novamente o botão direito do mouse no comando Paste ( ou colar ).

 

Veja sempre o resultado parcial do seu trabalho na aba Visualizar.  Se der algum erro, feche a mensagem, sem salvar,  e comece tudo novamente.  É assim que funciona até se adquirir prática.

 

B) Agora vamos movimentar o papel apenas, deixando o texto fixo. O movimento aqui poderá ter determinada a sua direção.

Igualmente abra a mensagem, aplique o papel e o texto.

Aplique o seguinte script antes de </BODY>:

<!--webbot bot="HTMLMarkup" alt="[&lt;b&gt;This is the OE5 Scroll Script&lt;/b&gt;]" StartSpan --></P>
<DIV id=imageholder 
style="LEFT: 0px; POSITION: absolute; TOP: 0px; Z-INDEX: -1">
<SCRIPT language=VBScript>
<!--
direction="up" ' Assim, a figura roda para cima. Mude a direção da rolagem aqui: "up" (para cima) ou "left" (para a esquerda) ou "down" (para baixo) ou "right" (para a direita)
sizew=300 ' enter the width of the scrolling image here
sizeh=416 ' enter the height of the scrolling image here
nail=0
source=document.body.background
tall=((screen.height\sizeh)+1)*2
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=" "
window.status="Click the image to Stop or Restart the scroll" 

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>


 

Espero que tenha sucesso e faça belas mensagens com este recurso!

Bjs

Romy