Графика. Написание игры

[DeyaInferi]

Здравствуйте господа программисты.
Обращаюсь к вам с такой просьбой:
Я написала примитивную игру(если ее вообще игрой назвать можно) "арканоид". Т.е. у меня есть плитка. Мячик отбиваются от стен и как только он попадает на эту самую "плитку" начисляются балы.
Каким образом можно сделать так, что бы при попадание на плитку игра заново не начиналась, а мячик отбивался от этой плитки?
Вот код задачи:

Uses graph, crt;
var
 xa,ya,k,dv,mv,sx,sy,x0,y0:integer;
 x,y,p:integer;
 z:char;
 st:string;


 procedure ark(cva:byte; xa,y:integer);
  begin
  setcolor(cva);
  setfillstyle(3,cva);
  bar(xa,ya,xa+100,ya+20);
  end;

  begin
   dv:=detect;
   initgraph(dv,mv,'');

   k:=0;
  repeat
   cleardevice;
   x:=20;
   y:=460;
   sx:=1;
   sy:=1;
   xa:=560;
   ya:=460;
   ark(15,xa,ya);
   str(k,st);
   setcolor(12);
   outtextxy(320,240,st); delay(9999);
   repeat

    if (y>479) or (y<5) then  sy:=-sy;
    if (x>620) or (x<20) then sx:=-sx;
    x:=x+sx;
    y:=y-sy;
    setcolor(13);
    circle(x,y,5);
    delay(100);
    setcolor(0);
    circle(x,y,5);
    if keypressed then
   begin
      z:=readkey;
      ark(0, xa, ya);
      case z of
        #75: begin xa:=xa-15; if xa<1 then xa:=1 end;
        #77: begin xa:=xa+15; if xa>540 then xa:=540 end;
        #27:exit;
      end;
        ark(15, xa,ya);
    end;
        setcolor(15);
   until (getpixel(x,y)=15) or (y>475) ;
        If  (getpixel(x,y)=15)  then
        begin
        k:=k+1;
        str(k,st);
        setcolor(0);
        setfillstyle(1,0);
        bar(310,230,330,250);
        outtextxy(320,240,st);
         end
       else
         begin
        k:=k-1;
        str(k,st);
        setcolor(0);
        setfillstyle(1,0);
        bar(310,230,330,250);
  end;
  until (z=#27);
  readkey;
         end.

Заранее большое спасибо.

[Вадим Буренков]

Если мячик коснулся плитки изменять скорость мячика по y на противоположную...

[DeyaInferi]

Сообщение от Вадим Буренков

Если мячик коснулся плитки изменять скорость мячика по y на противоположную...

Как не пробовала, у меня он все равно проваливается сквозь плитку(

[Shadow_1329]

Надо пересмотреть условия. Поставить их по-другому.

[FullVenic]

я думаю проще будет нарисовать, загрузить изображения, присвоить изображению(ям) имя, в случае чего создать масив, а потом делать проверку столкновения
if ball\,ball\y = block\x,block\y
delete block

[Sabin4ik]

написала игру калах)) с ИИ)