Program MineSweeper;

{****************************************************************************}

Uses    Crt,Graph,Dos;

{****************************************************************************}

Const   Board : FillPatternType=($FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF);

        Xb=225;   Yb=150;   Rb=8;    Cb=8;    Mb=10;

        Xi=158;   Yi=90;    Ri=16;   Ci=16;   Mi=40;

        Xe=15;    Ye=90;    Re=16;   Ce=30;   Me=100;

        Dim=20;

{****************************************************************************}

Type    Mine= record

           Num:Integer;

           Opened:Boolean;

           Mistaken:Boolean;

           Suspended1:Boolean;

           Suspended2:Boolean;

        end;

{****************************************************************************}

Var     InitialX,InitialY,FinalX,FinalY,FreeSpaces,TotalMines,FreeCounter,

        Level,TotalRows,TotalColumns : Integer;

        Over,Interupted:Boolean;

        A:Array[1..Re,1..Ce] of Mine;

        Ch:Char;

{****************************************************************************}

   Procedure OpenGraphics;

   Var GraphDriver,GraphMode,ErrorCode:Integer;

   begin

      GraphDriver:=Detect;

      InitGraph(GraphDriver,GraphMode,'X:\BP');

      ErrorCode := GraphResult;

      If (ErrorCode<>GrOk) then

      begin

         ClrScr;

         Writeln('Graphics Error! ',GraphErrorMsg(ErrorCode));

         Writeln('Please use School Pak to run this game...');

         Writeln('Download it here: http://pascal.net.ru/SchoolPak ');

         Write('Press any key...');

         Ch:=Readkey;

         Halt(1);

      end;

   end;

{****************************************************************************}

   Procedure Introduction;

   Var i:Integer;

   begin

      ClearDevice;

      SetColor(13);

      Rectangle(40,120,600,310);

      SetFillPattern(Board,1);

      FloodFill(300,150,13);

      SetTextStyle(DefaultFont,HorizDir,3);

      OutTextXY(85,130,'Д');

      SetTextStyle(DefaultFont,HorizDir,2);

      OutTextXY(110,133,'обро пожаловать в игру Сапёр!');

      SetColor(15);

      For i:=0 to 24 do

      begin

         Line(325,154,325+10*i,154);

         Line(325,155,325+10*i,155);

         Line(325,154,325-10*i,154);

         Line(325,155,325-10*i,155);

         delay(50);

      end;

      SetTextStyle(DefaultFont,HorizDir,1);

      OutTextXY(200,165,'*** Игра разработана ***');

      OutTextXY(170,185,'- На языке программирования Pascal,');

      OutTextXY(170,205,'- В университете Zimbabwe,');

      OutTextXY(170,225,'- Yonas Tesfazghi weldeselassie,');

      OutTextXY(170,245,'- В среду 23-го февраля 2000.');

      SetColor(Yellow);

      OutTextXY(200,280,'Нажмите любую клавишу для продолжения...');

      Ch := ReadKey;

   end;

{****************************************************************************}

   Procedure Timer(n:Integer);

   Var h,m,s,hund:word;

   begin

      GetTime(h,m,s,hund);

      If (n=1) then {The game is being started.}

      begin

         SetColor(2);

         Rectangle(20,450,130,470);

         Rectangle(510,450,610,470);

         SetTextstyle(DefaultFont,HorizDir,1);

         SetColor(12);

         OutTextXY(25,440,'Время начала');

         OutTextXY(517,440,'Время конца');

         OutTextXY(35,457,Chr(h div 10+48));

         OutTextXY(45,457,Chr(h mod 10+48));

         OutTextXY(55,457,':');

         OutTextXY(65,457,Chr(m div 10+48));

         OutTextXY(75,457,Chr(m mod 10+48));

         OutTextXY(85,457,':');

         OutTextXY(95,457,Chr(s div 10+48));

         OutTextXY(105,457,Chr(s mod 10+48));

         SetTextstyle(DefaultFont,HorizDir,2);

         OutTextXY(555,453,'?');

      end

      Else  {The player has won the game or the game is over.}

      begin

         SetFillPattern(Board,0);

         FloodFill(550,460,2);

         SetColor(12);

         SetTextstyle(DefaultFont,HorizDir,1);

         OutTextXY(522,457,Chr(h div 10+48));

         OutTextXY(532,457,Chr(h mod 10+48));

         OutTextXY(542,457,':');

         OutTextXY(552,457,Chr(m div 10+48));

         OutTextXY(562,457,Chr(m mod 10+48));

         OutTextXY(572,457,':');

         OutTextXY(582,457,Chr(s div 10+48));

         OutTextXY(592,457,Chr(s mod 10+48));

      end;

   end;

