Code
:clrdraw
: 1-}R:2-}J :3-}V:4-}I:5-}B:6-}N:1-}A:2-}C :1-}¤
:MENU("MASTERMIND","1 joueur",A,"2 joueur",B
lbl A
randint(1,6-}E
randint(1,6-}F
randint(1,6-}G
randint(1,6-}H
goto 0
clrhome
lbl B
clrhome
output(5,1,"joueur 1
pause
clrhome
output(5,1,"entre code
pause
clrhome
input E
input F
input G
input H
CLRHOME
output(5,1,"joueur 2
pause
lbl 0
clrhome
output(5,1,"essaie
output(5,9,"¤
for(D,0,60,6
vertical D
end
for(L,62,30,-8
line(0,L,60,L
end
input S
input T
input U
input W
if S=R:Text(A,C,"R
if T=R:Text(A+8,C,"R
if U=R:Text(A+16,C,"R
if W=R:Text(A+24,C,"R
if S=J:Text(A,C,"J
if T=J:Text(A+8,C,"J
if U=J:Text(A+16,C,"J
if W=J:Text(A+24,C,"J
if S=V:Text(A,C,"V
if T=V:Text(A+8,C,"V
if U=V:Text(A+16,C,"V
if W=V:Text(A+24,C,"V
if S=I:Text(A,C,"I
if T=I:Text(A+8,C,"I
if U=I:Text(A+16,C,"I
if W=I:Text(A+24,C,"I
if S=B:Text(A,C,"B
if T=B:Text(A+8,C,"B
if U=B:Text(A+16,C,"B
if W=B:Text(A+24,C,"B
if S=N:Text(A,C,"N
if T=N:Text(A+8,C,"N
if U=N:Text(A+16,C,"N
if W=N:Text(A+24,C,"N
if S=E and T=F AND U=G and W=H
Goto 1
if S=E:text(A+32,C,"V
if T=F:text(A+40,C,"V
if U=G:text(A+48,C,"V
if W=H:text(A+56,C,"V
if S=/E AND S=F AND T=/F or S=/E AND S=G AND U=/G or S=/E AND S=H AND W=/H:Text A+32,C,"M
if T=/F AND T=E AND S=/E or T=/F AND T=G AND U=/G or T=/E AND T=H AND W=/H:Text A+40,C,"M
if U=/G AND U=F AND S=/E or U=/G AND U=F AND T=/F or U=/G AND U=H AND W=/H:Text A+48,C,"M
if W=/H AND W=E AND S=/E or W=/H AND W=F AND T=/F or W=/H AND W=G AND U=/G:Text A+56,C,"M
IF ¤=10
GOTO 2
IF ¤=/10
pause
C+6-}C
¤+0-}¤
Goto 0
lbl 1
text(1,66,"bravo
text(7,66,"tu as
text(13,66,"touve
text(19,66,"en",¤,"coup
stop
lbl 2
text(1,66,"perdu
stop
je n ai pas mis les instruction je crois que tout le monde connait le mastermind mais il faut entrer le code couleur pas couleur et c est la premiere letre il y a blanc rouge indigo vert noir jaune si vous aver une question demander
