{$I-,Q-,R-,S-}
uses graph,crt,dos;
label 1,2;
var
 a,xs,ys,i,xm,ym,xm1,ym1,helmeteor,helmeteor1,xm2,ym2,helmeteor2: integer;
 ch,key:char;                                      {клавиша}
 s:string;
 ochki,foc:longint;
 f:text;                                       {текстовый файл}
 gd,gm,snar,snary,prikol:integer;
 xmeteor:array [1..100] of word;
 xsnar:array [1..100] of word;                  {масив}
 ysnar:array [1..100] of word;                  {снарядов}
 z:byte;

procedure zakr;
begin
 settextstyle(SansSerifFont,horizdir,1);
 setcolor(11);
 outtextxy(getmaxx-200,getmaxy-20,'WWW.ZUY@.com.zad');
end;

function inttostr(int: longint): string;
var s: string;
begin
str(int:10,s);
inttostr:=s;
end;

function step10(gown:byte) : longint;      {stepen 10}
var govn,givn:byte;
begin
 givn:=1;
 for govn:=1 to gown do
 givn:=givn*10;
 step10:=givn;
end;
                                           {запуск прикола}
procedure pusk;
var abc:longint;
begin
 for abc:=1 to 440 do
 begin
  setcolor(random(16)+1);
  circle(getmaxx div 2,getmaxy div 2,abc);
  delay(1000);
  setcolor(0);
  circle(getmaxx div 2-1,getmaxy div 2,abc);
  circle(getmaxx div 2,getmaxy div 2,abc);
 end;
 helmeteor1:=0;
 helmeteor1:=0;
 helmeteor1:=0;
 ochki:=ochki+25;
end;

procedure closeall;                        {конец}
var s:string;
begin
  assign(f,'sthet.txt');
  reset(f);
  while not eof(f) do
  Read(F,foc);
 if foc<ochki then
 begin
  cleardevice;
  outtextxy(getmaxx div 2-250,getmaxy div 2-100,'new high score!!!');
  readln;
  outtextxy(getmaxx div 2-250,getmaxy div 2+50,inttostr(ochki));
  rewrite(f);
  write(f,ochki);
 end;
  readln;
close(f);
closegraph;halt
end;

procedure boom(x,y:word);                  {взрыв}
var a:integer;
begin
 setcolor(0);
 for a:=1 to 80 do
 begin
  circle(x,y,a);
 end;

 for a:=1 to 80 do
 begin
  circle(x-1,y,a);
 end;

end;

procedure up;
begin
 ys:=ys+3;
end;

procedure down;
begin
 ys:=ys-3;
end;

procedure left;
begin
 xs:=xs-3;
end;

procedure right;
begin
 xs:=xs+3;
end;

procedure meteor(x,y:word);
var zuy:word;                                 {рисуем метеор}
begin
  setcolor(darkgray);
  setfillstyle(1,0);
  circle(x,y,19);
  setcolor(0);
  for zuy:=1 to 19 do
  circle(x+19,y,19);
end;
                                              {рисуем корабль}
procedure ship (x,y:word);
begin
 setcolor(13);
 rectangle(x-20,y-5,x-5,y+5);
 line(x-5,y-5,x,y);
 line(x-5,y+5,x,y);
 setfillstyle(1,magenta);
 floodfill(x-1,y,13);
 setfillstyle(1,magenta);
 floodfill(x-15,y,13);
 delay(100);
 setcolor(0);
 rectangle(x-20,y-5,x-5,y+5);
 line(x-5,y-5,x,y);
 line(x-5,y+5,x,y);
 setfillstyle(1,0);
 floodfill(x-1,y,0);
 setfillstyle(1,0);
 floodfill(x-15,y,0);
end;

begin
gd:=detect;
initgraph(gd,gm,'');
1:                                            {МЕНЮ}
setcolor(lightcyan);
cleardevice;
settextstyle(gothicfont,horizdir,7);
outtext('SPASE IMPACT v.2.03.17');
settextstyle(gothicfont,horizdir,2);
outtextxy(0,130,'0-igrat');
outtextxy(0,150,'1-help');
outtextxy(0,170,'2-vihod');
outtextxy(0,190,'3-obnulit stshet');
ch:=readkey;
z:=ord(ch)-48;
if z=3
then
begin
cleardevice;
settextstyle(gothicfont,horizdir,4);
outtext('Do you realy want to delete score?(y/n)');
ch:=readkey;
if ch='y' then
 begin
  assign(f,'sthet.txt');
  rewrite(f);
  write(f,'0');
 end;
settextstyle(gothicfont,horizdir,2);
goto 1;
end
 else
