Seulement il reste quelque bug, des fois le programme considère que la diagonale et bonne sans raison.
Si vous pouviez m'aider a les résoudre ça m'arrangerait, le plus con dans tout ça c'est que j'ai perdu met note que j'avais prise
Merci d'av MulX
Draw prgmEFACVARS
Voila le source : prgmEFACVARS
AxesOff
FnOff
0üXmin
0üYmin
94üXmax
62üYmax
Text(20,25,"PUISSANCE 4"
Text(30,30,"BY MULX"
Text(40,4,"VERSION EN DEVELOPEMENT"
Pause
ClrDraw
Horizontal 0
Vertical 0
For(X,1,89,8)
Vertical X
End
For(Y,1,57,8
Horizontal Y
End
For(Y,57,62,1)
Horizontal Y
End
For(X,89,94,1)
Vertical X
End
80üdim(L
Fill(0,L
44üX
1üE
0üU
6üY
Text(Y,X,"V"
while E
getKeyüK
If K=24
Then
Text(Y,X," "
X-8üX
If X÷4
4üX
Text(Y,X,"V"
End
If K=26
Then
Text(Y,X," "
X+8üX
If Xù84
84üX
Text(Y,X,"V"
End
If K=21
Then
ClrHome
Disp round(rand10,0),round(rand5Ä,1
Pause
End
If K=45
Then
0üE
2üU
End
Text(0,2," JOUEUR : ",U+1," A VOUS L'HONEUR"
If K=105
Then
Text(0,3,"PLEASE WAIT CALCUL ... "
((4+X)/8)üC
1üG
1üÁ
For(B,1,6,1)
(C-1)*6+BüP
If not(L(P))
Then
If (not(U) and Á)
Then
Text(62-B*8,X,"X")
1üU
0üÁ
End
If (U and Á)
Then
Text(62-B*8,X,"0")
0üU
0üÁ
End
Text(Y,X,"V"
If not(Á) and G
Then
U+1üL(P)
1+L(70)üL(70)
0üG
BüL
8üB
End
If L(70)=66
Then
00000üE
Text(6,2," IT'S POSSIBLE ? "
Pause
End
End
End
(C-1)*6+LüP
If L>3
Then
(L(P)*L(P-1)*L(P-2)*L(P-3)üO
If O=1 or O=16
Then
Text(0,3,"JOUEUR : ",U*ú1+2," WIN COLON ")
0üE
End
End
If C<4
Then
P-6*(C-1)üN
Else
P-6*3üN
End
If C>8
Then
P+6*(11-C)üM
Else
P+6*3üM
End
0üB
For(A,N,M,6)
If L(A)=(U+1)
Then
B+1üB
Else
0üB
End
If B>3
Then
Text(0,3,"JOUEUR : ",U*ú1+2," WIN LINE ")
0üE
End
End
C-3üQ
If Q<1
1üQ
C+3üF
If F>11
11üF
L-3üM
If M<1
1üM
L+3üN
If N>6
6üN
0üB
For(I,0,5,1)
((Q-1)*6+M)+(I*7)üZ
If (((F-1)*6+N)<Z)
Then
6üI
End
If L(Z)=(U+1)
Then
B+1üB
Else
0üB
End
If Bù4
Then
Text(0,3,"JOUEUR : ",U*ú1+2," WIN DIAG 1 "
Pause
0üE
6üI
End
End
0üB
For(I,0,5,1)
((Q-1)*6+N)+(I*5)üZ
If (((F-1)*6+M)<Z)
Then
6üI
End
If L(Z)=(U+1)
Then
B+1üB
Else
0üB
End
If Bù4
Then
Text(0,3,"JOUEUR : ",U*ú1+2," WIN DIAG 2 "
Pause
0üE
6üI
End
End
End
End
ClrHome
Output(4,1,"LE JOUEUR : "
If (U*ú1)+2
Then
Output(4,13,(U*ú1)+2)
Output(5,1,"A GAGNE"
Else
Output(5,1,"A ABANDONE"
End
Pause
ClrList L
Clr (Si ce n'est pas lisible, il est dispo sur mon site : http://aplu.fr, section telechargement)
Le lancement de EFFACVARS et un programme qui remet a peut pres tout a 0 dans la calculette (variable = 0, graph, mode, etc ...)
PS : D'habitude c'est moi qui corrige les programmes des autres (du moins dans mon lycée) mais là
Edit : Un exemple du bug : http://aplu.fr/guppy/img/PUISSANCE_BUG.TIF là le joueur 2 aurait du gagner en diagonale hors il n'est rien !
EDIT-2010: MAJ des liens.
)
Fichier joint : P4_version3.07.zip
)
je voulais editer les posts pour changer les liens mais soit je suis aveugle, soit c'est pas possible ...