{*************************************************************** *************}

   Procedure HelpMenu;

   begin

      ClearDevice;

      SetTextStyle(DefaultFont,HorizDir,2);

      SetColor(13);

      Rectangle(259,0,379,20);

      SetColor(2);

      OutTextXY(280,3,'Сапёр');

      SetColor(15);

      SetTextStyle(DefaultFont,HorizDir,1);

      Rectangle(10,20,630,479);

      SetFillPattern(Board,1);

      FloodFill(300,150,15);

      SetColor(10);

      OutTextXY(243,30,'Правила игры в Сапёр');

      Line(237,40,408,40);

      SetColor(7);

      OutTextXY(25,50,'    Сапёр -- это игра с игровым полем и несколькими минами на этом поле.');

      OutTextXY(25,65,'Поле поделено на мелкие квадраты, и количество этих квадратов и мин зависит');

      OutTextXY(25,80,'от желаемого УРОВНЯ игры. Размер поля и количество мин на каждый уровнь');

      OutTextXY(25,95,'следующие:');

      OutTextXY(25,110,'');

      SetColor(10);

      OutTextXY(30,125,'   Уровень игры   #Строк    #Столбцов    #Квадратов   #Мин  ');

      Line(53,135,150,135);   Line(173,135,223,135);   Line(255,135,325,135);

      Line(360,135,437,135);  Line(462,135,495,135);

      SetColor(15);

      OutTextXY(55,140,'Новичок           8          8            8x8=64     10');

      OutTextXY(55,155,'Любитель         16         16         16x16=256     40');

      OutTextXY(55,170,'Эксперт          16         30         16x30=480    100');

      SetColor(7);

      OutTextXY(25,190,'  Мины ПРОИЗВОЛЬНО расставлены в квадратах, и ваша цель -- ТОЧНО определить');

      OutTextXY(25,205,'месторасположение мин. Вы указываете их, нажимая клавишу       на квадрате');

      OutTextXY(25,220,'с миной внутри.');

      SetColor(14); OutTextXY(483,205,'<ESC>');

      SetColor(7);  OutTextXY(170,220,'');

      OutTextXY(25,235,'   Если в квадрате НЕТ мины, то на нём написано число, которое указывает');

      OutTextXY(25,250,'количество соседних квадратов с минами. Чтобы узнать, ПУСТОЙ ли квадрат,');

      OutTextXY(25,265,'нужно нажать клавишу         на нём. Однако, нажатие клавиши ENTER в');

      SetColor(14); OutTextXY(194,265,'<ENTER>');

      SetColor(7);  OutTextXY(485,265,'');

      OutTextXY(25,280,'квадрате с миной приведёт к фатальному исходу. Поэтому нужно стараться');

      OutTextXY(25,295,'не нажимать клавишу ENTER на квадрате с миной.');

      OutTextXY(25,310,'   Когда вы начинаете игру, вы видите индикатор, квадрат, нарисованный');

      OutTextXY(25,325,'особенным цветом. Вы можете передвигать индикатор в любую сторону клавишами');

      SetColor(14); OutTextXY(25,340,'<СТРЕЛКИ>');   SetColor(7);

      OutTextXY(87,340,' . В самом начале вы можете нажать клавишу ENTER где угодно, и');

      OutTextXY(25,355,'этот квадрат будет обязательно пустым.');

      OutTextXY(25,370,'   Если вы решили, что в квадрате есть мина, и поставили пометку, но');

      OutTextXY(25,385,'передумали и хотите убрать пометку, нужно нажать клавишу ESC ещё раз на');

      OutTextXY(25,400,'этои квадрате. На этот раз вы увидите знак вопроса, обозначающий, что вы');

      OutTextXY(25,415,'отменяете пометку. Следующее нажатие ESC уберёт этот знак вопроса, и');

      OutTextXY(25,430,'этот квадрат возвратится в изначальное нетронутое состояние.');

      SetColor(13);   OutTextXY(150,450,'Нажмите    , чтобы остановить игру');

      SetColor(14);   OutTextXY(64,470,'НАЖМИТЕ ЛЮБУЮ КЛАВИШУ ДЛЯ ПРОДОЛЖЕНИЯ...');

      SetColor(15);   OutTextXY(390,470,'С наилучшими пожеланиями! Y.T.');

      SetTextStyle(DefaultFont,HorizDir,2);

      OutTextXY(215,447,'S');

      Ch := Readkey;

   end;

