p_vue_graph.adb

with p_fenbase, Forms, p_combinaisons, p_jeu, Ada.Strings, Ada.Strings.Fixed, text_io, Ada.Characters.Handling, X.Strings;
use  p_fenbase, Forms, p_combinaisons, p_jeu, Ada.Strings, Ada.Strings.Fixed, text_io, Ada.Characters.Handling, p_combinaisons.p_cases_io, p_jeu.p_score_io;


package body p_vue_graph is

  task body T_ActualisationJeu is
    actif, fin: boolean := false;
    fen: TR_Fenetre;
  begin
    while not fin loop
      if not actif then
        select
          accept start(fenetre: in out TR_Fenetre) do
            actif := true;
            fen := fenetre;
          end start;
        or
          accept fermer do
            fin := true;
          end fermer;
        end select;
      else
        select
          accept stop do
            actif := false;
          end stop;
        or
          delay FREQUENCE_MAJ;
        end select;

        if actif then
          changerTexte(fen, "Timer", Integer'image(Integer(Float'rounding(Float(tempsRestant)))));
          if not jeuEnCours then
            actif := false;
            cacherElem(fen, "valider");
            changerEtatBouton(fen, "valider", ARRET);
            cacherElem(fen, "abandon");
            changerEtatBouton(fen, "abandon", ARRET);
            montrerElem(fen, "finjeu");
            changerEtatBouton(fen, "finjeu", MARCHE);
          end if;
        end if;
      end if;
    end loop;
  end T_ActualisationJeu;

  procedure AjoutElement (
        Pliste      : in out TA_Element;
        TypeElement :        T_TypeElement;
        NomElement  :        String;
        Texte       :        String;
        Contenu     :        String;
        PElement    :        FL_OBJECT_Access ) is
  begin
    if Pliste=null or else Pliste.NomElement.all>NomElement then
      Pliste:=new TR_Element'(TypeElement, new String'(NomElement),
        new String'(Texte), new String'(Contenu), PElement, Pliste);
    elsif Pliste.NomElement.all<NomElement then
      AjoutElement(Pliste.Suivant, TypeElement, NomElement, Texte, Contenu,
        PElement);
    end if;
  end AjoutElement;

  function GetElement (
        Pliste     : TA_Element;
        NomElement : String      )
    return TA_Element is
  begin
    if Pliste=null or else Pliste.NomElement.all>NomElement then
      return null;
    elsif Pliste.NomElement.all=NomElement then
      return Pliste;
    else
      return GetElement(Pliste.Suivant,NomElement);
    end if;
  end GetElement;

  procedure AjouterBoutonInvisible (
        F          : in out TR_Fenetre;
        NomElement : in     String;
        X,
        Y          : in     Natural;
        Largeur,
        Hauteur    : in     Positive    ) is
    Obj : FL_OBJECT_Access;
  begin
    if GetElement(F.PElements,NomElement)=null then
      Obj := Fl_Add_Button(FL_HIDDEN_BUTTON,FL_Coord(X),FL_Coord(Y),
        FL_COORD(Largeur),FL_COORD(Hauteur),X11.Strings.New_String(""));
      AjoutElement(F.PElements, RoundBouton, NomElement, "", "",Obj);
    end if;
  end AjouterBoutonInvisible;

  procedure afficherGrille(fen: in out TR_Fenetre; x,y: in natural) is
  -- {} => {Affiche la grille avec le bord gauche à la position (x,y)}
    textX, textY: natural;
    P : TA_Element;
    f: p_cases_io.file_type;
    V: TV_Gaudi(1..16);
  begin
    open(f, IN_FILE, "CarreGaudi");
    CreeVectGaudi(f, V);
    triVectGaudi(V);
    close(f);

    ajouterTexte(fen, "fond_grille", "", x, y, 400, 400);
    changerCouleurFond(fen, "fond_grille", FL_BLACK);

    for i in V'range loop
      textX := x + 5 + (99 * ((i-1) / 4));
      textY := y + 5 + (99 * ((i-1) mod 4));
      ajouterTexte(fen, V(i).nom, trim(Integer'image(V(i).valeur), BOTH), textX, textY, 92, 92);
      AjouterBoutonInvisible(fen, 'B' & V(i).nom, textX, textY, 92, 92);
      changerTailleTexte(fen, V(i).nom, FL_HUGE_SIZE);
      P := GetElement(fen.PElements, V(i).nom);
      fl_set_object_align(P.Pelement, FL_ALIGN_CENTER);
    end loop;
  end afficherGrille;

  procedure fenetreaccueil is
    fenetre : TR_Fenetre;
  begin
    fenetre:= DebutFenetre("Accueil",500,600);
    for i in 3..7 loop
      ajouterBouton(fenetre, integer'image(i)(2..2),integer'image(i)(2..2), 75+(75*(i-3)) , 300, 50, 50);
      changerTailleTexte(fenetre, integer'image(i)(2..2),FL_MEDIUM_SIZE);
      changerStyleTexte(fenetre, integer'image(i)(2..2), FL_BOLD_STYLE);
    end loop;
    contigue := false;
    nbCasesSolution := 3;
    changerCouleurTexte(fenetre,"3" , FL_DOGERBLUE);
    ajouterBouton(fenetre, "jeu", "Jouer au jeu", 35 , 430, 200 , 50);
    ajouterBouton(fenetre, "Solution", "Afficher Solutions", 265 , 430 , 200 , 50);
    ajouterBouton(fenetre, "Fermer", "Quitter", 200 , 580 , 100 , 50);
    ajouterBouton(fenetre, "Contigue", "Non", 200 , 375 , 50 , 30);
    ajouterBouton(fenetre, "Scoreboard", "Scoreboard", 190 , 505 ,  120 , 50);
    ajouterTexte(fenetre, "TexTContigue : ", "Seulement contigue : ", 50,375,150,30);
    ajouterTexte(fenetre, "Textintro", "Bienvenue dans le programme du carre de Subirachs", 50,100,400,30);
    ajouterTexte(fenetre, "Textintro2", "Sur cet ecran, vous pouvez choisir le nombre d'elements d'une", 50,130,400,30);
    ajouterTexte(fenetre, "Textintro3", "solution, et choisir de ne consulter que les solutions contigues. ", 50,160,400,30);
    ajouterTexte(fenetre, "Textintro4", "Bon jeu ! ", 220,210,120,30);
    changerStyleTexte(fenetre,"Contigue", FL_BOLD_STYLE);
    finFenetre(fenetre);
    montrerFenetre(fenetre);
    appuiBoutonAccueil(attendreBouton(fenetre),fenetre);
  end fenetreaccueil;

  procedure fenetreSolutions is
    --{} => {Affiche la fenetre de Solutions}
   fenetre : TR_Fenetre;
  begin
    fenetre:= DebutFenetre("Solutions",500,650);
    afficherGrille(fenetre, 50,50);
    ajouterTexte(fenetre,"Solution","Solution",50,500,120,30);
    AjouterChamp(fenetre,"ChampNum","","131",140,500,40,30);
    ajouterTexte(fenetre,"Y","/ 131",180,500,50,30);
    ajouterTexte(fenetre,"ZoneSolution","AXBXCXDXBXCXDX",250,500,200,30);
    ajouterBouton(fenetre, "prec", "Precedente", 50 , 550 , 100 , 30);
    ajouterBouton(fenetre, "suiv", "Suivante", 350 , 550 , 100 , 30);
    ajouterBouton(fenetre, "retour", "Retour", 200 , 600 , 100 , 30);
    ajouterBouton(fenetre, "aller", "Aller A", 200 , 550 , 100 , 30);
    changerTailleTexte(fenetre, "Solution" ,FL_MEDIUM_SIZE);
    changerStyleTexte(fenetre, "Solution", FL_BOLD_STYLE);
    changerTailleTexte(fenetre, "ZoneSolution" ,FL_MEDIUM_SIZE);
    changerStyleTexte(fenetre, "ZoneSolution", FL_BOLD_STYLE);
    changerTailleTexte(fenetre, "ChampNum" ,FL_MEDIUM_SIZE);
    changerStyleTexte(fenetre, "ChampNum", FL_BOLD_STYLE);
    changerTailleTexte(fenetre, "Y" ,FL_MEDIUM_SIZE);
    changerStyleTexte(fenetre, "Y", FL_BOLD_STYLE);
    finFenetre(fenetre);
    montrerFenetre(fenetre);
    combinaisonAct := 1;
    actualisationInfos(fenetre, 1);
    appuiBoutonSolution(attendreBouton(fenetre), fenetre);

  end fenetreSolutions;


  procedure fenetreJeu is
    fenetre : TR_Fenetre;
  begin
    fenetre:= DebutFenetre("Jeu",500,650);
    afficherGrille(fenetre, 50,100);
    ajouterTexte(fenetre,"Txt1","Score : ",50,50,120,30);
    ajouterTexte(fenetre,"Score","0 Point",170,50,120,30);
    ajouterTexte(fenetre,"Txt2","Temps : ",300,50,80,30);
    ajouterTexte(fenetre,"Timer"," 30",380,50,80,30);
    AjouterChamp(fenetre,"SolutionProp","","",100,520,300,30);
    ajouterBouton(fenetre, "valider", "Valider", 200 , 560 , 100 , 30);
    ajouterBouton(fenetre, "finjeu", "Fin Jeu", 200 , 560 , 100 , 30);
    ajouterBouton(fenetre, "abandon", "Abandonner", 200 , 650 , 100 , 30);
    changerStyleTexte(fenetre,"SolutionProp", FL_BOLD_STYLE);
    changerStyleTexte(fenetre,"valider", FL_BOLD_STYLE);
    changerStyleTexte(fenetre,"finjeu", FL_BOLD_STYLE);
    changerStyleTexte(fenetre,"Txt1", FL_BOLD_STYLE);
    changerStyleTexte(fenetre,"Txt2", FL_BOLD_STYLE);
    changerTailleTexte(fenetre, "Score" ,FL_MEDIUM_SIZE);
    changerTailleTexte(fenetre, "Timer" ,FL_MEDIUM_SIZE);
    changerTailleTexte(fenetre, "SolutionProp" ,FL_MEDIUM_SIZE);
    changerTailleTexte(fenetre, "valider" ,FL_MEDIUM_SIZE);
    changerTailleTexte(fenetre, "finjeu" ,FL_MEDIUM_SIZE);
    changerTailleTexte(fenetre, "Txt1" ,FL_MEDIUM_SIZE);
    changerTailleTexte(fenetre, "Txt2" ,FL_MEDIUM_SIZE);

    cacherElem(fenetre, "finjeu");
    changerEtatBouton(fenetre, "finjeu", ARRET);

    finFenetre(fenetre);
    montrerFenetre(fenetre);
    chronoJeu.start(fenetre);
    appuiBoutonJeu(attendreBouton(fenetre), fenetre);

  end fenetreJeu;

  procedure fenetreRegles is
    fenetre: TR_Fenetre;
  begin
    fenetre:= DebutFenetre("Regles",500,300);
    ajouterTexte(fenetre, "Text1 : ", "Saisir votre pseudo : ", 50,50,150,30);
    AjouterChamp(fenetre,"pseudo","","Pseudo",200,50,160,30);
    ajouterTexte(fenetre,"Txt2","Juste",50,90,60,50);
    ajouterTexte(fenetre,"Txt3","Double",50,150,60,50);
    ajouterTexte(fenetre,"Txt4","Faux",50,210,60,50);
    ajouterTexte(fenetre, "Regles1", "Bienvenue dans le jeu du carre de Subira", 130,90,320,30);
    ajouterTexte(fenetre, "Regles2", "Vous devez trouver des combinaisons de", 130,120,320,30);
    ajouterTexte(fenetre, "Regles3", "3 a 7 cases ayant une somme egale a 33.", 130,150,320,30);
    ajouterTexte(fenetre, "Regles4", "Votre score augmentera pour chaque combinaison", 130,180,330,30);
    ajouterTexte(fenetre, "Regles5", "trouvee. Vous ne pouvez pas valider deux fois", 130,210,320,30);
    ajouterTexte(fenetre, "Regles6", "la meme combinaison. Bonne chance !", 130,240,320,30);
    ajouterBouton(fenetre, "valider", "Valider", 200 , 300 , 100 , 30);
    changerStyleTexte(fenetre,"Txt2", FL_BOLD_STYLE);
    changerStyleTexte(fenetre,"Txt3", FL_BOLD_STYLE);
    changerStyleTexte(fenetre,"Txt4", FL_BOLD_STYLE);
    changerCouleurFond(fenetre,"Txt2", FL_PALEGREEN);
    changerCouleurFond(fenetre,"Txt3", FL_WHEAT);
    changerCouleurFond(fenetre,"Txt4", FL_INDIANRED);
    finFenetre(fenetre);
    montrerFenetre(fenetre);
    appuiBoutonRegles(attendreBouton(fenetre), fenetre);
  end fenetreRegles;

  procedure fenetreScores is
    fenetre: TR_Fenetre;
    fscore : p_score_io.file_type;
    i : integer ;
  begin
    open(fscore, IN_FILE, "score");
    i := 1;
    reset(fscore,IN_FILE);
    if Nbscores(fscore) > 0 then
      reset(fscore,IN_FILE);
      declare
          VScore : TV_Score(1..Nbscores(fscore));
        begin
          reset(fscore,IN_FILE);
          CopieFicherScore(fscore,VScore);
          triBullesScores(VScore);
          fenetre:= DebutFenetre("Scoreboard",500,600);
          while  i  <= 10 and i <= VScore'last  loop
            ajouterTexte(fenetre, "Joueurs" &integer'image(i) ,  " Joueur : " &  VScore(i).pseudo, 50,50 + (50*i),250,30);
            ajouterTexte(fenetre, "Score" &integer'image(i) , "Points : " & integer'image(VScore(i).Score), 250,50 + (50*i),250,30);
            i := i+1;
          end loop;
          ajouterBouton(fenetre, "valider", "Valider", 200 , 560 , 100 , 30);
          finFenetre(fenetre);
          montrerFenetre(fenetre);
          if attendreBouton(fenetre) /= "00" then
            cacherFenetre(fenetre);
            fenetreaccueil;
        end if;
      end;
    end if;
  end fenetreScores;

  procedure ouvreFenetreSolutions(nomFichier: in string; fenetre: TR_Fenetre) is
  begin
    open(fichierSolution, IN_FILE, nomFichier);
    nbCombinaisons := nbCombi(fichierSolution, nbCasesSolution);
    reset(fichierSolution, IN_FILE);
    cacherFenetre(fenetre);
    fenetreSolutions;
  end ouvreFenetreSolutions;

  procedure appuiBoutonAccueil (Elem : in string; fenetre : in out TR_Fenetre) is
  begin --
    if Elem in "3" | "4" | "5" | "6" | "7" then
      for i in 3..7 loop
          changerCouleurTexte(fenetre,integer'image(i)(2..2), FL_BLACK);
      end loop;
      changerCouleurTexte(fenetre,Elem , FL_DOGERBLUE);
      nbCasesSolution := integer'value(elem);
      appuiBoutonAccueil(attendreBouton(fenetre),fenetre);
    elsif Elem = "Contigue" then
      if contigue then
        contigue := false;
        changerTexte(fenetre,"Contigue","Non");
        changerCouleurTexte(fenetre,"Contigue" , FL_BLACK);
      else
        contigue := true;
        changerTexte(fenetre,"Contigue","Oui");
        changerCouleurTexte(fenetre,"Contigue" , FL_DOGERBLUE);
      end if;
      appuiBoutonAccueil(attendreBouton(fenetre),fenetre);
    elsif Elem = "Solution" then
      if contigue then
        ouvreFenetreSolutions("foutcont.txt", fenetre);
      else
        ouvreFenetreSolutions("fout.txt", fenetre);
      end if;
    elsif Elem = "jeu" then
      cacherFenetre(fenetre);
      casesClic := (others => ' ');
      fenetreRegles;
      debutJeu(contigue);
      fenetreJeu;
    elsif Elem = "Fermer" then
      CacherFenetre(fenetre);
      chrono.fermer;
      chronoJeu.fermer;
    elsif Elem = "Scoreboard" then
      CacherFenetre(fenetre);
      fenetreScores;
    else
      appuiBoutonAccueil(attendreBouton(fenetre),fenetre);
    end if;

  end appuiBoutonAccueil;

  procedure appuiBoutonSolution (Elem : in string; fenetre : in out TR_Fenetre) is
    combinaisonVoulue : integer;
    combinaisonOld : integer;
  begin
    if Elem = "prec" then
      if combinaisonAct = 1 then
        appuiBoutonSolution(attendreBouton(fenetre),fenetre);
      else
        combinaisonAct := combinaisonAct - 1;
        actualisationInfos(fenetre, combinaisonAct + 1);
        appuiBoutonSolution(attendreBouton(fenetre),fenetre);
      end if;
    elsif Elem = "suiv" then
      if combinaisonAct = nbCombinaisons then
        appuiBoutonSolution(attendreBouton(fenetre),fenetre);
      else
        combinaisonAct := combinaisonAct + 1;
        actualisationInfos(fenetre, combinaisonAct - 1);
        appuiBoutonSolution(attendreBouton(fenetre),fenetre);
      end if;
    elsif Elem = "retour" then
      cacherFenetre(fenetre);
      close(fichierSolution);
      fenetreAccueil;
    elsif  Elem = "aller" or Elem = "ChampNum" then
      begin
        combinaisonVoulue := integer'value(ConsulterContenu(fenetre,"ChampNum"));
        exception
        when others =>
          actualisationInfos(fenetre,combinaisonAct);
          appuiBoutonSolution(attendreBouton(fenetre),fenetre);
      end;
      combinaisonOld := combinaisonAct;
      if combinaisonVoulue > nbCombinaisons or combinaisonVoulue < 1 then
        actualisationInfos(fenetre,combinaisonAct);
        appuiBoutonSolution(attendreBouton(fenetre),fenetre);
      else
        combinaisonAct := combinaisonVoulue;
        actualisationInfos(fenetre, combinaisonOld);
        appuiBoutonSolution(attendreBouton(fenetre),fenetre);
      end if;
    else
      appuiBoutonSolution(attendreBouton(fenetre),fenetre);
    end if;




  end appuiBoutonSolution;

  procedure appuiBoutonRegles (Elem : in string; fenetre : in out TR_Fenetre) is
    begin -- appuiBoutonRegles
      if Elem = "pseudo" or Elem ="valider" then
      begin
        if ConsulterContenu(fenetre,"pseudo") /= "Pseudo" then
          pseudo := (others => ' ');
          pseudo(ConsulterContenu(fenetre,"pseudo")'range) := ConsulterContenu(fenetre,"pseudo");
          cacherFenetre(fenetre);
        else
            appuiBoutonRegles(attendreBouton(fenetre),fenetre);
          end if;
          exception
          when others =>
            ChangerContenu(fenetre, "pseudo", "Pseudo");
            appuiBoutonRegles(attendreBouton(fenetre),fenetre);
          end;
    else
      appuiBoutonRegles(attendreBouton(fenetre),fenetre);
    end if;
  end appuiBoutonRegles;

  function ajoutCase(coord: in string) return boolean is
    i : integer := 1;
    j : integer;
  begin
    while i < casesClic'last and then (casesClic(i) /= ' ' and casesClic(i..i+1) /= coord) loop
      i := i + 2;
    end loop;
    if i >= casesClic'last then return false; end if;
    if casesClic(i) = ' ' then -- On insère la nouvelle case
      casesClic(i..i+1) := coord;
      return true;
    else -- La case est déjà présente, on la retire et on replace la suite pour ne pas avoir de vide
      casesClic(i..i+1) := "  ";
      j := i+2;
      while j < casesClic'last and then casesClic(j) /= ' ' loop
        j := j + 1;
      end loop;
      if j /= i+2 then
        casesClic(i..j-2) := casesClic(i+2..j);
        casesClic(j-1..j) := "  ";
      end if;

      return false;
    end if;
  end ajoutCase;

  procedure appuiBoutonJeu (Elem : in string; fenetre : in out TR_Fenetre) is
    solutionCorrecte : integer;
    caseClic : string(1..2);
  begin --
    if jeuEnCours then
      if Elem = "SolutionProp" or Elem ="valider" then
        effacerGrille(fenetre);
        verifSol(consulterContenu(fenetre, "SolutionProp") & trim(casesClic, BOTH), solutionCorrecte);
        actualisationEssai(fenetre, consulterContenu(fenetre, "SolutionProp") & trim(casesClic, BOTH), solutionCorrecte);
        appuiBoutonJeu(attendreBouton(fenetre),fenetre);
      elsif Elem = "abandon" then
        chronoJeu.stop;
        finJeu(true);
        cacherFenetre(fenetre);
        fenetreAccueil;
      elsif Elem'length = 3
            and Elem(Elem'first) = 'B'
            and Elem(Elem'first + 1) in T_Col'range
            and Integer'value(Elem(Elem'first + 2..Elem'first + 2)) in T_Lig'range then
        caseClic := Elem(Elem'first + 1..Elem'first + 2);
        if ajoutCase(caseClic) then
          affichageSol(fenetre, caseClic, FL_DARKCYAN);
        else
          affichageSol(fenetre, caseClic, FL_COL1);
        end if;
        appuiBoutonJeu(attendreBouton(fenetre),fenetre);
      else
        appuiBoutonJeu(attendreBouton(fenetre),fenetre);
      end if;
    elsif Elem = "finjeu" then
        cacherFenetre(fenetre);
        fenetreAccueil;
    else
      appuiBoutonJeu(attendreBouton(fenetre),fenetre);
    end if;
  end appuiBoutonJeu;

  procedure actualisationInfos(fen: in out TR_Fenetre; combinaisonOld: integer) is
      -- {} => {Actualisation des informations pour la solution nbSol}
      ancienneSolution, nouvelleSolution: string(1..nbCasesSolution*2);
  begin
    reset(fichierSolution, IN_FILE);
    ancienneSolution := combi(fichierSolution, nbCasesSolution, combinaisonOld);
    reset(fichierSolution, IN_FILE);
    nouvelleSolution := combi(fichierSolution, nbCasesSolution, combinaisonAct);
    ChangerContenu(fen, "ChampNum",  trim(Integer'image(combinaisonAct),BOTH));
    changerTexte(fen, "Y", '/' & Integer'image(nbCombinaisons));
    changerTexte(fen, "ZoneSolution", nouvelleSolution);
    affichageSol(fen, ancienneSolution, FL_COL1);
    affichageSol(fen, nouvelleSolution, FL_WHEAT);
  end actualisationInfos;

  procedure affichageSol(fen: in out TR_Fenetre; combinaison: in string; coul: in FL_Color) is
    -- {} => {Actualisation de la grille avec la solution de couleur coul}
  begin
    for i in 1..combinaison'length/2 loop
      changerCouleurFond(fen, combinaison(i*2-1..i*2), coul);
    end loop;
  end affichageSol;

  procedure effacerGrille(fen: in out TR_Fenetre) is
  -- {} => {Les solutions affichées sur la grille sont effacées}
  begin
    if tailleSolution > 0 then
      affichageSol(fen, dernier(1..tailleSolution), FL_COL1);
    end if;

    if casesClic(1) /= ' ' then
      affichageSol(fen, trim(casesClic, BOTH), FL_COL1);
    end if;
  end effacerGrille;

  procedure actualisationEssai(fen: in out TR_Fenetre; solution: in string; resultat: in integer) is
  -- {} => {Met à jour la grille avec la solution colorée après un essai dans le jeu}
    coul: FL_Color;
    pts: integer;
    combinaison : string(1..14) := (others => ' ');
  begin
    if solution'length <= combinaison'length then
      combinaison(solution'range) := to_upper(solution);
    end if;

    case resultat is
      when SOLUTION_CORRECTE => coul := FL_PALEGREEN;
      when SOLUTION_DOUBLON => coul := FL_WHEAT;
      when SOLUTION_INCORRECTE => coul := FL_INDIANRED;
      when SOLUTION_INVALIDE =>
        coul := ancienneCoul;
        combinaison := (others => ' ');
        combinaison(1..tailleSolution) := dernier(1..tailleSolution);
      when others => null;
    end case;
    ancienneCoul := coul;

    affichageSol(fen, trim(combinaison, BOTH), coul);
    changerContenu(fen, "SolutionProp", "");
    pts := compterPoints;
    changerTexte(fen, "Score", trim(Integer'image(pts), BOTH) & (if pts >= 2 then " Points" else " Point"));

    casesClic := (others => ' ');
  end actualisationEssai;

end p_vue_graph;