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

outtextxy(100,5, text);

outtextxy(102,5, text);

outtextxy(104,5, text);

setcolor(0);

text:='on';

setfillstyle(1,red);

settextstyle(1,0,5);

bar(100,170,500,220);

outtextxy(260,165, text);

text:='off';

setfillstyle(1,red);

settextstyle(1,0,5);

bar(100,240,500,290);

outtextxy(260,235, text);

end;

procedure key(ch:char);

begin

if ord(ch)=80 then begin if d=240 then

begin

begin

setcolor(red);

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

setcolor(3);

end;

d:=100;

end;

d:=d+70;

if d<>170 then begin

setcolor(red);