// JavaScript Document

/////////////////////////// zone tabs

var AJAX= new oAJAX("server.php",llegada,infoerror);
var appver='1.0.1';
var init=now(); 
var myses=null; // my session
var oln=-1; // online
var me=null,dest='*',lspn=null;
var zt=null;
var lt=null;
var moreifo=Array();

var thef=Array();
var thes=Array();

var stts= Array('no grato','sin voz','no-registrado','registrado','estrella','super-estrella','disk jockey','cibor','guardian-cibor','guardian','semi-operador','operador','super-operador','guardian-general','admin','super-admin','main-admin','robot','mega-robot','reserved','vigilante');

createzonetabs('ctn_halls','hzclick');

var slph=Array('ph/page01.jpg','ph/page02.jpg','ph/page03.jpg');
var sltx=Array('Ahora unidos en una sola familia, Tu puedes unirte con nosotros hoy mismo...','Contamos con una gran comunidad de cubanos... unidos todos en la comunidad de Fans de Universo...','Ya no estas solo, Universo ha llegado para alegrarte la vida... Si estas con nosotros, estas en todas...');
	
function createzonetabs(pa,cl){ //name, onclick
	zt=create_zone(pa,'hallzone');
	_sa(zt,'oclick',cl);
	addtab(zt,'tbwel','#Sala_Pública');
	tabclick(_go('tbwel'));
}

function addtab(w,i,t,c){
	w=_ob(w); if (c==null) c='tab';
	var to=0, tbo=_chl(w,0,0,0,0,0); if (t==null) t=i;
	var nw=_ce('td'); nw.innerHTML=t; 

	
	_sa(nw,'tab',c);
	nw.onclick=function(){tabclick(this)};
	nw.ondblclick=function(){closetab(this)};
	nw.id=i; _cn(nw,c+'2'); _ac(tbo,nw);
	return nw;
}

function closetab(w){
	var pa=_p1(w,6).id;
	if (w.id=='tbwel') return; 
	var n=_ns(w); if (n==null) n=_ps(w);
	if (n!=null){ tabclick(n);	_rm(w); lookspl(pa)}
}


function tabclick(w){
	var add='';
	var pa=_p1(w,6); var cl=_ga(pa,'oclick');
	var tb=_ga(w,'tab');
	
	if (lt!=null) _cn(lt,tb+'0'); 
	_cn(w,tb+'1');
	
	lt=w; //lspn=spn;
	if (cl!=null) try {	eval(cl+'(w);'); } catch(e){}
	
}

function hzclick(w){
	if (lspn!=null) lspn.innerHTML=_go('wrimain').innerHTML;
	dest=(w.id=='tbwel')?'*':w.id.substr(1);
	var mtr=(dest=='*')?_chl(_go('tbusers'),0,0):_go(dest+"_");
	var spn=_chl(mtr,0,1); 
	_go('wrimain').innerHTML = spn.innerHTML;
	lspn=spn;
	maxscroll();
	_go('txMess').focus(); 
	checkinout();
	putstyle();
}

function create_zone(w,n){ //where , id
	w=_ob(w); //alert(w.id)
	var add='<div id="'+n+'" class="dvzone0"><div class="dvzone1"><div class="dvzone2"><table height="100%" border="0" cellpadding="0" cellspacing="0"><tr></tr></table></div></div><div class="dvle" onclick="leclick(this)" style="display:none"></div><div class="dvri" onclick="riclick(this)" style="display:none"></div></div>';
	w.innerHTML=add;
	return _go(n);
}
	
function riclick(w){ // click a la derecha;
	var dvzh=_p1(w);
	relocate(dvzh,1);	
} 

function leclick(w){ // click a la Izq
	var dvzh=_p1(w);
	relocate(dvzh,-1);
} 
	
function relocate(dvzh,di){ // accion scroll
	var to=0, tr=_chl(dvzh,0,0,0,0,0); //alert(tr.tagName)
	var gz=_chl(dvzh),cc=Array(),gg=0; cc[0]=0;
	for( var cn=0; cn<tr.childNodes.length; ++cn){
		to+=_wi(tr.childNodes[cn]);	cc[cn]=to;
		if ((to-20)>gz.scrollLeft){
			if (di==1){	gg=cn; break;
			}  else { gg=cn-2; break;}
	}}
	gz.scrollLeft=cc[gg]-20;
	lookspl(dvzh);
}

function lookspl(dvzh){ // mirar si necesita scroll
	dvzh=_ob(dvzh);	var gz=_chl(dvzh);
	if ((_wi(gz)+gz.scrollLeft)>=_ws(gz)) _dp('none',_chl(dvzh,2));
	else _dp('',_chl(dvzh,2));
	
	if (gz.scrollLeft<=0) _dp('none',_chl(dvzh,1)); else 
	_dp('',_chl(dvzh,1));
}	


////////////////////////////////////////////////////////////////////////////////////////////

/*for (t=1; t<40; t++){
	insertuser('user=user'+t);
}*/

 function clinkk(tx) {  
 	var aa="http://"+tx
	
	switch(tx){
	case "qvanos.net":	
	return stdimg('q.png',14,14);
	break;
	/*case "PrecioCubano.com":	
	return ', web amiga: <a href="'+aa+'" target="_blank">www.'+aa+'</a>';
	break;*/
	}
 }  


function enteruser(w,frn){
	
	//alert(w);
	//alert(clinkk(frm));
	var i=_sp(w);	
	var nu=insertuser(w);
	_dp('',nu);
	var us=formate(i,3);
	if (i.stt==0) us+="<a class=\"system\"> <i>como: </i> <b>USERBAN</b>"+i.id+" motivo: ["+i.note+"]</a>";
	if (frn.trim()!='') us+=" "+clinkk(frn)+"";
	//alert(moreifo[i.user])
	if (moreifo[i.user]){
		us+=" ["+moreifo[i.user]+"]";
		delete(moreifo[i.user]);
	}
	
	if (i.stt>0 || (i.stt==0 && me.priv&64==64)){
		var tx='<a class="enter">*** ENTRA: </a>'+us+'<br>';
		writetxt('*',tx);
	}

	checkinout();
	
}

