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
BLACK JACK
Auteur Message
Egoutagny
Avatar

Autorisation : Membre
Nb de messages : 57
Inscrit le : Mer 14 Nov 2007, 18:29
Posté le : Mer 09 Avr 2008, 15:28   Citer 

Bonjour à tous,

Encore un programme, mon premier jeux ce coup-ci...
Je viens à l'instant de le finir donc attention aux bug...
A venir : jouer avec 2 caltos reliés par cable...


Code
Lbl 0
ClrHome
0üB
0üJ
0üP
0üR
0üQ
Normal
Disp "PRGM BY EAG","","VERSION 2.1"
Pause
ClrHome
Menu("BLACK JACK","1JOUEUR",1,"2JOUEURS M^M",2,"REGLES DU JEU",4,"QUITTER",Q
Lbl Q
Stop
Lbl S
Output(2,1,"TES POINTS"
Output(3,1,R
Output(5,1,"POINTS ADVERSES"
Output(6,1,Q
Pause
If B=1:Then
ClrHome
Stop:End
Goto 1
Lbl S2
Output(2,1,"POINTS P1"
Output(3,1,R
Output(5,1,"POINTS P2"
Output(6,1,J
Pause
If B=1:Then
ClrHome
Stop:End
Lbl 1
0üW
0üI
0üS
ClrHome
randInt(1,13)üZ
randInt(1,13)üY
If P=1:Then
Output(8,1,"PLAYER 1":End
If P=2:Then
Output(8,1,"PLAYER 2":End
Disp "VOTRE MAIN :"
If Z=1
Then
Output(2,1,"AS
11üV
End
If Z=2
Then
2üV
Output(2,1,"2"
End
If Z=3
Then
3üV
Output(2,1,"3
End
If Z=4
Then
4üV
Output(2,1,"4
End
If Z=5
Then
5üV
Output(2,1,"5
End
If Z=6
Then
6üV
Output(2,1,"6
End
If Z=7
Then
7üV
Output(2,1,"7
End
If Z=8
Then
8üV
Output(2,1,"8
End
If Z=9
Then
9üV
Output(2,1,"9
End
If Z=10
Then
10üV
Output(2,1,"10
End
If Z=11
Then
10üV
Output(2,1,"VALET
End
If Z=12
Then
Output(2,1,"DAME
10üV
End
If Z=13
Then
Output(2,1,"ROI
10üV
End
If Y=1
Then
Output(3,1,"AS
11üU
End
If Y=2
Then
Output(3,1,"2
2üU
End
If Y=3
Then
Output(3,1,"3
3üU
End
If Y=4
Then
Output(3,1,"4
4üU
End
If Y=5
Then
Output(3,1,"5
5üU
End
If Y=6
Then
Output(3,1,"6
6üU
End
If Y=7
Then
Output(3,1,"7
7üU
End
If Y=8
Then
Output(3,1,"8
8üU
End
If Y=9
Then
Output(3,1,"9
9üU
End
If Y=10
Then
Output(3,1,"10
10üU
End
If Y=11
Then
Output(3,1,"VALET
10üU
End
If Y=12
Then
Output(3,1,"DAME
10üU
End
If Y=13
Then
Output(3,1,"ROI
10üU
End
4üL
Pause
If U+Vù21
Then
Goto Á
End
Lbl D
If L=7
Then
Goto Á
End
Menu("PIOCHER ?","OUI",A,"NON",B
Lbl A
randInt(1,13)üX
If X=1
Then
Output(L,1,"AS
If L=4
Then
11üW
If U+V+W>21
Then
1üW
End
End
If L=5
Then
11üS
If U+V+W+S>21
Then
1üS
End
End
If L=6
Then
11üI
If U+V+W+S+I>21:Then
1üI
End
End
End
If X=2
Then
Output(L,1,"2
If L=4
Then
2üW
End
If L=5
Then
2üS
End
If L=6
Then
2üI
End
End
If X=3
Then
Output(L,1,"3
If L=4
Then
3üW
End
If L=5
Then
3üS
End
If L=6
Then
3üS
End
End
If X=4
Then
Output(L,1,"4
If L=4
Then
4üW
End
If L=5
Then
4üS
End
If L=6
Then
4üI
End
End
If X=5
Then
Output(L,1,"5
If L=4
Then
5üW
End
If L=5
Then
5üS
End
If L=6
Then
5üI
End
End
If X=6
Then
Output(L,1,"6
If L=4
Then
6üW
End
If L=5
Then
6üS
End
If L=6
Then
6üI
End
End
If X=7
Then
Output(L,1,"7
If L=4
Then
7üW
End
If L=5
Then
7üS
End
If L=6
Then
7üI
End
End
If X=8
Then
Output(L,1,"8
If L=4
Then
8üW
End
If L=5
Then
8üS
End
If L=6
Then
8üI
End
End
If X=9
Then
Output(L,1,"9
If L=4
Then
9üW
End
If L=5
Then
9üS
End
If L=6
Then
9üI
End
End
If X=10
Then
Output(L,1,"10
If L=4
Then
10üW
End
If L=5
Then
10üS
End
If L=6
Then
10üS
End
End
If X=11
Then
Output(L,1,"VALET
If L=4
Then
10üW
End
If L=5
Then
10üS
End
If L=6
Then
10üI
End
End
If X=12
Then
Output(L,1,"DAME
If L=4
Then
10üW
End
If L=5
Then
10üS
End
If L=6
Then
10üI
End
End
If X=13
Then
Output(L,1,"ROI
If L=4
Then
10üW
End
If L=5
Then
10üS
End
If L=6
Then
10üI
End
End
If U+V+W+S+Iù21
Then
Goto Á
End
Pause
Goto C
Lbl B
If L=4
Then
0üW
End
Goto Á
Lbl C
L+1üL
Goto D
Lbl Á
If Z=1 and U+V+W+S+I>21:Then
1üV
End
If Y=1 and U+V+W+S+I>21:Then
1üU
End
If P=1 or P=0
Then
U+V+W+S+IüÁ
Output(5,10,"TOTAL
Output(6,10,Á
End
If P=2
Then
U+V+W+S+IüF
Output(5,10,"TOTAL
Output(6,10,F
Pause
End
If P=0
Then
randInt(16,20)üN
Output(7,10,"BANQUE
Output(8,10,N
Pause
ClrHome
If Á>21
Then
ClrHome
Output(5,1,"PERDU 1PT ADVER."
Q+1üQ
Pause
End
If Á=21
Then
ClrHome
Output(5,2,"BRAVO 3 POINTS"
R+3üR
Pause
End
If N<Á and Á<21
Then
ClrHome
Output(5,2,"PAS MAL... 1PT
R+1üR
End
If N=Á
Then
ClrHome
Output(5,4,"MATCH NUL
End
If N>Á
Then
ClrHome
Output(5,1,"PERDU 1PT ADVER."
Q+1üQ
End
Pause
ClrHome
End
If P=1
Then
Pause
ClrHome
2üP
Goto 1
End
If P=2
Then
ClrHome
If (Á>21 and F<21) or (Á<F and Á<21 and F<21)
Then
Output(5,1,"1 POINT PLAYER 2"
J+1üJ
End
If (F>21 and Á<21) or (F<Á and Á<21 and F<21)
Then
Output(5,1,"1 POINT PLAYER 1"
R+1üR
End
If Á=21 and Fø21:Then
Output(5,1,"P1 3 POINTS
R+3üR
End
If F=21 and Áø21:Then
Output(5,1,"P2 3 POINTS
J+3üJ
End
If F=Á:Then
Output(5,1,"MATCH NUL
End
If F>21 and Á>21:Then
Output(5,1,"TOUS LES 2 >21
End
Pause
ClrHome
End
If P=2 or P=0
Then
Menu("REJOUER ?","OUI",5,"NON",6
End
Lbl 5
If P=0
Then
Goto S
End
If P=2
Then
1üP
ClrHome
Goto S2
End
Lbl 6
ClrHome
1üB
If P=2:Then
Goto S2:End
If P=0:Then
Goto S:End
Lbl 4
Disp "LE BUT DU JEU","EST D'ATTEINDRE","21 SANS DEPASSER","SI ON DEPASSE :","POINT POUR L'ADV","SI ON FAIT 21 :","3 POINTS
Pause
ClrHome
Disp "ROIS DAMES VALET","VALENT 10 L'AS","11 OU 1 ET LES","AUTRES CARTES","LEUR VALEUR.","L'ORDI A ENTRE","16 ET 20"
Pause
ClrHome
Goto 0
Lbl 2
P+1üP
Goto S2



----------------------
Chut je programme...
 Adresse email Haut de page Bas de page 
 
Ratuss



Autorisation : Membre
Nb de messages : 1572
Inscrit le : Mer 01 Mar 2006, 20:41
Posté le : Mer 09 Avr 2008, 18:06   Citer 


Code
If Z=2
Then
2üV
Output(2,1,"2"
End
If Z=3
Then
3üV
Output(2,1,"3
End
If Z=4
Then
4üV
Output(2,1,"4
End
If Z=5
Then
5üV
Output(2,1,"5
End
If Z=6
Then
6üV
Output(2,1,"6
End
If Z=7
Then
7üV
Output(2,1,"7
End
If Z=8
Then
8üV
Output(2,1,"8
End
If Z=9
Then
9üV
Output(2,1,"9
End
If Z=10
Then
10üV
Output(2,1,"10
End



ca c'est simplifiable à mort

+

----------------------
--- LISTE DES JEUX POUR TI ---
 Adresse email Haut de page Bas de page 
 
Egoutagny
Avatar

Autorisation : Membre
Nb de messages : 57
Inscrit le : Mer 14 Nov 2007, 18:29
Posté le : Mer 09 Avr 2008, 18:49   Citer 

ouais mais je voulais pas faire trop compliqué mettre tt le temps la même chose ça me va

----------------------
Chut je programme...
 Adresse email Haut de page Bas de page 
 
monegarn
Avatar

Autorisation : Membre
Nb de messages : 11
Inscrit le : Ven 28 Sep 2007, 20:00
Posté le : Mar 22 Avr 2008, 22:21   Citer 

y a surtout des trucs comme ça :

Code
If L=4
Then
10üW
End



que tu peux remplacer par :

Code
If L=4
10üW



ça diminue le poids du prog ! et ui, 1 octet, c'est 1 octet

----------------------
Danger Duck !!! c'est moi !
 Adresse email Haut de page Bas de page 
 
Sangohan38



Autorisation : Membre
Nb de messages : 3391
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Mer 23 Avr 2008, 6:24   Citer 

Au passage, ça fait pas q'un octets mais plus (une lettre=un octet).

Sangohan38

----------------------
 Adresse email Haut de page Bas de page 
 
Ratuss



Autorisation : Membre
Nb de messages : 1572
Inscrit le : Mer 01 Mar 2006, 20:41
Posté le : Mer 23 Avr 2008, 8:54   Citer 


Citer
une lettre=un octet


non (et heureusement d'ailleurs :p !)

----------------------
--- LISTE DES JEUX POUR TI ---
 Adresse email Haut de page Bas de page 
 
Sangohan38



Autorisation : Membre
Nb de messages : 3391
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Mer 23 Avr 2008, 20:46   Citer 

Et pourtant, c'est la réalitée.
Mais, je me suis trompé dans mon expliccation: une instruction prend un octet en général.

Sangohan38

----------------------
 Adresse email Haut de page Bas de page 
 
Ratuss



Autorisation : Membre
Nb de messages : 1572
Inscrit le : Mer 01 Mar 2006, 20:41
Posté le : Mer 23 Avr 2008, 21:29   Citer 


Citer
une instruction prend un octet en général.



pourquoi dis tu en général ?

----------------------
--- LISTE DES JEUX POUR TI ---
 Adresse email Haut de page Bas de page 
 
Sangohan38



Autorisation : Membre
Nb de messages : 3391
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Mer 23 Avr 2008, 22:39   Citer 

Parcequ'il y a toujours des exceptions (même si je n'en n'ai pas sous la main).

Sangohan38

----------------------
 Adresse email Haut de page Bas de page 
 
CyberTueur
Invité
Posté le : Mer 07 Mai 2008, 22:59   Citer 


Code
If Z=2
Then
2üV
Output(2,1,"2"
End
If Z=3
Then
3üV
Output(2,1,"3
End
If Z=4
Then
4üV
Output(2,1,"4
End
If Z=5
Then
5üV
Output(2,1,"5
End
If Z=6
Then
6üV
Output(2,1,"6
End
If Z=7
Then
7üV
Output(2,1,"7
End
If Z=8
Then
8üV
Output(2,1,"8
End
If Z=9
Then
9üV
Output(2,1,"9
End
If Z=10
Then
10üV
Output(2,1,"10
End



Devient :

Code
If Z>0 et Z<10
Then
sous-Chaîne("123456789",Z,1)
End
If Z=10:Output(2,1,"10
ZüV



Tout simplement, et vive les sous-Chaines ou sinon tout simplement :

Code

If Z>0 et Z<11:Output(2,1,Z // pour eviter des bugs eventuels on vérifie Z
ZüV



  Haut de page Bas de page 
 
CyberTueur
Invité
Posté le : Mer 07 Mai 2008, 23:00   Citer 

Pardon, remplacez mes If Z>0 par des If Z>1, je n'avais pas vu que cela commencait à 2. Pareil pour la sous-Chaîne happy.gif

  Haut de page Bas de page 
 
Sangohan38



Autorisation : Membre
Nb de messages : 3391
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Mer 07 Mai 2008, 23:12   Citer 

Seulement, l'inconveniant majeur des chaînes c'est qu'elles ne sont pas disponble sous les 82.

Sangohan38

----------------------
 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