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

settextstyle(1,0,9);

if sd=true then begin sound(100); delay(6000); nosound; end;

vert(a,d,fon);

delay(200);

ogon(a,d,1);

if sd=true then begin sound(50); delay(6000); nosound; end;

delay(1000);

outtextxy(60,140,text);

outtextxy(62,142,text);

outtextxy(68,138,text);

delay(15000);

break;

closegraph;

Score(schet,nik);

end;

b:=keypressed;

if b=true then t:=readkey;

settextstyle(1,0,3);

setcolor(white);

setbkcolor(fon);

setfillstyle(9,7);

case t of

right : a:=a+5;left : a:=a-5;up : d:=d-5;down : d:=d+5;

's' : begin d:=d+15; a:=a; end;

'w' : begin d:=d-15; a:=a; end;

'`' : begin read(cod); if cod='money' then begin schet:=schet+2000; cod:=''; t:='y'; end; end;

']' : begin read(cod1); if cod1='bonus' then begin plus:=plus-1000; cod1:=''; t:='y';end; end;

end;

if z>(yr*2) then z:=z-yr else begin z:=640;zz:=(460-random(355)) end;