ine (5,16,8,16);
line (7,17,10,17); line (10,18,16,18);
line (16,19,35,19); line (35,18,41,18);
line (41,17,44,17); line (44,16,46,16);
line (46,15,48,15); line (48,14,49,14);
line (49,14,49,11); line (49,11,48,11);
line (48,10,46,10); line (46,9,44,9);
line (44,8,41,8); line (41,7,41,9);
line (41,9,40,9); line (40,10,37,10);
line (37,11,33,11); line (33,12,17,12);
line (17,11,13,11); line (13,10,10,10);
line (10,9,9,8);
setfillstyle (1, l); floodfill (24,15, l);
putpixel (31,16,0); putpixel (42,12,0);
putpixel (18,16,0); putpixel (7,13,0);
setcolor (11);
line (18,11,32,11); line (32,10,36,10);
line (36,9,39,9); line (40,8,40,5);
line (39,4,36,4); line (36,3,32,3);
line (32,2,18,2); line (18,3,14,3);
line (14,4,11,4); line (10,5,10,8);
line (11,9,14,9); line (14,10,18,10);
setfillstyle (1,11); floodfill (25,7,11);
end;
procedure pulka; {Промальовування снаряда}
begin
setcolor (5);
line (2,6,2,3); line (3,6,3,0); line (4,6,4,3);
setcolor (13);
line (3,8,3,7);
setcolor (14);
line (1,5,1,7); line (2,7,2,9);
putpixel (3,9,14); line (4,7,4,9); line (5,5,5,7);
end;
procedure gameover (b, v: integer); {приписи при виграші однієї
var u, o: integer; зі сторін}
i: ^ integer;
siz: word;
begin
siz: = imagesize (0,100,1,100);
getmem (i, siz);
getimage (0,100,1,100, i ^);
if v> 500 then begin
outtextxy (300,240, 'Y'); beep;
outtextxy (308,240, 'o'); beep;
outtextxy (316,240, 'u'); beep;
outtextxy (324,240, '_'); beep;
outtextxy (332,240, 'W'); beep;
outtextxy (340,240, 'I'); beep;
outtextxy (348,240, 'N'); beep;
end;
if b> 500 then begin
outtextxy (300,240, 'G'); beep;
outtextxy (308,240, 'a'); beep;
outtextxy (316,240, 'm'); beep;
outtextxy (324,240, 'e'); beep;
outtextxy (332,240, '_'); beep;
outtextxy (340,240, 'O'); beep;
outtextxy (348,240, 'v'); beep;
outtextxy (356,240, 'e'); beep;
outtextxy (364,240, 'r'); beep;
delay (45000); outtextxy (330,260, ':'); beep;
outtextxy (338,260, '-'); beep;
outtextxy (346,260, '>'); beep;
end;
delay (64500); delay (64500);
delay (64500);
for u: = 0 to 640 do
for o: = 0 to 480 do begin
putimage (u, o, i ^, copyput);
end;
end;
procedure jim; {Безпосередньо гра}
label 2,3;
var i, j, x, y, m, n, v, b: integer;
ke...
