Autorisation : Membre
Nb de messages : 3370
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Mer 28 Oct 2009, 15:18
Après vérification pour la troisième fois, j'ai remarqué qu'une ligne m'avais échappée.
Suite à cela l'erreur était indiqué lors d'une de mes boucles et j'ai du la modifier en remettant le then/End.
Pourtant maintenant le programme tourne sans problème sauf que la balle descend de 2 case à chaque fois et que je ne peut pas bouger.
Autorisation : Membre
Nb de messages : 3370
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Mer 28 Oct 2009, 15:52
Après 1001 modifications et relecture du programme originale le jeu marche (sauf lorsque la balle est tout en bas ça met automatiquement GAME OVER).
Je modifierais le programme que j'ai posté ce soir.
Autorisation : Membre
Nb de messages : 3370
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Mar 03 Nov 2009, 7:20
Voici (avec un peu de retard) le programme modifié:
Code
Lbl D
5->D
0->P
8->dim(L1
Menu("DIFFICULTE:","NORMAL",N,"EXPERT",E,"PROGRESSSIF",P,"QUITTER",Q
Lbl P
1->P
6->D
Goto N
Lbl E
4->D
LblN
3->dim(L3
7->X
4->Y
1->B
0->C
0->S
ClrHome
Output(1,16,"A
Output(2,16,"L
Output(3,16,"T
Output(4,16,":
For(H,1,8
int(rand15+1->L1(H
End
7->V
Lbl A
For(H,1,8
Output(H,L1(H),"-
End
If Y=1:Then
If X[différent de]1:Output(1,X-1," "
If X[différent de]15:Output(1,X+1," "
End
Output(Y,X,"O
For(H,2,8
If Y=H and B=1 and X=L1(H
Then
-1->B
0->C
End
End
If C[supérieur où égal à]D:1->B
If B=-1:C+1->C
getKey->T
If T=105:Goto M
0->A
A-(T=24)+(T=26)->A
If Y=1 and B=-1
Then
For(H,1,8
Output(H,L1(H)," "
End
For(H,7,1,-1
L1(H->L1(H+1
End
int(rand15+1->L1(1
S+1->S
I->[theta]
int(.01S->I
If I[différent de][theta] and P=1
D-1->D
int(.1(S-IE2->J <== le E est la puissance de 10 (2nd+[,])
int(S-IE2-10J->K
Output(5,16,I
Output(6,16,J
Output(7,16,K
Y+1->Y
End
Output(Y,X," "
Y+B->Y
X+A->X
If X=0:15->X
If X=16:1->X
If Y=8:Goto C
Goto A
Lbl C
Output(Y,X,"O
Output(4,4,"GAME OVER
Pause
ClrHome
1->[theta]
If D=4
2->[theta]
If P=1:3->[theta]
If L3([theta]<S
Then
Output(2,2,"MEILLEUR SCORE
Output(3,5,"BATTU !
Output(5,3,DE POINTS"
Output(5,7,S-L3([theta]
S->L3(|theta]
Pause
End
Lbl G
ClrHome
Menu("-PAPY-JUMP-","REESSAYER",D,"SCORE",S,"QUITTER",Q
Lbl Q
ClrHome
Output(2,4,"PAPY-JUMP
Output(5,5,"SYPOTU
Pause
ClrHome
Output(1,1," "
Stop
Lbl M
Menu("PAUSE:","REPRENDRE",A,"RECOMMENCER",D,"QUITTER",Q
Lbl S
ClrHome
Output(1,6,"VOTRE
Output(2,5,"MEILLEUR
Output(3,6,"SCORE
Output(4,5,"EST
Output(4,9,L3(1
Output(7,4,"EN NORMAL
Output(6,6,"ET
Output(6,9,"L3(2
Output(7,4,"EN EXPERT
Pause
ClrHome
Output(1,6,"ET
Output(1,9,L3(3
Output(2,2,"EN PROGRESSIF
Pause
Goto G
Autorisation : Membre
Nb de messages : 200
Inscrit le : Mar 20 Oct 2009, 18:58
Posté le : Mar 03 Nov 2009, 14:12
sypotu => j'ai trouvé un bug dans ton programme, pour le mode progressif, arrivé à 100, je ne sais pas si il y a moins de tiret ("-") mais en tout cas le "0" continue à sauter aussi haut que en facile alors qu'il devrait sauter moins haut comme en expert. Une soluce ?
Autorisation : Membre
Nb de messages : 32
Inscrit le : Dim 25 Oct 2009, 13:02
Posté le : Jeu 05 Nov 2009, 22:36
Alors sangohan merci de ta nouvelle version mais il ya quelques petits problèmes :S J'apporte que des mauvais nouvelles moi
En faite on peut monter et dessendre sans rien faire mais là aucun bug mais quand on veut aller à gauche ou à droite, ca nous met directement game over Une idée ??
Et aussi quand on perd et qu'il affiche les scores on a un nombre négatif exemple "-54points" Encore merci de ta version qui marche contrairement à la première
Louis54.
Autorisation : Membre
Nb de messages : 32
Inscrit le : Dim 25 Oct 2009, 13:02
Posté le : Mer 11 Nov 2009, 0:08
Tout d'abord bonsoir int(rand15+1->L1(H
End
7->V
Lbl A
For(H,1,8
Output(H,L1(H),"-
End
If Y=1:Then
If X[différent de]1:Output(1,X-1," "
If X[différent de]15:Output(1,X+1," "
End
Output(Y,X,"O
For(H,2,8
If Y=H and B=1 and X=L1(H
Then
-1->B
0->C
End
End
If C[supérieur où égal à]D:1->B
If B=-1:C+1->C
getKey->T
If T=105:Goto M
0->A
A-(T=24)+(T=26)->A
If Y=1 and B=-1
Then
For(H,1,8
Output(H,L1(H)," "
End
For(H,7,1,-1
L1(H->L1(H+1
End int(rand15+1->L1(1
Pour les 2 lignes en grasse, j'ai mis:
-La première: entAléat(1,15->L1(H
-La seconde: entAléat(1,15)->L1(1
Ai-je fait une erreur en "traduisant" en francais ??
L'erreur ne peut venir que de là.
En l'attente de vos réponses, Louis54
Autorisation : Membre
Nb de messages : 32
Inscrit le : Dim 25 Oct 2009, 13:02
Posté le : Mer 11 Nov 2009, 13:25
Alors après avoir mis la parenthèse, j'ai une ereur dim invalide à la ligne:
If L3([theta]<S
Aprè le S j'ai l'erreur
Entre If P=1:3->[theta] et Then
Merci de vos réponses, Louis54
arthur92 Invité
Posté le : Mer 11 Nov 2009, 13:55
Excuse moi sangohan 38 mai j'ai une erreur argument en lançant le prog
ça me renvoie au premier menu:
Menu("DIFFICULTE:","NORMAL",N,"EXPERT",E,"PROGRESSSIF",P,"QUITTER",Q
mais quand on veut aller à gauche ou à droite, ca nous met directement game over 
!
ca ne marche toujours pas