Dim Robby

' * Variables
Dim UsedChars
Dim RobbyID
Dim RobbyACS
Dim RobbyURL
Dim RobbyStates
Dim RobbyAnimations
Dim RobbyReq
Dim RobbyStatesReq
Dim RobbyAnimationsReq
Dim RobbyLoaded
Dim HideReq
Dim Req

' * Initialize
UsedChars = "Robby"

' * Robby
RobbyID = "Robby"
RobbyACS = "robby.acs"
RobbyURL = "http://www.serprisa.com/robby.acs"
RobbyStates = "Showing, Hiding, Speaking, Moving, Gesturing, Idling, Hearing, Listening"
RobbyAnimations = ""
RobbyLoaded = False


Function IsAgentInstalled()
    ' Purpose:  Returns True if Agent 2.0 is installed, else False
    On Error Resume Next

    Dim AgentControl

    If ScriptEngineMajorVersion < 2 Then
        IsAgentInstalled = False
    Else
        Set AgentControl = CreateObject("Agent.Control.2")
        IsAgentInstalled = IsObject(AgentControl)
    End If
End Function

sub Window_OnLoad()

end sub

Sub AgentMain()
    On Error Resume Next

    If Not IsAgentInstalled() Then
        Exit Sub
    End If

    AgentControl.Connected = True

    RobbyLoaded = LoadLocalChar(RobbyID, RobbyACS)


    If RobbyLoaded Then
        Call SetCharObj
    End If

    Call CheckLoadStatus
End Sub

Function LoadLocalChar(ByVal CharID, ByVal CharACS)
    ' Purpose:  Attempts to load the specified character
    ' Returns:  True if successful, False if not
    On Error Resume Next

    If CharACS = "" Then
    	If CharID <> "Char" Then
    		LoadLocalChar = False
    		Exit Function
    	End If

    	AgentControl.Characters.Load CharID
    Else
    	AgentControl.Characters.Load CharID, CharACS
    End If

    If Err = 0 Then
        LoadLocalChar = True
        Exit Function
    End If
    LoadLocalChar = False
End Function

Sub SetCharObj()
    ' Purpose:  Sets the character reference and TTS Language ID
    On Error Resume Next

    Set Robby = AgentControl.Characters(RobbyID)
    Robby.LanguageID = &H409
End Sub

Sub CheckLoadStatus()
    ' Purpose:  Determines if required characters have been loaded.
    '           If not, issue request to load next character
    '           else run the AgentIntro routine

    If Not RobbyLoaded Then
        If Instr(RobbyURL, "unknown.server.com") = 0 Then
            Window.Status = "Loading " & RobbyID & " Character.  Please Wait..."
            Set RobbyReq = AgentControl.Characters.Load(RobbyID, RobbyURL)
        Else
            ' Attempt to load default character
            RobbyLoaded = LoadLocalChar(RobbyID, "")

            If RobbyLoaded Then
                Call SetCharObj
                Window.Status = ""
                Call AgentIntro
                Exit Sub
            End If

            Call LoadError
            Exit Sub
        End If
        Exit Sub
    End If

    Window.Status = ""
    Call AgentIntro
End Sub

Sub AgentControl_RequestComplete(ByVal RequestObject)
    ' Purpose:  Take action on completion or failure of requests
    On Error Resume Next

    Select Case RequestObject
    Case RobbyReq
        If RequestObject.Status = 0 Then
            Call SetCharObj

            If RobbyStates <> "" Then
                Window.Status = "Loading " & RobbyID & " States.  Please Wait..."
                Set RobbyStatesReq = AgentControl.Characters(RobbyID).Get("State", RobbyStates, True)
            ElseIf RobbyAnimations <> "" Then
                Window.Status = "Loading " & RobbyID & " Animations.  Please Wait..."
                Set RobbyAnimationsReq = AgentControl.Characters(RobbyID).Get("Animation", RobbyAnimations, True)
            Else
                RobbyLoaded = True
                Call CheckLoadStatus
            End If
        Else
            Call LoadError
        End If
        Exit Sub
    Case RobbyStatesReq
        If RequestObject.Status = 0 Then
            If RobbyAnimations <> "" Then
                Window.Status = "Loading " & RobbyID & " Animations.  Please Wait..."
                Set RobbyAnimationsReq = AgentControl.Characters(RobbyID).Get("Animation", RobbyAnimations, True)
            Else
                RobbyLoaded = True
                Call CheckLoadStatus
            End If
        Else
            Call LoadError
        End If
        Exit Sub
    Case RobbyAnimationsReq
        If RequestObject.Status = 0 Then
            RobbyLoaded = True
            Call CheckLoadStatus
        Else
            Call LoadError
        End If
        Exit Sub
    Case HideReq
        AgentControl.Characters.Unload RobbyID
    End Select
End Sub

Sub LoadError()
    Dim strMsg
    Window.Status = ""
    strMsg = "Error al cargar el personaje."
    strMsg = strMsg & Chr(13) & Chr(13) & "Se requiere la tecnología Microsoft MS Agent."
    strMsg = strMsg & Chr(13) & Chr(13) & "Por favor, ejecute la opción 'Descargar' en esta página WEB, para instalar Microsoft MS Agent."
    MsgBox strMsg, 48
End Sub

Sub AgentControl_Click(ByVal CharacterID, ByVal Button, ByVal Shift, ByVal X, ByVal Y)
    navigate "javascript:mostrarContactar()"
	Robby.Play "Wave"
	Robby.Speak "Ha sido un placer!!! Gracias por confiar en SERPRISA GROUP. Hasta la próxima."
	Robby.Hide
End Sub

Sub AgentControl_DblClick(ByVal CharacterID, ByVal Button, ByVal Shift, ByVal X, ByVal Y)
    ' Purpose:  Stop and Hide all characters on double-click
    On Error Resume Next

    Robby.StopAll
    If Not RobbyID.HasOtherClients Then
        If Robby.Visible Then
            Set HideReq = Robby.Hide()
        Else
            AgentControl.Characters.Unload RobbyID
        End If
    End If
End Sub

Sub InitAgentCommands()
    ' Purpose:  Initialize the Commands menu
    On Error Resume Next

    Robby.Commands.RemoveAll
End Sub

Sub AgentControl_Command(ByVal UserInput)
    ' Purpose:  Determine Command that was selected either by menu or voice
    '           and run the applicable Command Script
    On Error Resume Next

    Dim BadConfidence
    BadConfidence = 10

    If (UserInput.Confidence <= -40) Then
        ' Bad Recognition
        Exit Sub
    ElseIf (UserInput.Alt1Name <> "") And Abs(Abs(UserInput.Alt1Confidence) - Abs(UserInput.Confidence)) < BadConfidence Then
        ' Bad Confidence - too close to another command
        Exit Sub
    ElseIf (UserInput.Alt2Name <> "") And Abs(Abs(UserInput.Alt2Confidence) - Abs(UserInput.Confidence)) < BadConfidence Then
        ' Bad Confidence - too close to another command
        Exit Sub
    Else ' High Confidence
        ' *** BEGIN MASH USER COMMANDS ***
        Select Case UserInput.Name
        Case "ACO"
            AgentControl.PropertySheet.Visible = True
        End Select
        ' *** END MASH USER COMMANDS ***
    End If
End Sub

