var nivusu = DaCoo("nivel");
var nomusu = DaCoo("nombre");
var fecact = DaCoo("fecha");
var ptc = 0;
var ttl = DaCoo("ttl");
var FecBor = new Date();
var cor="hwáíczadebrtfxsy3ij4ko0 u5ló6ú7m8v9é1qg2np"
var FecFin = new Date();
FecFin.setTime(FecFin.getTime() + 365*24*60*60*1000);
FecBor.setTime(FecBor.getTime() - 1)

function compruebatecla(){
ntecla=window.event.keyCode
corigen=window.event.srcElement.tagName
if (ntecla==112){
setTimeout("verayuda()",1000)
}
if (ntecla==121){
enviaformulario()
}
if (corigen=="INPUT"){
	if (ntecla==13){
		cnombre=window.event.srcElement.name
		if (cnombre != "nombre"){
			alert("Pulsa el botón para comprobar la respuesta")
		}
		window.event.returnValue=false
	}
}
}

function verayuda(){
window.open("aydQST2.htm","","")
}

function enviaformulario(){
document.frca.submit()
}

function Cfr(smn,acc,org){
var dst="";var cct=""
var crc=0;var cnv=0;var can=0
var lgt=org.length;var dvt=smn
for (crc=0;crc<lgt;crc++){
dvt++;if (dvt>38){dvt=0}
cct=org.charAt(crc)
cnv=cor.indexOf(cct)
if (cnv>-1) {
if (acc==1){can=cnv+(42+dvt)}
if (acc==2){can=(cnv+42)-dvt}
can=Math.abs(can)
can=Math.round(can%42)
dst=dst+cor.charAt(can)}
else {dst=dst+cct}}
return dst
}

function GraCoo(nomcoo, valcoo) {
var argval = GraCoo.arguments;
var argnum = GraCoo.arguments.length;
var expires = (argnum > 2) ? argval[2] : FecFin;
var path = (argnum > 3) ? argval[3] : null;
var domain = (argnum > 4) ? argval[4] : null;
var secure = (argnum > 5) ? argval[5] : false;
document.cookie = nomcoo + "=" + escape (valcoo) +
((expires == null) ? "" : ("; expires=" + expires.toGMTString())) +
((path == null) ? "" : ("; path=" + path)) +
((domain == null) ? "" : ("; domain=" + domain)) +
((secure == true) ? "; secure" : "");
}

function DaCooVal(sepcad) {
var fincad = document.cookie.indexOf (";", sepcad);
if (fincad == -1)
fincad = document.cookie.length;
return unescape(document.cookie.substring(sepcad, fincad));
}

function DaCoo(nomcoo) {
var argval = nomcoo + "=";
var arglon = argval.length;
var cadlon = document.cookie.length;
var car = 0;
var sep = 0;
while (car < cadlon) {
var sep = car + arglon;
if (document.cookie.substring(car, sep) == argval)
return DaCooVal (sep);
car = document.cookie.indexOf(" ", car) + 1;
if (car == 0) break;
}
return null;
}

function BorCoo (nomcoo) {
var fincoo = new Date();
fincoo.setTime (fincoo.getTime() - 1); 
var cooval = DaCoo (nomcoo);
document.cookie = nomcoo + "=" + cooval + "; expires=" + fincoo.toGMTString();
}

function VerPtc() {
prc=(ptc*100)
if (prc>0){prc=parseInt(prc/maximo,"10")}
document.frca.tantopor.value= prc+"%"
document.frca.puntos.value= ptc; 
document.frca.total.value= ttl;
cstatus="Hola "+nomusu+", tu puntuación es "+ptc
cstatus=cstatus+" ("+prc+" %) "
cstatus=cstatus+" y estás en el nivel "+niv
window.status=cstatus
}

function GraPtc(){
GraCoo("ptc",ptc)
GraCoo("ttl",ttl)
}

