Создание игры новичками

[Соколов Дмитрий]

На правду только дураки обижаются, а мы друг другу помогаем!

[Вадим Буренков]

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

У тебя уже есть какие нибудь исходники?Ты уже начал делать?

[Алекс Ялта]

Совет в помощь. Для нчала определитесь с размерами области, на которую будете выводить изображение. Попробуйте начать с 640х480. При таком размере игрового поля достаточно будет создать в Painte схематическое изображение машинки размером 30x50. Не важно как она будет выглядеть, важно научиться выводить на игровое поле и перемещать рисунок машинки. Ваши машинки размером 1398х3370. Тогда игровое поле нужно делать в разрешении 10 000 х 10 000 хотя бы. Это неправильно, мягко говоря)

[Соколов Дмитрий]

В Object inspector на вкладке Events нашел свойство OnKeyDown и щёлкнул на него 2 раза.
и вписял
if key=VK_UP then Shape1.Top:=Shape1.Top-2;
форма shape1 стала двигаться вверх при нажатии кнопки вверх, а кстати рисунки я уменьшил , как вы и говорили.

[Соколов Дмитрий]

Короче я сделал так
1) Открыл новый проэкт
2) Поместил на поле Image, и выбрал рис. дорога
3) поместил на поле Image 3 шт. размером 50 на 30, вставир рисунки машин.
4) было описяно предыдущим сообщением.

[Соколов Дмитрий]

Я исправил исходник, вместо shape прописал к Image 2, 3, 4.

[Shadow_1329]

Неплохо! Пропиши в OnCreate событиях формы Form1.DoubleBuffered:=true; и все будет зашибись!

[Соколов Дмитрий]

Подожди, как это прописать,я еще хочу чтобы кнопки несколько штук вместе жать можно было, и машину не просто как картинку вправо утаскивало а еще поворачивало под углом

[Shadow_1329]

Form1.DoubleBufferedL:=true;- это чтобы машинка не моргала. На счет поворота Image - будет сложно и тупо. Проще сделать несколько картинок машин пд разным углом и с помощью таймера ихх выводить и утаскивать Image в бока плавно. Если хочешь могу сделать пример.

[Манжосов Денис :)]

function keypressed(key: byte): boolean;
var
  keys: TKeyboardState;
begin
  result:=false;
  GetKeyboardState(keys);
  if(keys[key]=128)or(keys[key]=129)then result:=true;
end;

Вставьте этот код после implementaion. Он позволяет отслеживать нажатия клавиш. Создайте таймер и впишите код:

  if KeyPressed(37)(нажата клавиша стрелка влево) then
   Shape1.Left := Shape1.Left - 1;

Аналогично в другие стороны для движения машины.
У таймера интервал - 100 мс.
Этот код позволит двигать машину без тормозов в начале.