>>> Créer une Matrice C[26,6]. <<<


Programme"SPERME" (2214 bytes)

ClrText
Locate 4,1,"SPERMATOZOIDES"
Locate 5,2,"VERSION 2.0"
Locate 5,4,"AMELIOREE PAR"
Locate 2,5,"> PROGRAMMEUR FOU <"
Locate 3,7,"APPUYEZ SUR [EXE]"
Do:LpWhile Getkey[différent de]31
Lbl r
ClrText
0->A~Z
"1 : AIDE + JEU"
"2 : JOUER MAINTENANT"
"3 : SCORES"
Do
Z=72=>Goto 8
Z=62=>Goto 9
Z=52=>Goto @
Z=0=>LpWhile 0=0
Lbl 8
ClrText
"TU ES DANS LE ROLE D'UN SPERMATOZOIDE TONBUT C'EST D'ATTEINDREL'OVULE A DROITE DE  L'ECRAN"¤
ClrText
"AIDE-TOI DES FLECHES POUR TE DEPLACER"¤
ClrText
"LE BUT EST DE REUSSIRLE PLUS DE FOIS A LA SUITE. TA MISSION : REPEUPLER LA TERRE"¤
ClrText
Lbl 9
ClrText
Lbl 0
Ran#->A
Ran#->B
Ax7+1->A
Bx7+1->B
Int A->A
Int B->B
A=B=>Goto 0
1->C
Locate 21,B,"}"
Lbl 1
Locate C,A,"->O"
C+1->C
Getkey=28=A-1->A
Getkey=37=A+1->A
A>7=>Goto 2
A<1=>Goto 2
C=20=>Goto 2
Goto 1
Lbl 2
Getkey=57=>Goto L
A[différent de]B=>Goto 4
D+1->D
ClrText
Goto 3
Lbl 4
0->Q
While Q[différent de]20
69!
Q+1->Q
WhileEnd
Lbl 4
Clr Text
"GAME OVER"
Locate 1,3,"TON SCORE EST DE :"
Locate 1,4,D
If D>Mat C[25,1]
Then D->Mat C[26,1]
Locate 1,5,"VOUS ETES DANS LES"
Locate 1,6,"25 MEILLEURS SCORES"¤
ClrText
Lbl Q
Locate 1,1,"TON NOM (5 CAR.MAXI)?"
Goto D
Else Locate 1,5,"VOUS N'ESTES PAS DANS"
Locate 1,6,"LE TOP 25 !"¤
ClrText
Goto r
IfEnd
Lbl D
D->S
0->K
0->P
2->Q
0->D
Lbl E
For 1->P To 5
While K>76 Or K<25 And K[différent de]31
Getkey->K
WhileEnd
Lbl S
K=76=>Locate P,Q,"A"
K=66=>Locate P,Q,"B"
K=56=>Locate P,Q,"C"
K=46=>Locate P,Q,"D"
K=36=>Locate P,Q,"E"
K=26=>Locate P,Q,"F"
K=75=>Locate P,Q,"G"
K=65=>Locate P,Q,"H"
K=55=>Locate P,Q,"I"
K=45=>Locate P,Q,"J"
K=35=>Locate P,Q,"K"
K=25=>Locate P,Q,"L"
K=74=>Locate P,Q,"M"
K=64=>Locate P,Q,"N"
K=54=>Locate P,Q,"O"
K=73=>Locate P,Q,"P"
K=63=>Locate P,Q,"Q"
K=53=>Locate P,Q,"R"
K=43=>Locate P,Q,"S"
K=33=>Locate P,Q,"T"
K=72=>Locate P,Q,"U"
K=62=>Locate P,Q,"V"
K=52=>Locate P,Q,"W"
K=42=>Locate P,Q,"X"
K=32=>Locate P,Q,"Y"
K=71=>Locate P,Q,"Z"
K=61=>Locate P,Q," "
D=5555=>Goto K
K->Mat C[26,P+1]
0->K
Next
Locate 1,3,"VALIDER [O / N]"
While K[différent de]54 And K[différent de]64
Getkey->K
While End
If K=64
Then ClrText
0->K
Goto Q
IfEnd
If K=54
Then Mat->List(Mat C,1)->List 1
Mat->List(Mat C,2)->List 2
Mat->List(Mat C,3)->List 3
Mat->List(Mat C,4)->List 4
Mat->List(Mat C,5)->List 5
Mat->List(Mat C,6)->List 6
SortD(List 1,List 2,List 3,List 4,List 5,List 6)
IfEnd
List->Mat(List 1,List 2,List 3,List 4,List 5,List 6)->Mat C
0->T
For 1->T To 25
S=Mat C[T,1]
Ans=1=>T->U
Next
Lbl J
ClrText
Locate 1,1,"1.REJOUER"
Locate 1,2,"VOIR LES NOUVEAUX"
Locate 1,3,"HIGHSCORES"?->@
@[différent de]1=>@[différent de]2=>Goto J
@=1=>Goto 9
@=2=>Goto @
ClrText
Lbl 3
0->Q
While Q[différent de]0
69!
Q+1->Q
WhileEnd
Goto 0
Lbl 5
0->D
0->E
While Getkey[différent de]31
WhileEnd
ClrText
Goto 0
Lbl 6
?->D
Goto 4
Lbl 7
0->W
While W[différent de]15
69!
W+1->W
WhileEnd
Goto r
Lbl @
ClrText
Locate 3,1,"MEILLEURS SCORES"
Locate 1,2,"====================="
25->C
Lbl G
3->P
0->E
For 1->E To 25
If Mat C[C,1]=0
Then C-1->C
IfEnd
Next
7->Q
For 7->Q To 3 Step -1
3->P
Locate 1,Q,C
Locate 3,Q,")"
5555->D
0->F
Lbl K
F+1->F
F=6=>Goto V
Mat C[C,F+1]->K
P+1->P
Goto S
Lbl V
Locate 12,Q,Mat C[C,1]
C-1->C
C=0=>Goto X
Next
Lbl X
0->K
While K[différent de]31
Getkey->K
WhileEnd
If C[différent de]0
Then 0->A
For 7->A To 3 Step -1
Locate 1,A,"                     "
Next
Goto G
Else Goto r
IfEnd








P.S.: Les ¤ representent le symbole obtenu en faisant SHIFT+PRGM+F5.