% Auteur:
% Date: 08/12/2010


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

/*
        Initialise un plateau de jeu.
*/
%%%%% %%%%% %%%%% %%%%% %%%%%

pion(n,1).
pion(n,2).
pion(n,3).
pion(n,4).
pion(n,5).
pion(n,6).
pion(n,7).
pion(n,8).
pion(n,9).
pion(n,10).
pion(n,11).
pion(n,12).
pion(n,13).
pion(n,14).
pion(n,15).
pion(n,16).
pion(n,17).
pion(n,18).
pion(n,19).
pion(n,20).
pion(v,21).
pion(v,22).
pion(v,23).
pion(v,24).
pion(v,25).
pion(v,26).
pion(v,27).
pion(v,28).
pion(v,29).
pion(v,30).
pion(b,31).
pion(b,32).
pion(b,33).
pion(b,34).
pion(b,35).
pion(b,36).
pion(b,37).
pion(b,38).
pion(b,39).
pion(b,40).
pion(b,41).
pion(b,42).
pion(b,43).
pion(b,44).
pion(b,45).
pion(b,46).
pion(b,47).
pion(b,48).
pion(b,49).
pion(b,50).

               
init_plateau([[pion(n,_)],[pion(b,_]]).

%init_plateau([ [Pion(n,1)],[Pion(n,2)],[Pion(n,3)],[Pion(n,4)],[Pion(n,5)],
%               [Pion(n,6)],[Pion(n,7)],[Pion(n,8)],[Pion(n,9)],[Pion(n,10)],
%               [Pion(n,11)],[Pion(n,12)],[Pion(n,13)],[Pion(n,14)],[Pion(n,15)],
%               [Pion(n,16)],[Pion(n,17)],[Pion(n,18)],[Pion(n,19)],[Pion(n,20)],
%               [Pion(v,21)],[Pion(v,22)],[Pion(v,23)],[Pion(v,24)],[Pion(v,25)],
%               [Pion(v,26)],[Pion(v,27)],[Pion(v,28)],[Pion(v,29)],[Pion(v,30)],
%               [Pion(b,31)],[Pion(b,32)],[Pion(b,33)],[Pion(b,34)],[Pion(b,35)],
%               [Pion(b,36)],[Pion(b,37)],[Pion(b,38)],[Pion(b,39)],[Pion(b,40)],
%               [Pion(b,41)],[Pion(b,42)],[Pion(b,43)],[Pion(b,44)],[Pion(b,45)],
%               [Pion(b,46)],[Pion(b,47)],[Pion(b,48)],[Pion(b,49)],[Pion(b,50)]]).

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

% Affichage d'une case normale.
afficher_plateau1(C, L, [N, PN, PB]) :- afficher_case([C, L], 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('|-|'))).
%%%%% %%%%% %%%%% %%%%% %%%%%