Dim AgentControl

Sub checkComps()
	On Error Resume Next

	Dim Msg
	Dim AgentOK
	Dim ActorOK
	Dim isOK


	Msg="REQUIRED COMPONENTS :" & vbCrlf
	' Invalid on the Internet !
'	Msg=Msg & "- PowerPoint 2000:" & checkObject("PowerPoint.Application.9") & vbCrlf

	AgentOK=checkObject("Agent.Control.2")
	ActorOK=checkActor("")

	Msg=Msg & "- MS Agent core components:" & AgentOk & vbCrlf 
	Msg=Msg & "- At least one actor:" & ActorOK & vbCrlf 

	if (AgentOk=" Ok." And ActorOK=" Ok.") Then 
		Msg=Msg & vbCrlf  & "LA CANTOCHE ACTORS :" & vbCrlf 
		If claude.Checked=True Then
			Msg=Msg & "- La Cantoche Claude actor:" & checkActor("claude.acs") & vbCrlf	
		End If	
		If jamesb.Checked=True Then
			Msg=Msg & "- La Cantoche James actor with black suit:" & checkActor("james.acs") & vbCrlf	
		End If	
		If milton.Checked=True Then
			Msg=Msg & "- La Cantoche Milton actor:" & checkActor("milton.acs") & vbCrlf	
		End If	
		If oscar.Checked=True Then
			Msg=Msg & "- La Cantoche Oscar actor:" & checkActor("oscar.acs") & vbCrlf	
		End If	
		If plany.Checked=True Then
			Msg=Msg & "- La Cantoche Plany actor:" & checkActor("plany.acs") & vbCrlf	
		End If	

		Msg=Msg & vbCrlf  & "MS ACTORS :" & vbCrlf 
		If genie.Checked=True Then
			Msg=Msg & "- MS Genie actor:" & checkActor("genie.acs") & vbCrlf	
		End If	
		If merlin.Checked=True Then
			Msg=Msg & "- MS Merlin actor:" & checkActor("Merlin.acs") & vbCrlf	
		End If	
		If peedy.Checked=True Then
			Msg=Msg & "- MS Peedy actor:" & checkActor("peedy.acs") & vbCrlf	
		End If	
		If robby.Checked=True Then
			Msg=Msg & "- MS Robby actor:" & checkActor("robby.acs") & vbCrlf	
		End If	

		Set AgentControl=CreateObject("Agent.Control.2")
		AgentControl.Connected=True
		AgentControl.Characters.Load "actor" 
		AgentControl.Characters("actor").LanguageID=&H0409

		Msg=Msg & vbCrlf  & "OPTIONAL COMPONENTS :" & vbCrlf 
		If ustts.Checked=True Then
			Msg=Msg & "- L&H US English Text-To-Speech engine:" & setID("TTS","{CA141FD0-AC7F-11D1-97A3-006008273000}") & vbCrlf
		End If		
		If uscce.Checked=True Then
			Msg=Msg & "- MS Command&Control engine:" & setID("SR","{D8905400-B5C8-11D0-B968-0020AFDB1B9C}") & vbCrlf			
		End If		
		Msg=Msg & vbCrlf  & "LANGUAGE SUPPORT :" & vbCrlf 
		If frdll.Checked=True Then
			Msg=Msg & "- French DLL:" & setID("L",&H040C) & vbCrlf			
		End If		
		If frtts.Checked=True Then
			Msg=Msg & "- L&H TTS 3000 French Text-To-Speech engine:" &  setID("TTS","{0879A4E1-A92C-11D1-B17B-0020AFED142E}") & vbCrlf			
		End If		
	End If

	MsgBox Msg ,64,"powerActor2000 Wizard"
End Sub

Function checkObject(sClass) 
	On Error Resume next

	Dim ObjTemp

	Set ObjTemp=CreateObject(sClass)

        If IsObject(ObjTemp) Then
		Set ObjTemp=Nothing
		checkObject=" Ok."
	Else
		checkObject=" missing !"
	End If
End Function

Function checkActor(sACSFile)
	On Error Resume Next

	Set AgentControl=CreateObject("Agent.Control.2")
	AgentControl.Connected=True
	If IsObject(AgentControl) Then
		If sACSFile="" Then
			AgentControl.Characters.Load "actor" 
		Else
			AgentControl.Characters.Load "actor",sACSFile
		End If

		If Err = 0 Then
			checkActor=" Ok."
		Else
			checkActor=" missing !"
		End If
	Else
		checkActor=" missing !"
	End If
	AgentControl.Characters.Unload "actor" 	
End Function

Function setID(sType,lID)
	On Error Resume Next

	Select Case sType
		Case "L"
			AgentControl.Characters("actor").LanguageID=lID
		Case "TTS"
			AgentControl.Characters("actor").TTSModeID=lID
		Case "SR"
			AgentControl.Characters("actor").SRModeID=lID
	End Select

	If Err=0 Then
		setID=" Ok."
	Else
		setID=" missing !"
	End If
End Function

Sub SelectAll()
	claude.Checked=True
	jamesb.Checked=True
	milton.Checked=True
	oscar.Checked=True
	plany.Checked=True

	genie.Checked=True
	merlin.Checked=True
	peedy.Checked=True
	robby.Checked=True

	ustts.Checked=True
	uscce.Checked=True
	frdll.Checked=True
	frtts.Checked=True
End Sub

Sub UnSelectAll()
	claude.Checked=False
	jamesb.Checked=False
	milton.Checked=False
	oscar.Checked=False
	plany.Checked=False

	genie.Checked=False
	merlin.Checked=False
	peedy.Checked=False
	robby.Checked=False

	ustts.Checked=False
	uscce.Checked=False
	frdll.Checked=False
	frtts.Checked=False
End Sub