ound (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);
setcolor (red);
str (pl, och); outtextxy (50,35, och);
end;
setlinestyle (0,0,1);
if (schet mod 10) = 0 then begin
setcolor (12);
outtextxy (560,35, och1);
setcolor (red);
str (schet, och1);
outtextxy (560,35, och1); end;
if (schet> 500) and (level = 1) then
begin
ll: = 350; l: = 680; lev ('Level 2 ', '2'); level: = 2; end;
if (schet> 1500) and (level = 2) then
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);
if level> 1 then putimage (l, ll, barer1 ^, 0);
{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;
sd: boolean;
bor, men0, men1, men2: pointer;
procedure key1 (ch: char);
begin
if ord (ch) = 80 then begin if d = 380 then
begin
begin
setcolor (red);
rectangle (a +2, d +2, a +398, d +48);
setcolor (3);
end;
d: = 100;
end;
d: = d +70;
if d <> 170 then begin
setcolor (red);
rectangle (a +2, d +2-70, a +398, d +48-70);
setcolor (3);
end;
end;
if ord (ch) = 72 then begin if d <240 then
begin
begin
setcolor (red);
rectangle (a +2, d +2, a +398, d +48);
setcolor (3);
end;
d: = 450;
end;
d: = d-70;
if d <> 380 then begin
setcolor (red);
rectangle (a +2, d +2 +70, a +398, d +48 +70);
setcolor (3); end;
end;
setlinestyle (0,0,1);
end;
procedure cartinka;
begin
q: = detect; initgraph (q, r,'');
e: = GraphResult;
If e <> grok then
writeln (GraphErrorMsg (e))
else
begin
sd: = true;
a: = 100;
d: = 170;
setfillstyle (1,4);
bar (100,170,500,220);
getmem (bor, imagesize (100,170,500,220));
getimage (100,170,500,220, bor ^);
setfillstyle (1,0);
setcolor (13);
settextstyle (1,0,9);
text: = 'VERTOLET';
cleardevice;
vert (30,20,4);
vert (550,20,4);
setcolor (13);
settextstyle (1,0,9);
outtextxy (100,5, text);
outtextxy (102,5, text);
outtextxy (104,5, text);
setbkcolor (0);
setcolor (7);
setfillstyle (1, red);
settextstyle (1,0,5);
putimage (100,170, bor ^, xorput);
text: = 'Play game';
outtextxy (200,165, t...
