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

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;

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

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

made in programmersforum 3

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

Похожие статьи