% Auteur:
% Date: 08/12/2010

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%       Vous pouvez tester une partie entre deux joueurs aléatoire de la façon suivante:
%       lancer_partie.
%       Le nombre de lignes/colonnes du damier va vous être demandé. Entrez un nombre pair positif.
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

/*
        Permet de lancer une partie.
        Demande le nombre de lignes/colonnes à l'utilisateur.
*/
%%%%% %%%%% %%%%% %%%%% %%%%%
lancer_partie :-        init_plateau(5, P),
                        afficher_plateau(P).
                        %joue_partie(0, noir, P, _).

%%%%% %%%%% %%%%% %%%%% %%%%%

/*
        Initialise un plateau de jeu.
        N=nombre de (lignes ou colonnes)/2
        Le plateau de jeu doit être carré avec un nombre pair de lignes/colonnes.
        Structure d'une case: [Colonne, Ligne]
        Par exemple, la case [-3, 3] est la case en haut à gauche du plateau et [3, 3] celle en bas à droite.
*/
%%%%% %%%%% %%%%% %%%%% %%%%%
init_plateau(N, [N,
[[-5,-5],[-3,-5],[-1,-5],[2,-5],[4,-5],[-4,-4],[-2,-4],[1,-4],[3,-4],[5,-4],[-5,-3],[-3,-3],[-1,-3],[2,-3],[4,-3],[-4,-2],[-2,-2],[1,-2],[3,-2],[5,-2]],
[[-4,5],[-2,5],[1,5],[3,5],[5,5],[-5,4],[-3,4],[-1,4],[2,4],[4,4],[-4,3],[-2,3],[1,3],[3,3],[5,3],[-5,2],[-3,2],[-1,2],[2,2],[4,2]]]).
%%%%% %%%%% %%%%% %%%%% %%%%%

/*
        Cette fonction renvoie la valeur de l'indice supérieur à celui reçu en argument en tenant compte de l'ordre suivant: -3, -2, -1, 1, 2, 3
        voisin_superieur(1, -Y): associe 2 à Y car 2 est le voisin supérieur de 1.
        voisin_superieur(-X, 2): associe 1 à X car 1 est le voisin inférieur de 2 puisque 2 est le voisin supérieur de 1.
        voisin_superieur(1, 2) = true car 2 est après 1 (attention à voisin_superieur(-1, 1) qui est true également).
        voisin_superieur(1, 3) = false car le voisin supérieur de 1 est 2 et non 3.
*/
%%%%% %%%%% %%%%% %%%%% %%%%%
voisin_superieur(_, -1, 1) :- !.
voisin_superieur(N, X, Y) :-    (integer(X),
                                        X < N,
                                        N1 is N*(-1),
                                        (X > N1; X == N1), !,
                                        Y is X + 1);
                                        (integer(Y),
                                        (Y < N; Y == N),
                                        N1 is N*(-1),
                                        Y > N1, !,
                                        X is Y - 1).
%%%%% %%%%% %%%%% %%%%% %%%%%

%%%%% %%%%% %%%%% %%%%% %%%%%

/*
        Affiche le plateau de jeu reçu.
*/
%%%%% %%%%% %%%%% %%%%% %%%%%
afficher_plateau([N, PN, PB]) :- N1 is N*(-1), afficher_plateau1(N1, N, [N, PN, PB]).
%%%%% %%%%% %%%%% %%%%% %%%%%

/*
        Même chose que affiche_plateau mais avec des arguments en plus pour savoir quelles sont la ligne et la colonne courante.
        Cette fonction est appelée par afficher_plateau avec au départ C=-N et L=N.
*/
%%%%% %%%%% %%%%% %%%%% %%%%%
% Fin de l'affichage.
afficher_plateau1(N, N1, [N, PN, PB]) :-        N1 is N*(-1), !, afficher_case([N, N1], PN, PB), write('\n\n').

% Affichage d'une case en fin de colonne => saut de ligne.
afficher_plateau1(N, L, [N, PN, PB]) :- afficher_case([N, L], PN, PB),
                                                        write('\n'),
                                                        voisin_superieur(N, L1, L), !,
                                                        C1 is N*(-1),
                                                        afficher_plateau1(C1, L1, [N, PN, PB]).
% Affichage d'une case normale.
afficher_plateau1(C, L, [N, PN, PB]) :- afficher_case([C, L], PN, PB),
                                                        voisin_superieur(N, C, C1),
                                                        afficher_plateau1(C1, L, [N, PN, PB]).
%%%%% %%%%% %%%%% %%%%% %%%%%

/*
        Affiche une case du plateau de jeu.
        Pion noir = x
        Pion blanc = o
        Case vide = _
*/
%%%%% %%%%% %%%%% %%%%% %%%%%
afficher_case(C, PN, PB) :-     write(' '),
                                        (member(C, PN) ->
                                        write('|x|');
                                        (member(C, PB) ->
                                                write('|o|');
                                                write('|-|'))).
%%%%% %%%%% %%%%% %%%%% %%%%%

% trace, init_plateau(3, P), afficher_plateau(P).
% trace, init_plateau(3, P), tous_coups_legaux(noir, P, R).
% init_plateau(3, P), joue_partie(noir, P, NP).