main

program loupgarou;
uses wincrt;
var lg1,lg2,lg3,sorc,salv,chas,vlg,vovo,votevillage:string;
votelg1,votelg2,votelg3,votesoso1,votesoso2,votesalv,votevovo,inutile1,inutile2,votechas:string;
n,x1,x2,x3,x4,x5,x6,x7,x8,choixsoso,nv,n1,n2,n3,ns1,ns2,nsalv,nvg,nch:integer;
tr: array [1..8] of string;
nomj: array[1..8] of string;
nomjalt: array[1..8] of string;
begin
Write('Bienvenue au jeu Loups-garoux. Appuyez sur une touche pour commencer.');
readkey;
clrscr;
Writeln('REGLEMENTS DU JEU');
Writeln(' ');
Writeln('Ce jeu est un "Text-based RPG".');
Writeln('Chaque joueur aura un rôle bien précis; Tous les rôles seront expliqués.');
writeln(' ');
write('Appuyez sur une touche pour commencer.');
Readkey;
clrscr;
lg1:= 'Vous êtes un loup-garou(1).';
lg2:= 'Vous êtes un loup-garou(2).';
lg3:= 'Vous êtes un loup-garou(3).';
sorc:= 'Vous êtes la sorcière.';
salv:= 'Vous êtes le salvateur.';
chas:= 'Vous êtes le chasseur.';
vlg:= 'Vous êtes un simple villageois.';
vovo:= 'Vous êtes la voyante.';
randomize;
x1:= random(8)+1;
repeat
x2:= random(8)+1
until x2 <> x1;
repeat
x3:= random(8)+1
until (x3 <> x2) and (x3 <> x1);
repeat
x4:= random(8)+1
until (x4 <> x3) and (x4 <> x2) and (x4 <> x1);
repeat
x5:= random(8)+1
until (x5 <> x4) and (x5 <> x3) and (x5 <> x2) and (x5 <> x1);
repeat
x6:= random(8)+1
until (x6 <> x5) and (x6 <> x4) and (x6 <> x3) and (x6 <> x2) and (x6 <> x1);
repeat
x7:= random(8)+1
until (x7 <> x6) and (x7 <> x5) and (x7 <> x4) and (x7 <> x3) and (x7 <> x2) and (x7 <> x1);
repeat
x8:= random(8)+1
until (x8 <> x7) and (x8 <> x6) and (x8 <> x5) and (x8 <> x4) and (x8 <> x3) and (x8 <> x2) and (x8 <> x1);
tr[x1]:= lg1;
tr[x2]:= lg2;
tr[x3]:= lg3;
tr[x4]:= sorc;
tr[x5]:= salv;
tr[x6]:= chas;
tr[x7]:= vlg;
tr[x8]:= vovo;
n:= 0;
repeat
n:= n + 1;
Writeln(' JOUEUR ',n,' - ENTREZ VOTRE NOM');
readln(nomj[n]);
Clrscr;
writeln(nomj[n],' - ',tr[n]);
write('Appuyez sur une touche & laissez place au prochain joueur.');
readkey;
clrscr
until n = 8;
nomjalt[1]:= nomj[1];
nomjalt[2]:= nomj[2];
nomjalt[3]:= nomj[3];
nomjalt[4]:= nomj[4];
nomjalt[5]:= nomj[5];
nomjalt[6]:= nomj[6];
nomjalt[7]:= nomj[7];
nomjalt[8]:= nomj[8];
repeat
writeln('L'+chr(39)+'ordre des joueurs dans la file sera le suivant:');
writeln(nomjalt[1],', ',nomj[1]);
writeln(nomjalt[2],', ',nomj[2]);
writeln(nomjalt[3],', ',nomj[3]);
writeln(nomjalt[4],', ',nomj[4]);
writeln(nomjalt[5],', ',nomj[5]);
writeln(nomjalt[6],', ',nomj[6]);
writeln(nomjalt[7],', ',nomj[7]);
writeln(nomjalt[8],', ',nomj[8]);
write(nomj[1],', veuillez appuyer sur une touche pour jouer votre tour.');
readkey;
clrscr;
n:=0;
repeat
n:=n + 1;
if nomj[n]='mort'
then begin
writeln('vous êtes mort, laissez place à ',nomj[n+1],' pour effectuer son tour.');
readkey;
end�
else if tr[n] = lg1
then begin
writeln('Alliés: ');
writeln(nomj[x2],' (a voté pour ',votelg2,' )');
writeln(nomj[x3],' (a voté pour ',votelg3,' )');