{****************************************************************************}

   Procedure WriteHeading(Y:Integer);

   begin

      SetColor(13);

      Rectangle(136,Y,496,Y+40);

      SetColor(Green);

      SetTextStyle(DefaultFont,HorizDir,3);

      OutTextXY(254, Y+10,'САПЁР');

      SetColor(13);

      If (Y=40) then

      begin

         Rectangle(235,Y+40,385,Y+60);

         SetColor(yellow);

         SetTextStyle(DefaultFont,HorizDir,2);

         OutTextXY(257,Y+45,'Уровень');

      end

      Else

      begin

         Rectangle(220,Y+40,400,Y+60);

         SetColor(Yellow);

         SetTextStyle(DefaultFont,HorizDir,1);

         If (Level=1) then

               OutTextXY(255,Y+50,'Новичок')

         Else if (Level=2) then

               OutTextXY(240,Y+50,'Любитель')

         Else  OutTextXY(265,Y+50,'Эксперт');

      end;

   end;

{****************************************************************************}

   Procedure SetData(GL:Integer);

   begin

      If (GL=1) then

      begin

         Level:=1;

         TotalMines:=Mb;

         TotalRows:=Rb;

         TotalColumns:=Cb;

         FreeSpaces:=Rb*Cb-Mb;

         InitialX:=Xb;

         InitialY:=Yb;

      end

      Else if (GL=2) then

      begin

         Level:=2;

         TotalMines:=Mi;

         TotalRows:=Ri;

         TotalColumns:=Ci;

         FreeSpaces:=Ri*Ci-Mi;

         InitialX:=Xi;

         InitialY:=Yi;

      end

      Else

      begin

         Level:=3;

         TotalMines:=Me;

         TotalRows:=Re;

         TotalColumns:=Ce;

         FreeSpaces:=Re*Ce-Me;

         InitialX:=Xe;

         InitialY:=Ye;

      end;

      FinalX:=InitialX+TotalColumns*Dim;

      FinalY:=InitialY+TotalRows*Dim;

   end;

{****************************************************************************}

   Procedure WelComing;

   begin

      Introduction;

      HelpMenu;

      ClearDevice;

      WriteHeading(40);

      SetColor(13);

      Rectangle(40,120,600,270);

      SetFillPattern(Board,1);

      FloodFill(300,150,13);

      SetColor(15);

      SetTextStyle(DefaultFont,HorizDir,1);

      OutTextXY(170,150,'Выберите уровень игры:');

      OutTextXY(230,170,'1. Новичок,');

      OutTextXY(230,190,'2. Любитель или');

      OutTextXY(230,210,'3. Эксперт.');

      SetColor(Yellow);

      OutTextXY(220,245,'Нажмите 1, 2 или 3.');

      Repeat

         Ch:=Readkey;

      Until (Ch in ['1','2','3']);

      SetData(Ord(Ch)-48);

   end;

