Definir('Seccion', 'Películas');

document.write('<script src="'+gNv+'menucabe.js"></script>' +
				'<script src="'+gNv+'menusitio.js"></script>'+
				'<script src="'+gNv+'varios/recursos/logos.js"></script>');


/* =========================================================== */
function CabeceraPelis(Pelicula){

	ComprobarMarcos();

	document.write('\n<div style="margin: 10px 0px 8px 0px;">\n' +
		((window == top.window) 
			?  	'<a href="index.html" target="_top">' +
				'<img src="' + DevolverNivel() + 'imag/_pelis.gif" alt="Películas" title="Películas" style="width:148px; height:32px; margin: 0px 10px -9px 0px;" ' + 
				'id="pelis" onmouseout="CambiaSRC(\'_pelis\', this)" onmouseover="CambiaSRC(\'_pelisb\', this)" />' +
			'</a>\n'
			: '<center>') +
		'\t<span class="titulo_articulo">' + Pelicula + '</span>\n' +
		((window == top.window) ? '' : '</center>') +
		'</div>\n' +
		'<hr />\n');

} /* Fin CabeceraPeliculas
 =========================================================== */

/* =========================================================== */
function LogoPeliculas() {

	LogoSeccion('Películas');

} /* Fin CabeceraPeliculas
 =========================================================== */

var mPelis = new Array();
var ndx = -1;

var xPelis = new Array ('A'
	/*12mo*/ ,'12 Monos', 'p12monos', 'op00149'
	/*2001*/ ,'2001, Una odisea espacial', 'p2001', 'op00183'
	/*alie*/ ,'Alien', 'alien/index.html', ''
	/*acci*/ ,'Acción mutante', 'pAccionMu', ''
	/*aman*/ ,'La amenaza de Andr&oacute;meda', 'pamenazaandromeda', ''
	/*amfa*/ ,'La amenaza fantasma', 'starwars/sw4', ''
	/*astr*/ ,'El Astronauta', 'pastronauta', ''
	/*atmo*/ ,'Atm&oacute;sfera Cero', 'patmosfera0', ''
	/*aust*/ ,'Austin Powers 2, La espia que me achuch&oacute;', 'paustin2', ''
);
mPelis[++ndx] = xPelis;

var xPelis = new Array ('B'
	/*barb*/ ,'Barbarella', 'pbarbarella', ''
	/*blad*/ ,'Blade Runner', 'pbladerunner', 'op00359'
	/*brig*/ ,'Las brigadas del espacio', 'pbrigadas', 'op00071'
);
mPelis[++ndx] = xPelis;

var xPelis = new Array ('C'
	/*cart*/ , 'Cartas de un hombre muerto', 'pcartashm', ''
	/*chic*/ , 'Las chicas de la tierra son f&aacute;ciles', 'pchicastierra', ''
	/*cond*/ , 'Con destino a la Luna', 'pcondestinoluna', ''
	/*cosa*/ , 'La Cosa (John Carpenter)', 'pcosa', ''
	/*cris*/ , 'Cristal Oscuro', 'pcristalo', ''
	/*cuan*/ , 'Cuando los mundos chocan', 'pcuandomu', 'op01335'
);
mPelis[++ndx] = xPelis;

var xPelis = new Array ('D'
	/*dark*/ , 'Dark Star', 'pdarkstar', ''
	/*demo*/ , 'Demolition Man', 'pdemoliti', ''
	/*depr*/ , 'Depredador', 'pdepredad', ''
	/*desa*/ , 'Desafio total', 'pdesafiot', ''
	/*diat*/ , 'El d&iacute;a en que la tierra se incendi&oacute;', 'pdiatieri', ''
	/*dorm*/ , 'El dormil&oacute;n', 'pdormilon', ''
	/*dune*/ , 'Dune', 'pdune', 'op00401'
);
mPelis[++ndx] = xPelis;

var xPelis = new Array ('E'
	/*exis*/ , 'eXistenZ', 'pexistenz', 'op00229'
);
mPelis[++ndx] = xPelis;

var xPelis = new Array ('F'
	/*flas*/ , 'Flash Gordon', 'pflashgor', ''
	/*fran*/ , 'Frankenstein desencadenado', 'pfrankdes', ''
);
mPelis[++ndx] = xPelis;

var xPelis = new Array ('G'
	/*gala*/ , 'Galactica', 'pgalactic', 'op00124'
	/*guga*/ , 'La guerra de las galaxias', 'starwars/sw1', ''
	/*gum1*/ , 'La guerra de los mundos (Byron Haskin)', 'pgdmh', ''
	/*gum2*/ , 'La guerra de los mundos (Steven Spielberg)', 'pgdms', ''
);
mPelis[++ndx] = xPelis;

