Microsoft Agent 2.0 - Объект Character

Метод MoveTo

Метод MoveTo перемещает персонаж в указанное место

agent.Characters ("CharacterID").MoveTo x,y, [Speed]

Dim mychar As IAgentCtlCharacterEx

' Загружаем персонаж

Agent1.Characters.Load "MyChar"



Set mychar = Agent1.Characters("MyChar")

mychar.Show

' Установим русский язык

mychar.LanguageID = &H419

' Установим движок - голос Бориса (русская версия)

mychar.TTSModeID = "{06377F81-D48E-11D1-B17B-0020AFED142E}"

' Выбираем одно слово из заданных

mychar.Speak "Раз|Два|Три|Четыре"

' Перемещаем персонаж

mychar.MoveTo 100, 100

' Воспроизводим звуковой файл

mychar.Speak " ", "rusproject.wav"

Метод Play

Метод Play проигрывает заданную анимацию для заданного персонажа

agent.Characters ("CharacterID").Play "AnimationName"

Dim mychar As IAgentCtlCharacterEx

Dim AnimationName

' Загружаем персонаж

Agent1.Characters.Load "MyChar"



Set mychar = Agent1.Characters("MyChar")

mychar.Show



'Выводим список возможных анимаций

AnimationList.Clear

For Each AnimationName In mychar.AnimationNames

  AnimationList.AddItem AnimationName

Next



' Воспроизводим вторую анимацию из списка

mychar.Play AnimationList.List(1)

Метод Show

Метод Show делает персонаж видимым и проигрывает соответствующую анимацию Showing

agent.Characters ("CharacterID").Show [Fast]

Dim mychar As IAgentCtlCharacterEx

' Загружаем персонаж

Agent1.Characters.Load "MyChar"



Set mychar = Agent1.Characters("MyChar")

mychar.Show

Метод ShowPopupMenu

Метод ShowPopupMenu выводит всплывающее меню персонажа в указанном месте. Данное меню автоматически всплывает при правом щелчке мыши на персонаже

agent.Characters ("CharacterID").ShowPopupMenu x,y

Dim mychar As IAgentCtlCharacterEx

' Загружаем персонаж

Agent1.Characters.Load "MyChar"



Set mychar = Agent1.Characters("MyChar")

mychar.Show

' Выводим всплывающее меню

mychar.ShowPopupMenu 100, 100

Метод Speak

Метод Speak воспроизводит заданный текст или звуковой файл для заданного персонажа

agent.Characters ("CharacterID").Speak [Text], [Url]

Хотя оба параметра являются необязательными, но один из них обязательно должен присутствовать. Используйте пробел в параметре Text, чтобы воспроизвести звуковой файл без текста в ballon.
Используйте вертикальную черту (|) в параметре Text в качестве разделителя между словами. Это позволит выбирать в случайном порядке текст при каждом вызове операции. Также в Text можно использовать специальные теги, предназначенные для изменения голоса (громкость, тембр и т.п.)

Dim mychar As IAgentCtlCharacterEx

' Загружаем персонаж

Agent1.Characters.Load "MyChar"



Set mychar = Agent1.Characters("MyChar")

mychar.Show

' Установим русский язык

mychar.LanguageID = &H419

' Установим движок - голос Бориса (русская версия)

mychar.TTSModeID = "{06377F81-D48E-11D1-B17B-0020AFED142E}"

' Выбираем одно слово из заданных

mychar.Speak "Раз|Два|Три|Четыре"

' Воспроизводим звуковой файл

mychar.Speak " ", "rusproject.wav"

Метод Think

Метод Think выводит заданный текст в особом окне в виде облачка (как в комиксах). Данный метод схож с Speak, но вид облачка немного другой. Кромет того Think поддерживает только тег Закладка (\Mrk)

agent.Characters ("CharacterID").Think [Text]

Dim mychar As IAgentCtlCharacterEx

' Загружаем персонаж

Agent1.Characters.Load "MyChar"



Set mychar = Agent1.Characters("MyChar")

mychar.Show

' Установим русский язык

mychar.LanguageID = &H419

' Установим движок - голос Бориса (русская версия)

mychar.TTSModeID = "{06377F81-D48E-11D1-B17B-0020AFED142E}"

' Выбираем одно слово из заданных

mychar.Speak "Раз|Два|Три|Четыре"

' Воспроизводим звуковой файл

mychar.Speak " ", "rusproject.wav"

