J'ai depuis longtemps hésité à poster ma version qui n'apporte pas grand chose au jeu des 21 allumettes.
Je poste tout de même (et je cite celui de Belvar qui est le stricte nécessaire
J'ai amélioré l'optique de l'IA avec une formule, et on a le choix entre 3 niveaux de difficulté pour l'IA. Notez que je l'avais conçu sans lire belvar, mais que durant mon hésitation à poster je me suis un petit peu inspiré.
Code
EffEcr
entAléat(1,2)->T
16->B
0->E
1->J
Menu("JOUEURS","HUMAIN/CALCU",1,"2 JOUEURS",2
Lbl 2
2->J
Lbl 1
If J=1
Then
1->N
Menu("NIVEAU","NORMAL",5,"DIFFICILE",4,"IMPOSSIBLE",3
Lbl 3
3->N
1->T
Goto 5
Lbl 4
2->N
End
Lbl 5
EffEcr
0->V
For(W,1,B
Output(4,W,"I
End
Output(6,1,"RESTE=
Output(6,8,B
If J=1 et T=1
Output(8,1,"HUMAIN
If J=1 et T=2
Output(8,1,"CALCULATRICE
If J=2
Then
Output(8,1,"JOUEUR
Output(8,8,T
End
If E=1
Disp "1[inférieur ou égal]X[inférieur ou égal]3"
If T=1 ou J=2
Then
Input "1,2,3=",A
partEnt(A)->A
If A<1 ou A>3
Then
1->E
Goto 5
End
0->E
Else
entAléat(1,3)->A
0->M
If N=2
entAléat(1,2)->M
If B<5
Then
B-1->A
If A=0
1->A
End
If N=3 ou M=2
Then
B-ent(B/4)*4->R
If R=0
3->A
If R=3
2->A
If R=2
1->A
End
Disp "1,2,3="
Output(1,8,A
Pause
End
B-A->B
3-T->T
If B>0
Goto 5
EffEcr
If J=1 et T=2
Disp "CALCULATRICE"
If J=1 et T=1
Disp "HUMAIN"
If J=2
Disp "JOUEUR"
If J=2
Output(1,8,T
Disp "A GAGNE"