function listuser(w){
	var iu=insertuser(w);
	_dp('',iu);
}

function now(){
	return new Date().getTime()	
}

function changepriv(w){
	var i=_sp(w);
	
	var ni=i.user+"_";
	
	if(nu=_go(ni)){
		var oi=_sp(_ga(nu,'data'));
		insertuser(w);
		var ad=(oi['stt']!=i['stt'])?"cambia estado ["+stts[i.stt]+"] ":"modifica privilegios";
		var tx='<a class="stt'+i.stt+'">*** <b>'+i.oper+'</b> '+ad+' a <b>'+i.user+"</b>...";
		
		tx+="<br>";
		if (i.user==me.user) retock(i);
		writetxt('*',tx);
	}
}


function reloaduser(w){
	var i=_sp(w);	
	var ni=i.user+"_";
	if(nu=_go(ni)){
		insertuser(w);
		var tx='<a class="system">*** <b>'+i.oper+'</b> Modifica perfil de <b>'+i.user+"</b>...<br>";
		if (i.user==me.user) retock(i);
		writetxt('*',tx);
	}
}

function reloaduser2(w){
	var i=_sp(w);	
	var ni=i.user+"_";
	if(nu=_go(ni)){
		insertuser(w);
		var tx='<a class="system">*** <b>'+i.oper+'</b> Modifica Los Pts ('+i.ttim+') de <b>'+i.user+"</b>...<br>";
		if (i.user==me.user) retock(i);
		writetxt('*',tx);
	}
}

function formate(i,c){
	var re='<a class="stt'+i.stt+'" onclick="putnick(\''+i.user+'\');"><b>'+i.user+'</b></a>';
	if ((c&4)==4) re='<span class="us01 stt'+i.stt+'" onclick="putnick(\''+i.user+'\');">'+i.user+'</span>';
	if ((c&1)==1) re=stdimg('s'+i.sex+i.stt.toLowerCase()+'.gif',14,16)+re;
	var co=i.cou.split(":");
	if ((c&2)==2) re+=" ["+stts[i.stt]+"] ";
	if ((c&2)==2) re+='Puntos: <b>'+i.ttim+'</b>, <i>desde:</i> '+stdimg('fl/'+co[1].toLowerCase()+'.png',16,11)+' '+co[0]+', <i>con: </i>'+stdimg(i.nav+'.gif',14,14)+" "+navType[i.nav]+"";
	return re;
}

function putnick(w){
	if (oln==1){
		if (_gv('txMess')!='') w=" "+w
		_go('txMess').value+=w+" ";	
		_go('txMess').focus();
	}
}

function info(i){
	var re=' <a class="stt'+i.stt+' lev'+i.lev+'"><b>'+i.user+'</b></a> [ ';
	re=stdimg('s'+i.sex+i.stt.toLowerCase()+'.gif',14,16)+re;
	var co=i.cou.split(":");
	re+= stdimg('fl/'+co[1].toLowerCase()+'.png',16,11)+ co[0]+' ] <i>nav:</i> ' + stdimg(i.nav+'.gif',14,14);
	return re;
}

function stdimg(s,w,h){
	return '<img src="im/'+s+'" align="absmiddle" width="'+w+'" height="'+h+'" /> ';
}

	function insertuser(w){
		
		//alert(w)
		var i=_sp(w);
		var co=i.cou.split(":");
		var ni=i.user+"_";
		var nu=null;
		nu=_go(ni);
		//alert(ni + " " +nu)
		var tu=_chl(_go('tbusers'),0,0);
		if (nu==null){
			
			nu=tu.cloneNode(T);
			_chl(nu,0,1).innerHTML='';
			
		}
		
		
		
		nu.id=ni; //_sa(nu,'id',ni)
		_sa(nu,'lki',now());
		nu.onmousedown=function(e){submenu(e,nu)}
		_sa(nu,'data',w);
		for (it in i) if (it!='id') _sa(nu,it,i[it]);
				
		//_dp('',nu);
		var tus=(i.stt==0)?('USERBAN'+i.id):i.user
		_ih(_chl(nu,1),tus); //caption
		
		_chl(nu,0,0).src='im/fl/'+co[1].toLowerCase()+".png"; // bandera
		_chl(nu,2,0).src='im/s'+i.sex+i.stt.toLowerCase()+".gif"; // sexo
		_chl(nu,3,0).src='im/'+i.nav+".gif"; // navigator
		_cn(_chl(nu,1),"us01 star"+i.lev+" stt"+i.stt); // estrellas
		
		
		var bef=reu(_p1(tu),i); // reubicar
		if (bef==null) _ac(_p1(tu),nu);
		else _ib(_p1(tu),nu,bef);
		
		seethetotal();
		return nu;
		
	}	
	
	function seethetotal(){
		var tu=_chl(_go('tbusers'),0,0);
		var c=0;
		do {
			if (_gdp(tu)!='none') c++;
			tu=_ns(tu);
		} while(tu!=null)
		_ih('maxconn',c);
	}
	
	function reu(p,u){
		var un=u.user.toLowerCase();
		var su=parseInt(u.stt);
		var be=_chl(p,0);
		be=_ns(be);
		while (be!=null){
			var us=_ga(be,'user').toLowerCase();
			if (us!=un){	
				var st=parseInt(_ga(be,'stt'));
				if (st<su) break;
				else if (st==su) if (us>un) break;			
			}
			be=_ns(be);
		} return be;
	}
	

////////////////////////////////////////////////////////////////////////////////////////////

function serverinuse(){
	if (confirm('La session esta abierta, si termina esta session puede que desconecte algun otro usuario en la pc, desea terminar la session?')){
		//alert(1);
		addinfo('a=endsession&q=1',1,0)
	}	
}
function server_conected(){
	//alert('conectado');
	if(ss=_gcv('val')){}else{ss=myses;_scv('val',ss);}
	_di(F,'txUs','txPw','txSx','btLg')
	oln=0; // 0 es conectado al menos
	
	facebook();
	//radio()
	
}

