Вот код с моей страницы:
CODE:
Код вырезан, упакован, и прикреплён к сообщению. См. ниже.
Или только сам скрипт:
CODE:
<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
<Сюда пишешь команды, которые он будет выполнять>
'Set Character = Nothing
End If
'Set Agent = Nothing
End If
--></script>
Команды:
Char.MoveTo screen.width/4,screen.height/15
Перемещение (можно указать до появления персонажа, тогда он появится в указанном месте).
Char.Show
Появляется.
Char.Play "Эффект"
Список эффектов см. в первом коде. Например:
Char.Play "Acknowledge"
Char.Speak "Вас приветствует SviMik Corporation"
Без комментариев.
Char.Hide
Прячется.
|
Чат на форуме
Помощь
Поиск
Без описания
