graph в Pascal, graph в Pascal Опции

[alecsandr]

написал задачу но сам сделатьь нее могу, не знаю как. Пушка должна стрелять по мишени в то время как мишень должна то появлятся, то проподать. Потому не всегда ядро должно попадать по мишени. А когда попадет то должно как то это показывать например: BOOM или что то в этом роде. И можете как небуть подправить пушку?((

 
program laba14;
 uses graph, crt;
 var d,m: integer;
 procedure risun;
 begin
circle(120, getmaxy-120,15);
 setcolor(black);
 delay(500);
  circle(120, getmaxy-120,15);
 setcolor(5);
  circle(200,getmaxy-170,15);
 setcolor(black);
 delay(500);
  circle(200,getmaxy-170,15);
 setcolor(6);
  circle(280, getmaxy-210,15);
 setcolor(black);
 delay(500);
  circle(280, getmaxy-210,15);
 setcolor(1);
 circle(360,getmaxy-260,15);
 setcolor(black);
 delay(500);
  circle(360, getmaxy-260,15);
 setcolor(0);
 setcolor(yellow);
 line(500,getmaxy-375,500,getmaxy-395);
 line(500,getmaxy-345,500,getmaxy-330);
 line(485,getmaxy-360,470,getmaxy-360);
 line(515,getmaxy-360,530,getmaxy-360);
 setcolor(black);
 delay(700);
 line(500,getmaxy-375,500,getmaxy-395);
 line(500,getmaxy-345,500,getmaxy-330);
 line(485,getmaxy-360,470,getmaxy-360);
 line(515,getmaxy-360,530,getmaxy-360);
 delay(700);
 setcolor(green);
 line(500,getmaxy-375,500,getmaxy-395);
 line(500,getmaxy-345,500,getmaxy-330);
 line(485,getmaxy-360,470,getmaxy-360);
 line(515,getmaxy-360,530,getmaxy-360);
 setcolor(black);
 delay(700);
 line(500,getmaxy-375,500,getmaxy-395);
 line(500,getmaxy-345,500,getmaxy-330);
 line(485,getmaxy-360,470,getmaxy-360);
 line(515,getmaxy-360,530,getmaxy-360);
 end;
        begin
        d:=detect;
        initgraph(d,m,'');
        moveto(15, getmaxy);
        setcolor(green);
        rectangle(15,getmaxy,80,getmaxy-30);
        moveto(40,getmaxy-30);
        lineto(70,getmaxy-65);
        moveto(15,getmaxy-30);
        lineto(45,getmaxy-65);
        circle(60,getmaxy-75,15);
        setcolor(5);
        circle(500,getmaxy-360,30);
        setcolor(red);
        pieslice(500,getmaxy-360,0,360,10);
        circle(500,getmaxy-360,60);
        setcolor(yellow);
        readln;
        risun;
        readkey;
        end.

[andriano]

Нужно ее перерисовывать в цикле.
- начало цикла
- нарисовать
- подождать
- стереть
- конец цикла

Собственно, это неоднократно обсуждалось на форуме в разделе "Игры"
Игра с корабликами
ТАНКИ
Кстати, посмотри и ссылки на литературу в этом разделе.