Последние записи

made in programmersforum 10

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

4th
Янв

Игра «Гонки». Движение встречной машины

Posted by Chas under Delphi

Вообщем задание курсовой написать игру гонки. Возникла проблема :
Как видно, гейм овер наступает не в нужный момент. Работает если сталкиваются в лоб, но так же срабатывает если я перестраиваюсь на соседнюю полосу. где image7 — это встречный автомобиль, а image5 — автомобиль игрока. Подскажите что не так?

pu4koff

procedure TForm1.Timer2Timer(Sender: TObject);

begin

  image7.Top:=image7.Top+ 15;

 if ((image7.Top + image7.Height) >= image5.Top) and

    (image7.Top <= (image5.Top + image5.Height))and
    ((image7.Left + image7.Width) >= image5.Left) and

    (image7.Left <= image5.Left + image5.Width)
 then GameOver;
 If  image7.Height>=(Form1.ClientHeight) then

 begin

        image7.Hide;

       image7.Top:=1;

        repeat

         image7.Left:=PositionCar;

        until (image7.Left>10);

        image7.Show;

 end;

end;

тема на форуме