сталкивающиеся шарики (арканоид)

[cliv]

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

[Wicort]

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

[Serge_Bliznykov]

угу. а у меня два шарика в "клинч" вошли. Один стоял на месте, а второй около него вверх-вниз (примерно на полтора-два диаметра шара) прыгал... продолжалось бесконечно, до тех пор, пока я третьим не разбил это "сладкую парочку"...

[cliv]

характерные ошибки copy/paste программирования. Для точного соприкосновения с доской замените строку

if Y > Form1.ClientHeight-Size-Form1.Shape1.Height

на строку

if Y > Form1.Shape1.Top-Size

[cliv]

если есть необходимость при ударе объекта об "ракетку" увеличивать скорость против текущей добавьте еще одну переменную например Vn и замените строку Vy:= -RandomRange(1,20) на конструкцию типа

Vn:= -Vy;
      Repeat
        Vy:= - RandomRange(1,20);
        Until (Vy < Vn)or(Vy= -19);

[cliv]

во избежания "клинча" замените простое инвертирование скорости

Vx:= - Vx;
Vy:= - Vy;

на более сложные рандомизирование конструкции, хотя с клинчем по моему интереснее