function BorNiv() {
nivusu=0;
ttl=0;
GraCoo("nivel",nivusu,FecFin);
GraCoo("ttl",ttl,FecFin);
document.frca.nivel.value=0;
document.frca.total.value=0;
}


function Ejercicios() {
var cDec="0"
var nombre = document.frca.nombre.value
document.frca.Fichero.value=self.location
//if (nombre != "") {
	if (nivusu >= ultimonivel){
		alert("Has llegado al último nivel. Pulsa [Inicio] para repetir los ejercicios.")
		}
	else {
		if (nivusu >= nivelactual){
			self.location=proximapagina
			}
		}
//}
//else {(PonNom(frca))}
}

function PonNom(){
var nombre = document.forms["frca"].nombre.value
var lnombre=true
if (nombre == "") {nombre="usuario"}
if (nombre != "") {
GraCoo("nivel",0, FecFin)
GraCoo("ptc",0, FecFin)
GraCoo("ttl",0, FecFin)
GraCoo("nombre", nombre, FecFin)
window.history.go(0)
}
else {alert("Es necesario escribir un nombre");lnombre=false}
return (lnombre)
}

function pulsatecla(){
cltr=window.event.keyCode
if (cltr==13){
	PonNom(frca)
	window.event.keyCode=0
	}
}

function GraFec() {
var fecact=new Date();
var diaact=fecact.getDate();
var horact=fecact.getHours();
var minact=fecact.getMinutes();
var mesact=fecact.getMonth()+1;
var anoact=fecact.getYear();
var fecnva=diaact+"/"+mesact+"/"+anoact+"-"+horact+"/"+minact;
document.frca.fecha.value=fecnva
GraCoo("fecha", fecnva, FecFin);
}

function VerNom() {
if(nomusu!=null) {
if (nivelactual==1){
if (nomusu!="usuario"){
alert(" Hola " + nomusu + ". ");
}
}
document.frca.nombre.value=nomusu;
if (nivusu==null) {nivusu=0};
document.frca.nivel.value=nivusu;
if (ttl==null) {ttl=0};
document.frca.total.value=ttl;
GraFec();
}
Ejercicios()
}

function solucion(){
var modslc=false
if (clvstp=="*"){if (hec.length>puntuacionminima){modslc=true}}
else {
	if (clvstp!=""){
		clvusu=prompt("¿Clave del cuestionario?","")
		if (Cfr(5,1,clvusu.toLowerCase())==clvstp){modslc=true}
		}
	else {modslc=true}
	}
if (modslc){
	for (nprgact=1;nprgact<=maximo;++nprgact){
		formact=document.forms[nprgact]
		contact=formact.elements.length-1
		solutot=rpt[nprgact]
		solutot=solutot.substring(1,solutot.length)
		npossep=estaen(solutot,";")
		solutot=solutot.substring(0,npossep)
		soluact=Cfr(nprgact,2,solutot)
		if (formact.elements.length>0){
			if (formact.elements[0].type=="select-one"){
				formact.elements[0].value=soluact
			}
			if (formact.elements[0].type=="radio"){
				formact.elements[soluact-1].checked=true
			}
			if (formact.elements[0].type=="text"){
				formact.elements[0].value=soluact
			}
			if (formact.elements[0].type=="checkbox"){
				nchk=0
				while (nchk<contact){
					if (formact.elements[nchk].type=="checkbox"){
						elemento=formact.elements[nchk]
						cvalele=formact.elements[nchk].value
						if (estaen(soluact,cvalele.toLowerCase())>-1){
							elemento.checked=true
						}
						++nchk
					}
				}
			}
		}
	}
}
else {
if (clvstp=="*"){alert("Contesta primero a todas las preguntas")}
else {alert("Necesitas la clave del cuestionario")}
}
}

function Lista(prg,nIni,nFin) {
var cpo;
var lst="";
if (prg<10){cprg="fr0"+prg}
else {cprg="fr"+prg}
for (cpo=nIni;cpo<=nFin;cpo++){
cmarca="document."+cprg+".op["+cpo+"].checked"
cvalor="document."+cprg+".op["+cpo+"].value"
if (eval(cmarca)==true)
{lst=lst+eval(cvalor)}
}
Respuesta(prg,lst);
}