function radioped(){
	_ih('showDET','<br><table width="100%" border="0" cellspacing="3" cellpadding="0"><tr><td align="right" valign="top">T&iacute;tulo/Tema:</td><td><textarea name="pwrant" cols="15" id="pwrant"></textarea></td></tr><tr><td align="right">Dedicado a:</td><td><input name="pwrnew" type="password" id="pwrnew" size="20" maxlength="20" ></td></tr><tr><td height="37" align="right">&nbsp;</td><td><input type="submit" name="pwrbut" id="pwrbut" value="Enviar peticion"  onClick="sendpet();"></td></tr><tr><td colspan="2" align="right" id="profmess">&nbsp;</td></tr></table>');
	_ih('ShowTIT','Petici&oacute;n de M&uacute;sica:');	_dp('','dvMenu2');
}

function sendpet(){
	_dp('none','dvMenu2');
}

function radio(w){
	var s1 = new SWFObject("player.swf","ply","328","20","9","#FFFFFF");
	s1.addParam("allowfullscreen","true");
	s1.addParam("allowscriptaccess","always");
	s1.addParam("flashvars","file=http://"+w+"/;stream.nsv&type=mp3&volume=50&autostart=false");
	s1.write("dvradio");
	//alert(w);
}

function usrLogin(){ // evn: btLg_click
	var us=_gv('txUs');
	if (us.length>3){
		if (isv(us)==true){
			var tx=_pv('txUs','txPw','txSx','myses');
			//alert(tx)
			addinfo("a=login&"+tx,1);
			_di(T,'txUs','txPw','txSx','btLg');
			_vi('visible','tracc');
		} else alert('El nombre de usuario no es válido');
	} else alert('El usuario debe tener al menos 4 letras...');
}

var lki=0;
var da=null;
function loginok(w,w1){
	
	//alert("welcome: "+w1);
	me=_sp(w); oln=1;
	da=_sp(w1);
	lki=now();
	//alert(lki);

	_dp('','usersbar','toolbar','messbar');
	_dp('none','presstb');
	opacto(_go('wrilogin'),9,0, function(){_dp('none','wrilogin');});
	_vi('hidden','tracc');
	_scv('luser',me.user);
	retock(me);
	
	
}


function loginerror(){
	alert('Error en contrasena de usuario...');
	_di(F,'txUs','txPw','txSx','btLg')	
	_vi('hidden','tracc');
	
		
}
//////////////////////////////////////////////// ********************************

function privuser(o){
	var us=_ga(o,'user');
	if (us==me.user) return;
	var ex=_go("_"+us);
	if (ex==null) ex=addtab(zt,"_"+us,us);
	tabclick(ex);
	_go('txMess').focus();
	//alert(_ga(o,'user'));
}


///////////////////////////////////////////////

function credits(cr){
	cr='<a class="system">*** '+cr+'</a>';
	writetxt('*',cr);
}

function topic(tp){

	tp='<a class="system">*** <b>TOPIC: </b>'+tp+'</a>';
	writetxt('*',tp);
}

function isv(w){
	//return T;
	if (w.match(/^([A-Za-z0-9_]{4,20})+$/)){
	 try{
		eval("var "+w+"=1;");
		return T;
	}catch(e){}
	} return F;
		
}

function unkw(q){// desconozco
	if (q!='') alert('Comando desconocido: '+q);
}

function otheru(){
	
	_dp('','txUs');
	_ih('luser','');
	_vi('hidden','troth');	
}

//////////////////////////////////////////////////////

var txb=0, txi=0, txu=0, txc=0,txg='0000';
function textt(o,w){
	
	var q=_ga(o,'check');
	q=(q==1)?0:1; _sa(o,'check',q);
	if (q==1) _cn(o,'seltoolbut'); else _cn(o,'toolbut');
	switch(w){
		case 0: txb=q; break;
		case 1:	txi=q; break;
		case 2:	txu=q; break;
	}
	_go('txMess').focus();
	putstyle();
}

function putstyle(){
	
	var cn='', w='';
	if (dest!='*')	w=_ga("_"+dest,'write');
	if (txb==1) cn='tb ';if (txi==1) cn+='ti ';if (txu==1) cn+='tu ';
	if (txc!=0) cn+='tx'+txc;
	if (w=='1') cn+=" write";
	_cn('txMess',cn)	
	txg=txb+''+txi+''+txu+''+txc;
}

function gift(w){
	var i=_sp(w)
	 var tx='<table width="100%" class="tbtgt"><tr><td><img src="im/gt/'+gifts[i.nro][0]+'"></td><td><b>'+i.to+"</b>: "+gifts[i.nro][1]+' firma: <b>'+i.from +'</b></td></tr></table>';
	 writetxt(i.dest,tx); 
	 me['ttim']=parseInt(me['ttim'])-parseInt(i.price);

}

var seldv=null;
var selim=null;
var seldvf=null;
var selimf=null;


//var selim=null;

var fsi=0;

function showemot(o){
	
	selim=o;
	seldv=_go('dvicons')
	var emo=_chl(seldv);
	if (fsi==0) { _ih(emo,createemot()); fsi=1; }
	_cn(o,'emosel');
	_dp('',seldv);
}

function showfiles(o,f){
	
	if (selimf==o && f!=T) return;
	selimf=o;
	seldvf=_go('dvfiles')
	var emo=_chl(seldvf);
	//alert(emo.tagName)
	 _ih(emo,createfiles()); 
	_cn(o,'emosel');
	_dp('',seldvf);
}


function createemot(){
	var wr='<table cellspacing="5"><tr>';
	for (var t=65;t<65+24;++t){
		if ((t-1)%4==0)wr+="</tr><tr>"
		var r=String.fromCharCode(t).toLowerCase();
		wr+='<td><img style="cursor:pointer;" onclick="selemot(\''+r+'\')" src="im/em/i'+r+'.gif" /></td>'
	} wr+="</tr></table>";	
	return wr;
}

