Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Мультимедиа в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 12.08.2008, 18:29   #1
Delphimen
 
Регистрация: 12.08.2008
Сообщений: 3
Вопрос управление в игре - Скачал GLScene для Делфи, создал актера, камеру.

Скачал GLScene для Делфи, создал актера, камеру...
пытался написать управление к актёру, но не получаеться
код приблезительно такой:

...
var x,z,actot: intsger;
begin
if chr(Key) = 'A' then
begin
Form1.GLActor1 := z-10;
if chr(Key) = 'S' then
begin
Form1.GLActor1 := x-10;
if chr(Key) = 'W' then
begin
Form1.GLActor1 := x+10;
if chr(Key) = 'D' then
begin
Form1.GLActor1 := z+10;


end;
end;
end;
end;
end;
end;
end.

Прописал его не помню в какой прецедуре, скомпилировал, и выдало кучу ошибок, может чтото не так прописал, КТО МОЖЕТ ПОМОГИТЕ!!!!!
Может вообще управление на по другому написать?
PS(Не в силах создать курсор в игре, поможете?
а также я выбрал звук для ходьбы, поможете его в игру вставить? ЗАРАНЕЕ БЛАГОДАРЕН!!!!!!!!!!!!!
Delphimen вне форума Ответить с цитированием
Старый 12.08.2008, 19:12   #2
Манжосов Денис :)
Участник клуба
 
Регистрация: 29.01.2008
Сообщений: 1,039
По умолчанию

Код:
var x,z,actot: integer;
begin

if chr(Key) = 'A' then
Form1.GLActor1 := z-10;

if chr(Key) = 'S' then 
Form1.GLActor1 := x-10;

if chr(Key) = 'W' then
Form1.GLActor1 := x+10;

if chr(Key) = 'D' then
Form1.GLActor1 := z+10;

end;

Последний раз редактировалось Манжосов Денис :); 12.08.2008 в 19:18.
Манжосов Денис :) вне форума Ответить с цитированием
Старый 13.08.2008, 23:07   #3
mutabor
Телепат с дипломом
Старожил
 
Аватар для mutabor
 
Регистрация: 10.06.2007
Сообщений: 4,929
По умолчанию

GLActor1.x:=x+10;
The future is not a tablet with a 9" screen no more than the future was a 9" black & white screen in a box. It’s the paradigm that survives. (Kroc Camen)
Проверь себя! Онлайн тестирование | Мой блог
mutabor вне форума Ответить с цитированием
Старый 14.08.2008, 08:55   #4
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Ниразу не угадали господа
Form1.GLActor1.Position.x := Form1.GLActor1.Position.x+10;
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 08.05.2012, 16:13   #5
Max1548
Пользователь
 
Регистрация: 28.05.2011
Сообщений: 99
По умолчанию

1)Подключаем в uses keyboard
2)Ставим на форму Cadencer
3)Двойной клик на каденсере
4)пишем if IsKeyDown(кнопка) then GLActor1.Position.X := GLActor1.Position.X+10;
OS - [||-----------------------------------------------] забил, дойдя до драйвера памяти
Max1548 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
помогите найти дрова на веб - камеру Artem25 Свободное общение 0 05.06.2008 07:54
Подключился-создал компонент. SunKnight Работа с сетью в Delphi 8 15.05.2008 21:09