var xPelis = new Array ('H'
	/*hang*/ , 'Hangar 18', 'phangar18', ''
	/*hast*/ , 'Hasta el fin del mundo', 'phastafinmundo', ''
	/*heav*/ , 'Heavy Metal', 'pheavymet', ''
	/*herf*/ , 'H&eacute;roes fuera de &oacute;rbita', 'pheroforb', 'op00279'
	/*hert*/ , 'Los h&eacute;roes del tiempo', 'pheroesdt', ''
	/*hora*/ , 'La Hora Final', 'phorafina', ''
	/*hori*/ , 'Horizonte Final', 'phorizont', 'op00093'
	/*huma*/ , 'Las humanidad en peligro', 'phumanpel', ''
);
mPelis[++ndx] = xPelis;

var xPelis = new Array ('I'
	/*impe*/ , 'El Imperio contraataca', 'starwars/sw2', ''
	/*incr*/ , 'El increible hombre menguante', 'pincreibl', ''
	/*inva*/ , 'La invasi&oacute;n de los ladrones de cuerpos', 'pinvasion', ''
);
mPelis[++ndx] = xPelis;

var xPelis = new Array ('K'
	/*krul'*/ , 'Krull', 'pkrull', ''
);
mPelis[++ndx] = xPelis;

var xPelis = new Array ('M'
	/*mart*/ , 'Marte Ataca', 'pmartatac', 'op00021'
	/*matr*/ , 'The Matrix', 'pmatrix01', 'op00190'
	/*metr*/ , 'Metr&oacute;polis', 'pmetropol', ''
	/*mimi*/ , 'Mimic', 'pmimic', ''
	/*misi*/ , 'Misi&oacute;n a Marte', 'pmisimart', 'op00295'
	/*moon*/ , 'Moonraker', 'pmoonraker', 'op01398'
	/*mosc*/ , 'La Mosca', 'pmosca', ''
);
mPelis[++ndx] = xPelis;

var xPelis = new Array ('N'
	/*nara*/ , 'La naranja mec&aacute;nica', 'pnaranjamecanica', ''
	/*navi*/ , 'Navigator, una odisea en el tiempo', 'pnavigator', 'op00092'
	/*nive*/ , 'Nivel 13', 'pnivel13', 'op00222'
);
mPelis[++ndx] = xPelis;

var xPelis = new Array ('P'
	/*plpt*/ , 'Planeta prohibido', 'pplanetpr', 'op00389'
	/*plsg*/ , 'Planeta sangriento', 'pplanetsg', ''
	/*plsi*/ , 'El planeta de los simios', 'pplanetsm', ''
	/*pode*/ , 'El poder de un dios', 'ppoderdeu', ''
	/*pueb*/ , 'El pueblo de los malditos', 'ppueblode', ''
);
mPelis[++ndx] = xPelis;

var xPelis = new Array ('Q'
	/*qua1*/ , 'Quatermass I; El experimento del doctor Quatermass', 'pq1exp', ''
	/*qua2*/ , 'Quatermass II', 'pq2exp', ''
	/*qua3*/ , 'Quatermass III; &iquest;Qu&eacute; sucedi&oacute; Entonces?', 'pquesuced', ''
	/*quin*/ , 'El Quinto Elemento', 'pquintoelemento', ''
);
mPelis[++ndx] = xPelis;

var xPelis = new Array ('R'
	/*reli*/ , 'The Relic', 'prelic', ''
	/*reto*/ , 'El retorno del Jedi', 'starwars/sw3', ''
	/*robo*/ , 'Robocop', 'probocop', ''
);
mPelis[++ndx] = xPelis;

var xPelis = new Array ('S'
	/*stga*/ , 'Stargate', 'pstargate', ''
	/*sttr*/ , 'Star Trek', 'startrek/index.html', ''
	/*stwa*/ , 'Star Wars', 'starwars/index.html', ''
	/*suce*/ , 'Sucesos en la IV Fase', 'psuc4fase', ''
);
mPelis[++ndx] = xPelis;

var xPelis = new Array ('T'
	/*tiem*/ , 'El tiempo en sus manos', 'ptiemmano', ''
);
mPelis[++ndx] = xPelis;

var xPelis = new Array ('U'
	/*ulat*/ , 'Ultim&aacute;tum a la Tierra', 'pultitier', ''
	/*ulhv*/ , 'El &uacute;ltimo hombre vivo', 'pultihomb', 'op01126'
);
mPelis[++ndx] = xPelis;

