Gamme TI-82
Partager sur Facebook Fil RSS Imprimer la page
Cacher les résultats

Résultat de la recherche



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 - 2016 Groupe FSB
Page générée en 9 requêtes
BlackOne par Grimmlink
 

Site hébergé par Free Page sous licence creative commons Page validée par le W3C (XHTML 1.0 Transitional) Feuille de style validée par le W3C Flux RSS 2.0 valide Page étiquetée par l'ICRA Page testée par Ocawa