Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Microsoft agents
Message
From
11/05/2006 15:11:42
 
General information
Forum:
Visual FoxPro
Category:
Third party products
Miscellaneous
Thread ID:
01117654
Message ID:
01121112
Views:
16
Naomi -

Here's a stand along prg that works for me. You will need Peedy and Genie installed.
public oAgent,oPeedy,oGenie

oAgent = createobject("agent.control.2")
oAgent.connected = .t.

oAgent.Characters.Load("Peedy","Peedy.acs")
oAgent.Characters.Load("Genie","Genie.acs")

opeedy = oAgent.Characters('Peedy')
ogenie = oAgent.Characters('Genie')
opeedy.show
lWait = opeedy.moveto(200,400)

oGenie.wait(lWait)
oGenie.moveto(400,400)
lWAit = oGenie.show


oPeedy.wait(lWait)
oPeedy.speak("Hello")
oPeedy.play("gestureleft")
oPeedy.speak("Allow me to introduce my good friend, Genie.")

oPeedy.play("lookleft")
lWait = oPeedy.speak("Hello Genie")

oGenie.wait(lWait)
oGenie.play("lookright")
lWait = ogenie.speak("And hello to you too Peedy")

oPeedy.wait(lWait)
***************************************************************
>>>Ok, I think I made a complete mess of my PC. I downloaded several files from the link you send me. Now
>>>SET Classlib TO (HOME()+"ffc\_agent.vcx") addi
>>>PUBLIC msagent
>>>
>>>msagent=CREATEOBJECT("_agent")
>>>msagent.load("merlin","merlin.acs")
>>>msagent.setActiveAgent("merlin")
>>>msagent.show(680,400)
>>>
>>>msagent.activeagent.LanguageID="&H0409"
>>>
>>>*msagent.play("greet")
>>>msagent.speak("Hello Naomi")
>>>
>>>the agent appears, but it doesn't speak and instead of Hello Naomi shows just Hello. Nick's FoxSpeaker also stopped working...
>>
>>
>>I never installed Foxspeaker. You don't need Foxspeaker. I can make spoken agents with only these lines upper.
>>
>>Try this link. The agent in this link speaks too.
>>http://fox.wikis.com/wc.dll?Wiki~MicrosoftAgent~WIN_COM_API
>
>It doesn't, since it's not installed on my work PC.
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform