Арканоид. Разрушение кирпичей шариком.

[mosxe]

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

procedure TForm1.Timer1Timer(Sender: TObject);
var
    i: integer;
begin
   Ball.Top := Ball.Top + dy; {смещение шарика по вертикали}
   Ball.Left := Ball.Left + dx; {смещение шарика по горизонтали}
   if Ball.Left <= X1 then {если шарик столкнулся с левой стенкой}
      dx := -dx;
   if Ball.Left + Ball.Width >= X2 then {если шарик столкнулся с правой стенкой}
      dx := -dx;
   if Ball.Top <= Y1 then {если шарик столкнулся с верхней стенкой}
      dy := 2;
   if Ball.Top + Ball.Height > Board.Top then {если шарик опустился ниже платформы}
      begin
        lives := lives - 1;
        Timer1.Enabled := False;
        BallMoving := False;
        if lives = 0 then
        begin
          ShowMessage('Game Over');
          Ball.Destroy;
          Board.Destroy;
          SaveResults;
        end;
        Label4.Caption := IntToStr(lives);
        if lives > 0 then
        begin 
        Board.Left := 215;
        Board.Top := 620;
        Ball.Left := 235;
        Ball.Top := 600;
        end;
      end;
  if (Ball.Top + Ball.Height = Board.Top)
     and (Ball.Left >= Board.Left)
     and (Ball.Left + Ball.Width <= Board.Left + Board.Width + Ball.Width)
     or ((Ball.Top + Ball.Height = Board.Top)
          and (Ball.Left <= Board.Left) and (Ball.Left + Ball.Width >= Board.Left)) then {если шарик столкнулся с платформой}
    dy := -dy;
  for i := 0 to 49 do
    if (Bricks[i].Visible)
       and (Ball.Top - 1 = Bricks[i].Top + Bricks[i].Height)
       and (Ball.Left >= Bricks[i].Left)
       and (Ball.Left + Ball.Width <= Bricks[i].Left + Bricks[i].Width + Ball.Width) then {если шарик столкнулся с кирпичом}
      begin
        Bricks[i].Visible := False;
        dy := -dy;
        score := score + 10;
        Label2.Caption := IntToStr(score);

Для создание фигур использовался класс TShape.
Буду очень благодарен кто поможет в решение данной проблемы.



___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[phomm]

Без проекта (прикрепить сюда вложением) разобраться в этой каше очень проблематично.
На будущее - оформляем код кнопочкой # ну или тегом CODE (что равнозначно)

[Warn]

Чего-то у тебя вообще простая проверка. Я когда писал нечто подобное, проверял все четыре угла квадрата (он у мну исполнял роль шарика).

Код проверки проверяющий 4-ре угла на возможные столкновения у мну такой.

void test_blocks_collision( PMAP pm, PBALL pb )
{
  
  int mx0 = pb->x / 32;
  int my0 = pb->y / 32;
  
  int mx1 = (pb->x+32) / 32;
  int my1 = pb->y / 32;
  
  int mx2 = (pb->x+32) / 32;
  int my2 = (pb->y+32) / 32;

  int mx3 = pb->x / 32;
  int my3 = (pb->y+32) / 32;

  if ((mx0 <= (MAP_SIZE_X-1)) && (mx0 >= 0))
    if ((my0 <= (MAP_SIZE_Y-1)) && (my0 >= 0))
      if (g_map.blocks[mx0][my0].type != BT_NONE) 
      {
        
        
        if (pb->dx > pb->dy)
          pb->dx = - pb->dx;
        else
          pb->dy = - pb->dy;

        //if (g_map.blocks[mx0][my0].hit)
        switch(g_map.blocks[mx0][my0].type)
        {
        case BT_ONE:
          g_map.blocks[mx0][my0].type = BT_NONE;
        	break;
        case BT_DOUBLE:
          g_map.blocks[mx0][my0].type = BT_ONE;
          break;
        case BT_TRIPLE:
          g_map.blocks[mx0][my0].type = BT_DOUBLE;
          break;
        }
        
        return;
      }
      
 if ((mx1 <= (MAP_SIZE_X - 1)) && (mx1 >= 0))
    if ((my1 <= (MAP_SIZE_Y - 1)) && (my1 >= 0))
      if (g_map.blocks[mx1][my1].type != BT_NONE) 
      {
        if (pb->dx > pb->dy)
          pb->dx = - pb->dx;
        else
          pb->dy = - pb->dy;

        switch(g_map.blocks[mx1][my1].type)
        {
        case BT_ONE:
          g_map.blocks[mx1][my1].type = BT_NONE;
          break;
        case BT_DOUBLE:
          g_map.blocks[mx1][my1].type = BT_ONE;
          break;
        case BT_TRIPLE:
          g_map.blocks[mx1][my1].type = BT_DOUBLE;
          break;
        }
        return;
      }
  
if ((mx2 <= (MAP_SIZE_X - 1)) && (mx2 >= 0))
    if ((my2 <= (MAP_SIZE_Y - 1)) && (my2 >= 0))
      if (g_map.blocks[mx2][my2].type != BT_NONE) 
      {
        if (pb->dx > pb->dy)
          pb->dx = - pb->dx;
        else
          pb->dy = - pb->dy;

        switch(g_map.blocks[mx2][my2].type)
        {
        case BT_ONE:
          g_map.blocks[mx2][my2].type = BT_NONE;
          break;
        case BT_DOUBLE:
          g_map.blocks[mx2][my2].type = BT_ONE;
          break;
        case BT_TRIPLE:
          g_map.blocks[mx2][my2].type = BT_DOUBLE;
          break;
        }
        return;
      }
  
if ((mx3 <= (MAP_SIZE_X - 1)) && (mx3 >= 0))
    if ((my3 <= (MAP_SIZE_Y - 1)) && (my3 >= 0))
      if (g_map.blocks[mx3][my3].type != BT_NONE) 
      {
        if (pb->dx > pb->dy)
          pb->dx = - pb->dx;
        else
          pb->dy = - pb->dy;

        switch(g_map.blocks[mx3][my3].type)
        {
        case BT_ONE:
          g_map.blocks[mx3][my3].type = BT_NONE;
          break;
        case BT_DOUBLE:
          g_map.blocks[mx3][my3].type = BT_ONE;
          break;
        case BT_TRIPLE:
          g_map.blocks[mx3][my3].type = BT_DOUBLE;
          break;
        }
        return;
      }  
}

Сначала я выделяю ячейку (размером 32*32) на карте (n*32 X 32*m) в которой находиться тот или иной угол летящего квадрат. Проверяю каждую (из 4-х) не является ли она пустой (BT_NONE), если нет то идет обработка - меняется скорость на противоположную, и уменьшается "хрупкоть" стенки с которой столкнулись, у меня их несколько градаций - тройная, двойная, одинарная и пустота. Важно - столкновение может произойти с несколькими квадратами одновременно (по крайней мере у квадрата) на рисунке я изобразил как это может случится.

[mosxe]

Проект добавил. На данный момент интересует как убрать проскакивание шарика через кирпичи, ост. не значительные погрешности уберу. Т.е. как я понял, надо добавить условия проверки ударения шарика об кирпичи?

[mosxe]

У кого-нито появились какие-нито мысли?

[Warn]

У кого-нито появились какие-нито мысли?

мои все... скончались выше)

ты в своем коде делаешь проверку только в синих метках (см. рис), а надо бы еще добавить проверку в желтых метках (см. рис).

[mosxe]

Т.е. нужно добавить еще 4 условия на проверку этих 4-х углов?

[Warn]

Хотя бы так

  for i := 0 to 49 do
    if	(Bricks[i].Visible) and
    		((Ball.Top <= Bricks[i].Top + Bricks[i].Height) and (Ball.Top+Ball.Height >= Bricks[i].Top)) and
		((Ball.Left >= Bricks[i].Left) and (Ball.Left + Ball.Width <= Bricks[i].Left + Bricks[i].Width + Ball.Width)) then
      begin
        Bricks[i].Visible := False;

[mosxe]

to Warn: большое спасибо. Шарик стал разрушать кирпичи намного корректней. Но теперь только он бывает сразу разрушает два кирпича, хотя до 2-го кирпича он даже не коснулся. Т.е. надо добавить в это условие ( которые вы написали ) еще как бы условие о ударение шарика об кирпича? Чтобы бы он сразу несколько кирпичей за 1 касание не разрушал...

[Warn]

Представь ситуацию шарик еще перед блоками и вот очередная итерация цикла (позиция+скорость) и он уже на площади обоих блоков своими углами, которые проверяем. Идет цикл проверки, обрабатывается столкновение с первым блоком. Меняется знак скорости блок убирается, затем идет проверка с другим блоком – все так же меняется знак скорости блок убирается. Визуально это выглядит как шарик немножко помешкавшись летит дальше.
Тут можно сделать следующее. Дополнить проверку с блоком на условие – "Если шарик уже сбил(столкнулся) какой-либо блок в этом проходе цикла, не менять скорость, а просто уничтожить блок(уменьшить хрупкость)", или как вариант просто выходить из цикла проверки после первого же столкновения. Что бы он визуально их касался, сделай проверку вписанного квадрата в шарик, а не описанного как есть.