Dim Req
Dim Cmd
AgentControl.Connected=True
AgentControl.RaiseRequestErrors = False
Set Loaded=AgentControl.Characters.Load("Merlin", "Merlin.acs")
AgentControl.RaiseRequestErrors = True
if Loaded.Status<>1 Then
 Set Merlin = AgentControl.Characters("Merlin")
 Merlin.LanguageID = &H0409
 For I=1 To UBound(Y)
  Merlin.Commands.Add I, Y(I), Y(I)
'  Merlin.Commands(I).ConfidenceText = ""
'  Merlin.Commands(I).Confidence = -80
 Next
End If
Sub Start()
 document.all.say.innerhtml=""
 Merlin.StopAll
 Merlin.MoveTo 450, 400
 Merlin.Show   
 Cmd=0
 Set Req=Merlin.Speak(M(1))
 Anim(1)
End Sub
Sub See()
 For I=1 To UBound(M)
  d=d&"Merlin: "&M(I)&"<BR>"
  If Y(I)>"" Then d=d&"<B>You: "&Y(I)&"</B><BR>"
 Next
 document.all.dia.innerhtml=d
End Sub
Sub All()
 Merlin.StopAll
 Merlin.Show
 Merlin.Listen False
 For I=1 To UBound(M)
  Merlin.Speak(M(I))
  If Y(I)>"" Then Merlin.Speak(Y(I))
 Next
End Sub
Sub AgentControl_Command(byVal Inp)
 If (Inp.Confidence<=-80) Then
  Set Req=Merlin.Speak("Please say that again.")
  Exit Sub
 End If
 If Inp.Name="" Then Exit Sub
 Cmd=CLng(Inp.Name)
 If Cmd>=1 And Cmd<UBound(Y)-1 Then
  Set Req=Merlin.Speak(M(Cmd+1))
  Anim(Cmd+1)
 ElseIf Cmd=UBound(Y)-1 Then
  Merlin.Listen False
  Merlin.Speak(M(Cmd+1))
  Anim(Cmd+1)
  Merlin.Speak "Well done! To start again click the button."
  document.all.say.innerhtml=""
 End If	
End Sub
Sub AgentControl_RequestComplete(ByVal Ob)
 On Error Resume Next
 Select Case Ob
  Case Req
   If Ob.Status=0 Then
    Set LReq=Merlin.Listen(True)
    document.all.say.innerhtml=Y(Cmd+1)
   End If
 End Select
End Sub
Sub AgentControl_ListenComplete(ByVal CID, ByVal C)
 On Error Resume Next
 If C<5 Then document.all.say.innerhtml=""
End Sub
Sub Anim(byVal N)
 If A(N)>"" Then Merlin.Play(A(N))
End Sub