Как наложить графику на игру?

[KRaShAK]

Все сделал теперь запись короче стала и более понятной,благодарю.
Теперь переходить надо к самому трудному наверное,как сделать графику?

[KRaShAK]

Ребят скажите какие можно использовать операторы для создания графики и как вообще можно осуществить это.Или киньте на какое нить обучение путное пожалуйста

[BDA]

KRaShAK, все же это не совсем то, что я надеялся увидеть
Желательно было бы свернуть весь вывод удара в одну функцию, с условными операторами.
(сейчас попытаюсь написать кое-какие примеры именно для твоей задачки - просто времени нету)
Функция, которая рисует ворота:

uses
  graph, crt;

var
  d, m, e: integer; 

procedure gate(t: boolean);
const
  x = 320;
  y = 100;
  h = 100;
  a = 150;
  b = 30;
  c = 20;
  flstyle = 9;
begin
  setbkcolor(0);
  setcolor(7);
  if t then
    cleardevice;
  moveto(x - a, y);
  lineto(x - a + b, y - c);
  lineto(x + a - b, y - c);
  lineto(x + a, y);
  lineto(x + a, y + h);
  lineto(x + a - b, y + h - c);
  lineto(x - a + b, y + h - c);
  lineto(x - a, y + h);
  lineto(x - a, y);
  setfillstyle(flstyle, 7);
  floodfill(x, y, 7);
  line(x - a, y, x + a, y);
  line(x - a + b, y - c, x - a + b, y + h - c);
  line(x + a - b, y - c, x + a - b, y + h - c);
end;

begin
  d := detect;
  m := 2;
  initgraph(d, m, 'c:\bp\bgi');
  e := graphresult;
  if e <> grok then begin
    writeln(grapherrormsg(e));
    readln;
    halt(1);
  end;
  repeat
    gate(false);
  until keypressed;
end.

[KRaShAK]

Благодарю сейчас тогда попробую сделать мяч(по твоему шаблону) и его местоположение во время гола и попробую привязать к программке