function createfiles(){
	var t=0;
	var wr='<form id="sendf" name="sendf" action="upload.php" enctype="multipart/form-data" method="post"><table cellspacing="1" width="98%"><tr><td colspan="2" height="25"><span class="attach1" ><b class="adjunt">adjuntar...</b><img src="im/files.gif" width="22" height="22" align="absmiddle"></span><input fil="1" class="attach0" type="file" name="asfiles" fil="1" id="asfiles" onchange="lookthef(this);">&nbsp;</td></tr>';
	var tt=0;
	for ( t=0;t<thef.length;++t){
		if (parseInt(thes[t])>-1){
			//alert(thes[t])
			var del=thes[t]==0?'im/wait5.gif':'im/del.gif';
			var href=thes[t]==0?'':'class="myblue" href="javascript:sendtfile(\''+thef[t]+'\')"';
			wr+='<tr><td> &nbsp;<img width="14" height="14" src="im/efil.gif" align="absmiddle"> <a '+href+'>'+thef[t]+'</a></td><td width="1"><img width="12" heigth="12" src="'+del+'" fil="1" onclick="delfile(\''+thef[t]+'\')"></td></tr>'
			tt++;
		}
	}
	var inte=(tt!=0)?'':'<tr><td> &nbsp; &nbsp;<i class="grey">(vacio)</i></td></tr>'
	wr+=inte+"</table></form>";	
	return wr;
}

function delfile(w){
	if(confirm("¿Seguro que desea eliminar el fichero "+w+"?") == true){
		var otx="a=delfile&f="+w;
		addinfo(otx);         
    }
}

var fu=0;
function lookthef(w){
	
	//alert(1)
	/* if (w.files)
    src = w.files.item(0).getAsText("").length;//src = w.files.item(0).getAsDataURL();*/
	if (me==null || oln==0) return;	 
	var tf=w.value.split("\\");
	var fi=tf[tf.length-1];
	
	
	for(var t=0; t<thef.length;++t){
		if (thef[t].toLowerCase()==fi.toLowerCase())	return;
	}
	
	thef.unshift(fi)
	thes.unshift('0');
		
	//
	//alert(w.value)
	sendfile();
	
}

function sendfile(){
	
	
	fu++;
	var md='fupload'+fu;
	var fr=null;
	try{
	fr=_ce('<IFRAME name="'+md+'">');	
	} catch(e){
	fr=_ce('IFRAME');
	}
	
	fr.id=md;
	fr.name=md;
	_dp('none',fr);
	_ac(document,fr);
	var frm=_go('sendf');
	frm.target=md;
	frm.submit();	
	//
	//setTimeout('sfiles()',200);
	sfiles();
	
	}
	
	function sfiles(){
		showfiles(_go('q1111'),T);
	}

function sendtfile(w){ // enviar en file

	if (me.stt>1){
		var otx="a=sendfile&f="+w+"&dest="+dest;
		addinfo(otx);         
		_dp('none',seldvf,'dvcontmnu'); selimf=null;
		var don=(dest=="*")?"(SALA)":dest;
		var tx='<a class="system">*** Ha enviado el fichero <b class="myblue">'+w+'</b> al usuario <b>'+don+'</b>... ';
		if ((me.priv & 64) != 64 && dest=='*') tx+="<i>( Es posible que no tenga privilegios para enviar ficheros a la sala, debe esperar a que un operador lo apruebe para que se haga visible a todos...)</i>";
	} else { tx='<a class="system">*** No se pudo enviar el fichero...</a>';}
	tx+="<br>";
	writetxt(dest,tx);
	
}

function filesendto(w){
	var i=_sp(w);
	//alert(w)
	var ms='<b>'+i.fr+'</b> envia el fichero <a href="download.php?au='+i.au+'" target="_blank" class="myblue">'+stdimg('fil.png',13,14)+i.f+'</a>';	
	var al=null;
	
	if (al=_go(i.fr+"_")){
		var di=_sp(_ga(al,'data'));
		if (i.dest=='*'){
			if ((di.priv & 64) == 64) {
				
			} else if ((me.priv & 64) == 64 ) {
				ms+='<i> (el contenido de este fichero puede ser no deseado, verif&iacute;quelo antes de aprobar para que se haga p&uacute;blico) </i> <b onclick="fileaprobe(\''+w+'\')" class="myblue">(aprobar)</b>';
			} else ms='';
		} else {
	
		}
		
		if (ms!=''){
		 var tx='<span class="system">*** '+ms+'</span><br>';
		 needtab(i)
		 writetxt(i.dest,tx,i.fr);
		}
	}
	
}

function fileaprobe(w){
	//alert('aprobando: '+w)	;
	
	if(confirm("¿Seguro que desea aprobar el fichero?") == true){
		var i=_sp(w);
		var otx="a=aprobfile&f="+i.f+"&dest=*&u="+i.fr+"&au="+i.au;
		addinfo(otx);  
	}
}

function fileaprobed(w){
	var i=_sp(w);
	
	var al=null;
	//alert(w)
	if (al=_go(i.ap+"_")){
		var ii=_sp(_ga(al,'data'));
		if (ii.priv&64 == 64){
			
			//var op=_sp(_ga(_go(i.u+"_"),'data'));
		var ms='<b>'+i.u+'</b> envia el fichero  <a href="download.php?au='+i.au+'" target="_blank" class="myblue">'+stdimg('fil.png',13,14)+i.f+'</a> aprobado por: <b>'+i.ap+'</b>';	
			 var tx='<span class="system">*** '+ms+'</span><br>';
		
		 	writetxt('*',tx);
		}
	}
}

function filerecived(n,s){ 

	for(var t=0; t<thef.length;++t){
		if (thef[t].toLowerCase()==n.toLowerCase()){
			thes[t]=s; 
			sfiles();
			break;
		}
	}
	
}

function selemot(w){
	_go('txMess').value=_gv('txMess')+"{"+w+"}";
	//alert(w)	
}




function showpalete(){
	_dp('','tbcolor');
}


//////////////////////////////////////////////////////

var msg='';