function Respuesta(prg,ctt) {
var correcto=false
var lnombre=true
if (nomusu==null){
lnombre=PonNom()
}
if (lnombre==false){return (correcto)}
ctt=recorta(ctt)
ctt=";"+Cfr(prg,1,ctt.toLowerCase())+";"
if (rpt[prg].indexOf(ctt)==-1) {
if (!hec[prg]) {
hec[prg] = -1 ;
alert("No es correcto Ptos: " + ptc);
if (ttl>0) {ttl--};
GraPtc();
VerPtc();
}
else {
alert("Ya has contestado a eso. Pulsa el botón [Repetir] para contestar de nuevo. (Deberás repasar las demás preguntas).");
}
}
else {
if (!hec[prg]) {
hec[prg] = -1;
ptc++;
ttl++;
GraPtc();
VerPtc();
alert("Correcto. Ptos: "+ptc);
correcto=true
}
else {
alert("Ya has contestado a eso");
}
}
return (correcto)
}

function VerExp() {
if (confirm("¿Quiéres borrar la puntuación y volver a realizar los ejercicios?")){
BorNiv()
self.location=paginainicial
}
}

function ActPag() {
nhec=hec.length
for (n=0;n<nhec;n++){
	hec[n]=0
}
ptc=0
}

function PasaNivel() {
if (nivusu<ultimonivel){
if (ptc > puntuacionminima) {
alert("¡Muy bien! Has acertado todo.")}
if (ptc >= puntuacionminima) {
alert("¡Enhorabuena!, pasas de nivel")}
if (ptc >= puntuacionminima){
GraCoo("nivel",nivelactual);
GraCoo("ptc",0);
if (nivelactual == ultimonivel){
alert("Has llegado al último nivel")
VerExp()}
else {
self.location=proximapagina}}
else {
alert("Necesitas "+puntuacionminima+" puntos para pasar de nivel")}
}
else {
alert("Has llegado al último nivel")
}
}

function HazQST(){
var ventana
var nTtl=maximo
var contenidos=""
Pregunta[0]=cambiacadena(Pregunta[0],"finscript","</script>")
for (nPre=0;nPre<=nTtl;++nPre){
	contenidos=contenidos+Pregunta[nPre]
}
document.open()
document.write(contenidos)
document.close()
}

function estaen(cad,ter) {
pos=-1
lng=cad.length
lnt=ter.length
for (con=0;con+lnt-1<lng;++con) {
if (cad.substring(con,con+lnt)==ter) {
pos=con
return (pos);
}
}
return (pos);
}

function cambiacadena(pal,ori,des) {
nLp=pal.length
orb=ori
nLo=orb.length
nSd=estaen(pal,orb)
nLo=orb.length
if (nSd>-1){
	pal=pal.substring(0,nSd)+des+pal.substring(nSd+nLo)
	pal=cambiacadena(pal,ori,des)
}
return (pal)
}

function recorta(cadena){
nblc=cadena.indexOf(" ")
if (nblc>-1){
	while (nblc==0){
		nlon=cadena.length
		cadena=cadena.substring(1,nlon)
		nblc=cadena.indexOf(" ")
		}
	nlon=cadena.length-1
	cblc=cadena.substring(nlon,nlon+1)
	while (cblc==" "){
		nlon=cadena.length-1
		cblc=cadena.substring(nlon,nlon+1)
		cadena=cadena.substring(0,nlon)
		nlon=cadena.length-1
		cblc=cadena.substring(nlon,nlon+1)
		}
}
return (cadena)
}

function daazar(valormax) {
  var ahora = new Date()
  var nazar = ahora.getTime() * ahora.getSeconds() * Math.random()
  return Math.round(nazar % valormax)
}