Autorisation : Membre
Nb de messages : 2
Inscrit le : Dim 20 Nov 2011, 11:24
Posté le : Dim 20 Nov 2011, 17:51
Voilà le code, merci de me dire ce que vous en penser :
Code à taper avant la première utilisation :
Code
0->LMS(0
0->LMS(1
programme :
Code
EffEcr
Output(1,1,"1 continuer:
Output(1,13,LMS(2
Output(2,1,"2 recomencer:100
Output(4,2,"meilleur score
Output(5,7,LMS(1
Output(7,1,"1 pour tirer
Output(8,1,"2 pour stop
Repeat J=92 ou J=93
codeTouche->J
End
If J=93
100->LMS(2
If J=92:then
If LMS(2 <=0:then
EffEcr
Output(1,1,"pas asser dargent
Pause
Goto Q
End
EffEcr
End
Output(8,1,"vous avez :
Output(8,13,LMS(2
Input "cb vous miser ? ",w
If w>LMS(2)
Goto 9
EffEcr
Output(1,1,"banque:
Output(1,11,"m:
entAléat(1,13->A
entAléat(1,13->B
entAléat(1,13->E
entAléat(1,13->F
If a>10
10->a
If a>10
10->b
if a>10
10->e
if a>10
10->f
0->c:0->d:0->G:0->h:0->t:0->z:-1->i:0->¤:0->u
Output(2,1,"--- --- --- ---
Output(4,1,"--- --- --- ---
Output(6,1,"--- --- --- ---
Output(8,1,"--- --- --- ---
Output(1,13,w
Output(5,1,"votre main :
Lbl 0
If a=1 et a+b+c+d+t<12:11->a
If a=11 et a+b+c+d+t>21:then:output(3,3,"
1->a:end
If b=1 et a+b+c+d+t<12:11->b
If b=11 et a+b+c+d+t>21:then:output(3,7,"
1->b:end
If c=1 et a+b+c+d+t<12:11->c
If c=11 et a+b+c+d+t>21:then:output(3,11,"
1->c:end
If d=1 et a+b+c+d+t<12:11->d
if d=11 et a+b+c+d+t>21:then:output(3,15,"
1->d:end
If t=1 et a+b+c+d+t<12:11->t
If t=11 et a+b+c+d+t>21:then:output(3,15,"
1->t:end
If e=1 et e+f+g+h+z<12:11->e
If e=11 et e+f+g+h+z>21:then:output(7,3,"
1->e:end
If f=1 et e+f+g+h+z<12:11->f
If f=11 et e+f+g+h+z>21:then:output(7,7,"
1->f:end
If g=1 et e+f+g+h+z<12:11->g
If g=11 et e+f+g+h+z>21:then:output(7,11,"
1->g:end
If h=1 et e+f+g+h+z<12:11->h
If h=11 et e+f+g+h+z>21:then:output(7,15,"
1->h:end
If z=1 et e+f+g+h+z<12:11->z
If z=11 et e+f+g+h+z>21:then:output(7,15,"
1->z:end
If ¤diffQ:then
Output(3,3," ; un espace (pour effacer le zéro des 10
Output(3,7,"
Output(3,11,"
Output(3,15,"
Output(7,3,"
Output(7,7,"
Output(7,11,"
Output(7,15,"
End
If ¤=1
Then
Output(3,2,"*
Output(3,6,B
Output(3,10,C
Output(3,14,D
Output(7,2,E
Output(7,6,F
Output(7,10,G
Output(7,14,H
output(7,16,">
output(7,16,">
0->Q
End
if ¤=0:then
Output(3,2,B
Output(3,6,C
Output(3,10,D
Output(3,14,T
Output(7,2,F
Output(7,6,G
Output(7,10,H
Output(7,14,Z
output(7,16,"<
output(7,16,"<
1->Q
End
Output(5,15,e+f+g+h+z
codeTouche->k
If K=24:0->¤
if k=26:1->¤
if k=93:1->u
if g=0 et k=92:then
entaleta(1,13->g
if g>10:10->g
0->i
goto 0:end
if h=0 et k=92:then
entaleta(1,13->h
if h>10:10->h
1->i
goto 0:end
if z=0 et k=92:then
entaleta(1,13->z
if z>10:10->z
0->i
goto 0:end
if c=0 et a+b<17 et i=0 ou u=1 et c=0 et a+b<17:then
entaleat(1,13->c
if c>10:10->
goto 0:end
if d=0 et a+b+c<17 et i=0 ou u=1 etdc=0 et a+b+c<17:then
entaleat(1,13->d
if d>10:10->d
goto 0:end
if t=0 et a+b+c+d<17 et i=0 ou u=1 et c=0 et a+b+c+d<17:then
entaleat(1,13->t
if t>10:10->t
goto 0:end
if u=0:goto 0
lbl 1
a+b+c+d+t->s+e+f+g+h+z->R
effecr
0->X
if s<21 et r<22:1->x
if s<21 et r>21:2->x
if s=r:2->x
if r>s et r <22:1->
if r>21 et x=0:3->x
if s>r et s<22:3->x
output(1,1,"banque :
output(1,14,s
output(2,14,r
if x=1:then
output(5,7,"gagne
LMS(2)+w->LMS(2
end
if x=2:output(5,7,"egali
if x=3:then
output(5,7,"perdu
LMS(2)-w->LMS(2
end
output(8,1,"vous avez :
output(6,5,"---------
output(4,5,"---------
output(5,5,":
output(5,13,":
output(8,14,LMS(2
if LMS(2)>LMS(1
LMS(2)->LMS(1