function sendtxt(){
	wo=F;
	if (me==null) return false;
	var tm=_gv('txMess').trim();
	if (tm!='' && (me.stt>1 || tm.substr(0,3)=='Sho')){
		msg=encodeURI(tm.encodeHTML())
		_go('txMess').value='';
		if (dest!='*') {
			playsound(1);
			
		}
		var tx=_pv('msg','txg','dest');
		var otx="a=themess&fr="+me.user+"&"+tx+"&itv="+intval();
		addinfo(otx);
		createtxt(otx);
	}
	
	//putstyle();
	return false;
	
}

function intval(){return parseInt((now()-init)/100);}

function force_disconect(){ // sesion cerrada;
//alert('wooooooooooowwwww');
	discall();
}

function noanswer(){
	var ad='', nr='';
	var tt=noanswer.arguments.length;
	 for (var i=0; i<tt; i++){	
	 	var us=noanswer.arguments[i];
	 		nr+=(nr=='')?'':', ';
			nr+=us;
			_dp('none',us+"_");
	 } 
	 if (tt>1) ad="n";
	 var tx='<a class="gray">*** SALE'+ad.toUpperCase()+" <b>"+nr+"</b> (<i>no responde"+ad+"</i>)</a><br>";
	 seethetotal();
	 writetxt('*',tx);
	 checkinout();
	 
}

function checkinout(){ // para los tabs
	
	 var ssbn=_chl(zt,0,0,0,0,0).cells;
	
	
	for (var t=1; t<ssbn.length; ++t){
		var cl='tab0';
		 var ust=ssbn[t];
		 if (lt==ust) cl="tab1";
		 var mi=_go(ust.id.substr(1)+"_");
		 
		 if (mi!=null){ if (_gdp(mi)!='') cl+=" gray";} else cl+=" gray";
		 if (_gcn(ust)!=cl && _gcn(ust)!='tab2') _cn(ust,cl);
		 
	 }
}

function updateuser(w){
	var i=_sp(w);
	var ni=i.user+"_";
	insertuser(w);
	if (i.user==me.user) retock(i);
}

//*** ERROR: exituser('oper=Radio_Reloj&tag=0&user=Radio_Reloj&motiv=termina sesion');
function exituser(us){
	
	var i=_sp(us), ms='';
	us=i.user;
	switch(i.tag){
		case '1':	ms='expulsa'; break;
		case '2':	ms='banea'; break;
		
	}
	var mo=decodeURI(i.motiv.decodeHTML());
	if (i.tag!='0')
	 var tx='<a class="system">*** <b>'+i.oper+'</b> '+ms+' a '+us+' [motivo: <i>'+mo+'</i> ]<br>';
	else 
	 var tx='<a class="gray">*** SALE <b>'+us+'</b> (<i>'+mo+'</i>)</a><br>';
	var us_ = _go(us+"_");
	
	if (_gdp(us_)==''){
		if (parseInt(_ga(us_,'stt'))>0)	writetxt('*',tx);
	 	_dp('none',us+"_");
		
		//alert(us+"<->"+me.user)
		 if (us==me.user){
			 alert(i.oper+' te ' +ms+ ' del chat ['+mo+']');
			 discall();
		 }
		 checkinout();
	 	seethetotal();
	}

}

function discall(){ 
	ifo='';
	oln=0;
	me=null;
	deleteallu();
	_dp('','wrilogin');
	opacto(_go('wrilogin'),1,10);
	_di(F,'txUs','txPw','txSx','btLg')	
}

function deleteallu(){
	var tu=_chl(_go('tbusers'),0,0);
	var nw=_ns(tu), ns=null;
	do {
		ns=_ns(nw);	
		_rm(nw);
	} while (nw=ns);
}

function textarrived(tx){
	var i=_sp(tx);
	needtab(i)
	if (i.fr!=me.user){
		createtxt(tx);
	}
}

function needtab(i){
	if (i.dest==me.user) {	
		var pv=null;
		pv=_go("_"+i.fr);
		if (pv==null) {
			var ufr=_go(i.fr+"_");
			var da=_ga(ufr,'data');
			var q=_sp(da);
			if (varnopv=='1' && (q.priv&64)!=64) addinfo('a=nopriv&dest='+i.fr);							
			else {
				playsound(3);
				pv=addtab(zt,"_"+i.fr,i.fr);
			}
		}
		
	}
}

function nopriv(w){
	
	var i=_sp(w);
	var tx='<a class="system">*** <b>'+i.fr+'</b> no admite PRIVADOS en este momento...<br>';
	//alert(i.fr)
	writetxt(i.fr,tx);
}

function moreinfo(w){
	var i=_sp(w);
	var tx='<a class="system">'+decodeURI(i.info.decodeHTML())+'</a>';
	
	moreifo[i.us]=tx;
	//alert(i.us + "<--->" +moreifo[i.us])
}

function createtxt(otx){
	var i=_sp(otx), a1='', a2='';
	var mc='';if (varformat=='1') mc=getclass(i.txg); else i.msg=i.msg.toLowerCase();
	var ufr = null;
	if (mc!='') { a1='<a class="'+mc+'">';a2="</a>";}
	var msg=decodeURI(i.msg.decodeHTML());
	msg=menc(msg);	msg=emot(msg);
	ufr=_go(i.fr+"_");
	if (ufr!=null){
		var da=_ga(ufr,'data');
		var q=_sp(da);
		if (q.stt>1 && _gdp(ufr)==''){
			var frm=formate(q,5); //alert(frm);
			var tx=frm+'&raquo;&nbsp;'+settime()+a1 + msg+ a2;
			if (i.dest!="*"){
				playsound(2);
				if (i.fr!=me.user){
					//alert(i.fr)
					_sa("_"+i.fr,'write','');
					putstyle();
				}
			}
			if (q.stt>1) writetxt(i.dest,tx,i.fr); /////////////
			
		}
	}
}

function menc(msg){
	if (msg.toLowerCase().indexOf(me.user.toLowerCase())!=-1){
		eval("var r=/"+me.user+"/g");
		msg=msg.replace(r,'<b>'+me.user+'</b>');
		msg=stdimg('menc.png',34,15)+msg;
		playsound(0);
	}
	return msg;	
}


