Autorisation : Membre
Nb de messages : 57
Inscrit le : Mer 14 Nov 2007, 18:29
Posté le : Mer 09 Avr 2008, 15:28
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
Autorisation : Membre
Nb de messages : 1522
Inscrit le : Mer 01 Mar 2006, 20:41
Posté le : Mer 09 Avr 2008, 18:06
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
Autorisation : Membre
Nb de messages : 3293
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Mer 23 Avr 2008, 22:39
Parcequ'il y a toujours des exceptions (même si je n'en n'ai pas sous la main).
Sangohan38
CyberTueur Invité
Posté le : Mer 07 Mai 2008, 22:59
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
CyberTueur Invité
Posté le : Mer 07 Mai 2008, 23:00
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
