Habannita
¿Quieres reaccionar a este mensaje? Regístrate en el foro con unos pocos clics o inicia sesión para continuar.
Nuevo foro
los invitamos al nuevo foro con cosas nuevas..!!!www.codigosya.com/forovb/index.php

Codigo Fuegos Artificiales

2 participantes

Ir abajo

Codigo Fuegos Artificiales Empty Codigo Fuegos Artificiales

Mensaje por Habannita Jue Dic 27, 2007 10:16 pm

Bueno he decidido hacerles un pequeño regalo a todos los que visitan mi web y pongo este codigo (gracias a Darkoliko) en esta seccion pone unos pequeños fuegos artificiales en tu web... espero lo disfruten todos y pasen felices fiestas para año nuevo saludos..!!! les deseea un servidor...


Código:
<script type="text/javascript">
// <![CDATA[
var bits=100; // how many bits
var intensity=10; // how 'powerful' is the explosion (from 3 to 10 is best)
var speed=20; // how fast - smaller is faster
var colours=new Array("#03f", "#f03", "#0e0", "#93f", "#0cc", "#f93");
//                    blue    red    green  purple  cyan    orange
/****************************
*      Fireworks Effect    *
*  BY DARKOL & HABANNITA  *
*    HTTP://DARKOL.ES.TL    *
*  HTTP://HABANNITA.ES.TL  *
*  NO EDITES ABAJO DE AQUI  *
****************************/
var dx, xpos, ypos, bangheight;
var Xpos=new Array();
var Ypos=new Array();
var dX=new Array();
var dY=new Array();
var decay=new Array();
var colour=0;
var swide=800;
var shigh=600;
function write_fire() {
  var b, s;
  b=document.createElement("div");
  s=b.style;
  s.position="absolute";
  b.setAttribute("id", "bod");
  document.body.appendChild(b);
  set_scroll();
  set_width();
  b.appendChild(div("lg", 3, 4));
  b.appendChild(div("tg", 2, 3));
  for (var i=0; i<bits; i++) b.appendChild(div("bg"+i, 1, 1));
}
function div(id, w, h) {
  var d=document.createElement("div");
  d.style.position="absolute";
  d.style.overflow="hidden";
  d.style.width=w+"px";
  d.style.height=h+"px";
  d.setAttribute("id", id);
  return (d);
}
function bang() {
  var i, X, Y, Z, A=0;
  for (i=0; i<bits; i++) {
    X=Math.round(Xpos[i]);
    Y=Math.round(Ypos[i]);
    Z=document.getElementById("bg"+i).style;
    if((X>=0)&&(X<swide)&&(Y>=0)&&(Y<shigh)) {
      Z.left=X+"px";
      Z.top=Y+"px";
  }
    if ((decay[i]-=1)>14) {
    Z.width="3px";
    Z.height="3px";
    }
    else if (decay[i]>7) {
    Z.width="2px";
    Z.height="2px";
    }
    else if (decay[i]>3) {
    Z.width="1px";
    Z.height="1px";
    }
    else if (++A) Z.visibility="hidden";
    Xpos[i]+=dX[i];
    Ypos[i]+=(dY[i]+=1.25/intensity);
  }
  if (A!=bits) setTimeout("bang()", speed);
}
 