var xPelis = new Array ('V'
	/*viaj*/ , 'Viaje alucinante', 'pviajealu', ''

);
mPelis[++ndx] = xPelis;

var LetrasActivas = '';
for (n = 0; n < mPelis.length; n++) {
	LetrasActivas = LetrasActivas + (n != 0 ? ', ' : '') + mPelis[n][0];
}


// --------------------------------------------------------------
function IndicePeliculas() {

if (gEnVentana) {
	CambiaClaseCSS('.citp_indice', 'width', '0')
	CambiaClaseCSS('.citp_texto', 'width', '700')
	return;
}  

var c, l, n, mLetra;

if (NombrePagina(0) == 'index' || NombrePagina(0) == '') {
	var mLetra = vbSplit(LetrasActivas, ',');
	l =	Obtener('subPelLetra');	Definir('subPelLetra', '', -1);	// si se viene de una subsección, la letra de la misma
	c =	mLetra[Aleatorio(0, mLetra.length -1)];
	Definir('PelLetra', (l != '' ? l : c));
} else {
	// Especial Peliculas por el prefijo p o con número
	l2 = vbUcase(vbLeft(NombrePagina(0), 2));
	if (l2 == 'PP')	{
		l = 'P';
	} else if (vbLeft(l2, 1) != 'P') {
		l = vbLeft(l2, 1);
	} else  {
		l = vbRight(l2, 1);
	}
	if (l >= '0' && l <= '9') l = 'A';	// En caso de los números
	Definir('PelLetra', l);
}

LogoPeliculas();

// Letras
document.write('<center>\n<hr />\n<div class="indiceapagado fuente_10" style="width:85%;">\n');
	for (n = 65; n <= 90; n++) {
		l = String.fromCharCode(n);
		c = '\t';
		if (vbInStr(LetrasActivas, l) != -1 ) {
			c = c + '<a href="javascript:MuestraLetra(\'' + l + '\');">' + l + '</a>';
		} else {
			c = c + l;
		}
		document.write(c + '&nbsp;&nbsp;\n');
	}
document.write('</div>\n<hr />\n</center>\n\n');

for (n = 0; n < mPelis.length; n++) {
	CapaLetra(mPelis[n]);
}

document.write('<hr />');

}
// --------------------------------------------------------------

// --------------------------------------------------------------
function CapaLetra(Cl) {
	
	var n;
	var nmP = NombrePagina(0);
	var Letra = Obtener('PelLetra');

	document.write('<div style="display:' + (Letra == Cl[0] ? 'block' : 'none') + ';" id="' + Cl[0] + '">\n' +
				'<div class="item"><b>'+Cl[0]+'</b></div>\n'+
			'<hr />\n');

	for (n = 1; n < Cl.length; n = n + 3) {
		Cl[n+1] = vbLcase(Cl[n+1]);
		document.write('\t<div class="item' + (Cl[n+1] == nmP ? ' b' : '') + '">\n' +
				'\t\t<a href="' + Cl[n+1] + (vbInStr(Cl[n+1], '.htm') == -1 ? '.htm' : '') + '" class="bmar" target="_top">' + Cl[n] + '</a>\n' +
				(Cl[n+2] != '' ? '\t\t\t<div class="inotas"><a href="javascript:Articulo(\'' + Cl[n+2] + '\');" class="ven">Opiniones</a></div>\n' : '') +
			'\t</div>\n');
	}	

	document.write('</div>\n\n');
}
// --------------------------------------------------------------

// --------------------------------------------------------------
function MuestraLetra(Letra) {
var a, n, l;

	for (n = 65; n <= 90; n++) {
		if (vbInStr(LetrasActivas, String.fromCharCode(n)) != -1 ) VerNoVer(String.fromCharCode(n), 0);
	}
	VerNoVer(Letra, 1);

	Definir('PelLetra', Letra);

	for (n = 0; n < mPelis.length; n++) {
		if (Letra == mPelis[n][0]) { 
			l = (mPelis[n].length - 1) / 3; // * 3 por tener 3 parámetros cada peli
				do { 
					a = (Aleatorio(1, l) * 3) - 1; // -1 por estar el nombre de la peli en segunda posición
					s = vbLcase(mPelis[n][a]);
				} while (vbInStr(s, '\/') != -1); // evito que salten Peliculas con sección propia
			location.href = s + (vbInStr(s, '.htm') == -1 ? '.htm' : '');
			break;
		}
	}

	return false;

}
// --------------------------------------------------------------