Добавьте интерактивности в вашу программу

Автор: content Четверг, Апрель 10th, 2008 Нет комментариев

Рубрика: Software

Цель данной статьи — рассказать о технологии MS Agent 2.0. О том, что Майкрософт уделяет особое внимание данной технологии говорит тот факт, что начиная с Windows ME MS Agent 2.0 является встроенной в систему. Пользователи более ранних версий Windows 95/98 могут бесплатно скачать необходимые компоненты с сайта Майкрософт. Многие пользователи даже и не подозревают, что у них уже установлен MS Agent. Но давайте выберем Кнопка Пуск-Найти- Файлы и папки и перед вами откроется окно с симпатичной собачкой (В русской версии Windows XP она носит такое знакомое нами имя Тузик)

Файлы с персонажами имеют расширение ACS, и если у вас окно поиска еще открыто, то напечатайте *.acs, чтобы найти всех персонажей на вашем компьютере. Как видите, в моем случае их оказалось 7. С сайта Майкрософт вы можете бесплатно загрузить еще четырех персонажей. А на сайте characters.narod.ruвы можете найти небольшую коллекцию персонажей от других производителей.

Но давайте займемся непосредственно программированием. В качестве языка программирования мы будем использовать VBScript, а примеры будем проверять в Windows XP. Выбор операционной системы Windows XP должен показать читателям, что автор этих строк идет в ногу со временем :-) Хотя вы можете без труда использовать примеры и в вашей операционке. Для тех, кто программирует на чистом Visual Basic, могу посоветовать сходить на сайт http://rusproject.narod.ru/ и скачать справочник по MS Agent, описывающий основные возможности технологии.

Для использования технологии MS Agent необходимо создать объект, подключиться к нему и загрузить персонаж, используя его полное имя.

Код для примера

<script language=vbscript>
dim MyRequest
dim myagent
Set myagent = CreateObject(«Agent.Control.2″)

‘ Подключаемся к объекту
myagent.Connected = True
function sample()
‘ Загружаем персонаж
myagent.Characters.Load «Myagent»,»C:\WINDOWS\srchasst\chars\rover.acs»
set Tuzik=myagent.characters(«myagent»)
‘ Выводим на экран
Tuzik.Show
Tuzik.Speak «Привет! Меня зовут Тузик»
Tuzik.MoveTo 200,300
Tuzik.Speak «Я люблю Izone»
Tuzik.Hide
end function
</script>

В этом примере мы загрузили наш требуемый персонаж и заставили его двигаться, заговорить и исчезнуть с помощью методов Show, Speak, MoveTo

Каждый персонаж обладает своим набором анимаций, который хранятся в коллекции AnimationNames. Для вывода списка доступных анимации используйте конструкцию

For Each Animation in Tuzik.AnimationNames
allanim=allanim & animation
allanim=allanim & vbnewline
Next


Зная теперь список доступных анимаций, мы теперь легко используем их в своих программах с помощью Play. Например, у Тузика есть такое интересный метод, как Sports. В связи с недавно прошедшим чемпионатом мира по футболу, очень актуально будут звучать следующие строчки

function Football() Dim MyRequest Tuzik.Speak «Какая боль! Какая боль!»
Tuzik.Speak «Япония-Россия 1:0″
Set MyRequest = Tuzik.Play («Sports»)
Tuzik.Play «Sports»
Tuzik.StopAll «play»
Tuzik.MoveTo 100,100
Tuzik.Play «Greet»
Tuzik.MoveTo 100,100
Tuzik.Play «Greet»
Tuzik.Speak «До встречи на следующем чемпионате мира в Германии!»
tuzik.hide
end function


В этом примере Тузик скажет горькую правду, держа при этом мяч в лапах.

Скажет, это извините за каламбур, слижком громко сказано. Просто выводится своеобразное облачко с текстом. Такой метод разговора нам хорошо знаком по комиксам.Но персонаж действительно может заговорить! Для этого придется скачать несколько дополнительных бесплатных компонентов. И здесь открывается огромное поле для вашей фантазии. Например, вы можете заставить вслух читать электронные книги. Кроме того, существует возможность загрузки нескольких персонажей одновременно, что дает возможность озвучки текста разными голосами. Миниатюрный театр на вашем компьютере! Но это уже другая история.

Автор: Александр Климов

Оставить комментарий

Чтобы оставлять комментарии Вы должны быть авторизованы.

Похожие посты