Este script esta muy bueno para el que no lo conoce es un mago que lo configuras para que salga en tu web site y le de una explicacion a los visitantes de como es tu web o lo que quieras que diga pq es configurable y aparte de divertido es muy llamativo ya que recorre toda la pagina de tu web volando y explicando.
configuracion: Solo puedes cambiar las frases que estan entre comillas despues de la palabra speak sin cambiar una coma o punto tambien puedes cambiar la direccion del mago si sabes los codigos.

Código: Seleccionar todo

<DIV><script language="VBScript" type="text/vbscript">
<!--
'_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/
'_/ Portions generated by MASH - The Microsoft Agent Scripting Helper, version 7.0
'_/ by BellCraft Technologies, http://www.bellcraft.com/mash
'_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/
' * Character Objects
Dim Merlin
' * Variables
Dim UsedChars
Dim MerlinID
Dim MerlinACS
Dim MerlinLoaded
Dim HideReq
Dim Req
' * Initialize
UsedChars = "Merlin"
' * Merlin
MerlinID = "Merlin"
MerlinACS = "merlin.acs"
MerlinLoaded = False

' * Prevent Auto-Download of Microsoft Agent if not already installed
If IsAgentInstalled() Then
    Document.WriteLn "<object id=""AgentControl"" width=""0"" height=""0"""
    Document.WriteLn "  classid=""CLSID:D45FD31B-5C6E-11D1-9EC1-00C04FD7081F"""
    Document.WriteLn "  codebase=""#VERSION=2,0,0,0"">"
    Document.WriteLn "</object>"
    Document.WriteLn "<object id=""L&HTruVoice"" width=""0"" height=""0"""
    Document.WriteLn "  classid=""CLSID:B8F2846E-CE36-11D0-AC83-00C04FD97575"""
    Document.WriteLn "  codebase=""#VERSION=6,0,0,0"">"
    Document.WriteLn "</object>"
End If
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()
    ' Purpose:  Runs automatically when page is loaded
    On Error Resume Next
    ' * INSERT ANY NON-AGENT RELATED SCRIPTING HERE
    Call AgentMain
End Sub
Sub AgentMain()
    On Error Resume Next
    If Not IsAgentInstalled() Then
        Exit Sub
    End If
    AgentControl.Connected = True
    MerlinLoaded = LoadLocalChar(MerlinID, MerlinACS)
    If Not MerlinLoaded Then
        ' Attempt to load default character
        MerlinLoaded = LoadLocalChar(MerlinID, "")
    End If
    If MerlinLoaded 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
     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 Merlin = AgentControl.Characters(MerlinID)
    Merlin.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 MerlinLoaded Then
        Call LoadError
        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
End Sub
Sub LoadError()
    Dim strMsg
    Window.Status = ""
    strMsg = "Error Loading Character: " & MerlinID
    strMsg = strMsg & Chr(13) & Chr(13) & "This Microsoft Agent Script requires the character(s):"
    strMsg = strMsg & Chr(13) & UsedChars
    MsgBox strMsg, 48
End Sub
Sub AgentControl_Click(ByVal CharacterID, ByVal Button, ByVal Shift, ByVal X, ByVal Y)
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
    Merlin.StopAll
    If Not MerlinID.HasOtherClients Then
        If Merlin.Visible Then
            Set HideReq = Merlin.Hide()
        Else
            AgentControl.Characters.Unload MerlinID
        End If
    End If
