<?xml version="1.0" encoding="UTF-16"?>
<speechMacros><command>
<ruleScript name="_Búsqueda" language="JScript">
<![CDATA[
Application.Wait(60.0);
var respuesta = new Array();
respuesta[0]="señor, en seguida le brindo un informe detallado acerca de todos los terremotos mayores a escala 5 de Richter. que se han generado en el transcurso del dia";
respuesta[1]="permítame tenerlo al tanto de los terremotos que han transcurrido en este día señor. en unos momentos lo actualizo de toda la información";
respuesta[2]="señor, en unos momentos le brindo un reporte de los terremotos que han sacudido a varias regiones del mundo.";
respuesta[3]="señor, en los últimos años se ha desatado un enjambre de sísmos a nivel mundial, por eso déjeme informarle de todos los sísmos que han pasado en diferentes áreas geográficas";
RANDOM = respuesta[Math.floor(Math.random()*3)];
Application.Speak(""+RANDOM+"");
var xml_doc = new ActiveXObject("Microsoft.XMLDOM");
xml_doc.async = false;
xml_doc.load("You are not allowed to view links.
Register or
Login");
var IE = new ActiveXObject("InternetExplorer.Application");
IE.Navigate("You are not allowed to view links.
Register or
Login", 0, false);
while (IE.Busy) { Application.Wait(0.5);}
if(xml_doc.parseError.errorCode!=0)
{
Application.Wait(1.0);
Application.SetTextFeedback("No hay Acceso");
Application.Speak("error de conexion. señor, le informo que no he detectado ninguna red disponible. "+NamedStates.GetNamedStateValue("user")+" por favor, verifique la conexión a internet, o sí el dispositivo móvil cuenta con un paquete de navegación. ");
}
else{
var ago = IE.document.getElementsByClassName('ago');
var ago1 = ago.length;
var x =2;
for (var i=0; i < ago1; i++)
{
var dat = xml_doc.getElementsByTagName("title").item(x+i).text.slice(3,4);
var date = xml_doc.getElementsByTagName("title").item(x+i).text.slice(5,6);
var magnitud1 = xml_doc.getElementsByTagName("emsc:magnitude").item(i).text;
var constante = /[a,,,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,mb,y,z]/g
var constante1 = /[A,,,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,mb,Y,Z]/g
var magnitud1 = magnitud1.replace(constante, "").replace(/[ ]/g, "");
var magnitud = magnitud1.replace(constante1, "").replace(/[ ]/g, "");
var magnitud = Number(magnitud);
var region = IE.document.getElementsByClassName('tb_region')
.innerText;
var timetrans = IE.document.getElementsByClassName('ago').innerText;
var prof = IE.document.getElementsByClassName('tabev3').innerText;
timetrans1 = timetrans.replace("min", "minutos").replace("ago", "").replace("hr", "horas y");
var visualizacion = xml_doc.getElementsByTagName("link").item(x+i).text;
Application.Wait(0.2);
if(magnitud<5){
}
else if(magnitud<6){
var Ia = new ActiveXObject("InternetExplorer.Application");
Ia.Navigate("You are not allowed to view links.
Register or Login"+region+"", 0, false);
while (Ia.Busy) { Application.Wait(0.5);}
var trad = Ia.document.getElementsByClassName('form-control targetArea')[0].innerText;
Application.Speak("señor, le informo que hace exactamente "+timetrans1+" se ha producido un terremoto fuerte de escala 5. los datos son los siguientes");
Application.Speak("el sismo lo he localizado en el lugar de, "+trad+"");
Application.Wait(1.0);
Application.Speak("el sismo se ha producido con una magnitud de "+dat+" punto "+date+" grados en la escala de Richter. y el epicentro se a originado a "+prof+" kilómetros de profundidad");
Ia.Quit();
}
else if(magnitud<7){
var Ia = new ActiveXObject("InternetExplorer.Application");
Ia.Navigate("You are not allowed to view links.
Register or Login"+region+"", 0, false);
while (Ia.Busy) { Application.Wait(0.5);}
var trad = Ia.document.getElementsByClassName('form-control targetArea')[0].innerText;
Application.Speak("señor, le informo que hace exactamente "+timetrans1+" se ha producido un fuerte terremoto, que sobre pasa la escala 5 de Richter en unos momentos le brindo todos los detalles señor");
Application.Speak("el sismo lo he localizado en el lugar de, "+trad+"");
Application.Wait(1.0);
Application.Speak("el sismo se ha producido con una magnitud de "+dat+" punto "+date+" grados en la escala de Richter. y el epicentro se a originado a "+prof+" kilómetros de profundidad");
}
else if(magnitud<
{
var Ia = new ActiveXObject("InternetExplorer.Application");
Ia.Navigate("You are not allowed to view links.
Register or Login"+region+"", 0, false);
while (Ia.Busy) { Application.Wait(0.5);}
var trad = Ia.document.getElementsByClassName('form-control targetArea')[0].innerText;
Application.Speak("señor, le informo que hace exactamente "+timetrans1+" se ha producido un fuerte terremoto, el cual pudo haber ocasionado grandes daños, aunque no se descarta una alerta de sunami. espere mientas cargo la informacion, para darle todos los detelles.");
Application.Speak("el sismo lo he localizado en el lugar de, "+trad+"");
Application.Wait(1.0);
Application.Speak("el sismo se ha producido con una magnitud de "+dat+" punto "+date+" grados en la escala de Richter. y el epicentro se a originado a "+prof+" kilómetros de profundidad. señor, a continuación le mostraré el lugar geográfico dónde se originó el terremoto");
Application.Run(""+visualizacion+"#map");
Application.Speak("por favor, haga clic sobre el recuadro de interactiv");
Application.Wait(10.0);
Application.Speak("señor, éste es el lugar exacto dónde se registró éste fuerte terremoto, a continuación lo déjo con el mapa de lugar dónde se sucitó tan fuerte terremoto. seguiré actualizando de todo el acontecer mundial");
Application.Wait(60.0);
}
else if(magnitud<9){
var Ia = new ActiveXObject("InternetExplorer.Application");
Ia.Navigate("You are not allowed to view links.
Register or Login"+region+"", 0, false);
while (Ia.Busy) { Application.Wait(0.5);}
var trad = Ia.document.getElementsByClassName('form-control targetArea')[0].innerText;
Application.Speak("Alerta. Alerta. señor, permitame informarle que se ha producido un terremoto tremendamente devastador!!!, espere unos seguntos mientras le bríndo información. le informo que hay alerta de sunami");
Application.Speak("el sismo lo he localizado en el lugar de, "+trad+"");
Application.Wait(1.0);
Application.Speak("el sismo se ha producido con una magnitud de "+dat+" punto "+date+" grados en la escala de Richter. y el epicentro se a originado a "+prof+" kilómetros de profundidad. señor, a continuación le mostraré el lugar geográfico dónde se originó el terremoto");
Application.Run(""+visualizacion+"#map");
Application.Speak("por favor, haga clic sobre el recuadro de interactiv");
Application.Wait(10.0);
Application.Speak("señor, éste es el lugar exacto dónde se registró éste terremoto apocalíptico, a continuación lo déjo con el mapa de lugar dónde se sucitó tan devastador terremoto. seguiré actualizando de todo el acontecer mundial");
Application.Wait(60.0);
}
else{
Application.Speak("señor, le comento que se ha producido un terremoto fuera de lo normal, ya que en mis algoritmos no figura ésta densidad del terremoto.");
}
tt = (ago1-1);
if (i == tt)
{
Application.Speak(""+ago1+"fin del informe, señor estaré en constante búsqueda de terremotos en el mundo, y así tenerlo informado de todo lo que acontesca sobre terremotos.");
}
}
}
]]>
</ruleScript>
<waitFor seconds="1.00"/>
<speak>hasta el momento éste es el informe sobre terremotos. recuerde que lo estaré actualizando a cada momento sobre lo que ocurra en el mundo</speak>
</command>
hola a todos, aquí les dejo este lenguaje de programación para que lo puedan estudiar y algún excelente programador tome la iniciativa de crear un asisten virtual, que nos ahorraría muchos trabajos en la computadora.