VPF::Создание персонажей - Форум программистов

Delphist

Дата 28.9.2006, 13:15 (ссылка)

(нет голосов)

Загрузка ...

Delphist Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2145
Регистрация: 3.2.2004
Где: всегда в сети

Репутация: 2
Всего: 3

Всем известны персонажи из MSOffice - скрепка, волшебник и т.п. Управлять ими основываясь на технологии WMI не составляет труда. Вопрос такой в каком редакторе и как назначаются действия создаваемому персонажу.

--------------------

ProcessInfo 1-ая моя программа (аналог spyxx.exe с гораздо большим функц-ом - внедрение dll в адр. простр. процесса, перехват API-функций, разбор приложения на окна мн.др).
Когда-то давным-давно использовал это...

Akella

Дата 28.9.2006, 13:28 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329

ты лучше выложи сюды исходники по управлению ими

Добавлено @ 13:34
например:

Код


var
    Character:IAgentCtlCharacter;
    Request: IAgentCtlRequest;
    AgentName:String;
    AGENTPATH:String;
    vPlay    : Byte;
//    vMessagesFile:String;

  Const
    AGENT ='Cat';

procedure TMainForm.WaitFor(Request:IAgentCtlRequest);
var
 Status:LongInt;
begin
  repeat
   Application.ProcessMessages;
   Status := Request.Get_Status;
  until (Status <> 2) and (Status <> 4);
end;

Procedure TMainForm.WMPlayC(Var Msg: TMessage);
begin//выполнение команд и разговор
  Character.StopAll(EmptyParam);
  //дейсвие
  if (Msg.WParam > 0){ and (Table1.Locate('OPER', Msg.WParam,[]))} then
   try
    Request := Character.play(ParToPlay(Msg.WParam));
    WaitFor(Request);
   except
   end;

  if (Msg.LParam > 0) and (Table1.Locate('OPER', Msg.LParam,[])) then
   try//говорим
    Request := Character.Speak(Table1.Fields[1].AsString,EmptyParam);
    WaitFor(Request);
   except
   end;

end;