{****************************************************************************}

   Procedure DrawNonOpened(X,Y:Integer);

   begin

      SetColor(DarkGray);

      Rectangle(X,Y,X+Dim,Y+Dim);

      SetFillPattern(Board,LightGray);

      FloodFill(X+Dim div 2,Y+ Dim div 2,DarkGray);

      Line(X+2,Y+Dim-2,X+Dim-2,Y+Dim-2);

      Line(X+Dim-2,Y+2,X+Dim-2,Y+Dim-2);

      SetColor(White);

      Line(X+2,Y+2,X+Dim-2,Y+2);

      Line(X+2,Y+2,X+2,Y+Dim-2);

   end;

{****************************************************************************}

   Procedure DrawField;

   Var i:Integer;

   begin

      ClearDevice;

      WriteHeading(5);

      SetColor(darkGray);

      Rectangle(InitialX-10,InitialY-10,FinalX+10,FinalY+10);

      SetFillPattern(Board,LightGray);

      FloodFill(InitialX,InitialY,DarkGray);

      For i:=1 to 11 do

      begin

         If (i in [1,2,3,4]) then

         begin

            SetColor(DarkGray);

               Line(initialX-i,InitialY-i,InitialX-i,Finaly+i);

               Line(InitialX-i,InitialY-i,FinalX+i,InitialY-i);

            SetColor(White);

               Line(InitialX-i,FinalY+i,FinalX+i,FinalY+i);

               Line(FinalX+i,InitialY-i,FinalX+i,FinalY+i);

         end

         Else if (i in [9,10,11]) then

         begin

            SetColor(DarkGray);

               Line(InitialX-i,FinalY+i,FinalX+i,FinalY+i);

               Line(FinalX+i,InitialY-i,FinalX+i,FinalY+i);

            SetColor(White);

               Line(InitialX-i,InitialY-i,FinalX+i,InitialY-i);

               Line(InitialX-i,InitialY-i,InitialX-i,FinalY+i);

         end;

      end;

      SetColor(darkGray);

         Rectangle(InitialX-1,InitialY-1,FinalX+1,FinalY+1);

   end;

{****************************************************************************}

   Procedure DrawBoard;

   Var X,Y,i,j:Integer;

   begin

      DrawField;

      For i:=0 to (TotalRows-1) do

      begin

         Y:=InitialY+Dim*i;

         For j:=0 to (TotalColumns-1) do

         begin

            X:=InitialX+Dim*j;

            DrawNonOpened(X,Y);

         end;

      end;

   end;

{****************************************************************************}

   Procedure DrawNewIndicator(X,Y:Integer);

   begin

      SetColor(13);

      Rectangle(X+3,Y+3,X+Dim-3,Y+Dim-3);

      Rectangle(X+4,Y+4,X+Dim-4,Y+Dim-4);

   end;

{****************************************************************************}

   Procedure RemoveOldIndicator(X,Y:Integer);

   begin

      SetColor(7);

      Rectangle(X+3,Y+3,X+Dim-3,Y+Dim-3);

      Rectangle(X+4,Y+4,X+Dim-4,Y+Dim-4);

   end;

{****************************************************************************}

   Procedure MoveIndicator(Var X,Y,Row,Col:Integer; Ch:Char);

   Var OldX,OldY:Integer;

   begin

      OldX:=X;

      OldY:=Y;

      Case Ch of

         #72: If (Y>InitialY) then

              begin

                 Y:=Y-Dim;

                 Dec(Row);

              end;

         #75: If (X>InitialX) then

              begin

                 X:=X-Dim;

                 Dec(Col);

              end;

         #77: If ((X+Dim)<FinalX) then

              begin

                 X:=X+Dim;

                 Inc(Col);

              end;

         #80: If ((Y+Dim)<FinalY) then

              begin

                 Y:=Y+Dim;

                 Inc(Row);

              end;

      end;

      If ((OldX<>X) or (OldY<>Y)) then

      begin

         RemoveOldIndicator(OldX,OldY);

         DrawNewIndicator(X,Y);

      end;

   end;

