/* mActivo.JS 2.3.1 - www.paebalears.es
Copyright (C) 2000-2007 Alejandro Usero Ruiz ( alexusero(arroba)yahoo.es )
Revisiones:
29-09-2011 (2.3.1) - Adaptación integración con edge (z-index)
06-10-2007 (2.3) - Versión PAEBalears.es
01-01-2005 (2.25) - Actualización mensajes navideños
26-04-2004 (2.24) - Se añaden algunos mensajes nuevos
09-02-2004 (2.23) - Se cambia el mensaje de presentación de la web
18-01-2004 (2.22) - Se eliminan algunas citas y se modifican algunas de ROX
26-08-2003 (2.21) - Añadido de más citas a la función obtenerLogo (las principales)
25-08-2003 (2.20) - Añadido de la función lletresRox()
13-06-2003 (2.15) - Añadido de enlaces con las letras de las canciones de Roxette
01-06-2003 (2.14) - Cambio en el formato de las canciones y añadido de algunas nuevas
07-04-2003 (2.13) - Cambio de las citas existentes y añadido de algunas nuevas
01-02-2003 (2.12c) - Añadido de citas y modificación de algunas
26-01-2003 (2.12b) - Modificación del libro de visitas
26-10-2002 (2.12) - Antes de poner la web online, modificaciones contenidos
29-08-2002 & 03-09-2002 (2.11) - Añadido de citas al mActivo
14-04-2002 (2.10) - Soporte colocación de las capas a la izquierda
29-03-2002 (2.03) - Soporte Konqueror 2 y demás navegadores no conocidos.
26-03-2002 (2.02) - Soporte para más navegadores (Opera)
19-03-2002 (2.01) - Añadido de funcionalidad en capas. Bug Opera 5.
13 al 15-02-2002 (2.0) - Añadido el control de capas.
30-10-2001 && 27-01-2002 (1.24) - Adaptación a "Sverige": algunos cambios y funciones nuevas
27-05-2001 (1.23) - Añadidos algunas fechas y arreglo guestbook
04-05-2001 (1.22) - Arreglado bug de "undefined".. (bug tonto.. ;-)
26-12-2000 (1.21) - Algunos bugs por medio.. Cambio de diseño
24-12-2000 (1.2) - Añado el control de fechas importantes... (Basado en Aniversari) Incluye múltiples cambios estructurales...
23-12-2000 (1.1) - Las funciones "titol()" y "enlace()"
23-06-2000 (1.0) - Versión original
*/
var activat_mActivo=true;//ver.2.0
var nav_name=navigator.appName;//ver.1.24
//Compabilitat: si coneixem el navegador exigim versió, sinò admitim tots (2.03)
if ( (nav_name!="Netscape" || nav_name.indexOf("Internet Explorer")==-1 || nav_name!="Opera" || nav_name!="Konqueror")
|| ((nav_name=="Netscape" || nav_name.indexOf("Internet Explorer")!=-1) && navigator.appVersion.charAt(0)>'3')
|| (nav_name=="Opera" && navigator.appVersion.charAt(0)>='5') || (nav_name=="Konqueror" && navigator.appVersion.charAt(0)>='2')) {
if (hihaData()==false)
elTexto=obtenerMensaje();
}
else activat_mActivo=false;//ver.2.03
function titol(cadena) {return (""+cadena+"
")}
function enlace(cadena, enlace) {return ("
[ "+cadena+" ]");}
function lletresRox (titol, autor, numdisc, numcancion) {//versió 2.20
var cadena="
""+titol+"" ("+autor+")
";
return cadena;
}//!lletresRox
function obtenerMensaje() {//Modificat en 1.2
var MAX=25; //nombre de missatges [0..MAX-1] (i.e. sumar 1 a l'últim index)
var aleatori=Math.round(Math.random()*(MAX-1)); //missatge a mostrar
var mensaje=new Array(MAX);
mensaje[0]=titol("The roxetteCD 1986-1999")+'Proyecto multimedia sobre el grupo sueco roxette'+enlace("roxetteCD","musica/roxette/roxettecd.htm");
mensaje[1]=titol("The roxetteCD 1986-1999")+'Proyecto multimedia sobre el grupo sueco roxette'+enlace("roxetteCD","musica/roxette/roxettecd.htm");
mensaje[2]=lletresRox("Spending my time","Per Gessle",2,18)+'« This silly game of love - you play, you win...
only to lose »';
mensaje[3]=lletresRox("Listen to your heart","Per Gessle",1,13)+'« Sometimes you wonder if this fight is worthwhile, the precious moments are all lost in the tide... »';
mensaje[4]=lletresRox("Opportunity nox","Per Gessle",12,141)+'« I’m living in a box..
but I’m out when opportunity nox »';
mensaje[5]=titol("Enlaces de Software Windows ")+'Aquí encontrarás enlaces a páginas
de utilidades para Windows [ Enlaces Windows ]';
mensaje[6]=titol("JavaTM")+'Aquí encontrarás páginas relacionadas con
el lenguaje de programación Java (TM) [ Java ]';
mensaje[7]=titol("Diccionarios")+'En esta página encontrarás enlaces a diccionarios
on-line de diferentes idiomas [ Diccionarios ]';
mensaje[8]=lletresRox("Real sugar","Per Gessle",8,116)+'« ... that’s what you´ve got, so what’s for me?
hey, what’s for me? »';
mensaje[9]=lletresRox("Watercolours in the rain","Per Gessle",2,20)+'« Seems I’ve been running all my life...
all my life, like watercolours in the rain »';
mensaje[10]=lletresRox("What’s she like?","Per Gessle",4,69)+'« I never thought I’d be the broken-hearted...
well, nothing hurts you like the truth »';
mensaje[11]=lletresRox("I’m Sorry","Per Gessle",4,72)+'« Love is lifting you up, and draggin’ you down...
it makes you go round and round and round »';
mensaje[12]=titol(""Eternamente Inocente" (Fangoria)")+'« ¿Dónde fue tu buena voluntad...
cuando me empezaste a engañar? »';
mensaje[13]=titol(""No sé qué me das" (Fangoria)")+'« Prometí que nunca volvería a caer...
pero esta vez, no lo quiero evitar »';
mensaje[14]=titol("Roxette's greatest Webs")+'Aquí podrás encontrar información sobre el grupo sueco Roxette: [ Roxette’s greatest webs ]';
mensaje[15]=lletresRox("Chances","Per Gessle",1,7)+'« Like the river will lead... the water to the sea,
take on me, take your chances on me »';
mensaje[16]=lletresRox("So far away","Per Gessle/Hasse Huss",3,55)+'« ...you told me you would stay... you never
said goodbye... and I’ll keep asking why... »';
mensaje[17]=titol("Discografía gráfica de Roxette")+'Aquí podrás encontrar la discografía básica de Roxette de una forma gráfica : [ Discografía de Roxette ]';
mensaje[18]=lletresRox("Queen of rain","Per Gessle",3,59)+'« There’s a time for the good in life, a time to kill the pain in life, dream about the sun you queen of rain »';
mensaje[19]=lletresRox("Queen of rain","Per Gessle",3,59)+'« It’s time to place your bets in life, I’ve played the loser’s game of life, dream about the sun... »';
mensaje[20]=lletresRox("Milk and Toast and Honey","Per Gessle",8,118)+'« Ain’t it funny how things sometimes look so clear and feel so near... »';
mensaje[21]=lletresRox("Never is a long time","Per Gessle",3,52)+'« Never is a long time-goodbye. Let’s spend the night
when this dream has come to an end »';
mensaje[22]=titol("Listado de discos de Roxette")+'Aquí encontrarás la discografía de Roxette con el listado de sus discos: [ Discografía de Roxette ]';
mensaje[23]=lletresRox("The centre of the heart","Per Gessle",8,117)+'« ... I want you so bad, answer my calls,
let’s spend the night within these walls ... »';
mensaje[24]=lletresRox("The centre of the heart","Per Gessle",8,117)+'« ... what am I gonna say when I find
the centre of my heart is a suburb to the brain ... »';
//aleatori=1
return mensaje[aleatori];
}
function obtenerLogo() {//En 1.2
var LOGOS=2;
var logo=new Array(LOGOS);
logo[0]=titol("Bienvenid@ a www.alexusero.com")+'Cuéntame qué opinas de mi sitio web personal en:'+enlace("web@alexusero.com","mailto:web@alexusero.com");
logo[1]=titol("Libro de Visitas")+'Déjame saber tus comentarios sobre la página en:
[ Libro de Visitas ]';
//logo[2]=titol("Novedades")+'Aquí podrás ver la sucesión de cambios
que hago en la página: [ Novedades ]';
return logo[Math.round(Math.random()*(LOGOS-1))];
}
function hihaData() {//En 1.21, 1.23
var percent=2; //cuanto más grande el nº salimos MENOS veces..
var percentatge=Math.round(Math.random()*percent);
if (percentatge==1) return false; //Acabamos si es 1 (100/percent % veces)
var elTextoCopia;
if ( (elTextoCopia=aniversari())=="buit") return false; //Comprobamos..
elTexto=elTextoCopia; //Arreglamos bug
return true; //si hemos llegado aquí todo correcto (ver 2.0)
}
function anys(c1,any,c2) {//1.23
if (navigator.appVersion.charAt(0)<'3') return ""; //ens estalviem l'error
var d=new Date();
var an=d.getFullYear()-any;
return ""+c1+" "+an+" "+c2+" ("+any+"-"+d.getFullYear()+")";
}
// ANIVERSARI.JS - València Juliol 1999-Novembre 2000
// Alejandro Usero Ruiz - alexusero@ono.com
// "it will take a long long time.." (it has taken...)
function aniversari () {//ver.1.21
var m1,m2,m3,m4,m5,m6,m7,m8,m9,m11,m12;
var i,elMes,elDia;
m1=new Array(32);
m2=new Array(30);
m3=new Array(32);
m4=new Array(31);
m5=new Array(32);
m6=new Array(31);
m7=new Array(32);
m8=new Array(32);
m9=new Array(31);
m10=new Array(32);
m11=new Array(31);
m12=new Array(32);
//Netegem...
for(i=1; i<=32; i++) {m1[i]='';m3[i]='';m5[i]='';m7[i]='';
m8[i]='';m10[i]='';m12[i]='';};
for(i=1; i<30;i++) m2[i]='';
for(i=1; i<=31; i++) {m4[i]='';m6[i]='';m9[i]='';m11[i]='';}
//------------------------------------------------------------
// ***** ANIVERSARIS *****
//------------------------------------------------------------
// Gener(1):
m1[1]="Feliz Año Nuevo
www.alexusero.com";
m1[6]="Día de Reyes
www.alexusero.com";
m1[12]="Cumpleaños de Per Gessle
"+anys("Tiene",1959,"años");
m1[26]=""Éxito de The Look en EEUU"
"+anys("Son",1989,"años");
//------------------------------------------------------------
// Febrer(2):
m2[26]="26 de Febrero:
San Alejandro";
//------------------------------------------------------------
// Març(3):
//------------------------------------------------------------
// Abril(4):
//------------------------------------------------------------
// Maig(5):
m5[30]="Cumpleaños de Marie Fredriksson
"+anys("Tiene",1958,"años");
//------------------------------------------------------------
// Juny(6):
//------------------------------------------------------------
// Juliol(7):
//------------------------------------------------------------
// Agost(8):
m8[24]="San Bartolomé";
//------------------------------------------------------------
// Setembre(9):
m9[3]="Mi cumpleaños
"+anys("Son",1979,"años");
//------------------------------------------------------------
// Octobre(10):
m10[9]="Día de la Comunitat Valenciana";
//------------------------------------------------------------
// Novembre(11):
//------------------------------------------------------------
// Desembre(12):
m12[24]="Esta noche es Nochebuena, y
mañana Navidad... FELICIDADES
www.alexusero.com";
m12[25]="¡Feliz Navidad!
www.alexusero.com";
m12[28]="Día de los Inocentes:
es broma... :-)
www.alexusero.com";
m12[31]="Nochevieja!
que se acaba el año...
www.alexusero.com";
//------------------------------------------------------------
var data=new Date();
elMes=data.getMonth()+1;
elDia=data.getDate();
var retorno="buit";
if (elMes==1 && m1[elDia]!='') retorno=m1[elDia];
if (elMes==2 && m2[elDia]!='') retorno=m2[elDia];
if (elMes==3 && m3[elDia]!='') retorno=m3[elDia];
if (elMes==4 && m4[elDia]!='') retorno=m4[elDia];
if (elMes==5 && m5[elDia]!='') retorno=m5[elDia];
if (elMes==6 && m6[elDia]!='') retorno=m6[elDia];
if (elMes==7 && m7[elDia]!='') retorno=m7[elDia];
if (elMes==8 && m8[elDia]!='') retorno=m8[elDia];
if (elMes==9 && m9[elDia]!='') retorno=m9[elDia];
if (elMes==10 && m10[elDia]!='') retorno=m10[elDia];
if (elMes==11 && m11[elDia]!="") retorno=m11[elDia];
if (elMes==12 && m12[elDia]!="") retorno=m12[elDia];
if (retorno=="buit" || (Math.round(Math.random()*5))==3) retorno=obtenerLogo();
else retorno=titol(retorno);
return retorno;
}
// MisLayers 1.0 - 12-15 de Febrero de 2002 - Alejandro Usero Ruiz - www.alexusero.com
// Umm.. pareix que ha tingut exit el llibre sobre layers q em vaig comprar.. :-)
// Pareix que funciona a 'tots' els navegadors a que l'he probada la pàgina
var l_mostrada="";
var amplariaCapes;
var esquerra=false;//ver.2.10
var ns4=document.layers?true:false;
var ns6=(navigator.userAgent.indexOf("Gecko")!=-1)?true:false
var opera=(navigator.userAgent.indexOf("Opera")!=-1)?true:false;//2.01
var konqueror=(navigator.appName=="Konqueror")?true:false;//2.03
function calcularCentre() {//2.01: arreglem opera 5.02
return (( (document.all&& (!opera))?document.body.clientWidth:window.innerWidth)/2);
}
function calcularCentreCapa(objecte) {
var c=new Array(2);
for (i=0;i| "+laCapa[1]+" |  |
");
}
function crearCapes(vectorCapes) {
//Vector: 0:nom, 1:títol, 2: text, 3:ample, 4:llarg, 5:background
if (!vectorCapes) return;
esquerra=false;
var i;
amplariaCapes=new Array(vectorCapes.length);
//Creem els estils i les capes
var Estils = "";
document.write (Estils);
document.write (mosCapes);
//Si és Opera o Konqueror, arreglem bug del no suportar el onresize()
if (opera || konqueror) setTimeout("mostrarOpera()",5000);//ver. 2.01 i 2.03
//window.alert (Estils+" "+mosCapes);
}
function crearCapesEsquerra(vectorCapes) {//ver.2.10
crearCapes(vectorCapes);
esquerra=true;
}
function mostrarOpera() {//ver.2.01
if (!l_mostrada) return;
var TCOTH=calcularCentreCapa(l_mostrada);
if (document.getElementById && document.getElementById(l_mostrada) != null) {
document.getElementById(l_mostrada).style.left=TCOTH[0];
document.getElementById(l_mostrada).style.top=TCOTH[1];
node = document.getElementById(l_mostrada).style.visibility='visible';
}
setTimeout("mostrarOpera()",5000);//cada 5 segs
}
//Mostrar i amagar les capes.. 12-2-2002
function mostrar(objecte) {
if (!objecte) return;
var TCOTH=calcularCentreCapa(objecte);
if (l_mostrada!="") amagar(l_mostrada);
l_mostrada=objecte;
if (document.all) {
document.all[objecte].style.pixelLeft=TCOTH[0];
document.all[objecte].style.pixelTop=TCOTH[1];
document.all[objecte].style.visibility = 'visible';
}
else if (document.getElementById && document.getElementById(objecte) != null) {
document.getElementById(objecte).style.left=TCOTH[0];
document.getElementById(objecte).style.top=TCOTH[1];
node = document.getElementById(objecte).style.visibility='visible';
}
else if (document.layers && document.layers[objecte] != null) {
document.layers[objecte].moveTo(TCOTH[0],TCOTH[1]);
document.layers[objecte].visibility = 'visible';
}
}
function amagar(object) {
if (!object) return;
if (document.all)
document.all[object].style.visibility = 'hidden';
else if (document.getElementById && document.getElementById(object) != null)
node = document.getElementById(object).style.visibility='hidden';
else if (document.layers && document.layers[object] != null)
document.layers[object].visibility = 'hidden';
}
function colocarCapes() {//13-2-2002: si fem un resize del document
if (ns4) {window.location.reload(); return; }//fallo NS4 arreglado!
amagar(l_mostrada);
mostrar(l_mostrada);
}
function tancar() {//15-2-2002
amagar(l_mostrada);
l_mostrada=null;//2.01
}