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

getimage(400,300,440,350,barer1^);

putimage(400,300,barer^,1);

putimage(300,300,barer1^,1);

end;

procedure start;

begin

cleardevice;

aa:=pp;

putimage(a-10,d-25,ver^,1);

setfillstyle(1,12);

bar(0,0,640,100);

setfillstyle(1,0);

setcolor(5);

settextstyle(4,0,5);

outtextxy(150,15, nik);

text:='Level 1';

outtextxy(400,15, text);

setcolor(red);

settextstyle(1,0,3);

outtextxy(50,35,och);

settextstyle(0,0,0);

end;

procedure tex;

begin

cleardevice;

settextstyle(1,0,9);

setcolor(4);

text:='Level 1';

outtextxy(150,140,text);