procedure TMainForm.FormCreate(Sender: TObject);
...

  try
    AgentName := ini.ReadString('AGENT', 'name', 'Offcat.acs');
    AgentPath := ini.ReadString('AGENT','path', ExtractFilePath(ParamStr(0)));//+'\'+AgentName
    if Copy(AgentPath,length(AgentPath),1)<>'\' then AgentPath:= AgentPath+'\';
    AgentPath := AgentPath+AgentName;
    vSound    := ini.ReadBool('SOUND','sound', TRUE);
    vMove     := ini.ReadBool('CUR','move', False);
    PathC     := ini.ReadString('FMREADMESS','path','C:\')
  finally
    ini.Free;
  end;
  Agent1.Connected:=true;

  Request:=Agent1.Characters.Load(Agent,AgentPath);
  Character:=Agent1.Characters.Character(Agent);
  Request := Character.MoveTo(700,25, 0);
  Request := Character.Show(False);
  if AnsiUpperCase(AgentName)=AnsiUpperCase('Offcat.acs') then
    Request:=Character.Play(ParToPlay(16));
  if AnsiUpperCase(AgentName)=AnsiUpperCase('Felix.acs') then
    Request:=Character.Play(FelixToPlay(12));
  if AnsiUpperCase(AgentName)=AnsiUpperCase('Oscar.acs') then
    Request:=Character.Play(OscarToPlay(2));
  if AnsiUpperCase(AgentName)=AnsiUpperCase('Squidge.acs') then
    Request:=Character.Play(SquidgeToPlay(12));
  if AnsiUpperCase(AgentName)=AnsiUpperCase('Santa.acs') then
    Request:=Character.Play(SantaToPlay(12));

  WaitFor(Request);
//  WaitFor(Agent1.Characters.Load (AGENT, AGENTPATH));
  Request := Character.Speak('Я здесь',EmptyParam);
...

...
Character.Speak('Получена малява', EmptyParam);

      Character.StopAll(EmptyParam);
      Request:=Character.Speak('Доброе утро', EmptyParam);

Character.Show(False);
...
  Character.StopAll(EmptyParam);
  Request:=Character.Speak('Ну я пошла...', EmptyParam);
  Request:=Character.Speak('скоро буду', EmptyParam);
  Character.Hide(EmptyParam);
...

когда-то развлкал своих бухгалтеров smile

Yanis

Дата 28.9.2006, 13:37 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111

http://www.microsoft.com/msagent/default.asp

Добавлено @ 13:38
В частсности по созданию здесь: http://www.microsoft.com/msagent/downloads/developer.asp

--------------------

*щёлк*

Delphist

Дата 28.9.2006, 13:59 (ссылка)

(нет голосов)

Загрузка ...

Delphist Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2145
Регистрация: 3.2.2004
Где: всегда в сети

Репутация: 2
Всего: 3

Цитата(Yanis @ 28.9.2006, 14:37

)

http://www.microsoft.com/msagent/default.asp

Цитата(Yanis @ 28.9.2006, 14:37

)

В частсности по созданию здесь: http://www.microsoft.com/msagent/downloads/developer.asp

Что-нибудь про создание персонажей на русском есть?

--------------------

Akella

Дата 28.9.2006, 14:58 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329

нету

Delphist

Дата 28.9.2006, 15:26 (ссылка)

(нет голосов)

Загрузка ...

Delphist Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2145
Регистрация: 3.2.2004
Где: всегда в сети

Репутация: 2
Всего: 3

А ведь русские программы есть, содержащие, собственные персонажи. Например, программа переводчик английского текста MagicGood'у у них там утенок. В каком редакторе они его делали?

--------------------

Akella

Дата 28.9.2006, 15:42 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329

Цитата(Delphist @ 28.9.2006, 15:26

)

при чём здесь язык и программа созлания персонажа smile

, поставь русскочязычный движок и будет тебе счастье

Добавлено @ 15:45
персонаж говорит средствами встроенного в винду движка синтеза человеческой речи

Delphist

Дата 28.9.2006, 16:26 (ссылка)

(нет голосов)

Загрузка ...

Delphist Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2145
Регистрация: 3.2.2004
Где: всегда в сети

Репутация: 2
Всего: 3

Цитата(Akella @ 28.9.2006, 16:42

)

при чём здесь язык и программа созлания персонажа

Что же трудного понять. Мне интересно в каком редакторе создается сам персонаж (рисуется его внешний вид и т.п.)

--------------------

Yanis

Дата 28.9.2006, 17:34 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111

Delphist

Цитата

Agent Character Editor

The Agent Character Editor lets you create your own custom Microsoft Agent characters from your source bitmap images. Despite its name, it really isn't an editing tool so you can't just edit a character that exists already.

http://download.microsoft.com/download/d/f...121d9c6/ace.exe

--------------------

*щёлк*

Delphist

Дата 29.9.2006, 08:21 (ссылка)

(нет голосов)

Загрузка ...

Delphist Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2145
Регистрация: 3.2.2004
Где: всегда в сети

Репутация: 2
Всего: 3

Цитата(Yanis @ 28.9.2006, 18:34

)

http://download.microsoft.com/download/d/f...121d9c6/ace.exe

Скажите пожалуйста размер файла

Добавлено @ 08:25

Цитата(Yanis @ 28.9.2006, 18:34

)

http://download.microsoft.com/download/d/f...121d9c6/ace.exe

Этот редактор не может редактировать уже существующие персонажи, есть ли такие редакторы, которые умели бы помимо создания новых редактировать уже существующие персонажи.

Это сообщение отредактировал(а) Delphist - 29.9.2006, 08:42

--------------------

Akella

Дата 29.9.2006, 08:54 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329

никто не сможет редактировать уже созданные персонажи, этот как откомпилированная программа, как откомпилированный флэш-ролик

Delphist

Дата 29.9.2006, 09:11 (ссылка)

(нет голосов)

Загрузка ...

Delphist Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2145
Регистрация: 3.2.2004
Где: всегда в сети

Репутация: 2
Всего: 3

http://download.microsoft.com/download/d/f...121d9c6/ace.exe
Скажи а какой здесь размер файла.

--------------------

Delphist

Дата 29.9.2006, 09:35 (ссылка)

(нет голосов)

Загрузка ...

Delphist Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2145
Регистрация: 3.2.2004
Где: всегда в сети

Репутация: 2
Всего: 3

Цитата(Delphist @ 29.9.2006, 10:11

)

Скажи а какой здесь размер файла.

~1Mb

Добавлено @ 09:36

Цитата(Delphist @ 29.9.2006, 10:11

)

http://download.microsoft.com/download/d/f...121d9c6/ace.exe

А есть ли руссификатор к этой проге

--------------------

kostas

Дата 29.9.2006, 10:06 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 100
Регистрация: 21.7.2006

Репутация: 3
Всего: 4

Цитата

А есть ли руссификатор к этой проге

в интернете врятли найдень, но тебе повезло smile

когда я его делал, уже не помню для чего и для кого, см. в аттаче

Присоединённый файл ( Кол-во скачиваний: 12 )

Patch_ace.zip 65,72 Kb

Delphist

Дата 29.9.2006, 10:46 (ссылка)

(нет голосов)

Загрузка ...

Delphist Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2145
Регистрация: 3.2.2004
Где: всегда в сети

Репутация: 2
Всего: 3

Цитата(kostas @ 29.9.2006, 11:06

)

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

Спасибо!

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »