MEMORY [jeu]

Bonsoir à tous!

Je vous présente mon tout dernier projet, j'ai nommé (très originalement j'avoue ): MEMORY

Le but du jeu est classique: retrouver toutes les paires

Les commandes:
Flèches pour se déplacer
Entrer pour valider
annul pour quitter

Un petit screen pour la route:


Le code (faut que je revoit les caractères qui ne sont pas passés je fais ça dès que possible):

Code:

" MEMORY üStr3
"ôõ<ö>ÐÄ÷ù^*-/ú+ÁO0üStr0
1üW
ClrHome
Lbl M
For(A,1,8
For(Á,1,8
Output(A,2Á-1,sub(Str0,randInt(1,17),2
End
End
If W
Then
Output(4,5,Str3
For(A,1,1000
End
End
{2,4
DelVar WMenu(Str3,"2*2",J,"4*4",1,"4*5",2,"5*6",3,"6*6",4,"QUITTER",0
Lbl 4
Ans+{1,0
Lbl 3
Ans+{1,1
Lbl 2
Ans+{0,1
Lbl 1
Ans+{2,0
Lbl J
AnsüL
Ans(1üM
L(2üN
5+int(ú.5MüO
abs(N-8üP
For(Á,1,8
Output(Á,1,sub(Str3,Á,1
End
For(Á,0,M+1
For(A,0,2N
Output(Á+O-1,A+P+1,sub(" ?",1+(Á and Á-1-M and fPart(.5A)),1
End
End
Output(1,7," 0/
Output(1,10,MN.5
Output(1,11+(MNù20),"
DelVar SOutput(8,8," 0
seq(int(Á.5),Á,2,1+NMüL
randInt(0,9,MNüL‚
SortA(L‚,L
Fill(0,L‚
DelVar LDelVar JDelVar D1üE
getKey
Repeat prod(L=L‚
For(Á,0,1
0üB
Repeat K=105 and not(L‚(NA+B
If A-D or B-E
" "+sub("?"+Str0,1+L‚(ND+E),1üStr1
DüA
LüK
DelVar LEüB
Output(A+O,2Ans+P,"
Repeat K
If not(K
getKeyüK
If K=45
Goto M
F+1üF
not(CüC
If K+not(fPart(F.2
Output(A+O,2B+P,sub(Str1,1+(Ans or K),1
End
max(0,min(M-1,A+(K=34)-(K=25üD
max(1,min(N,B+(K=26)-(K=24üE
End
Output(A+O,2B+P,sub(Str0,L(NA+B),1
L(NA+BüL‚(NA+B
If not(Á
A+.1BüG
End
Repeat Ans or Á=50
Á+1üÁ
getKeyüL
End
10fPart(GüH
int(G
If L(NA+B)-L(NAns+H
Then
Output(Ans+O,2H+P,"?
0üL‚(NAns+H
0üL‚(NA+B
Output(A+O,2B+P,"?
Else
J+1üJ
Output(1,8-(Ans>9),Ans
Output(1,7-(Ans>9),"
End
S+1üS
9-int(log(Ans
Output(8,Ans,S
Output(8,Ans-1,"
Output(8,Ans+int(log(S))+1,"
End
getKey
Output(8,1,"  PRESS A KEY. 
Repeat getKey
Output(randInt(1,7),randInt(1,14),"GAGNE!
Output(8,1,"  PR
End
Goto M
Lbl 0
For(A,3,5
For(C,1,16
Output(A,C,"
End
End
AüC
For(Á,1,6
Output(4,2Á,"?
End
Repeat getKey
randInt(1,7üB
Output(4,2B,sub("MATHIEU",B,1
For(W,1,100
End
Output(4,2Á,"?
CüÁ
AüC
BüA
End
DelVar Str1DelVar Str2DelVar Str3DelVar LDelVar L‚ClrHome

Un petit lien:
https://www.mediafire.com/?xv1bgw52qq611qa

Le tout en 1100o

N'hésitez pas à commenter

Bien à première vue.   
Mais les caractères aléatoires des cadres et messages me dégoûtent.

Je repense à mon propre memory. Je mettrai à jour le mien et comparerai probablement.

Sympa !
+1