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

str(pl,och); outtextxy(50,35, och);

end;

setlinestyle(0,0,1);

if (schet mod 10)=0 then begin

setcolor(12);

outtextxy(560,35, och1);

setcolor(red);

str(schet,och1);

outtextxy(560,35, och1); end;

if (schet>500) and (level=1) then

begin

ll:=350; l:=680;

lev('Level 2','2');

level:=2;

end;

if (schet>1500) and (level=2) then

begin

kk:=300; k:=780;

lev('Level 3','3');

level:=3;

end;

if (schet>3000) and (level=3) then

begin

i:=980;

ii:=400;

lev('Level 4','4');

level:=4;

end;

if (schet>5000) and (level=4) then