Написал игру ping pong, но шарик застревает в ракетке

[Dezzy]

Написал игру ping pong, но шарик(shape1) застревает в ракетке компьютерного игрока(shape3), помогите, пожалуйста, исправить это.

var
  Form1: TForm1;
  PosX, PosY, VelX, VelY:single;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
randomize;
 PosX:=55;
 PosY:=50;
 VelX:=2;
 VelY:=3;
end;
 
procedure TForm1.shar;
begin
 PosX:=PosX+VelX;
 PosY:=PosY+VelY;
 
 
 if PosX > ClientWidth - Shape1.Width then
 VelX:=-VelX;
 
 
 if PosX < 0 then
 VelX:=-VelX;
 
 
 
 if PosY > ClientHeight - Shape1.Width then
 VelY:=-VelY;
 if PosY < 0 then
 VelY:=-VelY;
 
 
 
Shape1.Left:=round(PosX);
 
Shape1.Top:=round(PosY);
end;
 
 
procedure TForm1.Timer1Timer(Sender: TObject);
var
Overlay: Trect;
begin
shar;
 
 If InterSectRect(Overlay, Shape2.BoundsRect, Shape1.BoundsRect) then
begin
 VelX:=-VelX-random(5);
 VelY:=-VelY-random(5);
end;
 
// Условие для отбивания шарика компьютерным игроком
 If InterSectRect(Overlay, Shape3.BoundsRect, Shape1.BoundsRect) then
begin
 VelX:=-VelX-random(5);
 VelY:=-VelY-random(5);
end;
 
end;
 
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
Shape2.Top:=Mouse.CursorPos.Y - Form1.ClientOrigin.Y;
end;
 
procedure TForm1.Timer2Timer(Sender: TObject);
begin
 
if Shape3.Top > ClientHeight - Shape3.Height - 40 then
Shape3.Top:=Shape3.Top
else
begin
if Shape1.Top > Shape3.Top then
Shape3.Top:=Shape1.Top + Shape3.Width;
end;
 
if Shape1.Top < Shape3.Top then
Shape3.Top:=Shape1.Top - Shape3.Width;
end;
 
end.

_____
Код программы нужно выделять (форматировать) тегами [CODE] [/CODE] (читать FAQ)
Модератор

[Black Fregat]

Просто у Вас скорость шара после удара об ракетку вполне может стать нулевой. И даже шар может проскочить сквозь ракетку. Случайная часть скорости очень велика.

[Dezzy]

Сообщение от Black Fregat

Просто у Вас скорость шара после удара об ракетку вполне может стать нулевой. И даже шар может проскочить сквозь ракетку. Случайная часть скорости очень велика.

Я даже когда рандом для отбивания шарика ставлю 2 всё равно залетает в ракетку.

[NetSpace]

а вы сделайте, чтоб шарик отбивался не точно от ракетки, а, скажем, за 3 пикселя до неё, как бы от тонкой воздушной прослойки.