function settime(){
	var lmn=_ga(lspn,'ltm');

	var dt=new Date();
	var tt= ((dt.getMinutes()<10)?'0':'')+dt.getMinutes()
	var ti= (dt.getHours()%12)+":"+tt
	if (tt!=lmn){
		_sa(lspn,'ltm',tt);
		return "<label>["+ti+"] </label>";
		
		
		
	} 
	return '';
}

function showsub(e){
	//alert(e)
	return false;
}

function emot(m){
	for (var t=65;t<65+24;++t){
		var ch=String.fromCharCode(t).toLowerCase();
		eval("var r=/\{"+ch+"\}/g");
		var gf='<img src="im/em/i'+ch+'.gif" align="absmiddle" />';
		m=m.replace(r,gf);
	}
	return m;
}
	
function getclass(xg){
	var cn='';
	if (xg.charAt(0)!='0') cn='tb ';
	if (xg.charAt(1)!='0') cn+='ti ';
	if (xg.charAt(2)!='0') cn+='tu ';
	if (xg.charAt(3)!='0') cn+='tx'+xg.charAt(3);
	return cn;
}

function writetxt(to,tx,fr){
	if (fr==null) fr=to;
	var ds=null,q=null, dst=null;
	if (to==dest || (to==me.user && dest==fr)){
		ds=_go('wrimain');
	} else {
		if (to=='*') dst=_chl(_go('tbusers'),0,0);
		else { dst=_go(fr+"_");	}
		ds=_chl(dst,0,1);
		var ths=_go("_"+fr);
		if (ths!=null) { //////////////////////////////////////////
			if (_ga(ths,'user')!=dest && to!='*')
			_cn(ths,'tab2');
			//alert(sel);
		}
	}
	
	//alert(fr+ " " +dst.tagName)
	while(ds.innerHTML.length>40000){
		_rm(_chl(ds));
	}
	var ms=_ce('div');
	_ih(ms,tx);
	_ac(ds,ms);
	
	
	maxscroll();
}

function maxscroll(){
	var gz=_go('wriscroll');
	gz.scrollTop=gz.scrollHeight+1;
}
////////////////////////////////////////////////////////

window.onresize=function() {lookspl('hallzone') }
window.onload=function() {lookspl('hallzone') }



window.onunload=function(){
	//alert('adios');
	if (oln>0)	addinfo('a=exitapp&q=1',1,0);
}


function closemnmnu(){
	_dp('none','dvcontmnu');
}

//document.onmousedown=function(e){submenu(e,null)}

var ro=null;
function submenu(e,o){
		
		//alert(_ga(o,'data'))
		prf=null;
		ro=_sp(_ga(o,'data'));
		sel=ro.user;
		e=_ez(e);
		var t=(e.which)?e.which:e.button;
		if (t!=1){
			var cm=_go('dvcontmnu');
			_dp('',cm);
			writeprop(cm,ro);
			var x=e.clientX, y=e.clientY;
			
			var px=x-_wi(cm);var py=y;
			
			if ((py+_he(cm))>document.body.scrollHeight)	{
				py-=_he(cm);	
			} if (px<0){
				px+=_wi(cm);	
			}
			
			cm.style.left=px+'px';
			cm.style.top=py+'px';
			
		}
}

function writeprop(cm,i){ // poner en cm lo que se quiere de o
	
	
	var us=info(i);
	
	var str=us+"<hr>";
	
	var ce=(me.priv==255)?6:3;
	var d=((me.priv & 32)==32)?'':'disabled'
	var d1=((me.priv & 128)==128)?'':'disabled'
	
	str+=' &nbsp; Sexo: <select name="thesex" id="thesex" '+d+'><option value="M" '+((i.sex=='M')?'Selected':'')+'>M</option><option value="F" '+((i.sex=='F')?'Selected':'')+'>F</option></select>';
	
	str+=' &nbsp;Estrellas: <select name="mstar" id="mstar" '+d+'>';
	for(var t=0; t<ce;++t){	ck=(i.lev==t)?'Selected':'';str+='<option value="'+t+'" '+ck+'>'+t+'</option>';}
	
	str+='</select> &nbsp; <input type="button" value="Ok !" onClick="changesas();" '+d+'><hr> ';
	
	if(d1==''){
		var p=128;
		str+=" &nbsp; Privileg: ";
		for(var t=0; t<8;++t){
			var ck=((p & i.priv)==p)?'checked':'';
			str+='<input class="chb" type="checkbox" id="chchk'+t+'" '+d1+' '+ck+'/>';
			p=p/2;
		}	
		str+='<br>  &nbsp; Status: &nbsp; <select name="thestt" id="thestt" '+d1+'>';
		var lgt=(me.priv&128)==128?stts.length:10;
		for(var t=0; t<lgt;++t){
			var ck=(i.stt==t)?'Selected':'';
			str+='<option value="'+t+'" '+ck+'>'+stts[t]+'</option>';
		}
		str+='</select> &nbsp; <input type="button" value="Ok !" onClick="changeattr();" '+d1+'><hr>';
		
	} if ((me.priv&2)==2){
		str+='<textarea name="motiv" cols="24" id="motiv" >No Molestes a los dem&aacute;s</textarea><hr>';
		str+=' <img src="im/voz.png" alt="Voz" onClick="doit(0);" >';
		str+=' <img src="im/sac.png" alt="Sacar" onClick="doit(1);" >';
		str+=' <img src="im/ban.png" alt="Banear" onClick="doit(2);" >';
		str+=' <img src="im/unban.png" alt="UnBan" onClick="doit(3);" ><hr>';
	}	if ((me.priv&1)==1){
		str+=' ip: <b>'+long2ip(i.ip)+'</b> &nbsp; &nbsp; &nbsp;</b> <hr>';
		if (i.stt==0) 
		str+=' &nbsp;Motivo: <b>'+i.note+'</b> <hr>';
	}
	str+=' &nbsp;&#167;: <b>'+i.ttim+'</b> <hr>';
	if ((me.priv&255)==255){
	str+=' &nbsp;Pts:<input  name="ttim" id="ttim" value="'+i.ttim+'">';
   str+='</select> &nbsp; <input type="button" value="Ok !" onClick="changesas2();" '+d+'>';
	} 
	//str+=' &nbsp; <a href="javascript:lookperf()">Ver perfil completo...</a>';
	//alert(str)
	_ih('dvmainmnu',str);
}

