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

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

begin

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);