' А теперь персонаж думает

mychar.Think "Ох, надоел ты мне уже!"

Свойство AutoPopupMenu

Свойство AutoPopupMenu возвращает или устанавливает возможность появления всплывающего меню персонажа при правом щелчке кнопки мыши на персонаже или на значке на панели задач

agent.Characters ("CharacterID").AutoPopupMenu  [ = boolean]

Dim mychar As IAgentCtlCharacterEx

' Загружаем персонаж

Agent1.Characters.Load "MyChar"



Set mychar = Agent1.Characters("MyChar")

mychar.Show

' Запрещаем выводить меню при правом щелчке мыши

' и выводим всплывающее меню в заданном месте

mychar.AutoPopupMenu = False

mychar.ShowPopupMenu 100, 100

Свойство Height

Свойство Height устанавливает или возвращает значение высоты кадра для заданного персонажа

agent.Characters ("CharacterID").Height [ = value]

With merlin

   .Width = .Width * 2

   .Height = .Height * 2

   .Speak "Я увеличился!"

End With

Свойство LanguageID

Свойство LanguageID возвращает или устанавливает языковой идентификатор для персонажа. Если языковой идентификатор для персонажа не установлен, то используется системный языковой идентификатор (если установлена поддержка этого языка в Agent). В противном случае используется английский язык (US). Также, это свойсто определяет язык для текста в Balloon, команд в всплывающем меню персонажа и голового движка. Если устанавливаемый идентификатор не существует в системе, происходит ошибка и сохраняются последние настройки LanguageID.

agent.Characters ("CharacterID").LanguageID [ = LanguageID]

Dim mychar As IAgentCtlCharacterEx

' Загружаем персонаж

Agent1.Characters.Load "MyChar"



Set mychar = Agent1.Characters("MyChar")

mychar.Show

' Установим русский язык

mychar.LanguageID = &H419

mychar.Speak "Русский проект"

Свойство Left

Свойство Left получает или устанавливает левый край кадра персонажа

agent.Characters ("CharacterID").Left [ = value]

Dim mychar As IAgentCtlCharacterEx

' Загружаем персонаж

Agent1.Characters.Load "MyChar"



Set mychar = Agent1.Characters("MyChar")

mychar.Show

mychar.Speak "Мои координаты: x = " & mychar.Left & " и y = " & mychar.Top

Свойство OriginalHeight

Свойство OriginalHeight возвращает значение высоты, определенное как настоящее (оригинальное) для заданного персонажа

agent.Characters ("CharacterID").OriginalHeight

With merlin

  .Height = .OriginalHeight

  .Width = .OriginalWidth

  .Speak "Это мой настоящий размер!"

End With

Свойство OriginalWidth

Свойство OriginalWidth возвращает значение ширины, определенное как настоящее (оригинальное) для заданного персонажа

agent.Characters ("CharacterID").OriginalWidth

With merlin

  .Height = .OriginalHeight

  .Width = .OriginalWidth

  .Speak "Это мой настоящий размер!"

End With

Свойство Top

Свойство Top получает или устанавливает верхний край кадра персонажа

agent.Characters ("CharacterID").Top [ = value]

Dim mychar As IAgentCtlCharacterEx

' Загружаем персонаж

Agent1.Characters.Load "MyChar"



Set mychar = Agent1.Characters("MyChar")

mychar.Show

mychar.Speak "Мои координаты: x = " & mychar.Left & " и y = " & mychar.Top

Свойство TTSModeID

Свойство TTSModeID возвращает или устанавливает идентификатор голосового движка Text-to-Speech (TTS) для персонажа.

agent.Characters ("CharacterID").TTSModeID [ = ModeID]

Dim mychar As IAgentCtlCharacterEx

' Загружаем персонаж

Agent1.Characters.Load "MyChar"



Set mychar = Agent1.Characters("MyChar")

mychar.Show<

' Установим русский язык

mychar.LanguageID = &H419

' Установим движок - голос Бориса (русская версия)

mychar.TTSModeID = "{06377F81-D48E-11D1-B17B-0020AFED142E}"

mychar.Speak "Русский проект"

Свойство Width

Свойство Width устанавливает или возвращает значение ширины кадра для заданного персонажа

agent.Characters ("CharacterID").Width [ = value]

With merlin

   .Width = .Width * 2

   .Height = .Height * 2

   .Speak "Я увеличился!"

End With