function unmark(w){
	var i=_sp(w);	
	insertuser(w);
	var tx='<a class="system">*** <b>'+i.oper+'</b> Admite a <b>'+i.user+"</b> como usuario normal...<br>";
	if (i.user==me.user) retock(i);
	writetxt('*',tx);
}

function unmark2(w){
	var i=_sp(w);	
	insertuser(w);
	var tx='<a class="system">*** <b>'+i.oper+'</b> Kita voz a <b>'+i.user+"</b> <br>";
	if (i.user==me.user) retock(i);
	writetxt('*',tx);
}

function retock(w){
	me=w;
	_ih('theuname',me.user);
}

var tag=null
function doit(w){
	tag=w;
	var st=_pv('sel','tag')+"&motiv="+encodeURI(_gv('motiv').trim().encodeHTML());	
	addinfo('a=adminact&'+st);
	_dp('none','dvcontmnu'); 
}

var sum=0;
var sel = null;

function changeattr(){
	var p=1; sum=0;
	
	for(var t=7; t>=0;--t){	var ck=_go('chchk'+t);	if(ck.checked==true) sum=sum+p; p+=p;	}	
	var st=_pv('sel','sum','thestt');
	addinfo('a=changeattr&'+st);
	_dp('none','dvcontmnu'); 
}


function changesas(){
	//sel=ro.user;
	var st=_pv('sel','mstar','thesex');
	addinfo('a=changesas&'+st);
	_dp('none','dvcontmnu'); 
}

function changesas2(){
	//sel=ro.user;
	var st=_pv('sel','ttim');
	addinfo('a=changesas2&'+st);
	_dp('none','dvcontmnu'); 
}


var prf=null;

document.onclick=function(e) {
	//
	e=_ez(e); var m=_os(e),o=_p1(m); 
	
	
	if(o==null) return;
	
	if(o.id!='showthemenu') _dp('none','showMNU');
	
	if (selim!=null && selim!=o){
	
		_cn(selim,'toolbut');
		_dp('none',seldv,'dvcontmnu'); selim=null;
	}
	

	if (selimf!=null) if (selimf!=o && _ga(m,'fil')!=1){// && selimf.id!='q1111'){
		_cn(selimf,'toolbut');
		_dp('none',seldvf,'dvcontmnu'); selimf=null;
	}

	if (_chl(o)!=_go('showpal')) _dp('none','tbcolor');

	if(o.tagName=='TR') o=_chl(o); // para mozilla

	var a=_ga(o,'model');
	
	if (a!=null){
		
		txc=a;
		_cn(_go('setcolor'),'tcol'+a);
		putstyle();
		
	}
	
	
	if (prf!=null){ // perfil 
	//alert(o.id);
		if (_chl(o)!=_go('dvmainmnu') && o!=_go('dvmainmnu')) _dp('none','dvcontmnu'); 
		prf=null;
	} else {
		prf=1;
	}
	
	
	
}


function checktimer(){
	if (oln==1){
	_ih('thetim',mycount())
		
	}
}

function mycount(){
	if (me!=null) {
		try {
			var ntim=now();
			return parseInt(parseInt(me['ttim'])+(ntim-lki)/1000); 
		}catch(e){
			return parseInt(parseInt(me['ttim'])); 
		}
	} else return 0;
}

var varnopv=(_gcv('nopv'))?_gcv('nopv'):'0'; if (varnopv=='1'){  _cn('tdnopv','chk'); _sa('tdnopv','chk','1');}
var varnosound=(_gcv('sound'))?_gcv('sound'):'0'; if (varnosound=='1'){ _cn('tdnosound','separ chk');_sa('tdnosound','chk','1');}
var varformat=(_gcv('format'))?_gcv('format'):'0'; if (varformat=='1'){ _cn('tdformat','separ chk');_sa('tdformat','chk','1');}
var thefast=4;

function mnuclick(w){
	
	var ele=parseInt(_ga(w,'ele'));
	var add='';
	var nv=(_ga(w,'chk')=='1')?'0':'1';
	switch(ele){
		case 0: // ver perfil
			_ih('showDET','<br><table width="100%" border="0" cellspacing="3" cellpadding="0"><tr><td align="right">Anterior:</td><td><input name="pwrant" type="password" id="pwrant" size="15" maxlength="20" ></td></tr><tr><td align="right">Nueva clave:</td><td><input name="pwrnew" type="password" id="pwrnew" size="15" maxlength="20" ></td></tr><tr><td align="right">Repetir:</td><td><input name="pwrnew1" type="password" id="pwrnew1" size="15" maxlength="20" ></td></tr><tr><td height="37" align="right">&nbsp;</td><td><input type="submit" name="pwrbut" id="pwrbut" value="Enviar cambios"  onClick="sendprof();"></td></tr><tr><td colspan="2" align="right" id="profmess">&nbsp;</td></tr></table>');
			_ih('ShowTIT','Cambiar clave');	_dp('','dvMenu2');
			if (me.stt<3) { _di(T,'pwrant'); }
		break;
		case 10:
		_ih('showDET','<br><table width="100%" border="0" cellspacing="3" cellpadding="0"><tr><td align="right">Sexo:</td><td><select name="datasex" id="datasex"><option value="M">Masc</option><option value="F">Fem</option></select></td></tr><tr><td align="right">Email:</td><td><input name="datamail" type="text" id="datamail" size="20" maxlength="20" ></td></tr><tr><td height="37" align="right">&nbsp;</td><td><input type="submit" name="pwrbut" id="pwrbut" value="Enviar Datos"  onClick="sendmydata();"></td></tr><tr><td colspan="2" align="right" id="profmess">&nbsp;</td></tr></table>');
			_ih('ShowTIT','Datos de Usuario');
			_go('datasex').value=me.sex;
			if (me.ref==1 ) _di(T,'datamail');
			 _dp('','dvMenu2');
			
		
		break;
		
		case 1:
			varnopv=nv;
			if (nv==1) add="chk";
			_cn(w,add);
			_scv('nopv',nv);
		break;
		case 2:
			varnosound=nv;
			if (nv==1) add=" chk";
			_cn(w,'separ'+add);
			_scv('sound',nv);
		break;
		case 7:
			varformat=nv;
			if (nv==1) add=" chk";
			_cn(w,'separ'+add);
			_scv('format',nv);
		break;
		case 3:	case 4:	case 5:
			thefast=ele;
			_cn(_go('fast3'),'');
			_cn(_go('fast4'),'');
			_cn(_go('fast5'),'separ ');
			_cn(_go('fast'+ele),_gcn(_go('fast'+ele))+' chk');
			
		break;
		case 6: // desconectaterse
			if (confirm('Esta seguro que desea salir?')){
			addinfo('a=exitapp&q=2',1,0);
			discall();
			}
		break;
		
		case 8: // desconectaterse
		eraselob()
		break;
		
		case 9: // desconectaterse
		closelob()
		break;
		

		
	}
	_sa(w,'chk',nv);
}


