<SCRIPT LANGUAGE="VBScript">
<!--
Sub Window_Onload()
' load character data
On Error Resume Next
Set reqLoad = Agentx.Characters.Load ("Merlin", _
"C:\program files\microsoft agent\characters\merlin.acs")
Set Merlin = Agentx.Characters("Merlin")
' if the character data loaded okay, show the agent
If IsObject (Merlin) = True Then
Merlin.Show
Merlin.PlaySequence "GetAttention"
Merlin.Play "Explain"
Merlin.Speak "Did you know that \Map=""cu ma din""=""Coumadin®""\ is an anticoagulant drug?"
Else
MsgBox "There was a problem initializing Microsoft Agent. Did you download Merlin's character data file to C:\program files\microsoft agent\characters\merlin.acs? If you have not, please go to http://www.microsoft.com/workshop/c-frame.htm#/workshop/imedia/agent/default.asp to download the file."
End If
End Sub
-->
</SCRIPT>
© 1999 Microsoft Corporation. All rights reserved. Terms of use.