{****************************************************************************}

   Procedure WriteNumber(X,Y,Row,Col:Integer);

   Var Color:Integer;

   begin

      Case A[Row,Col].Num of

         1: Color:=9;   4: Color:=1;    7: Color:=12;

         2: Color:=2;   5: Color:=5;    8: Color:=13;

         3: Color:=4;   6: Color:=3;    9: Color:=0;

      end;

      SetColor(Color);

      SetTextStyle(DefaultFont,HorizDir,1);

      If (A[Row,Col].Num=9) then

            OutTextXY(X+7,Y+7,Chr(15))

      Else  OutTextXY(X+7,Y+7,Chr(A[Row,Col].Num+48));

   end;

{****************************************************************************}

   Procedure DrawOpened(X,Y,Row,Col:Integer);

   var Color:Integer;

   begin

      If (A[Row,Col].Suspended2) then

          DrawNonOpened(X,Y);

      color:=1;

      SetColor(Color);

      Rectangle(X+1,Y+1,X+Dim-1,Y+Dim-1);

      SetFillPattern(Board,LightGray);

      FloodFill(X+Dim div 2,Y+Dim div 2,Color);

      If (A[Row,Col].num<>0) then

         WriteNumber(X,Y,Row,Col);

   end;

{****************************************************************************}

   Procedure DrawSuspended1(X,Y:Integer);

   Var Color:Integer;

   begin

      DrawNonOpened(X,Y);

      Color:=Red;

      SetColor(Color);

      setTextStyle(defaultFont,HorizDir,1);

      OutTextXY(X+7,Y+7,Chr(6));

   end;

{****************************************************************************}

   Procedure DrawSuspended2(X,Y:Integer);

   Var Color:Integer;

   begin

      DrawNonOpened(X,Y);

      Color:=1;

      SetColor(Color);

      SetTextStyle(DefaultFont,HorizDir,1);

      OutTextXY(X+7,Y+7,Chr(63));

   end;

{****************************************************************************}

   Procedure OpenSurrounding(X,Y,Row,Col:Integer);

   Var XX,YY,RR,CC,i,j:Integer;

   begin

      For i:=-1 to 1 do

      begin

         RR:=Row+i;

         If (RR in [1..TotalRows]) then

         begin

            For j:=-1 to 1 do

            begin

               CC:=Col+j;

               If (CC in [1..TotalColumns]) then

               begin

                  If (Not((A[RR,CC].Opened) or (A[RR,CC].Suspended1) or

                          (A[RR,CC].Suspended2))) then

                  begin

                     A[RR,CC].Opened:=True;

                     XX:=X+Dim*j;

                     YY:=Y+Dim*i;

                     DrawOpened(XX,YY,RR,CC);

                     Inc(FreeCounter);

                     If (A[RR,CC].Num=0) then

                         OpenSurrounding(XX,YY,RR,CC);

                  end;

               end;

            end;

         end;

      end;

   end;

{****************************************************************************}

   Procedure Allocate(Row,Col:Integer);

   Var R,C,RR,CC,Sum,i,j:Integer;

   begin

      For i:=1 to TotalMines do

      begin

         Randomize;

         Repeat

            R:=Random(TotalRows)+1;

            C:=Random(TotalColumns)+1;

         Until (((R<>Row) or (C<>Col)) and (A[R,C].Num<>9));

         A[R,C].Num:=9;

      end;

      For R:=1 to TotalRows do

      begin

         For C:=1 to totalColumns do

         begin

            If (A[R,C].Num<>9) then

            begin

               Sum:=0;

               For i:=-1 to 1 do

               begin

                  RR:=R+i;

                  If (RR in [1..TotalRows]) then

                  begin

                     For j:=-1 to 1 do

                     begin

                        CC:=C+j;

                        If (CC in [1..TotalColumns]) then

                        begin

                           If (A[RR,CC].Num=9) then

                               Inc(Sum);

                        end;

                     end;

                  end;

               end;

               A[R,C].Num:=Sum;

            end;

         end;

      end;

   end;

