Реферат: Программ-игра «Морской бой», с использованием анимированных графических объектов и возможностью управлять их движением с помощью клавиатуры
vzriv:=false;
end;
end;
{Обработка сообщения "Перемещение"}
if swim then begin
if cr_ind<400 then begin
Sheep(crx,cr_type,false);
if promah then promah:=false;
end else begin
if cr_ind mod cr_type*5=0 then begin
if promah then begin
if flang=0 then flang:=1
else flang:=0;
promah:=false;
end;
if flang=0 then begin
if crx=485 then begin
inc(cr_ind2);
if cr_ind2<3 then Sheep(crx,cr_type,true)
else begin
Sheep(crx,cr_type,false);
swim:=false;
end;
end else begin
crx:=crx+1;
Sheep(croldx,cr_type,false);
Sheep(crx,cr_type,true);
croldx:=crx;
end;