menuinterface.pas

{$codepage utf8}
unit menuInterface;

{$mode objfpc}{$H+}

interface

  uses sysutils,gestionecran,navigationMenues,Keyboard,bouclesJeux,personnage,unitRessources,sMenuGestionBatiments, smenutoursuivant ,population , UnitBuilding ,sMenuMarchand, eventImpromptus; //appel des unités

  procedure mainMenuInterface(); {Procédure qui appelle toutes les fonctions et procédures pour afficher le menu interface }

implementation
  //déclaration des constantes connues de toute l'unité
  const
    //nb d'item dans le menu
    totaleItemsMenu=3;
    //nb de ressources (affichage x et y)
    totaleItemsRessources=14;

    //Déclaration des items de notre menu initial
    txtSuivant='Tour suivant'; //constante de type string qui est le 1er item du menu
    txtGestionbatiment='Accéder au menu de gestion des batimênts'; //constante de type string qui est le 2ème item du menu
    txtQuitter='Quitter la partie'; //constante de type string qui est le 3ème item du menu

    //Déclaration des abcisses de notre menu
    txtSuivantX= 15; //abcisse de txtSuivant
    txtGestionbatimentX=15; //abcisse de txtGestionbatiment
    txtQuitterX=15; //abcisse de txtGestionbatiment

    //Déclaration des ordonnées de notre menu
    txtSuivantY= 40; //ordonnée de txtSuivant
    txtGestionbatimentY=42; //ordonnée de txtGestionbatiment
    txtQuitterY=48; //ordonnée de txtGestionbatiment

    //absicces ressources
    txtGoldX    = 115; //abcisse du text gold
    txtWoodX    =115;
    txtFishX    =115;
    txtLaineX   =115;
    txtTissuX   =115;
    txtToolX    =115;
    // ordonnées ressources version améliorée
    txtBleX     =115;
    txtPainX    =115;
    txtCanneX   =115;
    txtRhumX    =115;
    txtArgileX  =115;
    txtBriqueX  =115;
    txtMineraiX =115;
    txtMetalX   =115;

    //ordonnées ressources
    txtGoldY    = 12;
    txtWoodY    = 15;
    txtFishY    = 18;
    txtLaineY   = 21;
    txtTissuY   = 24;
    txtToolY    = 27;
    // ordonnées ressources version améliorée
    txtBleY     = 32;
    txtPainY    = 35;
    txtCanneY   = 38;
    txtRhumY    = 41;
    txtArgileY  = 44;
    txtBriqueY  = 47;
    txtMineraiY = 50;
    txtMetalY   = 53;

  type
    //déclaration type qui sert à contenir les coordonnées du placement des txt des ressources
   tabCoordXItemRessources= array[1..totaleItemsRessources] of Integer;
   tabCoordYItemRessources = array[1..totaleItemsRessources] of Integer;

  //déclaration des variables connues de toute l'unité
  var

    touche: TkeyEvent; //Variable de type TkeyEvent issue de l'unité Keyboard

    menuInterfa:array[1..totaleItemsMenu] of String =(txtSuivant,txtGestionbatiment,txtQuitter); //tableau qui contient les différents item texte du menu
    itemsCoordX:array[1..totaleItemsMenu] of Integer = (txtSuivantX,txtGestionbatimentX,txtQuitterX) ;//tableau qui contient les différents abcisses des items du menu
    itemsCoordY:array[1..totaleItemsMenu] of Integer= (txtSuivantY,txtGestionbatimentY,txtQuitterY); //tableau qui contient les différents ordonnées des items du menu

    //tableaux qui contient les coordonnées (x et y) des ressources
    //tableaux qui contient les coordonnées (x et y) des ressources
    RessourcesCoordX:  tabCoordXItemRessources = (txtGoldX,txtWoodX,txtFishX,txtLaineX,txtTissuX,txtToolX,txtBleX,txtPainX,txtCanneX,txtRhumX,txtArgileX,txtBriqueX,txtMineraiX,txtMetalX);
    RessourcesCoordY:  tabCoordYItemRessources = (txtGoldY,txtWoodY,txtFishY,txtLaineY,txtTissuY,txtToolY,txtBleY,txtPainY,txtCanneY,txtRhumY,txtArgileY,txtBriqueY,txtMineraiY,txtMetalY);

    joueur: perso; //variable de type perso (record issu de l'unité personnage)

  {affiche tous les txt des ressources en position X et Y }
  procedure affichageItemsRess(totalItem: Integer; CoordX:tabCoordXItemRessources;CoordY: tabCoordXItemRessources);
    var
      itemRess: Integer; //variable entière, compteur de la boucle d'affichage (index tableau)
      texteCapaMax: String; //variable string: capa totale des entrepots
    begin
      texteCapaMax:= '/'+IntToStr(getCapaEntrepot());
      //si les citoyens sont pas débloqués
      if getNbHabCatePop(2)=0 then
        begin
          //affichage de chaque ressource
          for itemRess:=1 to 6 do
              begin
                 affichageItem(GetRessourcesTxtValue(itemRess),CoordX[itemRess],CoordY[itemRess]); //affichage de l'item 1 du menu avec les coordonnées de cette item
                 if (itemRess<>1) then ecrireTexte(texteCapaMax,CoordX[itemRess]+30,CoordY[itemRess]); //affiche capa max de l'entrepot
              end;
        end
      //si les citoyens sont débloqués
      else if getNbHabCatePop(2)>0 then
        begin
          for itemRess:=1 to totalItem do
              begin
                 affichageItem(GetRessourcesTxtValue(itemRess),CoordX[itemRess],CoordY[itemRess]); //affichage de l'item 1 du menu avec les coordonnées de cette item
                 if (itemRess<>1) then ecrireTexte(texteCapaMax,CoordX[itemRess]+30,CoordY[itemRess]); //affiche capa max de l'entrepot
              end;
        end;
    end;

  {Procédure qui dessine le cadre dans lequel on affiche les différentes ressources}
  procedure dessinerCadreLsRessources();
    begin
      dessinerCadreXY(100+10,8,190,55,simple,15,0); //procédure qui dessine le cadre
      dessinerCadreXY(138,7,165,9,double,15,0); //dessine cadre etiquette industrie
      ecrireTexte('R E S S O U R C E S',143,8);   // ecrit le texte industrie
    end;

  {Procédure qui dessine le cadre dans lequel on afficha la description}
  procedure dessinerCadreDescription();
    begin
      dessinerCadreXY(10,10,90,20,simple,15,0); //procédure qui dessine le cadre
      dessinerCadreXY(35,9,60,11,double,15,0); //dessine cadre etiquette industrie
      ecrireTexte('L '' I L E',42,10);   // ecrit le texte industrie
    end;

  //procédure qui affiche les infos du cadre de l'île
  procedure afficheInfosIle(posX,posY:Integer);
    var
        txtX : Integer; //abscices des textes
        txtY : Integer; //ordonnée des textes
        margeX : Integer;
    begin
      margeX := 36;
      txtX := posX;
      txtY := posY;
      ecrireTexte('Premier colon arrivé sur l''île : ',txtX,txtY+0);
      ecrireTexte(getNomJoueur(),txtX+margeX,txtY+0); //fonction qui affiche nom du joueur
      ecrireTexte('Date de découverte de l''île    : ',txtX,txtY+2);
      ecrireTexte('25 mars 1702',txtX+margeX,txtY+2);
      ecrireTexte('Surface approximative de l''île : ',txtX,txtY+4);
      ecrireTexte('156 320 000 pieds carrés',txtX+margeX,txtY+4);
    end;

  {Procédure qui dessine le cadre dans lequel on afficha la liste des habitants}
  procedure dessinerCadreLsHab();
    begin
      dessinerCadreXY(10,25,90,35,simple,15,0); //procédure qui dessine le cadre
      dessinerCadreXY(35,24,60,26,double,15,0); //dessine cadre etiquette industrie
      ecrireTexte('P O P U L A T I O N',38,25);   // ecrit le texte industrie
    end;

  {procédure qui fait appel à toutes les procédures d'affichage => affichage de tous les éléments du menu}
  procedure affichage();
    begin
      effacerEcran; //raffraichissement ecran
      rectangleZoneJeu; //appel de la procédure: on dessine le rectangle sur l'écran
      cadreTxtNomMenu; //procédure qui dessine le cadre qui entoure le texte en haut au milieu
      afficheNomMenu('Interface de jeu'); //procédure écrit nom menu
      printNbTour(180,2); //ecriture du numéro de tour
      printItemsMenu(totaleItemsMenu,menuInterfa,itemsCoordX,itemsCoordY);
      dessinerCadreLsRessources(); {Procédure qui dessine le cadre dans lequel on affiche les différentes ressources}
      affichageItemsRess(GetTotalItemRessources(),RessourcesCoordX, RessourcesCoordY);
      dessinerCadreLsHab(); {Procédure qui dessine le cadre dans lequel on afficha la liste des habitants}
      dessinerCadreDescription(); {Procédure qui dessine le cadre dans lequel on afficha la description}
      afficheInfosIle(15,13); //procédure qui affiche les infos de l'ile (nom du joueur, nom ile, date decouverte)
      afficheNbHabCatego(1,15,27);
    end;

  {Procédure qui appelle toutes les fonctions et procédures pour afficher et interragir avec le menu interface }
  procedure mainMenuInterface();
    var
       running: Boolean; //variable booleenne qui permet de demarrer le menu
       runningTourSuivant: Boolean;
    begin
       initiaNbTourBoucle(); //initialisation du nb de tour de boucle quand on arrive sur le menu
       running:=True; //initialisation de running à true quand on arrive sur le menu
        //tant que le menu est lancé executé les instructions
        while (running=True) do
           begin
             //si on vient d'arriver sur le menu on initialise l'affichage des éléments du menu, initialisation de l'item actuel à 1 etc
             if (getNbTourBoucle()=0) then
                begin
                  initStockageMaxRess(); //calcul du nb max de ressources pouvant être stockés
                  effacerEcran; //raffraichissement de l'écran car on est passé sur un autre menu
                  initItemChoisie(); //initialisation de l'itemChoisie
                  //initialisation de l'item actuel au 1er item du menu quand on arrive sur le menu
                  initialisationItemActuel(1);
                  //initialisation de l'item antérieur à itemActuel-1 quand on arrive sur le menu
                  initialisationItemAnterieur();
                  setEventImpromptu(); //possibilité d'event impromptu suivant la probabilité
                  epidemieCovid(); //baisse de la pop si l'event covid est actif
                  eventOuragan(); // détruit des batiment si l'envent est actif
                  resetRessourcesEntrepots(getCapaEntrepot()); //procedure qui reset à capa entrepot les ressources si elle dépasse la valeur max de l'entrepot
                  //affichage des rectangles, du texte et du menu
                  affichage();// affichage des rectangles du nom du menu et de tous les items du menu
                  setMessageEvent();
                  colorierElementActu(10,50,itemsCoordX,itemsCoordY);
                  quantityAllRessTPrec(); //calcul des ressources que l'user a durant ce tour (sert à calculer combien il en gagne)
                end
            //sinon on capte à tout instant les touches du clavier pour savoir s'il faut se déplacer dans le menu etc
             else if(getNbTourBoucle>=1) then
                begin
                  touche:= GetKeyEvent; //GetKeyEvent est une fonction de l'unité Keyboard qui renvoit les évènements du clavier
                  touche:= TranslateKeyEvent(touche); //retourne la valeur unicode de la touche si elle est pressée . Variable de type int
                  setItemChoisie(touche);
                  navigationTabMenu(menuInterfa,touche,getItemActuel());//appel de la procédure qui permet de naviguer dans le tableau du menu, tant qu'on a pas choisi une option dans le menu, on reste dans le menucolorierElementActuel();
                  colorierElementActu(10,50,itemsCoordX,itemsCoordY);
                  reintialiserElementAnt(10,50,itemsCoordX,itemsCoordY);
                 end;
             incrementaNbTourBoucle(); //incrémentation du tour de boucle

             case (getItemChoisie()) of
               1:
                begin
                  setBoucleNbTour(1);//incrémentation nbTour du jeu
                  running:=False;   //on sort du menu interface
                  initItemChoisie(); //initialisation de l'itemChoisie
                  mainSMenuMarchand(getEtatPiraterie()); //appel du menu marchand si l'event piraterie n'est pas actif
                  initiaNbTourBoucle(); //initialisation nbTourBoucle pour affichage etc
                  productionIndustrieTour(); //produire des ressources suivant le nb de batiment qu'on a et les coefs de prod de ressources de chaque bat
                  consommation(); //consommation de ressources par la pop (nbHab*coefNutri)
                  updateBonheurColons();
                  updateBonheurCitoyens();
                  maintSMenuTs(); //affichage du sous menu tour suivant
                  setNbCategoPop(1,getMaisonGagne(),getBat_Prop(1,'capacity'));  //init nb d'une catégorie de pop
                  setNbCategoPop(2,getVIllaGagne(),getBat_Prop(1,'capacity'));  //init nb d'une catégorie de pop
                  running:=True;
                  setLogementDebTour(); //procédure qui récupère la quantité de logement en début de tour
                end;

               2:
                begin
                  mainSMenuGBat();//affichage sous menu bat
                  initiaNbTourBoucle(); //initialisation nbTour boucle
                  running:=True; //quand on sort du menu batiments
                end;

               3: halt(); //quitte la fenêtre si l'user choisi quitter

               4: writeln(menuInterfa[4]);

               5: writeln(menuInterfa[5]);

               end; //fin case of

            end; //fin boucle tant que
  end;

end.