Курсовая работа: Игра "Vertolet"

setcolor(3);

end;

end;

if ord(ch)=72 then begin if d<240 then

begin

begin

setcolor(red);

rectangle(a+2,d+2,a+398,d+48);

setcolor(3);

end;

d:=310;

end;

d:=d-70;

if d<>240 then begin

setcolor(red);

rectangle(a+2,d+2+70,a+398,d+48+70);

setcolor(3); end;

end;

end;

function option:boolean;

begin

a:=100;

d:=170;

cleardevice;

tex;

option:=false;

repeat

setlinestyle(0,0,3);

setcolor(3);