Jak vytvořit vlastního mluvícího kouzelníka.

Je to lehký jak facka! :)

Tento kod ani nemusím vysvětlovat a po chvíli ho pochopíte sami ;)

Code:

StrText = InputBox("odpoví! ("Ahoj, jsem Merlin a umím mluvit jen anglicky. :)")

on Error Resume Next

strAgentName2 = "MERLIN"

strAgentPath2 = "C:\Windows\Msagent\Chars\" & strAgentName2 & ".acs"

Set objAgent2 = CreateObject("Agent.Control.2")

objAgent2.Connected = TRUE

objAgent2.Characters.Load strAgentName2, strAgentPath2

Set objPeter = objAgent2.Characters.Character(strAgentName2)

objPeter.MoveTo 700,300

objPeter.Show

objPeter.Play "GetAttention"

objPeter.Play "GetAttentionReturn"

ObjPeter.Speak StrText

Wscript.Sleep 3000

objVoice.Speakstream objFile

Set objVoice = CreateObject("SAPI.SpVoice")

ObjVoice.Rate = 1

objVoice.Speak strText

Wscript.Sleep 1000

Set objAction= objPeter.Hide

Do While objPeter.Visible = True

Wscript.Sleep 250

Loop

Odkaz ke stažení: Download

Heslo: 12345     !!!