End Sub
Sub InitAgentCommands()
    ' Purpose:  Initialize the Commands menu
    On Error Resume Next
    Merlin.Commands.RemoveAll
    Merlin.Commands.Caption = "MASH Menu"
    Merlin.Commands.Add "ACO", "Advanced Character Options", "Advanced Character Options"
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
End Sub
Sub AgentIntro()
    On Error Resume Next
    Call InitAgentCommands
    ' *** BEGIN MASH USER SCRIPT ***
    Merlin.MoveTo 858, 36
    Merlin.Show
    Merlin.Speak "Bienvenidos a hiperacme.net!"
    Merlin.Play "DoMagic2"
    Merlin.Speak "Estoy aqui para enseñarles y guiarlos por la paguina"
    Merlin.MoveTo 20, 230
    Merlin.Play "Explain"
    Merlin.Speak "bueno casi todo."
    Merlin.MoveTo 1, 548
    Merlin.Play "GestureLeft"
    Merlin.Speak "Aqui tienen el menu de la paguina."
    Merlin.MoveTo 57, 643
    Merlin.Play "GestureDown"
    Merlin.Speak "Donde encontraras programas videos y nuestro foro."
    Merlin.Speak "Aproposito visitanos en el foro."
    Merlin.MoveTo 49, -7
    Merlin.Play "GestureDown"
    Merlin.Speak "Alli estamos reunidos todos tenemos fotos y videos nuestros."
    Merlin.MoveTo 433, 367
    Merlin.Play "Pleased"
    Merlin.Speak "hiperacme.net"
    Merlin.MoveTo 682, 640
    Merlin.Play "Suggest"
    Merlin.Speak "Te estoy sacando del paso ehhhh?"
    Merlin.Play "Surprised"
    Merlin.Speak "Yo lo se pero quiero que sepas mas de esta paguina."
    Merlin.MoveTo 43, 623
    Merlin.Play "Explain"
    Merlin.Speak "Aparte que me gusta llamar la atencion."
    Merlin.MoveTo 830, 340
    Merlin.Play "Congratulate"
    Merlin.Speak "Te puedes ganar un premio jajaja mentira."
    Merlin.Play "Congratulate_2"
    Merlin.Speak "No te creas lo del premio."
    Merlin.MoveTo 837, 25
    Merlin.Play "Announce"
    Merlin.Speak "Bueno como les hiba diciendo."
    Merlin.Play "Confused"
    Merlin.Speak "No busques mas."
    Merlin.MoveTo 606, 649
    Merlin.Play "GestureRight"
    Merlin.Speak "Aqui encontraras lo que necesitas."
    Merlin.MoveTo 184, 650
    Merlin.Play "GestureLeft"
    Merlin.Speak "Downloads,videos y mucho mas."
    Merlin.MoveTo 386, 602
    Merlin.Play "GestureDown"
    Merlin.Speak "Ahhhh tambien visita nuestra galeria tenemos fotos del barrio."
    Merlin.Play "GetAttention"
    Merlin.Speak " antes y despues."
    Merlin.MoveTo 798, 379
    Merlin.Play "GestureRight"
    Merlin.Speak "Esta paguina y el foro es para unir a todos."
    Merlin.Speak "Que estamos regados por el mundo."
    Merlin.Play "GestureUp"
    Merlin.Speak "Ojala te guste y te registres en nuestro foro."
    Merlin.Speak "Si ya se estas loco por que termine."
    Merlin.MoveTo 796, 21
    Merlin.Play "GestureLeft"
    Merlin.Speak "Por eso me voy por donde vine."
    Merlin.Speak "Y espero que te guste nuestra paguina."
    Merlin.Play "Think"
    Merlin.Speak "Y nuestro foro."
    Merlin.Play "Surprised"
    Merlin.Speak "Bueno ya me voy."
    Merlin.MoveTo 907, 41
    Merlin.Play "Wave"
    Merlin.Speak "Espero volverte a ver jaja."
    Merlin.Play "Wave"
    Merlin.Speak "Bye nos vemos pronto."
    Merlin.Hide
    Merlin.Show
    Merlin.Play "Write"
    Merlin.Speak "Se me olvido filmar mi salida."
    Merlin.Play "Wave"
    Merlin.Speak "Bye."
    Merlin.Hide

    ' *** END MASH USER SCRIPT ***
End Sub
'_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/
-->
</script></DIV>]

Alorse tu sabes que tengo un problema con ese script y aprovecho para que los usuarios sepan,cuando pongo ese script cada vez que alguien visita mi pagina sale el popup para aceptar el active control del mago y se que solo se le tiene que agragar el xtive al codigo para que no salga mas pues me e fajado con eso y por la manejadera no e podido arreglarlo si sabes algo ponlo aqui asi los usuarios pueden copiarlo y pegarlo en sus paginas sin que les salga el popup.

jajajaa que bueno que esta, es medio molesto despues de un rato jeje. Pero en fin, muy bueno!


Graciasss

Si a mi me gusta mucho pero con ese problema la gente se asusta y no quiere aceptar el popup pq piensan que es algo malo pero en verdad esta muy bueno el mago.

De ultima podrias aclarar que les va a salir un cartelito y que es un mago y toda la pelota... y sino, que se jodan por miedosos