В очередной раз на одном сайте встретил вот эту тему: Merlin. короче вылетает тип и начинает говорить, летать по экрану и т.д..
вот кстати ссылочка на один сайт, иде используется этот скрипт:
http://zhekinside.narod.ru/
Никогда не обращал на это внимание, а сечас захотелось че-нить узнать про это, для общего развития так сказать. Может кто-нить по этой теме подкинуть каких-нит ссылок, где про это можно почитать?
1. lan - 02 Мая, 2005 - 18:58:22 - перейти к сообщению
2. SviMik - 03 Мая, 2005 - 11:12:58 - перейти к сообщению
Ты про такого? http://zone.ee/svimik/pricol.htm На моём сайте эта фмшка есть, могу скрипт дать.
3. lan - 03 Мая, 2005 - 12:44:20 - перейти к сообщению
да про этого, хе. скинь мне на мыло, я сним поприкалываюсь. да и где бы почитать, какие он эффекты может делать и как этого добиться (т.е. какие команды какими эффектами управляют).
4. SviMik - 03 Мая, 2005 - 13:25:57 - перейти к сообщению
Вот код с моей страницы:
Или только сам скрипт:
Команды:
Char.MoveTo screen.width/4,screen.height/15
Перемещение (можно указать до появления персонажа, тогда он появится в указанном месте).
Char.Show
Появляется.
Char.Play "Эффект"
Список эффектов см. в первом коде. Например:
Char.Play "Acknowledge"
Char.Speak "Вас приветствует SviMik Corporation"
Без комментариев.
Char.Hide
Прячется.
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>
<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
Прячется.
5. lan - 03 Мая, 2005 - 16:12:40 - перейти к сообщению
Супер, пасиба. 
6. SviMik - 03 Мая, 2005 - 16:32:30 - перейти к сообщению
ЗЫ. Это работает только в IE. Кто-нибудь может переделать этот скрипт на JS, чтобы в Опере работало, если это вобще возможно?
7. lan - 03 Мая, 2005 - 16:36:54 - перейти к сообщению
а вообще можно поменять этого человечка на какого-нить другого?
8. SviMik - 03 Мая, 2005 - 17:04:55 - перейти к сообщению
lan пишет:
а вообще можно поменять этого человечка на какого-нить другого?
На комп можно устанавливать персонажи, но я оочень долго промучался, так и не додумался, как их вызывать.
Вобщем, см. этот сайт: http://characters.narod.ru/
Кстати, Merlin - это персонж маг, стандартный в windows.
А эти человечки называются персонажами (characters), этот сайт посвящён им. Правда, никаких скриптов там нет, так что как вызвать других - думайте сами. Я два дня голову ломал, так нифига и не получилось.
9. TvoyWeb - 03 Мая, 2005 - 18:02:29 - перейти к сообщению
SviMik
Упакой свой код в файлы и выложи архивом плиз.
Оверквотинг получается.
Упакой свой код в файлы и выложи архивом плиз.
Оверквотинг получается.