Dim C
Dim URLReq
Dim ShowAnimReq

SUB determina()
select case parent.frames(0).document.title
       case "Alfaped - Pedro Miranda's WebSite"
            start(1)
       case "Explorador de Alfaped"
            start(2)
       case "Música del Sitio"
            start(3)
       case "Alfaped - Máquinas de Búsqueda"
            start(4)
       case "Mundo de la música"
            start(5)
       case "Alfaped - Más asignaturas" 
            start(6)
       case "Actualizador de Programas"
            start(7)
       case "Alfaped - Albúm Personal"
            start(8)
       case "Alfaped - Sección de Moral y Cívica"
            start(9)
       case else
            msgbox "No existe ayuda asociada a este tópico!",vbinformation+vbsystemmodal,"Asistente de Alfaped"
end select
END SUB
Sub Window_OnLoad()
    Dim Req, personaje
     
    On Error Resume Next
    personaje = "peedy"
    Set Req = Agent.Characters.Load ("Char", personaje & ".acs")
    If Req.Status <> 0 Then
        Set URLReq = Agent.Characters.Load("Char", "http://agent.microsoft.com/agent2/chars/" & personaje & "/" & personaje & ".acf ")
    Else
        Set C = Agent.Characters("Char")
    End If
End Sub

Sub Agent_RequestComplete(ByVal Request)
    Dim Req

    If Request = URLReq Then
        If Request.Status = 1 Then
            'Algo que hacer si la dirección falla al cargar.. Servidor ocupado
            Exit Sub
        ElseIf Request.Status = 0 Then
            Set C = Agent.Characters("Char")
            Set ShowAnimReq = C.Get("state", "showing, speaking, hiding")
        C.Get "animation", "Surprised,Congratulate,Show,Explain,Pleased,Suggest,Sad,Alert,Announce,Blink,Confused,Decline,DoMagic1,DoMagic2,DontRecognize,GetAttention,Greet,Process,Read,Search,Think,Write,Wave,Uncertain", False
        End If
    ElseIf Request = ShowAnimReq Then
        If Request.Status = 1 Then
            'Petición para cargar y mostrar la animación fallida. El servidor puede estar ocupado.
            Exit Sub
        ElseIf Request.Status = 0 Then
            determina()
        End If
    End If
End Sub

Sub Start(dialogo)
    C.Show   
    C.Moveto 200, 150
    select case dialogo
           case 1
                C.Play "Surprised"
                C.Speak "Bienvenidos a Alfaped, el Sitio del mañana diseñado especialmente para la gente de hoy."
                C.Speak "\pau=4000\"
                C.Play "Congratulate"
                C.Speak "Le felicitamos por visitar nuestro sitio y esperamos que lo disfrute al encontrar toda la información que necesite."
                C.Speak "\pau=4000\"
                C.Play "Show"
                C.Play "Explain"
                C.Speak "En la sección izquierda encontrará un menú con las diversas materias y datos que le proporcionamos. Mientras que a la derecha encontrará el área de lectura."
                C.Speak "\pau=4000\"
                C.Speak "Ha sido un placer conocerlo. "
                C.Speak "\pau=4000\"
           case 2
                C.Play "Suggest"
                C.Speak "Esta sección trabaja similar al explorador de Windows. A la izquierda se muestran los directorios y a la derecha los distintos 'archivos' informativos. Usted puede leerlos en grande al hacer click sobre su elección."
                C.Speak "\pau=4000\"
                C.Play "Sad"
           case 3
                C.Play "Explain"
                C.Speak "Para escuchar primero deberá elegir una canción de la lista y posteriormente hacer un Click sobre el botón de comando 'Play', lo que hará cayar a la canción actual por defecto y posteriormente reproducirá la seleccionada."
                C.Speak "\pau=4000\"
           case 4
                C.Play "Process"
                C.Speak "Según mis cálculos tienes un 60% de probabilidad de encontrar lo que buscas en cualquiera de estas máquinas, no olvides separa los espacios con un signo +"
                C.Speak "\pau=4000\"
                C.Play "Search"
                C.Speak "Pulsa en el botón BUSCAR para iniciar, luego de haber seleccionado tu máquina de búsqueda preferida."
                C.Speak "\pau=4000\"              
          case 5
               C.Play "Write"
               C.Think "Creo que ya terminé mi resumen"
               C.Play "Read"
               C.Play "Explain"
               C.Speak "Elija una opción de la lista y haga Click sobre el botón PROCESAR SELECCION para desplegar en el marco dicho pentagrama. Si no lo logra distinguir apropiadamente, haga Click sobre el con el botón derecho del Mouse y elija Guardar Imagen como... para conservar una copia."
               C.Speak "\pau=4000\"
               C.Speak "La imagen no es del tamaño aquí presentado es mucho más grande, pero fue necesario reducirla visualmente por razones de estética."
               C.Speak "\pau=4000\"
               C.Speak "Pulse en el botón HISTORIA DEL PIANO para leer un breve resumen de los cambios e historias que han hecho de este instrumento un REY."
               C.Speak "\pau=4000\"
               C.Play "Greet"
          case 6
               C.Play "GetAttention"
               C.Speak "La sección 'Otros' es una continuación del menú de asignaturas disponibles a un nivel más profesional."
               C.Speak "\pau=4000\"
               C.Think "Espero haberme explicado bien."
               C.Think "\pau=4000\" 
               C.Play "Uncertain" 
          case 7
               C.Speak "Actualizar sus programas preferidos es tan fácil y rápido como hacer un truco de magia."
               C.Speak "\pau=4000\" 
               C.Play "DoMagic1"
               C.Play "DoMagic2"
               C.Speak "Los programas contenidos en esta sección son creación y propiedad de nuestro presidente (Pedro José Miranda Huembes - Alfaped's WebMaster)."
               C.Speak "\pau=4000"
               C.Think "Lo que no sabe es que si no encuentra el archivo puede ser que muy pronto sea actualizado."
               C.Think "\pau=4000\"
               C.Play "Sad"
          case 8
               C.Play "Announce"
               C.Speak "Para observar una fotografía en su tamaño normal deberá hacer click sobre la misma, posteriormente esta será cargada en una ventana emergente"
               C.Speak "\pau=4000\"
               C.Speak "Para ver una presentación de las diversas fotografías sólo tiene que dar click al botón SLIDESHOW, localizado en la parte inferior de esta página."
               C.Speak "\pau=4000\"
               C.Think "Creo que hay que esperar alrededor de 5 seg. entre cada foto, pero mejor no le digo."
               C.Think "\pau=4000\"
               C.Play "GetAttention"
               C.Speak "Además, al ubicarte sobre una foto observarás una breve descripción del evento al que pertenece."
               C.Speak "\pau=4000\"
               C.Play "Blink"
          case 9
               C.Speak "Bienvenido a Nicaragua, tierra de lagos y volcanes, en esta sección encontrarás temas relacionados con la moral y cívica que son la esencia de la sociedad moderna."
               C.Speak "\pau=4000\"
               C.Speak "Encontrarás información que espero te ayude a descubrir la fascinante e intrigante historia de mi país, el cual ha sido privilegiado al encontrarse en el Centro de las Americas, pero desprestigiado por sus gobernantes"
               C.Speak "\pau=4000\"
               C.Play "Suggest"
               C.Speak "Te sugiero comenzar con la sección 'Nicaragua', dice cosas muy interesantes."
               C.Speak "\pau=4000\"
    end select   
C.Play "pleased"
C.Speak "\pau=4000\"
C.Play "Wave"     
C.Hide
End Sub