/*  2008/09/29  Asunto: Mascota Widácaro - Evobas - http://www.evobas.org  Autor: Roberto Herrero - http://www.indomita.org  Copyright (c) 2008 Roberto Herrero  Contacto: indomita@indomita.org */ 
evolucion666=0;R=0;x1=0.1;y1=0.05;x2=0.25;y2=0.24;x3=1.6;y3=0.24;x4=300;y4=200;x5=300;y5=200;iid=0;function A(){DI=document.getElementsByTagName("img");DIL=DI.length;for(i=0;i-DIL;i++){DIS=DI[i].style;DIS.position="absolute";DIS.left=(Math.sin(R*x1+i*x2+x3)*x4+x5)+"px";DIS.top=(Math.cos(R*y1+i*y2+y3)*y4+y5)+"px"}R++}function Mover(){iid=setInterval("A()",5);}function Parar(){clearInterval(iid);}function Evolucion666(){if(evobas_poder_widacaro>0){if(evolucion666==0){ evolucion666=1;Mover(); }else{ evolucion666=0;Parar();}}}evobas_arana_inicio();function evobas_arana_inicio(){var evobas_widacaro_texto=new Array('Hola soy Wid&aacute;caro!!','Be green my friend!!','Soy la mascota de Evobas!!', 'Vis&iacute;tame en www.evobas.org', '&iquest;Has visto revolotear alguna mosca por ah&iacute;?', '&iexcl;&iexcl;Deja de se&ntilde;alarme con el puntero!!');document.write('<div id="'+evobas_arana_name+'" name="'+evobas_arana_name+'" style="z-index:10000;margin:0px;text-decoration:none;padding:0px;width:150px;position:absolute;text-align:center;top:0px;left:'+evobas_arana_left+'"><center><div id="'+evobas_tela_name+'" style="width:1px;height:10px;background:#C0C0C0;"></div><a href="http://www.evobas.org" target="evobas" border=0 onclick="Evolucion666();"><img src="http://www.miblogsource.indomita.org/evobas/'+evobas_widacaro_imagen+'.gif" border=0 title="'+evobas_widacaro_texto[evobas_semilla(0,evobas_widacaro_texto.length)]+'" alt="widacaro evobas"/></a></center></div>');evobas_ANIM();}function evobas_ANIM(){var a=evobas_semilla(-3,5);a=evobas_a_entero(document.getElementById(evobas_tela_name).style.height)+a;if(a<0)	a=0;document.getElementById(evobas_tela_name).style.height=a+'px';window.setTimeout('evobas_ANIM();',999);}function evobas_semilla(min,max){num = max - min;aleat = Math.random() * num;aleat = Math.floor(aleat);return parseInt(min) + aleat;}function evobas_a_entero(valor){valor = parseInt(valor);if (isNaN(valor)){return 0;}else{return valor;}}