Salut à tous !
Non, ce jeu n'a pas grand chose à voir avec le jeu "Pus ou moins" que tout les apprentis programmeurs font pour s'entrainer !
Il s'agit d'un jeu qui se joue à deux joueurs, chacun ayant 100 jetons au début de la partie.
Le joueur 1 commence et met un nombre de jeton, suivi du joueur 2.
Celui qui à mis le plus de jeton remporte la manche et celui qui remporte 4 manches gagne la partie.
Il faut donc économiser ses jetons, tout en proposant plus que son adversaire, et, pourquoi pas, jouer sur le bluff...
Voici le code :
Code | ClrHome
Output(1,2,"PLUS OU MOINS
Output(2,5,"DUAL
Output(5,1,"CONCEPT : OTYUGH
Output(6,1,"PRGM : BELVAR
Output(8,3,"PRESS ENTER
Pause
ClrHome
Lbl 0
Menu("+ OU - DUAL","JOUER",11,"COMMENT JOUER?",12,"QUITTER",Q
Lbl 12
Output(1,1,"CHAQUE JOUEUR JOUE TOUR A TOUR ET DOIT PROPOSER UN CHIFFRE SUPERIEUR A CELUI DE L'AUTRE.
Pause :ClrHome
Output(1,1,"ATTENTION ! TU AS NOMBRE LIMITE DE JETONS ! LA PARTIE SE DEROULE EN 4 MANCHES GAGNANTES
Pause :ClrHome:Goto 0
Lbl 11
100->T:100->U:0->B:0->C:1->J:1->R
0->N:0->O
Disp " "
Output(1,1,"NOM JOUEUR 1 :
Input Str1
ClrHome:Disp " "
Output(1,1,"NOM JOUEUR 2 :
Input Str2
Lbl 1
ClrHome
Disp " "," "," "
If J=1:Output(1,1,Str1
If J=2:Output(1,1,Str2
Output(2,1,"PROPOSE TON CHIFFRE :
Output(6,1,"JETONS RESTANTS:
If J=1:Output(7,7,T
If J=2:Output(7,7,U
If J=1:Input B
If J=2:Input C
If B>T and J=1 or C>U and J=2:Then:ClrHome
Output(1,1,"PAS ASSEZ DE JETONS...":Pause
Goto 1:End
iPart(B->B:iPart(C->C
If B<0 or C<0:Then:ClrHome
Output(1,1,"SALE TRICHEUR, L'AUTRE JOUEUR A GAGNE":Pause :ClrHome:Goto 0:End
ClrHome
If J=1:T-B->T
If J=2:U-C->U
If J=1:Then
2->J:ClrHome:Output(1,1,"PASSE LA CALCULETTE A
Output(3,1,Str2
Pause :Goto 1:End
If B>C:N+1->N
If C>B:O+1->O
If N=4 or O=4:Then
If N=4:Output(1,1,Str1
If O=4:Output(1,1,Str2
Output(2,1,"GAGNE LA PARTIE
Pause :ClrHome
Goto 0:End
Lbl S
If B>C:Output(1,1,Str1
If C>B:Output(1,1,Str2
If C=B:Output(1,1,"PERSONNE N'A
Output(2,1,"A GAGNE LA MANCHE
Output(4,1,Str1
Output(5,1,N
Output(7,1,Str2
Output(8,1,O
Pause :1->J
0->C:0->B
Goto 1
Lbl Q
ClrHome:Output(1,1,"
|
Et le fichier .83p : cliquez ici
|