function stepthrough() {
  var i, Z;
  var oldx=xpos;
  var oldy=ypos;
  xpos+=dx;
  ypos-=4;
  if (ypos<bangheight||xpos<0||xpos>=swide||ypos>=shigh) {
    for (i=0; i<bits; i++) {
      Xpos[i]=xpos;
      Ypos[i]=ypos;
      dY[i]=(Math.random()-0.5)*intensity;
      dX[i]=(Math.random()-0.5)*(intensity-Math.abs(dY[i]))*1.25;
      decay[i]=Math.floor((Math.random()*16)+16);
      Z=document.getElementById("bg"+i).style;
      Z.backgroundColor=colours[colour];
    Z.visibility="visible";
    }
    bang();
    launch();
  }
  document.getElementById("lg").style.left=xpos+"px";
  document.getElementById("lg").style.top=ypos+"px";
  document.getElementById("tg").style.left=oldx+"px";
  document.getElementById("tg").style.top=oldy+"px";
}
function launch() {
  colour=Math.floor(Math.random()*colours.length);
  xpos=Math.round((0.5+Math.random())*swide*0.5);
  ypos=shigh-5;
  dx=(Math.random()-0.5)*4;
  bangheight=Math.round((0.5+Math.random())*shigh*0.4);
  document.getElementById("lg").style.backgroundColor=colours[colour];
  document.getElementById("tg").style.backgroundColor=colours[colour];
}
window.onscroll=set_scroll;
function set_scroll() {
  var sleft, sdown;
  if (typeof(self.pageYOffset)=="number") {
    sdown=self.pageYOffset;
    sleft=self.pageXOffset;
  }
  else if (document.body.scrollTop || document.body.scrollLeft) {
    sdown=document.body.scrollTop;
    sleft=document.body.scrollLeft;
  }
  else if (document.documentElement && (document.documentElement.scrollTop || document.documentElement.scrollLeft)) {
    sleft=document.documentElement.scrollLeft;
  sdown=document.documentElement.scrollTop;
  }
  else {
    sdown=0;
    sleft=0;
  }
  var s=document.getElementById("bod").style;
  s.top=sdown+"px";
  s.left=sleft+"px";
}
window.onresize=set_width;
function set_width() {
  if (typeof(self.innerWidth)=="number") {
    swide=self.innerWidth;
    shigh=self.innerHeight;
  }
  else if (document.documentElement && document.documentElement.clientWidth) {
    swide=document.documentElement.clientWidth;
    shigh=document.documentElement.clientHeight;
  }
  else if (document.body.clientWidth) {
    swide=document.body.clientWidth;
    shigh=document.body.clientHeight;
  }
}
window.onload=function() { if (document.getElementById) {
  set_width();
  write_fire();
  launch();
  setInterval('stepthrough()', speed);
}}
// ]]>
</script>


Última edición por el Vie Ene 11, 2008 6:02 pm, editado 1 vez
Habannita
Habannita
Admin
Admin

Masculino
Cantidad de envíos : 363
Edad : 34
Sitio Web : http://www.codigosya.com/
Foro : https://habannita.forosactivos.net/
Fecha de inscripción : 12/07/2007

Estados
Hoy me siento: Feliz
Comentario: www.codigosya.com

Volver arriba Ir abajo

Codigo Fuegos Artificiales Empty Re: Codigo Fuegos Artificiales

Mensaje por darkoliko Sáb Dic 29, 2007 2:56 pm

EN MI WEB PODRAN ENCONTRAR UN EJEMPLO SOBRE COMO SALEN LOS FUEGOS ARTIFICIALES
ADEMAS CON UNAS WENAS IMAGENES SALEN BIEN BAKANAS
DISFRUTENLO

darkoliko
darkoliko
Moderador
Moderador

Masculino
Cantidad de envíos : 131
Edad : 31
Sitio Web : www.darkol.es.tl
Foro : www.darkol.es.tl
Blog : www.darkol.es.tl
Fecha de inscripción : 17/09/2007

Estados
Hoy me siento: Normal
Comentario:

http://wWw.DarkoL.eS.tL

Volver arriba Ir abajo

Codigo Fuegos Artificiales Empty MEN COMO ASES

Mensaje por elhip-ho Sáb Ene 12, 2008 3:20 pm

MEN PARAQ SAVER COMO ASE Q UNO APENAS SE METE APARESE UN LUGAR DONDE UNO LE DA ENTRAR Y AY SI SE METE A LA PAGINA COMO AGO PARA Q APARESCA EN MI PAGINA TAMBN ASI ME AYUDAS PLISSS
elhip-hop.es.tl
avatar
elhip-ho
Invitado


Volver arriba Ir abajo

Codigo Fuegos Artificiales Empty Re: Codigo Fuegos Artificiales

Mensaje por Contenido patrocinado


Contenido patrocinado


Volver arriba Ir abajo

Volver arriba

- Temas similares

 
Permisos de este foro:
No puedes responder a temas en este foro.