(a-1, d-5) = 1))
then
begin
if (getpixel (a +43, d +7) = 1) or (getpixel (a-1, d-5) = 1) or (getpixel (a +36, d +20) = +1)
or (getpixel (a +42, d-7) = 1) or (getpixel (a-2, d) = 1) then
begin schet: = schet +500; inc (aw); putimage (v-50, vv +80, barer3 ^, 0); end;
text: = nik;
end
else
begin
text: = 'GAME OVER';
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;
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
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);
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;
В
ВИХІДНІ КОДИ МОДУЛІВ
Модул...
