// Nombre: Teletransportador a Mundos Virtuales AW (requiere Plug-In instalado)
// Fecha: Lunes 15 de Diciembre de 2003
// Version: 1.1
// Nota: Programado exclusivamente para amigosVR-Group Inc.
// Autor: Strugen (Contactar en: strugenbaker en hot__mail punto com) 
// Propiedad: Este código no puede ser utilizado sin autorización del autor,
//            si Ud. desea incluirlo en su web contactenos en la dirección
//            electrónica descrita anteriormente (colocar @ y . )
//
// ******************************************************
// *** VALORES MODIFICABLES PARA ADMINISTRACIÓN *********

var Borde = 69;   // coordenada máxima de teletransportación 
var CeroX = 466;  // valor en pixels de ubicación del centro horizontal de la imagen
var CeroY = 576;  // valor en pixels de ubicación del centro vertical de la imagen

var FactorX = 5.91045; // factor de escala horizontal
var FactorY = 5.91045; // factor de escala vertical

var Altura = 0.5; // altura a la que caerá el usuario (siempre usar formato #.#)

// *** FIN DE VALORES MODIFICABLES PARA ADMINISTRACIÓN ***
// *******************************************************

var X1;
var Y1;

var NS = "N";
var EW = "E";
var Cad;
var Valido = "si";
var moviendo="no";
var mm="Opción no permitida"; 
var Cad2;
var IE = document.all?true:false;
if (!IE) document.captureEvents(Event.MOUSEDOWN)
document.onmousedown = Coordenada;
if (!IE) document.captureEvents(Event.MOUSEMOVE)
document.onmousemove = Coordenada2;
var tempX = 0;
var tempY = 0;
var vis;
  function round (n) {
    n = Math.round(n * 100) / 100;
    n = (n + 0.001) + '';
    return n.substring(0, n.indexOf('.') + 3);
  }
function Coordenada2(e) {
moviendo="si";
Coordenada();
moviendo="no";
}
function Coordenada(e) {
Cad="http://objects.activeworlds.com/cgi-bin/teleport.cgi?amigos3_";
Valido = "si";
if (event.button==2||event.button==3) {
alert(mm);
return false; }
if (IE) { 
tempX = event.clientX + document.body.scrollLeft;
tempY = event.clientY + document.body.scrollTop;
}
else {
tempX = e.pageX;
tempY = e.pageY;
}  
if (tempX < 0){tempX = 0;}
if (tempY < 0){tempY = 0;}  

X1 = tempX;
Y1 = tempY;

if (tempY > document.body.clientHeight + document.body.scrollTop) {
return(true);
}
if (tempX > document.body.clientWidth + document.body.scrollLeft) {
return(true);
}


if (Y1 >= CeroY) { 
NS = "S"; 
}
else {
NS = "N";
}

if (X1 >= CeroX) { 
EW = "E"; 
}
else {
EW = "W";
}

Y1 -= CeroY;
Y1 = Math.abs(Y1);
Y1 /=  FactorY;
if (Y1 > Borde) {Valido="no";}

X1 -= CeroX;
X1 = Math.abs(X1);
X1 /=  FactorX;
if (X1 > Borde) {Valido="no";}

if (Valido == "si") {
Cad2 = "[ " + round(Y1) + NS + " " + round(X1) + EW + " ]";
document.Show.Tele.value = Cad2;
Cad = Cad + round(Y1) + NS + "_" + round(X1) + EW + "_" + Altura + "0a_";
for (var i=0;i<vistas.vista.length;i++)
{ if (vistas.vista[i].checked) {
	  Cad += vistas.vista[i].value;
	  vis = vistas.vista[i].value; }
}

if (moviendo == "si"){
window.status= "Ud. sera teletransportado a " + Cad2 + " vista " + vis + " grados.";
return true;
}

{
document.location = Cad;
}
}
return true;
}