ь
Game unit games;
interface
USES CRT, GRAPH;
function game (sd: boolean): word;
function og (a, d: integer): word;
procedure GET;
procedure ni;
procedure start;
procedure tex;
procedure lev (text, text1: string);
procedure vert (a, d: integer; s: byte);
procedure score (kol: integer; nik: string);
procedure ogon (a, d: integer; s: byte);
implementation
type mass = array [1 .. 100] of word;
Var
sche: array [1 .. 100] of integer;
nam: array [1 .. 100] of string;
q, e, r, a, d, w, n, k, kk, l, ll, verx, niz, ste, z, zz, v, vv, p, pp, schet, yr, fon, plus , pl: integer;
aw, bonn, xxx, xx, sss, ss, aa, zs, vs, ff, gg, fff, ggg, i, ii, level: integer;
t: char; text, text1, cod, cod1: string [15]; nik, och, och1: string [7];
astn1: mass;
b: boolean;
ver, barer, barer1, barer2, barer3: pointer;
procedure ogon (a, d: integer; s: byte);
var
k: array [1 .. 200] of word;
n, i: integer;
begin
for i: = 1 to 5 do begin
k [1]: = a; k [2]: = d; k [3]: = a +8; k [4]: ​​= d-15; k [5]: = a +14; k [6]: = d-12;
k [7]: = a +18; k [8]: = d-18; k [9]: = a +20; k [10]: = d-13; k [11]: = a +25; k [12]: = d-25;
k [13]: = a +27; k [14]: = d-19; k [15]: = a +30; k [16]: = d-21; k [17]: = a +34; k [18]: = d-17;
k [19]: = a +36; k [20]: = d-19; k [21]: = a +37; k [22]: = d-5; k [23]: = a +40; k [24]: = d-10;
k [25]: = a +38; k [26]: = d +3; k [27]: = a +33; k [28]: = d +10; k [29]: = a +27; k [30]: = d +4;
k [31]: = a +25; k [32]: = d +11; k [33]: = a +19; k [34]: = d +6; k [35]: = a +9; k [36]: = d +13;
k [37]: = a; k [38]: = d;
n: = 19;
setfillstyle (1, s);
setcolor (s);
fillpoly (n, k);
delay (1500);
setfillstyle (1, s +3);
setcolor (s +3);
fillpoly (n, k);
delay (3000);
setfillstyle (1, s +4);
setcolor (s +4);
fillpoly (n, k);
delay (1500);
setfillstyle (1, s +3);
setcolor (s +3);
fillpoly (n, k);
end;
end;
procedure vert (a, d: integer; s: byte);
var
k: array [1 .. 100] of word;
n: integer;
begin
k [11]: = a +5; k [12]: = d-5; k [13]: = a +5; k [14]: = d; k [15]: = a +10 ; k [16]: = d; k [17]: = a +15; k [18]: = d +5;
k [19]: = a +20; k [20]: = d +5; k [21]: = a +23; k [22]: = d +2; k [23]: = a +27; k [24]: = d; k [25]: = a +30; k [26]: = d;
k [27]: = a +30; k [28]: = d-7; k [29]: = a +20; k [30]: = d-7; k [31]: = a +20; k [32]: = d-8; k [33]: = a +40; k [34]: = d-8;
k [35]: = a +40; k [36]: = d-7; k [37]: = a +30; k [38]: = d-7; k [39]: = a +30; k [40]: = d; k [41]: = a +33; k [42]: = d +2;
k [43]: = a +30; k [44]: = d; k [45]: = a +30; k [46]: = d +9; k [47]: = a +41 ; k [48]: = d +9; k [49]: = a +27; k [50]: = d +9;
k [51]: = a +19; k [52]: = d +6; k [53]: = a-1; k [54]: = d; k [55]: = a; k [56]: = d +5; k [57]: = a +5; k [58]: = d +6;
k [59]: = a +11; k [60]: = d +7; k [61]: = a +17; k [62]: = d +8; k [63]: = a +19; k [64]: = d +9; k [65]: = a +24; k [66]: = d +17;
k [75]: = a +40; k [76]: = d +5; k [77]: = a +38; k [78]: = d +1; k [79]: = a +33; k [80]: = d;
n: = 40;
setfillstyle (1, s);
setcolor (s);
fillpoly (n, k),
k [1]: = a +28; k [2]: = d +16; k [3]: = a +32; k [4]: ​​= d +6; k [5]: = a +36; k [6]: = d +16; k [7]: = a +26; k [8]: = d +10;
k [9]: = a +37; k [10]: = d +10; k [11]: = a +28; k [12]: = d +16;
n: = 6;
setfillstyle (1,1);
setcolor (1);
fillpoly (n, k);
end;
function og (a, d: integer): word;
begin
setcolor (fon);
setfillstyle (1,0);
bar (a, d, a +48, ​​d +30);
end;
procedure score (kol: integer; nik: string);
type pass = record
name: string [10];
schet: integer;
end;
var t: char; f: file of pass; rec: pass;
e: boolean; address, klon: string; mes, k, p, fop, kolop, sch: integer;
begin
clrscr;
address: = 'FILEOFRE';
assign (f, address);
begin
kolop: = kol;
e: = false;
p: = 0;
fop: = 1;
mes: = 1;
{rewrite (f);
repeat
with rec do begin
write ('name:');
readln (name);
write ('schet:');
readln (schet);
write (f, rec);
end;
inc (p);
until p = 11;
procedure score (kol: integer; ni...
