игра

[Pein95]

Program igra;
Uses Graph, Crt;
var Device,Mode,  x1_korabl,y1_korabl,x2_korabl,y2_korabl,n_torped,
n_korabley,verh_t,shir_t,x_t,y_t,x:integer;

klavisha:char;
Procedure Popal;
begin
writeln ('popal');
end;

Procedure Nepopal;
begin
writeln ('Nepopal');
end;

Procedure ataka;
begin
n_torped:=10;
x_t:=550;
y_t:=420;
verh_t:=5;
shir_t:=10;
x:=10;
repeat

setcolor(white);
ellipse(x_t,y_t,0,360,verh_t,shir_t);
rectangle(x1_korabl,y1_korabl,x2_korabl,y2_korabl);
delay (1000);
setcolor(black);
ellipse(x_t,y_t,0,360,verh_t,shir_t);
rectangle(x1_korabl,y1_korabl,x2_korabl,y2_korabl);
y_t:=y_t-1 ;
x1_korabl:=x1_korabl+1;
x2_korabl:=x2_korabl+1;
n_torped:=n_torped-1;

 until y_t<0;



end;

Procedure korabl;
Begin
x1_korabl:=30;
y1_korabl:=130;
x2_korabl:=120;
y2_korabl:=140;
Writeln ('korabl');
repeat
Setcolor(white);
rectangle(x1_korabl,y1_korabl,x2_korabl,y2_korabl);
delay(1000);
setcolor (black);

rectangle(x1_korabl,y1_korabl,x2_korabl,y2_korabl);
x1_korabl:=x1_korabl+1;
x2_korabl:=x2_korabl+1;



until keypressed ;
ataka;
end;



Procedure Risunok;
begin



n_korabley:=10;
Rectangle (540,430,560,470);
Line(0,200,640,200);
Writeln ('Kolvo torped=', n_torped);
Writeln ('Kolvo korabley=', n_korabley);
korabl;

 end;

Procedure Nachalo;
begin
repeat
n_torped:=0;
n_korabley:=0;
Risunok;
until n_torped<0;
end;

Begin
Device:=0;
initGraph (Device,Mode, 'C:\Documents and Settings\Admin\ђ*Ў®зЁ© бв®«\tp7\BGI\EGAVGA.BGI') ;
DirectVideo:=false;
Nachalo;
Readln;
closegraph;
end.

проблема такая нужно определить попала ли торпеда в корабль или нет, и ещо как после процедуры попал или не попала запустить опять атаку?
зарание спасибо

[DRAgon™]

Пиши в лс,скину игру саму