Игрушка, Машинка, Авария :(

@JacksonBrony · Регистрация: 15.10.2014

Author24 — интернет-сервис помощи студентам

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

Delphi

  Block1.Left:=Block1.Left-2;//начинаем двигать стенку
  //проверяем розбились или нет
  if (Block1.Left) > (Car.Left+Car.Width) then
    if (Block1.Top <= Car.Top) and (Block1.Top<=(Car.Top+Car.Height))
      then GameOver;
 
  if (Block1.Left) > (Car.Left+Car.Width) then
    if ((Block1.Top+Block1.Height) <= Car.Top) and ((Car.Top+Car.Height) <= (Block1.Top+Block1.Height))
      then GameOver;

Ниже изображение как "оно" выглядит
//машинка двигается вверх/низ

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

Добавлено через 23 минуты
хах, рано я начал сюда стучать :/
проблема решилась

Delphi

 if (Block1.Left) < (Car.Left+Car.Width) then
    if (Block1.Top+1 <= Car.Top) and (Car.Top<=(Block1.Top+Block1.Height-1))
      then GameOver;
 
  if (Block1.Left) < (Car.Left+Car.Width) then
    if (Block1.Top+1 <= (Car.Top+Car.Height)) and ((Car.Top+Car.Height) <= (Block1.Top+Block1.Height-1))
      then GameOver;

	26.05.2015, 04:46