Quatre-en-ligne (Puissance 4)

Je me suis rendu compte de certaines lacunes dans mon programme. Si je clique sur une colonne pleine, le pion est quand même ajouté. Si je clique pendant qu'un pion est encore en train de tomber, le pion qui tombe s'arrête et un deuxième pion de la même couleur est ajouté. J'oublie toujours de prendre en compte l'usage incorrect que l'utilisateur pourrait faire du programme. :)

Voici le squelette d'un moteur en Pascal. Celui-ci joue au hasard. A vrai dire, il n'est pas tout à fait complet, car il ne vérifie pas si la chaîne passé en paramètre ne correspond pas à une partie déjà finie par la victoire de l'un ou l'autre des joueurs. Mais enfin, c'est pour montrer le principe.


program hasard;
{$APPTYPE CONSOLE}

var
h: string; // histoire de la partie
t: array[1..7]of integer = (0, 0, 0, 0, 0, 0, 0); // tableau pour compter les pions
r: integer; // réponse
i: integer; // index
v: boolean = true; // validité de la chaîne

begin
h := ParamStr(1);

for i := 1 to Length(h) do
if (h >= '1') and (h <= '7') then
Inc(t)
else
v := false;

if v then
for i := 1 to Length(h) do
if t > 6 then
v := false;

if v then
begin
Randomize;
repeat
r := Trunc(Random(7) + 1);
until t < 6;
end
else
r := 0;

Write(r);
end.


Une fois ce programme compilé, il n'y a plus qu'à modifier en conséquence le fichier options.ini.


blanc=utilisateur
noir=hasard.exe