Sub AgentControl_Bookmark(ByVal BookmarkID)
    On Error Resume Next

    ' *** BEGIN MASH USER BOOKMARKS ***
    Select Case BookmarkID
    Case 1
        If MsgBox("¿Quiere seguir hablando conmigo?", 68) = 6 Then
			Robby.Play "Congratulate"
			Robby.Speak "Bien..."
			Robby.Play "Suggest"
			Robby.Speak "Tengo una idea... ¿Desea hacer o renovar su página WEB y ha visto que somos los mejores?"
            navigate "javascript:cargarBloque(10)"
		    Robby.Speak "\mrk=2\"
		else
			Robby.Play "Wave"
			Robby.Speak "Encantado de conocerle, nos volveremos a ver."
			Robby.Hide
        End If
        
    Case 2 'Interés por sitio web corporativo
        If MsgBox("¿Respuesta?", 68) = 6 Then
			Robby.Play "Congratulate"
			Robby.Speak "¡Perfecto!"
			Robby.Play "DoMagic2"
			Robby.Speak "Voy a abrirle la puerta al book de algunos los mejores trabajos de SERPRISA GROUP."
            navigate "javascript:mostrarBook(10)"
		    Robby.Speak "\mrk=1000\"
		else
			Robby.Play "Think"
			Robby.Play "RestPose"
			Robby.Play "Blink"
			Robby.Speak "De acuerdo quizás no es eso lo que necesitaba."
			Robby.Play "Blink"
			Robby.Speak "¿Quizás esté interesado en realizar algún portal temático o una página de comercio electrónico, quizás una publicación electrónica o un catálogo digital en Internet?"
            navigate "javascript:cargarBloque(12)"
		    Robby.Speak "\mrk=4\"
        End If

    Case 4  'Contestación a interés por aplicaciones web dinámicas (no sitio web corporativo)
        If MsgBox("¿Respuesta?", 68) = 6 Then
			Robby.Play "Congratulate"
			Robby.Speak "¡Perfecto!"
			Robby.Play "DoMagic2"
			Robby.Speak "Vamos a ver..."
			Robby.Play "DoMagic1"
			Robby.Speak "¿Le interesa quizás un portal temático?"
		    Robby.Speak "\mrk=41\"
		else
			Robby.Play "Think"
			Robby.Play "RestPose"
			Robby.Play "Blink"
			Robby.Speak "Claro, Ud. lo que necesita es una intranet, una extranet, o algún proyecto de gestión del conocimiento, ¿no es así?"
            navigate "javascript:cargarBloque(1)"
		    Robby.Speak "\mrk=5\"
        End If

    Case 41  'Contestación a interés por Portal Temático
        If MsgBox("¿Respuesta?", 68) = 6 Then
			Robby.Play "Congratulate"
			Robby.Speak "¡Perfecto!"
			Robby.Play "DoMagic2"
			Robby.Speak "Estos son algunos de los trabajos que SERPRISA GROUP ha desarrollado en este campo."
            navigate "javascript:mostrarBook(12)"
		    Robby.Speak "\mrk=1000\"
		else
			Robby.Play "Think"
			Robby.Play "RestPose"
			Robby.Play "Blink"
			Robby.Speak "Ya lo entiendo, Ud. está interesado en un sistema de comercio electrónico, ¿verdad?"
            navigate "javascript:cargarBloque(3)"
		    Robby.Speak "\mrk=42\"
        End If

    Case 42  'Contestación a interés por comercio electrónico
        If MsgBox("¿Respuesta?", 68) = 6 Then
			Robby.Play "Congratulate"
			Robby.Speak "¡Perfecto!"
			Robby.Play "DoMagic2"
			Robby.Speak "Estos son algunos de los trabajos que SERPRISA GROUP ha desarrollado en este campo."
            navigate "javascript:mostrarBook(3)"
		    Robby.Speak "\mrk=1000\"
		else
			Robby.Play "Think"
			Robby.Play "RestPose"
			Robby.Play "Blink"
			Robby.Speak "Vaya, vaya... Esto es algo más difícil de lo que suponía..."
			Robby.Play "Confused"
			Robby.Speak "Ahora sí, ya verá!!! Una publicación electrónica en Internet, ¿no?"
            navigate "javascript:cargarBloque(67)"
		    Robby.Speak "\mrk=43\"
        End If

    Case 43  'Contestación a interés por publicación electrónica
        If MsgBox("¿Respuesta?", 68) = 6 Then
			Robby.Play "Congratulate"
			Robby.Speak "¡Perfecto!"
			Robby.Play "DoMagic2"
			Robby.Speak "Estos son algunos de los trabajos que SERPRISA GROUP ha desarrollado en este campo."
            navigate "javascript:mostrarBook(67)"
		    Robby.Speak "\mrk=1000\"
		else
			Robby.Play "Think"
			Robby.Play "RestPose"
			Robby.Play "Blink"
			Robby.Speak "¿No? ¿No? ¿Está seguro de que no se ha confundido de WEB?"
			Robby.Play "LookRight"
			Robby.Play "LookRightReturn"
			Robby.Play "LookLeft"
			Robby.Play "LookLeftReturn"
			Robby.Play "Explain"
			Robby.Speak "Puedo asegurarle que invertir en SERPRISA GROUP, le traerá grandes beneficios..."
			Robby.Play "Announce"
			Robby.Speak "¡Ya está! ¡¡¡Un catálogo digital de productos!!! Cómo no se me había ocurrido, ¿verdad?"
            navigate "javascript:cargarBloque(11)"
		    Robby.Speak "\mrk=44\"
        End If

    Case 44  'Contestación a interés por publicación electrónica
        If MsgBox("¿Respuesta?", 68) = 6 Then
			Robby.Play "Congratulate"
			Robby.Speak "¡Perfecto!"
			Robby.Play "DoMagic2"
			Robby.Speak "Estos son algunos de los trabajos que SERPRISA GROUP ha desarrollado en este campo."
            navigate "javascript:mostrarBook(11)"
		    Robby.Speak "\mrk=1000\"
		else
			Robby.Play "Confused"
			Robby.Play "Idle2_2"
			Robby.Play "Process"
			Robby.Speak "Vamos a abordar otra área de especialización de SERPRISA GROUP..."
			Robby.Play "Process"
			Robby.Speak "¿Le interesa algún proyecto en el área de la gestión documental?"
            navigate "javascript:cargarBloque(5)"
		    Robby.Speak "\mrk=6\"
        End If


    Case 5  'Contestación a interés por Gestión del Conocimiento...
        If MsgBox("¿Respuesta?", 68) = 6 Then
			Robby.Play "Congratulate"
			Robby.Speak "¡Perfecto!"
			Robby.Play "DoMagic2"
			Robby.Speak "Vamos a ver..."
			Robby.Play "DoMagic1"
			Robby.Speak "¿Le interesa quizás una intranet o una extranet?"
		    Robby.Speak "\mrk=51\"
		else
			Robby.Play "Think"
			Robby.Play "RestPose"
			Robby.Play "Process"
			Robby.Speak "¿Está interesado en algún proyecto en el área de la gestión documental? Repositorios de información, sistemas en plataformas móviles PPC, Palm OS,..."
            navigate "javascript:cargarBloque(5)"
		    Robby.Speak "\mrk=6\"
        End If

    Case 51  'Contestación a interés por Intranet/Extranet
        If MsgBox("¿Respuesta?", 68) = 6 Then
			Robby.Play "Congratulate"
			Robby.Speak "¡Perfecto!"
			Robby.Play "DoMagic2"
			Robby.Speak "Estos son algunos de los trabajos que SERPRISA GROUP ha desarrollado en este campo."
            navigate "javascript:mostrarBook(1)"
		    Robby.Speak "\mrk=1000\"
		else
			Robby.Play "Think"
			Robby.Play "RestPose"
			Robby.Play "Blink"
			Robby.Speak "Ya lo entiendo, Ud. está interesado en un sistema de e-detailing, ¿verdad?"
            navigate "javascript:cargarBloque(68)"
		    Robby.Speak "\mrk=52\"
        End If

    Case 52  'Contestación a interés por e-detailing
        If MsgBox("¿Respuesta?", 68) = 6 Then
			Robby.Play "Congratulate"
			Robby.Speak "¡Perfecto!"
			Robby.Play "DoMagic2"
			Robby.Speak "Estos son algunos de los trabajos que SERPRISA GROUP ha desarrollado en este campo."
            navigate "javascript:mostrarBook(68)"
		    Robby.Speak "\mrk=1000\"
		else
			Robby.Play "Think"
			Robby.Play "RestPose"
			Robby.Play "Blink"
			Robby.Speak "Vaya, vaya... Esto es algo más difícil de lo que suponía..."
			Robby.Play "Confused"
			Robby.Speak "Ahora sí, ya verá!!! Un sistema de formación basado en e-learning, ¿no?"
            navigate "javascript:cargarBloque(69)"
		    Robby.Speak "\mrk=53\"
        End If

    Case 53  'Contestación a interés por e-learning
        If MsgBox("¿Respuesta?", 68) = 6 Then
			Robby.Play "Congratulate"
			Robby.Speak "¡Perfecto!"
			Robby.Play "DoMagic2"
			Robby.Speak "Estos son algunos de los trabajos que SERPRISA GROUP ha desarrollado en este campo."
            navigate "javascript:mostrarBook(69)"
		    Robby.Speak "\mrk=1000\"
		else
			Robby.Play "Think"
			Robby.Play "RestPose"
			Robby.Play "Blink"
			Robby.Speak "¿No? ¿No? ¿Está seguro de que no se ha confundido de WEB?"
			Robby.Play "LookRight"
			Robby.Play "LookRightReturn"
			Robby.Play "LookLeft"
			Robby.Play "LookLeftReturn"
			Robby.Play "Explain"
			Robby.Speak "Puedo asegurarle que invertir en SERPRISA GROUP, le traerá grandes beneficios..."
			Robby.Play "Announce"
			Robby.Speak "¡Ya está! ¡¡¡Un proyecto de data-mining!!! Cómo no se me había ocurrido, ¿verdad?"
            navigate "javascript:cargarBloque(70)"
		    Robby.Speak "\mrk=54\"
        End If

    Case 54  'Contestación a interés por data-mining
        If MsgBox("¿Respuesta?", 68) = 6 Then
			Robby.Play "Congratulate"
			Robby.Speak "¡Perfecto!"
			Robby.Play "DoMagic2"
			Robby.Speak "Estos son algunos de los trabajos que SERPRISA GROUP ha desarrollado en este campo."
            navigate "javascript:mostrarBook(70)"
		    Robby.Speak "\mrk=1000\"
		else
			Robby.Play "Think"
			Robby.Play "RestPose"
			Robby.Play "Blink"
			Robby.Speak "Vaya, vaya... Esto es algo más difícil de lo que suponía..."
			Robby.Play "Confused"
			Robby.Speak "¡Pues ya seguro que lo que le interesa no puede ser más que un proyecto en tecnología móvil, seguro que sí!"
            navigate "javascript:cargarBloque(4)"
		    Robby.Speak "\mrk=55\"
        End If

    Case 55  'Contestación a interés por publicación electrónica
        If MsgBox("¿Respuesta?", 68) = 6 Then
			Robby.Play "Congratulate"
			Robby.Speak "¡Perfecto!"
			Robby.Play "DoMagic2"
			Robby.Speak "Estos son algunos de los trabajos que SERPRISA GROUP ha desarrollado en este campo."
            navigate "javascript:mostrarBook(4)"
		    Robby.Speak "\mrk=1000\"
		else
			Robby.Play "Confused"
			Robby.Play "Idle2_2"
			Robby.Play "Process"
			Robby.Speak "Vamos a abordar otra área de especialización de SERPRISA GROUP..."
			Robby.Play "Process"
			Robby.Speak "¿Le interesa algún proyecto en el área de la gestión documental?"
            navigate "javascript:cargarBloque(5)"
		    Robby.Speak "\mrk=6\"
        End If



    Case 6  'Contestación a interés por Gestión Documental...
        If MsgBox("¿Respuesta?", 68) = 6 Then
			Robby.Play "Congratulate"
			Robby.Speak "¡Perfecto!"
			Robby.Play "DoMagic2"
			Robby.Speak "Vamos a ver..."
			Robby.Play "DoMagic1"
			Robby.Speak "¿Le interesa quizás algún proyecto sobre repositorios de información?"
		    Robby.Speak "\mrk=61\"
		else
			Robby.Play "Think"
			Robby.Play "RestPose"
			Robby.Play "Search"
			Robby.Speak "¿Y un proyecto en el área de la integración de aplicaciones? Servicios WEB, tecnología XML,..."
            navigate "javascript:cargarBloque(71)"
		    Robby.Speak "\mrk=7\"
        End If

    Case 61  'Contestación a interés por repositorios de información
        If MsgBox("¿Respuesta?", 68) = 6 Then
			Robby.Play "Congratulate"
			Robby.Speak "¡Perfecto!"
			Robby.Play "DoMagic2"
			Robby.Speak "Estos son algunos de los trabajos que SERPRISA GROUP ha desarrollado en este campo."
            navigate "javascript:mostrarBook(5)"
		    Robby.Speak "\mrk=1000\"
		else
			Robby.Play "Think"
			Robby.Play "RestPose"
			Robby.Play "Blink"
			Robby.Speak "Ya lo entiendo, Ud. está interesado en desarrollar algún proyecto documental sobre entorno WEB, CD-ROM o sobre alguna plataforma móvil como PPC o Palm OS, ¿verdad?"
            navigate "javascript:cargarBloque(7)"
		    Robby.Speak "\mrk=62\"
        End If

    Case 62  'Contestación a interés por proyecto documental sobre entorno WEB...
        If MsgBox("¿Respuesta?", 68) = 6 Then
			Robby.Play "Congratulate"
			Robby.Speak "¡Perfecto!"
			Robby.Play "DoMagic2"
			Robby.Speak "Estos son algunos de los trabajos que SERPRISA GROUP ha desarrollado en este campo."
            navigate "javascript:mostrarBook(7)"
		    Robby.Speak "\mrk=1000\"
		else
			Robby.Play "Think"
			Robby.Play "RestPose"
			Robby.Play "Blink"
			Robby.Speak "Vaya, vaya... Esto es algo más difícil de lo que suponía..."
			Robby.Play "Confused"
			Robby.Speak "Ahora sí, ya verá!!! Un aplicativo para la gestión de flujos de trabajo o procedimientos en su compañía, ¿no?"
            navigate "javascript:cargarBloque(9)"
		    Robby.Speak "\mrk=63\"
        End If

    Case 63  'Contestación a interés por flujos de trabajo
        If MsgBox("¿Respuesta?", 68) = 6 Then
			Robby.Play "Congratulate"
			Robby.Speak "¡Perfecto!"
			Robby.Play "DoMagic2"
			Robby.Speak "Estos son algunos de los trabajos que SERPRISA GROUP ha desarrollado en este campo."
            navigate "javascript:mostrarBook(9)"
		    Robby.Speak "\mrk=1000\"
		else
			Robby.Play "Think"
			Robby.Play "RestPose"
			Robby.Play "Blink"
			Robby.Speak "¿No? ¿No? ¿Está seguro de que no se ha confundido de WEB?"
			Robby.Play "LookRight"
			Robby.Play "LookRightReturn"
			Robby.Play "LookLeft"
			Robby.Play "LookLeftReturn"
			Robby.Play "Explain"
			Robby.Speak "Puedo asegurarle que invertir en SERPRISA GROUP, le traerá grandes beneficios..."
			Robby.Play "Announce"
			Robby.Speak "¡Ya está! ¡¡¡Un proyecto para gestionar su sistema de la calidad, con nuestra plataforma QUALIGEST!!! Cómo no se me había ocurrido antes, ¿verdad?"
            navigate "javascript:cargarBloque(6)"
		    Robby.Speak "\mrk=64\"
        End If

    Case 64  'Contestación a interés por sistema de la calidad
        If MsgBox("¿Respuesta?", 68) = 6 Then
			Robby.Play "Congratulate"
			Robby.Speak "¡Perfecto!"
			Robby.Play "DoMagic2"
			Robby.Speak "Estos son algunos de los trabajos que SERPRISA GROUP ha desarrollado en este campo."
            navigate "javascript:mostrarBook(6)"
		    Robby.Speak "\mrk=1000\"
		else
			Robby.Play "Confused"
			Robby.Play "Idle2_2"
			Robby.Play "Process"
			Robby.Speak "Vamos a abordar otra área de especialización de SERPRISA GROUP..."
			Robby.Play "Process"
			Robby.Speak "¿Le interesa algún proyecto en el área de la integración de aplicaciones?"
            navigate "javascript:cargarBloque(5)"
		    Robby.Speak "\mrk=7\"
        End If



    Case 7  'Contestación a interés por Integración de Aplicaciones...
        If MsgBox("¿Respuesta?", 68) = 6 Then
			Robby.Play "Congratulate"
			Robby.Speak "¡Perfecto!"
			Robby.Play "DoMagic2"
			Robby.Speak "Vamos a ver..."
			Robby.Play "DoMagic1"
			Robby.Speak "¿Le interesa desarrollar algún proyecto de computación distribuida, con servicios WEB?"
		    Robby.Speak "\mrk=71\"
		else
			Robby.Play "Think"
			Robby.Play "RestPose"
			Robby.Play "WriteContinued"
			Robby.Play "WriteReturn"
			Robby.Speak "¿Necesita a SERPRISA GROUP como partner de desarrollo? ¿En outsourcing?"
            navigate "javascript:cargarBloque(8)"
		    Robby.Speak "\mrk=8\"
        End If

    Case 71  'Contestación a interés por servicios WEB
        If MsgBox("¿Respuesta?", 68) = 6 Then
			Robby.Play "Congratulate"
			Robby.Speak "¡Perfecto!"
			Robby.Play "DoMagic2"
			Robby.Speak "Estos son algunos de los trabajos que SERPRISA GROUP ha desarrollado en este campo."
            navigate "javascript:mostrarBook(71)"
		    Robby.Speak "\mrk=1000\"
		else
			Robby.Play "Think"
			Robby.Play "RestPose"
			Robby.Play "Blink"
			Robby.Speak "Ya lo entiendo, Ud. está interesado en desarrollar algún proyecto basado en tecnología XML, ¿verdad?"
            navigate "javascript:cargarBloque(72)"
		    Robby.Speak "\mrk=72\"
        End If

    Case 72  'Contestación a interés por tecnología XML
        If MsgBox("¿Respuesta?", 68) = 6 Then
			Robby.Play "Congratulate"
			Robby.Speak "¡Perfecto!"
			Robby.Play "DoMagic2"
			Robby.Speak "Estos son algunos de los trabajos que SERPRISA GROUP ha desarrollado en este campo."
            navigate "javascript:mostrarBook(72)"
		    Robby.Speak "\mrk=1000\"
		else
			Robby.Play "Confused"
			Robby.Play "Idle2_2"
			Robby.Play "Process"
			Robby.Speak "Vamos a abordar otra área de especialización de SERPRISA GROUP..."
			Robby.Play "Process"
			Robby.Speak "¿Necesita a SERPRISA GROUP como partner de desarrollo? ¿En outsourcing?"
            navigate "javascript:cargarBloque(8)"
		    Robby.Speak "\mrk=8\"
        End If


    Case 8  'Contestación a interés por Outsourcing de desarrollo...
        If MsgBox("¿Respuesta?", 68) = 6 Then
			Robby.Play "Congratulate"
			Robby.Speak "¡Perfecto!"
			Robby.Play "DoMagic2"
			Robby.Speak "Vamos a ver..."
			Robby.Play "DoMagic1"
			Robby.Speak "¿Desea externalizar sus proyectos de desarrollo informático, contratando un equipo de trabajo de SERPRISA GROUP?"
		    Robby.Speak "\mrk=81\"
		else
			Robby.Play "Think"
			Robby.Play "RestPose"
			Robby.Play "Search"
			Robby.Speak "¿Y formación? ¿Necesita formación en Nuevas Tecnologías?"
            navigate "javascript:cargarBloque(16)"
		    Robby.Speak "\mrk=9\"
        End If

    Case 81  'Contestación a interés por externalizar de servicios
        If MsgBox("¿Respuesta?", 68) = 6 Then
			Robby.Play "Congratulate"
			Robby.Speak "¡Perfecto!"
			Robby.Play "DoMagic2"
			Robby.Speak "Estos son algunos de los trabajos que SERPRISA GROUP ha desarrollado en este campo."
            navigate "javascript:mostrarBook(8)"
		    Robby.Speak "\mrk=1000\"
		else
			Robby.Play "Think"
			Robby.Play "RestPose"
			Robby.Play "Blink"
			Robby.Speak "Ya lo entiendo, Ud. está interesado en desarrollar algún proyecto de alianza estratégica con SERPRISA GROUP, ¿no es así?"
            navigate "javascript:cargarBloque(73)"
		    Robby.Speak "\mrk=82\"
        End If

    Case 82  'Contestación a interés por proyecto de alianza estratégica
        If MsgBox("¿Respuesta?", 68) = 6 Then
			Robby.Play "Congratulate"
			Robby.Speak "¡Perfecto!"
			Robby.Play "DoMagic2"
			Robby.Speak "Estos son algunos de los trabajos que SERPRISA GROUP ha desarrollado en este campo."
            navigate "javascript:mostrarBook(73)"
		    Robby.Speak "\mrk=1000\"
		else
			Robby.Play "Confused"
			Robby.Play "Idle2_2"
			Robby.Play "Process"
			Robby.Speak "Vamos a abordar otra área de especialización de SERPRISA GROUP..."
			Robby.Play "Process"
			Robby.Speak "¿Y formación? ¿Necesita formación en Nuevas Tecnologías?"
            navigate "javascript:cargarBloque(16)"
		    Robby.Speak "\mrk=9\"
        End If


    Case 9  'Contestación a interés por Formación...
        If MsgBox("¿Respuesta?", 68) = 6 Then
			Robby.Play "Congratulate"
			Robby.Speak "¡Perfecto!"
			Robby.Play "DoMagic2"
			Robby.Speak "Estos son algunos de los trabajos que SERPRISA GROUP ha desarrollado en este campo."
            navigate "javascript:mostrarBook(16)"
		    Robby.Speak "\mrk=1000\"
		else
			Robby.Play "Think"
			Robby.Play "RestPose"
			Robby.Speak "Esto ya está siendo muy difícil. ¿No estará buscando nuestros servicios de hosting, marketing en la red, o nuestros servicios como ASP (Aplication Service Provider)?"
            navigate "javascript:cargarBloque(13)"
		    Robby.Speak "\mrk=10\"
        End If


    Case 10  'Contestación a interés por Hosting...
        If MsgBox("¿Respuesta?", 68) = 6 Then
			Robby.Play "Congratulate"
			Robby.Speak "¡Perfecto!"
			Robby.Play "DoMagic2"
			Robby.Speak "Vamos a ver..."
			Robby.Play "DoMagic1"
			Robby.Speak "¿Le interesan nuestros servicios de hosting WEB?"
		    Robby.Speak "\mrk=101\"
		else
			Robby.Play "Think"
			Robby.Play "RestPose"
			Robby.Play "Sad"
			Robby.Speak "¡He fracasado! Entre nosostros, ya no sé qué ofrecerle..."
			Robby.Play "Confused"
			Robby.Play "StartListening"
			Robby.Speak "No, no, señor director... Todo está funcionando bien... No hay problema... Ufffff!!!"
			Robby.Play "StopListening"
			Robby.Play "StartListening"
			Robby.Speak "No, no, no necesito ayuda. Ahora mismo terminamos, sí!!! Sí, sí, señor director... Uffff!!!"
			Robby.Play "StopListening"
			Robby.Play "RestPose"
			Robby.Speak "En fin, le dejo que navegue por nuestro site, a ver si encuentra aquello que necesita."
			navigate "javascript:cargarBloque(0)"
			Robby.Play "Wave"
			Robby.Speak "Ha sido un placer!!! Espero poder atenderle en una nueva ocasión. Hasta la próxima."
			Robby.Hide
        End If

    Case 101  'Contestación a interés por hosting WEB
        If MsgBox("¿Respuesta?", 68) = 6 Then
			Robby.Play "Congratulate"
			Robby.Speak "¡Perfecto!"
			Robby.Play "DoMagic2"
			Robby.Speak "Estos son algunos de los trabajos que SERPRISA GROUP ha desarrollado en este campo."
            navigate "javascript:mostrarBook(13)"
		    Robby.Speak "\mrk=1000\"
		else
			Robby.Play "Think"
			Robby.Play "RestPose"
			Robby.Play "Blink"
			Robby.Speak "Ya lo entiendo, Ud. está interesado en desarrollar algún net-marketing en la red, ¿no es así?"
            navigate "javascript:cargarBloque(14)"
		    Robby.Speak "\mrk=102\"
        End If

    Case 102  'Contestación a interés por net-marketing
        If MsgBox("¿Respuesta?", 68) = 6 Then
			Robby.Play "Congratulate"
			Robby.Speak "¡Perfecto!"
			Robby.Play "DoMagic2"
			Robby.Speak "Estos son algunos de los trabajos que SERPRISA GROUP ha desarrollado en este campo."
            navigate "javascript:mostrarBook(14)"
		    Robby.Speak "\mrk=1000\"
		else
			Robby.Play "Think"
			Robby.Play "RestPose"
			Robby.Play "Blink"
			Robby.Speak "Vaya, vaya... Esto es algo más difícil de lo que suponía..."
			Robby.Play "Confused"
			Robby.Speak "Ahora sí, ya verá!!! ¿Requiere Ud. los servicios de SERPRISA GROUP como ASP (Application Service Provider) con alguno de nuestros productos?"
            navigate "javascript:cargarBloque(15)"
		    Robby.Speak "\mrk=103\"
        End If

    Case 103  'Contestación a interés por ASP
        If MsgBox("¿Respuesta?", 68) = 6 Then
			Robby.Play "Congratulate"
			Robby.Speak "¡Perfecto!"
			Robby.Play "DoMagic2"
			Robby.Speak "Estos son algunos de los trabajos que SERPRISA GROUP ha desarrollado en este campo."
            navigate "javascript:mostrarBook(15)"
		    Robby.Speak "\mrk=1000\"
		else
			Robby.Play "Think"
			Robby.Play "RestPose"
			Robby.Play "Sad"
			Robby.Speak "¡He fracasado! Entre nosostros, ya no sé qué ofrecerle..."
			Robby.Play "Confused"
			Robby.Play "StartListening"
			Robby.Speak "No, no, señor director... Todo está funcionando bien... No hay problema... Ufffff!!!"
			Robby.Play "StopListening"
			Robby.Play "StartListening"
			Robby.Speak "No, no, no necesito ayuda. Ahora mismo terminamos, sí!!! Sí, sí, señor director... Uffff!!!"
			Robby.Play "StopListening"
			Robby.Play "RestPose"
			Robby.Speak "En fin, le dejo que navegue por nuestro site, a ver si encuentra aquello que necesita."
			navigate "javascript:cargarBloque(0)"
			Robby.Play "Wave"
			Robby.Speak "Ha sido un placer!!! Espero poder atenderle en una nueva ocasión. Hasta la próxima."
			Robby.Hide
        End If


	Case 1000	'Bloque para ponerse en contacto con SERPRISA GROUP
			Robby.Play "Congratulate"
			Robby.Play "Explain"
			Robby.Speak "Cuando haya terminado de visualizar el book, haga click sobre mi y podrá enviarnos un mensaje al departamento comercial... Nos pondremos en contacto con Ud. para abordar su proyecto con las mayores garantías."
		

    End Select
    ' *** END MASH USER BOOKMARKS ***
