Дорога в гонках.

[glebast]

Привет ребята. Хочу сделать игру 2д гоночки. Подскажите как сделать дорогу
чтобы создавалась иллюзия будто машина едет. И если не сложно, напишите код.
Заранее спасибо.

[3D Hunter]

А что потом? Написать код движения машинок? А может и всю игру сразу,а? Здесь не опенсорс, а форум. Совет дать конкретно в чем-то - пожалуйста, но написать за вас - только за отдельную плату Хотя может вам повезет - здесь иногда проходят добродушные люди.

[glebast]

Ну если вы заметили то я просил сделать дорогу. Я просто не знаю как сделать что дорога двигалась так будто едет машина.

[3D Hunter]

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

[glebast]

Вот именно это у меня не получается. Просто как я сделал то у меня нижний и верхний куски дороги исчезают и появляются. Расскажите пожалуйста поподробнее как сделать, чтоб был полноценный цикл.
Заранее спасибо!

[chertovich]

Для того чтобы решить эту задачу, желательно разбить игровое поле на определенного размера квадраты. Создать двумерный массив, соотвествующий элементам поля (например, верхний левый элемент соотвествует первому элементу). То есть каждый такой элемент должен содержать содержимое этого квадрата (например: лес, дорога, и т. д.). В таймере происходит автоматическое изменение элементов этого массива, например, сдвига, то есть каждый элемент занимает позицию на 1 меньшую (при прямолинейном движении). Написать подпрограмму, прорисовки элемента массива и выполнять прорисовку всех элементов массива, при помощи этой подпрограммы.

[glebast]

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

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  image1.Top:=image1.Top+(image1.Height div 2);
   image2.Top:=image2.Top+(image2.Height div 2);
    image3.Top:=image3.Top+(image3.Height div 2);
     image4.Top:=image4.Top+(image4.Height div 2);
      image5.Top:=image5.Top+(image5.Height div 2);
       image6.Top:=image6.Top+(image6.Height div 2);

if (image1.top+image1.Height)>form1.clientheight then
 begin
  image1.top:=1;
 end;

if (image2.top+image2.Height)>form1.clientheight then
 begin
  image2.top:=1;
 end;

if (image3.top+image3.Height)>form1.clientheight then
 begin
  image3.top:=1;
 end;

if (image4.top+image4.Height)>form1.clientheight then
 begin
  image4.top:=1;
 end;

if (image5.top+image5.Height)>form1.clientheight then
 begin
  image5.top:=1;
 end;

if (image6.top+image6.Height)>form1.clientheight then
 begin
  image6.top:=1;
 end;
end;

[chertovich]

1. Для вашей небольшой задачи лучше подходит Canvas, не же ли Image
2. Необходимо откуда-то загружать карту.
3. Должна существовать переменная, которая показывает текущую позицию в "карте"
3. С каждым циклом, необходимо увеличивать эту переменную, и относительно её отображать карту.