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

writeln (' Нажмитепробел');

repeat

begin

t:=readkey;

end;

until Ord(t)=32; end; *)

end;

procedure GET;

begin

getmem(ver,imagesize(a-10,d-25,a+53,d+40));

getimage(a-10,d-25,a+53,d+40,ver^);

setfillstyle(6,99);

bar(300,300,320,350);

getmem(barer,imagesize(300,300,340,350));

getimage(300,300,340,350,barer^);

setfillstyle(1,1);

bar(500,330,520,350);

setcolor(0);

settextstyle(2,0,4);

outtextxy(503,333,'500');

getmem(barer2,imagesize(500,330,540,350));

getimage(500,330,540,350,barer2^);

setfillstyle(1,0);

bar(500,330,520,350);

getmem(barer3,imagesize(500,330,540,350));

getimage(500,330,540,350,barer3^);

setfillstyle(9,53);

bar(400,300,420,350);

setfillstyle(1,0);