if z=1
then
begin
settextstyle(TriplexFont,horizdir,1);
cleardevice;
outtextxy(0,10,'V ETOY IGRE VI SMOZETE');
outtextxy(0,25,'UPRAVLYAT KOSMICHESKIM');
outtextxy(0,40,'KORABLEM,I VAM PREYDETSA');
outtextxy(0,55,'BOROTSA PROTIV INOPLONETYAN,');
outtextxy(0,70,'KOTORIE HOTYAT VAS ZAHVATIT!');
outtextxy(0,85,'UPRAVLENIUE:');
outtextxy(0,100,'VVERH,VNIZ,VLEVO I VPRAVO');
outtextxy(0,115,'PROBEL-STRELBA');
outtextxy(0,130,'EST METEORITI NA 1HEL,3HELA');
outtextxy(0,145,'4HELA I "BESSMERTNIE"');
outtextxy(0,160,'ZA UNICHTOZENIY METEORIT');
outtextxy(0,175,'DAYUT OCHKI.');
outtextxy(0,190,'ZELAYEM UDACHI !!!');
readln;
end
 else
if z=2
then halt
 else
if z<>0 then goto 1;
prikol:=3;
randomize;
cleardevice;
z:=0;
snar:=0;
foc:=0;
xs:=30;ys:=200;
xm:=500;
snar:=0;
snary:=0;
i:=0;
ochki:=0;
ch:=' ';
repeat
zakr;
 key:=ch;
 if keypressed then                         {нажатие с клавы}
 begin
  key:=ch;
  ch:=readkey;
2:
  case ch of
's':
   up;
'w':
   down;
'a':
   left;
'd':
   right;
' ':
 begin
  if key ='s' then up
  else if key = 'w' then down
  else if key = 'a' then left
 else if key = 'd' then right;
  inc(snar);       {увеличение масива по Х}
  inc(snary);      {увеличение масива по Y}
  xsnar[snar]:=xs-5;
  ysnar[snary]:=ys;
  CH:=KEY;
  goto 2;
   end;
#27:closeall;
#9:                                          {ПУСК ПРИКОЛА}
 if prikol>-2 then
 begin
  prikol:=prikol-1;
  pusk;
 end;
  end;
end;


 inc(i);
 if xs<21 then xs:=21;
 if xs>600 then xs:=601;
 if ys<0 then ys:=2;
 if ys>470 then ys:=470;
 ship(xs,ys);
 for a:=1 to snar do          {ри-суем снаряд}
 begin
  inc(xsnar[a]);  {кординаты по Х }
  inc(xsnar[a]);
  inc(xsnar[a]);
  setcolor(2);
  circle(xsnar[a],ysnar[a],2);
  circle(xsnar[a],ysnar[a],1);
  if (getpixel(xsnar[a]+3,ysnar[a])=darkgray)
  or (getpixel(xsnar[a]+2,ysnar[a]+1)=darkgray)
  or (getpixel(xsnar[a]+2,ysnar[a]-1)=darkgray)  then
  begin                                                           {проверка}
   boom(xsnar[a],ysnar[a]); {если взрыв,то уменшаем масив}
   dec(snar);
   dec(snary);
   ochki:=ochki+random(50)+1;               {проверка на метеор}
   if abs(ysnar[a]-ym)<50 then dec(helmeteor)
   else if abs(ysnar[a]-ym1)<50 then dec(helmeteor1)
   else if abs(ysnar[a]-ym2)<50 then dec(helmeteor2)
   else pusk;
   if helmeteor=0 then
   begin
    boom(xm,ym);
    xm:=0;
   end;
   if helmeteor1=0 then
   begin
    boom(xm1,ym1);
    xm1:=0;
   end;
   if helmeteor2=0 then
   begin
    boom(xm2,ym2);
    xm2:=0;
   end;
  end;
  if xsnar[a]=640 then                 {если конец поля}
  begin
   boom(xsnar[a],ysnar[a]);
   dec(snar);
   dec(snary);
  end;
  delay(20);                       
  setcolor(0);                 
  circle(xsnar[a],ysnar[a],2);
  circle(xsnar[a],ysnar[a],1);
 end;
 if xm=0 then                          {проверка,если ХМ=0}
 begin
  boom(xm,ym);
  xm:=600;
  helmeteor:=3;
  ym:=random(480);
 end;
 if xm1=0 then
 begin
  boom(xm1,ym1);
  xm1:=600;
  helmeteor1:=2;
  ym1:=random(480);
 end;
 if xm2=0 then
 	
      begin
  boom(xm2,ym2);
  xm2:=600;
  helmeteor2:=1;
  ym2:=random(480);
 end;
 meteor(xm,ym);                            {ри-суем метеор}
 meteor(xm1,ym1);
 meteor(xm2,ym2);
 dec(xm);
 dec(xm1);
 dec(xm2);
 if (getpixel(xs+1,ys)=8) or (getpixel(xs,ys-6)=8) or (getpixel(xs,ys+6)=8) then
 begin                                   {проверка корабля}
  setcolor(2);
  SetTextStyle(gothicFont, horizDir,8);
  outtextxy(getmaxx div 2-250,getmaxy div 2-100,'GAME OVER');
  readln;
  closeall;
 end;
setcolor(11);
outtextxy(1,430,'prikol=');outtextxy(41,430,inttostr(prikol));
until 'zuy'='p*d*r';
closegraph;
end.