Delphi ping pong физика

[Dezzy]

Можете помочь сделать физику игры простейшую?
Вот код игры ping pong

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)
Модератор