writeln('Donnez le nom du joueur que vous voulez dévorer:');
readln(votelg1);
n1:= 0;
repeat
n1:= n1 + 1
until votelg1 = nomj[n1];
if n<8
then begin
clrscr;
writeln('laissez place à ',nomj[n+1],' pour effectuer son tour.');
readkey;
end;
end
else if tr[n] = lg2
then begin
writeln('Alliés: ');
writeln(nomj[x1],' (a voté pour ',votelg1,' )');
writeln(nomj[x3],' (a voté pour ',votelg3,' )');
writeln('Donnez le nom du joueur que vous voulez dévorer:');
readln(votelg2);
n2:= 0;
repeat
n2:= n2+1
until votelg2 = nomj[n2];
if n<8
then begin
clrscr;
writeln('laissez place à ',nomj[n+1],' pour effectuer son tour.');
readkey;
end;
end
else if tr[n] = lg3
then begin
writeln('Alliés: ');
writeln(nomj[x1],' (a voté pour ',votelg1,' )');
writeln(nomj[x2],' (a voté pour ',votelg2,' )');
writeln('Donnez le nom du joueur que vous voulez dévorer:');
readln(votelg3);
n3:=0;
repeat
n3:= n3+1
until votelg3 = nomj[n3];
if n<8
then begin
clrscr;
writeln('laissez place à ',nomj[n+1],' pour effectuer son tour.');
readkey;
end;
end
else if tr[n] = sorc
then begin
write('Choisissez la potion que vous voulez utiliser: ');
writeln('Potion de mort (Tapez 1) ou Potion de salvation (Tapez 2)');
readln(choixsoso);
if choixsoso = 1
then begin
writeln('Choisissez le joueur à tuer');
readln(votesoso1);
end
else begin
writeln('choisissez le joueur à sauver');
readln(votesoso2);
end;
if n<8
then begin
clrscr;
writeln('laissez place à ',nomj[n+1],' pour effectuer son tour.');
readkey;
end;
end
else if tr[n] = salv
then begin
writeln('Choisissez le joueur à sauver: ');
readln(votesalv);
if n<8
then begin
clrscr;
writeln('laissez place à ',nomj[n+1],' pour effectuer son tour.');
readkey;
end;
end
else if tr[n] = vovo
then begin
writeln('Choisissez le joueur à espionner: ');
readln(votevovo);
nv:=0;
repeat
nv:= nv + 1
until votevovo = nomj[nv];
writeln('Vous consultez votre boule magique ...');
Writeln('La carte de ',nomj[nv],' révèle le message suivant:');
writeln('"',tr[nv],'"');
readkey;
if n<8
then begin
clrscr;
writeln('laissez place à ',nomj[n+1],' pour effectuer son tour.');
readkey;
end;
end
else if (tr[n]= chas)
then begin
write('Vous n'+chr(39)+'avez pas de tour. Tapez quelque chose');
writeln(' pour faire semblant d'+chr(39)+'en avoir un');
read(inutile1);
if n<8
then begin
clrscr;
writeln('laissez place à ',nomj[n+1],' pour effectuer son tour.');
readkey;
end;
end
else begin
write('Vous n'+chr(39)+'avez pas de tour. Tapez quelque chose');
writeln(' pour faire semblant d'+chr(39)+'en avoir un');
read(inutile2);
if n<8
then begin
clrscr;
writeln('laissez place à ',nomj[n+1],' pour effectuer son tour.');
readkey;
end;
end;
clrscr
until n = 8;
ns1:=0;
ns2:=0;
nsalv:=0;
if (votelg1 = votelg2)
then nomj[n1] := 'mort'
else if (votelg1 = votelg3)
then nomj[n1] := 'mort'
else if (votelg2 = votelg3)
then nomj[n2] := 'mort';
if nomj[x4] <> 'mort'
then begin
if choixsoso = 1
then begin
repeat
ns1:= ns1 + 1
until votesoso1 = nomj[ns1];
nomj[ns1]:= 'mort';
end
else begin
repeat
ns2:= ns2 + 1
until votesoso2 = nomj[ns2];
nomj[ns2]:= nomjalt[ns2]
end;
end;
if nomj[x5] <> 'mort'
then begin
repeat
nsalv:= nsalv + 1
until votesalv = nomj[nsalv];
nomj[nsalv]:=nomjalt[nsalv];
end;
writeln('Compte rendu de la nuit: ');
writeln(nomjalt[1],', ',nomj[1]);
writeln(nomjalt[2],', ',nomj[2]);
writeln(nomjalt[3],', ',nomj[3]);
writeln(nomjalt[4],', ',nomj[4]);
writeln(nomjalt[5],', ',nomj[5]);
writeln(nomjalt[6],', ',nomj[6]);
writeln(nomjalt[7],', ',nomj[7]);
writeln(nomjalt[8],', ',nomj[8]);
Writeln('-VOTE JOURNALIERE- Qui avez-vous voté contre ?');
readln(votevillage);
nvg:=0;
if votevillage = 'personne'
then clrscr
else begin
repeat
nvg:= nvg + 1
until votevillage = nomj[nvg];
nomj[nvg] := 'mort';
clrscr;
end;
if nomj[x6]= 'mort'
then begin
writeln('choisissez qui emporter avec vous: ');
readln(votechas);
nch:= 0;
repeat
nch:= nch+1
until votechas = nomj[nch];
nomj[nch]:= 'mort';
clrscr;
End
until ((nomj[x1]='mort')and(nomj[x2]='mort')and(nomj[x3]='mort'))
or((nomj[x4]='mort')and(nomj[x5]='mort')and(nomj[x6]='mort')and(nomj[x7]='mort')and(nomj[x8]='mort'));
If ((nomj[x1]='mort')and(nomj[x2]='mort')and(nomj[x3]='mort'))
then writeln('LES VILLAGEOIS ONT GAGNE')
else if ((nomj[x4]='mort')and(nomj[x5]='mort')and(nomj[x6]='mort')and(nomj[x7]='mort')and(nomj[x8]='mort'))
then writeln('LES LOUPS-GAROUS ONT GAGNE');
end.