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);
delay(3000);
setfillstyle(1,s+4);
setcolor(s+4);
end;
procedure vert(a,d:integer;s:byte);
var
k:array[1..100] of word;
n:integer;
k[1]:=a;k[2]:=d;k[3]:=a+5;k[4]:=d;k[5]:=a+5;k[6]:=d-5;k[7]:=a;k[8]:=d-5;k[9]:=a+10;k[10]:=d-5;
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[67]:=a+26;k[68]:=d+18;k[69]:=a+36;k[70]:=d+18;k[71]:=a+40;k[72]:=d+12;k[73]:=a+42;k[74]:=d+8;
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;
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);
function og(a,d:integer):word;
setcolor(fon);
setfillstyle(1,0);
bar(a,d,a+48,d+30);
procedure score(kol:integer; nik:string);
type pass=record
name:string[10];
schet:integer;
var t:char; f:file of pass; rec:pass;
e:boolean; address,klon:string; mes,k,p,fop,kolop,sch:integer;
clrscr;
address:='FILEOFRE';
assign(f,address);
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);
inc(p);
until p=11;
close(f); }
reset(f);
writeln; writeln(' Pekopd ');
writeln;writeln;writeln;
read(f,rec);
writeln;
write(' ',mes);
write(' ',name);
write(' : ',schet);
inc(mes);
until mes=7;
close(f);
if fop<>1 then begin
writeln(' ................. ');
delay(5000);
writeln; writeln;writeln;
writeln(' Press Enter ');
t:=readkey;
until Ord(t)=13;
writeln('');
writeln('');writeln('');writeln('');writeln('');writeln('');writeln('');writeln('');
writeln('');writeln('');writeln('');writeln('');
writeln(' You had gone =', kolop,' meters');
writeln('');writeln('');
writeln('');writeln('');writeln('');writeln('');writeln('');writeln('');writeln(''); delay(10000);
writeln (' Press Enter');
(*begin
writeln('Выражаю благодарность за помошь в тестировании игры группе ИВТ-06-2 и лично ');
{setcolor(12); }
writeln('Павлу Просянникову {Пахе старому}');
{setcolor(4); }
writeln('Выражаю благодарность за помошь в написании сценария игры ');
writeln('Левону, Любе, Михаилу') ;
writeln('');writeln('');writeln(''); delay(10000);
writeln (' Нажмите пробел');
until Ord(t)=32; end; *)
procedure GET;
getmem(ver,imagesize(a-10,d-25,a+53,d+40));
getimage(a-10,d-25,a+53,d+40,ver^);
setfillstyle(6,99);
bar(300,300,320,350);
getmem(barer,imagesize(300,300,340,350));
getimage(300,300,340,350,barer^);
bar(500,330,520,350);
setcolor(0);
settextstyle(2,0,4);
outtextxy(503,333,'500');
getmem(barer2,imagesize(500,330,540,350));
getimage(500,330,540,350,barer2^);
getmem(barer3,imagesize(500,330,540,350));
getimage(500,330,540,350,barer3^);
setfillstyle(9,53);
bar(400,300,420,350);
getmem(barer1,imagesize(400,300,440,350));
getimage(400,300,440,350,barer1^);
putimage(400,300,barer^,1);
putimage(300,300,barer1^,1);
procedure start;
cleardevice;
aa:=pp;
putimage(a-10,d-25,ver^,1);
setfillstyle(1,12);
bar(0,0,640,100);
setcolor(5);
settextstyle(4,0,5);
outtextxy(150,15, nik);
text:='Level 1';
outtextxy(400,15, text);
setcolor(red);
settextstyle(1,0,3);
outtextxy(50,35,och);
settextstyle(0,0,0);
procedure tex;
settextstyle(1,0,9);
setcolor(4);
outtextxy(150,140,text);
outtextxy(152,142,text);
outtextxy(158,138,text);
delay(30000);
procedure ni;
var cc:char;
bb:integer;
s:string[8];
setcolor(6);
bb:=220;
s:='';
outtextxy(100,60,'Will enter your name:');
bar(200,220,400,280);
settextstyle(1,0,5);
cc:=readkey;
if (ord(cc)<>75) and (ord(cc)<>72) {and (ord(cc)<>77)} and (ord(cc)<>80) then
s:=s+cc;
nik:=s;
outtextxy(bb,230,nik);
outtextxy(bb+2,230,nik);
until ord(cc)=13;
procedure lev(text,text1:string);
delay(10000);
bar(505,15,525,65);
outtextxy(505,15,text1);
function game(sd:boolean):word;
const left=#75;
right=#77;
up=#72;
down=#80;
ni;
fon:=0;
plus:=0;
yr:=3;
schet:=0;a:=120; d:=240;verx:=460;niz:=125;kk:=300;ll:=350;z:=580;v:=880; l:=680; k:=780;
i:=980;ii:=400;vv:=200;zz:=150;p:=0;pp:=640;level:=1;vert(a,d,4);
randomize;
get;
och:='70';
tex;
start;
bonn:=random(150)+300;
if (plus<70) and (ord(t)=32) then begin
setcolor(12);
outtextxy(50,35, och);
str(pl,och); outtextxy(50,35, och);
og(a-3,d-9); plus:=plus+1; end;
pl:=70-plus;
if ((getpixel(a-2,d)=0) or (getpixel(a-2,d)=1)) and ((getpixel(a+43,d+7)=0) or (getpixel(a+43,d+7)=1))
and ((getpixel(a+26,d+20)=0) or (getpixel(a+26,d+20)=1)) and
((getpixel(a+36,d+20)=0) or (getpixel(a+36,d+20)=1)) and ((getpixel(a+42,d-7)=0) or (getpixel(a+42,d-7)=1))
and ((getpixel(a+18,d-7)=0) or (getpixel(a+18,d-7)=1)) and
((getpixel(a-1,d-5)=0) or (getpixel(a-1,d-5)=1))
then
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
text:='GAME OVER';
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);
b:=keypressed;
if b=true then t:=readkey;
setcolor(white);
setbkcolor(fon);
Страницы: 1, 2, 3, 4