function showperf(){

}


function showMenu(){
	_dp('','showMNU');
}

var ln=_gcv('luser');
if (ln){
	_ih('luser',ln);
	_go('txUs').value=ln;
	_dp('none','txUs');
	_vi('visible','troth');
	
	//alert(ln)	
}

function eraselob(){
		_ih('wrimain','');
}

function closelob(){
	//alert(_p1(lspn,7).tagName)
		closetab(lt);
}

addinfo('a=initialize&friend='+friend()+"&loc="+loc()+"&appver="+appver,1,0);
setInterval(lookinterval,1000);

function loc(){ return encodeURI(location.href.trim().encodeHTML())}

///////////////////////////////////
var slcc=0;
var slmx=slph.length;

opac(_go('slytext'),7);
slide();
function slide(){
	//alert(slmx+" " +slcc);

	var dv=_go('dvslide');
	var ds=(_chl(dv,0)); 
	ds.style.background="url("+slph[slcc]+")";
	opacto(ds,1,10,opacend);	
}

function opacend(){
	var dv=_go('dvslide');
	var ds=(_chl(dv,0)); 
	dv.style.background="url("+slph[slcc]+")";
	opac(ds,0);
	_ih('slytext',"<br>"+sltx[slcc])
	slcc++; if (slcc>=slmx) slcc=0;
	ds.style.background="url("+slph[slcc]+")";
	if (oln!=1) setTimeout('slide()',7000);
}

var cq=0;
function opacto(w,b,e,f){
	cq++;
	opac(w,b);
	status=b
	if (b==e){ if (f!=null) f();} else{
		b+=(b<e)?1:-1;	
		setTimeout(function (){opacto(w,b,e,f) },50);
	}
	
}

function stats(w,uol,msg,tot){
	var td1='', td2='', td3=''
	var i=w.split(",");
	for (var t=0; t<i.length; ++t){
		var p=i[t].split(":");td1="<td class=\"sttd1\">"+p[0]+"</td>"+td1;
		td2="<td class=\"sttd2\">"+p[1]+"</td>"+td2; td3="<td class=\"sttd3\">"+p[2]+"</td>"+td3;
	}
	
	for (var t=i.length; t<7; ++t){
		td1="<td class=\"sttd1\">&nbsp;</td>"+td1;td2="<td>&nbsp;</td>"+td2;td3="<td class=\"sttd2\">&nbsp;</td>"+td3;
	}
	var wr="<table width=\"100%\"><tr>"+td1+"</tr><tr>"+td2+"</tr><tr>"+td3+"</tr></table>";
	_ih('tdst',wr);
	
	_ih('tduol',"<b>("+uol+") usuarios conectados</b>")
	_ih('tdmsg',msg)
	_ih('totvis',tot);
}

///////////////////////////////////
function playsound(w){
	var snds=Array('ntf','key','toq','rng','rn1');	if (varnosound!='1'){var sn = _go('dxsound');
	sn.innerHTML='<embed src="sn/'+snds[w]+'.wav" hidden=true autostart=true loop=false>';	}
}

function sendmydata(){
	var s="a=changemydata&"+_pv('datasex');	
	if (me.fij!=1 && _gv('datamail').trim()!='') s+="&"+_pv('datamail');	
	addinfo(s,1);
	_di(T,'pwrbut');
}

function mydataerror(){
	alert('ERROR: Por alguna raz&oacute;n no se guardaron los datos...');
	_di(F,'pwrbut');
}

function sendprof(){
	var s="a=changeprof&"+_pv('pwrnew','pwrnew1');	
	if (me.stt>2) s+="&"+_pv('pwrant');	
	addinfo(s,1);
	_di(T,'pwrbut');
}


function newstatus(w){

	var i=_sp(w);
	if (i.user==me.user) retock(i);
	insertuser(w);
	var tx='<a class="system">*** <b>'+i.user+'</b> ha cambiado su perfil...';
 	writetxt('*',tx);
	_dp('none','dvMenu2');

}

function pwdok(){
	var tx='<a class="system">*** La <b>contrase&ntilde;a</b> ha cambiado <b>satisfactoriamente</b>...';
 	writetxt('*',tx);
	_dp('none','dvMenu2');
}

function pwderror(){
	alert('No se pudo cambiar la contraseña...');
	_di(F,'pwrbut');
}

function facebook(){
	
	FB.init("81b0618602add8a897566a774220618e");
}

function friend(){
	var fr=Array('qvanos.net');
	var cad=location.href
	//if (cad!='http://megacosmo.com/mega8') alert(cad)
	for( var it in fr) {
		var bu=fr[it];
		if (cad.indexOf(bu)!=-1) return bu; 
	}
	return '';
}

var tem='';
function radiostats(w){
	var q=w.split(",");
	//alert(q.length + " []  " +w)
	if (q.length>6){
		_ih('radioesc',q[0]+" oyentes");	
		_ih('radiotxt',q[6]);	
	}
	
}

function writeon(w){
	//alert(w)
	var ob=_go("_"+w);
	if (ob!=null) _sa(ob,'write','1');
	putstyle();
}