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

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;

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

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

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

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

if a<6 then a:=6 ;

if d<niz+1 then d:=niz+1 ;

if a>594 then a:=594 ;

if d>verx-1 then d:=verx-1 ;

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

inc(schet);

if ((schet mod 200)=0) and (yr<20) then begin

setcolor(0);

line(25+yr*2,101,25+yr*2,480);

yr:=yr+1; end;

if (schet mod 500)=0 then begin

plus:=plus-35; pl:=70-plus; setcolor(12);

outtextxy(50,35, och);