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

{Level 3}

if sd=false then delay(10);

if level>2 then putimage(k,kk,barer^,0);

setcolor(12);

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

until Ord(t)=258;

freemem(ver,imagesize(a-10,d-25,a+53,d+40));

freemem(barer,imagesize(300,300,340,350));

freemem(barer1,imagesize(400,300,440,350));

closegraph;

Score(schet,nik);

end;

begin

end.

Модуль Menu

unit menus;

interface

uses crt,graph,games,options,help;

const left=#75;

right=#77;

down=#72;

up=#80;

procedure cartinka;

procedure menu;

procedure key1(ch:char);

implementation

var ch:char;

ka,kd,n,a,d,q,r,e,s:integer;

text:string;