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

bor,men0,men1,men2:pointer;

procedure key1(ch:char);

begin

if ord(ch)=80 then begin if d=380 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);

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

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:=450;

end;

d:=d-70;