Столкновение картинок

[NikProgrammer]

Всем привет! Тут такое делою Я вообще-то новичок по делфи, изучал всего год и то только основные функции. Работать с Image приходилось очень редко, поэтому обещайте не сильно смеяться. Ладно.Ближе к теме. Я захотел создать игрушку про футбол. Смысл таков, что тебе нужно ударить по воротам мячом(Image) с помощью стрелок, в то время как на воротах стоит вратарь(Image) и двигается туда-сюда, вроде всё работает, НО! Мяч при столкновении с вратарём просто пролетает через него и засчитывается гол. Т.е. вратарь не отбивает мяч. Кто-нибудь может подсказать и написать процедуру отталкивания Image друг от друга???
Заранее спасибо!
Если надо, то вот код проги:

unit Unit4;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm4 = class(TForm)
    Image1: TImage;
    Image2: TImage;
    Image3: TImage;
    Label1: TLabel;
    Label2: TLabel;
    Timer1: TTimer;
    Timer2: TTimer;
    Label5: TLabel;
    Label6: TLabel;
    Timer3: TTimer;
    Timer4: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Label6Click(Sender: TObject);
    procedure Timer3Timer(Sender: TObject);
    procedure Timer4Timer(Sender: TObject);
    procedure Label5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form4: TForm4;
  b:integer;

implementation

{$R *.dfm}

procedure TForm4.Timer1Timer(Sender: TObject);
begin
form4.DoubleBuffered:=true;
if image2.left>=17 then
image2.Left:=image2.Left-5
else
begin
timer1.enabled:=false;
timer2.enabled:=true;
end;
end;

procedure TForm4.Timer2Timer(Sender: TObject);
begin
form4.DoubleBuffered:=true;
if image2.left<=145 then
image2.Left:=image2.Left+5
else
begin
timer2.enabled:=false;
timer1.enabled:=true;
end;
end;

procedure TForm4.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
Form4.DoubleBuffered:=true;
if (key = vk_left) and (image3.left>5) then
image3.left:=image3.left-10;
if (key = vk_right) and (image3.left+image3.Width<Image1.Width-6) then
image3.left:=image3.left+10;
if key = vk_up then
timer3.Enabled:=true;
end;

procedure TForm4.Label6Click(Sender: TObject);
begin
form4.visible:=false;;
form1.Visible:=true;
end;

procedure TForm4.Timer3Timer(Sender: TObject);
begin
if image3.top>=0 then
image3.Top:=image3.Top-15
else
begin
image3.Top:=432;
timer3.enabled:=false;
end;
end;

procedure TForm4.Timer4Timer(Sender: TObject);
begin
if (image3.Left>24)and(image3.left<152)and(image3.top<8) then
begin
b:=b+1;
label2.Caption:=inttostr(b);
end;
end;

procedure TForm4.Label5Click(Sender: TObject);
begin
image3.top:=448;
image3.left:=96;
label2.caption:='0';
end;

end.

ОФОРМЛЯЙТЕ КОД, КАК ПОЛОЖЕНО !

[psycho-coder]

Смысл будет примерно таким
Пусть Image1 - мяч, Image2 - вратарь. Поле в альбомной ориентации.

Вратарь стоит слева от центра поля.
Положение мяча:
Image1.Left - левая граница
Image1.Left + Image1.Width - правая граница
Image1.Top - верхняя граница
Image1.Top + Image1.Height - нижняя граница

И соответственно для вратаря. Проверять нужно (в простом варианте) левую границу мяча, правую вратаря, верхние и нижние границы мяча и вратаря.
Т.е.

if (Image1.Left >= (Image2.Left + Image2.Width)) and 
  ((Image1.Top >= Image2.Top) and ((image1.Top + Image1.Heigh) <= (Image2.Top + Image2.Height)))
then
<Мяч попал в вратаря>

P.S. Код не проверял.

[NikProgrammer]

Спасиб, но как то не работает. В смысле игра запускается но вратарь не ловит мяч.

Прочитайте правила раздела.
Там вполне доступно расписано, как нужно оформлять код.

[psycho-coder]

А поэксперементировать с кодом нельзя?

[Orakul89]

Вратарь стоит слева от центра поля.
Положение мяча:
Image1.Left - левая граница
Image1.Left + Image1.Width - правая граница
Image1.Top - верхняя граница
Image1.Top + Image1.Height - нижняя граница

И соответственно для вратаря. попробуй так

if (abs (Image1.Left-(Image2.Left+Image2.Width))<=1) and
(abs((Image1.Top- Image1.Height div 2)-(Image2.Top-(Image2.Height div 2)))<=(Image2.Height div 2 + Image1.Height div 2) + 1) then
<мяч у вратаря>

[NikProgrammer]

Всё, я разобрался!!! Чуть-чуть подправил код. Просто мяч останавливался по-любому если он левее вратаря, я дописал пару строк и всё! Психо-кодер огромное тебе спасибо. Оракул, твой код не проверял, но за идею спасибо. Может как-нибудь попробую.