End Sub


Sub AgentIntro()
    On Error Resume Next

    Call InitAgentCommands

    ' *** BEGIN MASH USER SCRIPT ***

	Robby.MoveTo 400, 300
	Robby.Show
	Robby.Play "Explain"
	'Robby.MoveTo 500, 500
	Robby.Speak "Hola, todos nuestros comerciales están ocupados. ¡Permítame que le atienda!"
	Robby.Play "Uncertain"
	'Robby.MoveTo 600, 237
	Robby.Speak "Soy el comercial ''sustituto'' de SERPRISA GROUP. Espero poder atender sus necesidades..."
	'Robby.MoveTo 500, 350
	Robby.Play "Congratulate"
	Robby.Speak "¡Ahh, por cierto! ¿Qué tal, como está Ud.?"
	'Robby.MoveTo 100, 450
	'Robby.Play "Pleased"
	Robby.Play "Read"
	Robby.Speak "Mi nombre es Robby, y me he propuesto venderle ''como sea'' algo de lo que ofrece SERPRISA GROUP."
	'Robby.MoveTo 798, 91
	'Robby.Play "Surprised"
	'Robby.Play "DoMagic1"
	Robby.MoveTo 280, 280
    Robby.Speak "\mrk=1\"
	'Robby.MoveTo 91, 36
	'Robby.Play "DoMagic1"
	'Robby.Speak "Tu opinión es muy importante, por lo que dentro de unas semanas te rogaremos completes una encuesta sobre todos los aspectos de este servicio."
	'Robby.MoveTo 650, 572

    ' *** END MASH USER SCRIPT ***
End Sub