|
|
|
| Добрый день. Подскажите пожалуйста, а нельзя ли создать на сайте анимированного персонажа, который будет время от времени подсказывать действия пользователя типа как в Worde. Если по этому поводу какая-нибудь литература как это осуществить? | |
|
|
|
|
|
|
|
для: diman
(23.11.2006 в 13:10)
| | Это можно сделать на JavaScripte... сделать картинку помощника и под ним варианты вопросов... и сможетрся на какой кликнишь, будут появляться другие варианты... ну или пусть рандомом выводит фразу, это еще легче сделать ))) | |
|
|
|
|
автор: гость 007 (23.11.2006 в 18:37) |
|
|
для: diman
(23.11.2006 в 13:10)
| | http://articles.org.ru/cn/jump.php?3338 | |
|
|
|
|
|
|
|
для: diman
(23.11.2006 в 13:10)
| | если анимированного, то тут имхо flash больше подойдёт. Если конечно же реально будет связать действия сайта с flash... | |
|
|
|
|
|
|
|
для: NIK
(23.11.2006 в 19:42)
| | у меня где-то был похожий апельсин, тоже сидит в трее, и прикалывается. то карабкается вверх по ячейкам Экселя, срывается, падает, разбивается. то нагло курит. то рыбу ловит. если долго мышкой не двигать, начинает демонстративно зевать. | |
|
|
|
|
|
|
|
для: diman
(23.11.2006 в 13:10)
| | Можно, но работать это будет только в Винде,(сами агенты весят 1.5-4метра) и можно писать не только на JavaScript а еще и на VBScript. И только со стандартными агентами из винды, а вот подгружать пользователю своего созданного, это зло, и он убежит при одном только виде открывшегося окна "нет компонента, загрузить? установить?"
Есть на сайте мелкомягких полное описание агентов,
бесплатный редактор агентов http://agent.microsoft.com/agent2/sdk/ace.exe
справочник по основным возможностям технологии http://rusproject.narod.ru/
это то что я нарыл
пример работы с агентом на странице html
<script language="VBScript">
Option Explicit
Dim Agent
Dim Char
Dim ScrLeft
Dim ScrTop
On Error Resume Next
Set Agent = CreateObject("Agent.Control.2")
If IsObject(Agent) Then
' Подключаемся к объекту
agent.Connected = True
Agent.Characters.Load "Default"
Set Char = Agent.Characters("Default")
If IsObject(Char) Then
ScreenWidth=screen.width
ScreenHeight=screen.height
Char.MoveTo screen.width/2,screen.height/2
Char.Show
Char.Play "Greet"
Char.Speak "С Новым годом!"
Char.Play "LookLeft"
Char.Play "LookLeftReturn"
Char.Play "LookRight"
Char.Play "LookRightReturn"
Char.Play "Confused"
Char.Speak "Извините, кажется немного рановатттооо"
Char.MoveTo screen.width/2,screen.height
Char.Play "RestPose"
Char.MoveTo screen.width/2,screen.height-100
Char.Speak "Ох и погудели ж мы вчера, тренировались к встрече нового 2007 года"
'Set Character = Nothing
End If
'Set Agent = Nothing
End If
</script>
|
| |
|
|
|
|
|
|
|
для: indexer
(24.11.2006 в 00:24)
| | За этот срикпт большое спасибо... взял себе на вооружение... | |
|
|
|
|
|
|
|
для: DEM
(24.11.2006 в 00:36)
| | Не забывайте что каждый персонаж обладает своим набором анимаций, который хранятся в коллекции AnimationNames. Для вывода списка доступных анимации естественно после подключения к персонажу
For Each Animation in Tuzik.AnimationNames
allanim=allanim & animation
allanim=allanim & vbnewline
Next
|
тут использован Тузик | |
|
|
|