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

lev('Level 5','5');

level:=5;

end;

if (schet>7000) and (level=5) then

begin

lev('Level 6','6');

level:=6;

end;

if (schet>10000) and (level=6) then

begin

lev('Level 7','7');

level:=7;

end;

if sd=false then delay(50);

setfillstyle(1,0);

if sd=false then delay(10);

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

{Level 1}

if sd=false then delay(10);

putimage(v,vv,barer1^,0);

if (schet mod bonn)=0 then inc(aw);

if (aw mod 2)=0 then

putimage(v-50,vv+80,barer2^,0);

if sd=false then delay(10);

putimage(z,zz,barer^,0);

{Level 2}

if sd=false then delay(10);

if level>1 then putimage(l,ll,barer1^,0);

{Level 3}