Gamme TI-82


Poster un nouveau sujet Poster une réponse
(13) Plus ou moins DUAL
Auteur Message
Belvar



Autorisation : Membre
Nb de messages : 57
Inscrit le : Lun 09 Fév 2009, 15:46
Posté le : Mar 14 Avr 2009, 20:15   Citer 

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

 Adresse email Haut de page Bas de page 
 
Poster un nouveau sujet Poster une réponse





  Powered by Fire-Soft-Board v1.0.10 © 2004 - 2019 Groupe FSB
Page générée en 9 requêtes
BlackOne par Grimmlink