{****************************************************************************}

   Procedure DrawCross(X,Y,Row,Col:Integer);

   Var Color:Integer;

   begin

      SetColor(Red);

      Line(X+4,Y+4,X+Dim-4,Y+Dim-4);

      Line(X+5,Y+4,X+Dim-3,Y+Dim-4);

      Line(X+4,Y+Dim-4,X+Dim-4,Y+4);

      Line(X+5,Y+Dim-4,X+Dim-3,Y+4);

   end;

{****************************************************************************}

   Procedure Success;

   begin

      Timer(2);

      SetColor(13);

      SetTextStyle(DefaultFont,HorizDir,2);

      OutTextXY(180,FinalY+25,'ПОЗДРАВЛЕНИЯ!');

      SetTextStyle(DefaultFont,HorizDir,1);

      OutTextXY(220,FinalY+45,'Вы выиграли игру.');

   end;

{****************************************************************************}

   Procedure GameOver(X,Y:Integer);

   Var XX,YY,Row,Col:Integer;

   begin

      Timer(2);

      For Row:=1 to TotalRows do

      begin

         YY:=InitialY+(Row-1)*Dim;

         For Col:=1 to TotalColumns do

         begin

            If (Not(A[Row,Col].Opened)) then

            begin

               XX:=InitialX+(Col-1)*Dim;

               If (A[Row,Col].Mistaken) then

                   DrawCross(XX,YY,Row,Col)

               Else if ((A[Row,Col].Num=9) and

                        (Not(A[Row,Col].Suspended1))) then

                   DrawOpened(XX,YY,Row,Col);

            end;

         end;

      end;

      SetColor(1);{Now show where the MISTAKE occured.}

      Rectangle(X+1,Y+1,X+Dim-1,Y+Dim-1);

      SetFillPattern(Board,Red);

      FloodFill(X+Dim div 2,Y+Dim div 2,1);

      OutTextXY(X+7,Y+7,Chr(47));

      OutTextXY(X+7,Y+7,Chr(92));

      SetColor(13);

      SetTextStyle(DefaultFont,HorizDir,2);

      OutTextXY(130,FinalY+30,' Вы проиграли!');

      SetTextStyle(DefaultFont,HorizDir,1);

      OutTextXY(350,FinalY+35,' Игра окончена.');

   end;

{****************************************************************************}

   Procedure Warning;

   begin

      SetColor(15);

      SetTextStyle(DefaultFont,HorizDir,1);

      OutTextXY(142,FinalY+25,'Вы действительно хотите прервать игру? (Y/N)');

      Repeat

         Ch:=Readkey;

      Until (Ch in ['n','N','y','Y']);

      If (Ch in ['y','Y']) then

          Interupted:=True;

      SetColor(0);

      OutTextXY(142,FinalY+25,'Вы действительно хотите прервать игру? (Y/N)');

   end;

