with Ecran ,  Lab , Carte ;
use  Ecran ,  Lab , Carte ;


with Ecran ,  Lab , Carte ;
use  Ecran ,  Lab , Carte ;


procedure missionpacman is



   function Compter_Cerise(Laby:in Lab.T_Lab) return integer is

      Compt:Integer:=0;

   begin


      for Lig in laby'Range(1) loop
     for Col in laby'Range(2) loop


        if  Laby(Lig,Col)=Cerise then
           Compt:=Compt+1;
        else
           null;


        end if;
     end loop;
      end loop;
      return Compt;

   end Compter_Cerise;




   procedure Mettre_Mur (Pac:in out T_Pacman;Labyr:T_lab) is

   begin

      Pac.Nbrevies:=Pac.Nbrevies-1;
      Suspendretimer;
      Effacerecran;
      Ecrireecran(20,8,"mur touche");
      Reprendretimer;
      Dessinerlabyrinthe(Labyr);


   end mettre_Mur;





   procedure Sous_Deplacement (labyr:in Lab.T_Lab; Pac: in out Lab.T_Pacman;Dir:in  T_Direction) is

   begin

      Pac.Nbrevies:=Maxnbrevies;


      if Dir=Nord then



     if  labyr(Pac.Posx,Pac.Posy+1) = mur  then

        Mettre_Mur(Pac,Labyr);

     elsif  Labyr(Pac.Posx,Pac.Posy+1) = Cerise then



        Dessinerbloc(Pac.Posx,Pac.Posy+1,Lab.Vide);
        Pac.Posy:=Pac.Posy+1;
        Dessinerbloc(Pac.Posx,Pac.Posy,Lab.Pacman);
        Dessinerlabyrinthe(Labyr);

     elsif  Labyr(Pac.Posx,Pac.Posy+1) = Vide then

        Pac.Posy:=Pac.Posy+1;
        Dessinerbloc(Pac.Posx,Pac.Posy,Lab.Pacman);
        Dessinerlabyrinthe(Labyr);

     end if;
      end if;



      if Dir = Sud then

     if labyr(Pac.Posx,Pac.Posy-1)=mur  then


        Mettre_Mur(Pac,Labyr);

     elsif  Labyr(Pac.Posx,Pac.Posy-1) = Cerise then



        Dessinerbloc(Pac.Posx,Pac.Posy-1,Lab.Vide);
        Pac.Posy:=Pac.Posy-1;
        Dessinerbloc(Pac.Posx,Pac.Posy,Lab.Pacman);
        Dessinerlabyrinthe(Labyr);

     elsif  Labyr(Pac.Posx,Pac.Posy-1) = Vide then

        Pac.Posy:=Pac.Posy-1;
        Dessinerbloc(Pac.Posx,Pac.Posy,Lab.Pacman);
        Dessinerlabyrinthe(Labyr);

     end if;
      end if;


      if Dir = Est then


     if labyr(Pac.Posx+1,Pac.Posy)=mur then


        Mettre_Mur(Pac,Labyr);

     elsif  Labyr(Pac.Posx+1,Pac.Posy) = Cerise then



        Dessinerbloc(Pac.Posx+1,Pac.Posy,Lab.Vide);
        Pac.Posx:=Pac.Posx+1;
        Dessinerbloc(Pac.Posx,Pac.Posy,Lab.Pacman);
        Dessinerlabyrinthe(Labyr);

     elsif  Labyr(Pac.Posx+1,Pac.Posy) = Vide then

        Pac.Posx:=Pac.Posx+1;
        Dessinerbloc(Pac.Posx,Pac.Posy,Lab.Pacman);
        Dessinerlabyrinthe(Labyr);

     end if;
      end if;


      if Dir = Ouest then

     if  labyr(Pac.Posx-1,Pac.Posy)=mur then

        Mettre_Mur(Pac,Labyr);

     elsif  Labyr(Pac.Posx-1,Pac.Posy) = Cerise then



        Dessinerbloc(Pac.Posx-1,Pac.Posy,Lab.Vide);
        Pac.Posx:=Pac.Posx-1;
        Dessinerbloc(Pac.Posx,Pac.Posy,Lab.Pacman);
        Dessinerlabyrinthe(Labyr);

     elsif  Labyr(Pac.Posx-1,Pac.Posy) = Vide then

        Pac.Posx:=Pac.Posx-1;
        Dessinerbloc(Pac.Posx,Pac.Posy,Lab.Pacman);
        Dessinerlabyrinthe(Labyr);

     end if;
      end if;


   end Sous_Deplacement;


   procedure Deplacement(labyr:in Lab.T_Lab; Pac: in out Lab.T_Pacman;Dir2:in out T_Direction) is

   begin

      case Dir2 is

     when Nord => Sous_Deplacement(Labyr,Pac,Nord);

     when Sud => Sous_Deplacement(Labyr,Pac,Sud);

     when Est => Sous_Deplacement(Labyr,Pac,Est);

     when Ouest => Sous_Deplacement(Labyr,Pac,Ouest);

     when Immobile => null;

      end case;

   end Deplacement;





   procedure Finjeu(L: in Integer) is

   begin
      if L=0 then
     Effacerecran;
     Ecrireecran(10,5,"victoire"& "appuyez sur A pour recommencer");


      else

     Effacerecran;
     Ecrireecran(10,5,"game over"&"appuyez sur A pour recommencer");


      end if;

   end Finjeu;


   procedure Affiche_Nbcerise(Laby:in Lab.T_Lab) is
      Nbrecerise:Integer;
   begin
      Nbrecerise:=Compter_Cerise(Laby);


      Ecran.Ecrireecran(0,0,"nbre cerises = " & Integer'Image(Nbrecerise));

   end Affiche_Nbcerise;

















   pacman:Lab.T_Pacman;
   labyrinthe:Lab.T_Lab;
   Direction : T_Direction;
   Temps:Integer:=Gettempsecoule;
   Nbcerise:Integer:=Compter_Cerise(Labyrinthe);
begin

   while True loop
      Initialisercarte;
      Lab.Initialiserjeu(pacman,labyrinthe);
      Mettreazerotimer;
      while Temps<60000 and  Nbcerise/=0 and  Pacman.Nbrevies/=0  loop
     Direction:=DetecterDirection;
     Ecrireecran(20,12, Integer'Image(Temps));
     Affiche_Nbcerise(Labyrinthe);
     Deplacement(Labyrinthe,Pacman,Direction);
      end loop;
      Finjeu(nbcerise);
      AttendretoucheA;
   end loop;


end missionpacman ;