Реферат: Программ-игра «Морской бой», с использованием анимированных графических объектов и возможностью управлять их движением с помощью клавиатуры
if crx=150 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;
end;
end;
end;
inc(cr_ind);
end else begin
{Если корабля нет на экране, то случайным методом
выбирается новый корабль}
Randomize;
croldx:=800;
cr_ind2:=0;
if random(2)=0 then begin
crx:=150;
flang:=0;
end else begin
crx:=485;
flang:=1;