{****************************************************************************}

   Procedure Play(Var X,Y,Row,Col:Integer);

   begin

      Repeat

         Ch:=Readkey;

      Until ((Ord(Ch) in [13,27,83,115]) or (Ch in [#72,#75,#77,#80]));

      If (Ch in [#72,#75,#77,#80]) then

           MoveIndicator(X,Y,Row,Col,Ch)

      Else if (Ord(Ch)=13) then

      begin

         If (Not((A[Row,Col].Opened) or (A[Row,Col].Suspended1))) then

         begin

            A[Row,Col].Opened:=True;

            DrawOpened(X,Y,Row,Col);

            DrawNewIndicator(X,Y);

            If (A[Row,Col].Num=9) then

            begin

               Over:=True;

               GameOver(X,Y);

            end

            Else

            begin

               Inc(FreeCounter);

               If (A[Row,Col].Num=0) then

                   OpenSurrounding(X,Y,Row,Col);

               If (FreeCounter=FreeSpaces) then

               begin

                  Over:=True;

                  Success;

               end;

            end;

         end;

      end

      Else if (Ord(Ch)=27) then

      begin

         If (Not(A[Row,Col].Opened)) then

         begin

            If (A[Row,Col].suspended1) then

            begin

               A[Row,Col].Suspended1:=False;

               A[Row,Col].Suspended2:=True;

               A[Row,Col].Mistaken:=False;

               DrawSuspended2(X,Y);

            end

            Else if (A[Row,Col].Suspended2) then

            begin

               A[Row,Col].Suspended2:=False;

               DrawNonOpened(X,Y);

            end

            Else

            begin

               A[Row,Col].Suspended1:=True;

               DrawSuspended1(X,Y);

               If (A[Row,Col].Num<>9) then

                     A[Row,Col].Mistaken:=True

            end;

            DrawNewindicator(X,Y);

         end;

      end

      Else Warning;

   end;

{****************************************************************************}

   Procedure StartGame;

   Var X,Y,Row,Col:Integer;

   begin

      Repeat

         Over:=False;

         Interupted:=False;

         DrawBoard;

         For Row:=1 to TotalRows do

         begin

            For Col:=1 to TotalColumns do

            begin

               A[Row,Col].Num:=0;

               A[Row,Col].Opened:=False;

               A[Row,Col].Mistaken:=False;

               A[Row,Col].Suspended1:=False;

               A[Row,Col].Suspended2:=False;

            end;

         end;

         Randomize;

         Row:=Random(TotalRows)+1;

         Col:=Random(TotalColumns)+1;

         X:=InitialX+(Col-1)*Dim;

         Y:=InitialY+(Row-1)*Dim;

         DrawNewIndicator(X,Y);

         Repeat

            Repeat

               Ch:=Readkey;

            Until ((Ch in [#72,#75,#77,#80]) or (Ord(Ch) in [13,83,115]));

            If (Ch in [#72,#75,#77,#80]) then

               MoveIndicator(X,Y,Row,Col,Ch)

            Else if (Ord(Ch)=13) then

            begin

               Allocate(Row,Col);

               A[Row,Col].Opened:=True;

               DrawOpened(X,Y,Row,Col);

               FreeCounter:=1;

               DrawNewIndicator(X,Y);

               If (A[Row,Col].Num=0) then

                  OpenSurrounding(X,Y,Row,Col);

               If (FreeCounter=FreeSpaces) then

               begin

                  Over:=True;

                  Success;

               end;

            end

            Else Warning;

         Until ((Ord(Ch)=13) or (Interupted));

         If (Ord(Ch)=13) then

         begin

            Timer(1);

            Repeat

               Play(X,Y,Row,Col);

            Until ((Over) or (Interupted));

         end;

         SetColor(15);

         SetTextStyle(DefaultFont,HorizDir,1);

         If Interupted then

         begin

            OutTextXY(210,FinalY+25,'Вы покинули игру!');

            OutTextXY(190,FinalY+45,'Хотите сыграть ещё раз? (Y/N)');

         end

         Else

            OutTextXY(190,FinalY+60,'Хотите сыграть ещё раз? (Y/N)');

         Repeat

            Ch:=Readkey;

         Until (Ord(Ch) in [78,89,110,121]);

         If (Ord(Ch) in [89,121]) then

         begin

            If Interupted then OutTextXY(450,FinalY+45,'y');

            SetColor(0);  OutTextXY(190,FinalY+60,'Хотите сыграть ещё раз? (Y/N)');

            SetColor(15); OutTextXY(220,FinalY+60,'Какой уровень? (1,2 or 3)');

            Repeat

               Ch:=Readkey;

            Until (Ord(Ch) in [49,50,51]);

            SetData(Ord(Ch)-48);

         end;

      Until (Ord(Ch) in [78,110]);

      ClearDevice;

      CloseGraph;

   end;

{****************************************************************************}

BEGIN{Main Program}

   OpenGraphics;

   WelComing;

   StartGame;

END.{Main Program}