Autorisation : Membre
Nb de messages : 200
Inscrit le : Mar 20 Oct 2009, 18:58
Posté le : Sam 24 Oct 2009, 17:12
Non, toujours rien ...
Étrange ... j'ai relu 3 fois le code, j'ai tout bien recopié, ça vient pas de la.
Par contre, quand tu met Liste3 je met L3 (2nde+3), ???
Autorisation : Membre
Nb de messages : 655
Inscrit le : Dim 13 Sep 2009, 8:27
Posté le : Sam 24 Oct 2009, 17:53
Non c'est toujours pareil
mais bon au bout d'un moment tu fait forcément une erreur
tu faudrais que je fasse que quand on arrive à 100 de haut ça passe en expert ?
Autorisation : Membre
Nb de messages : 32
Inscrit le : Dim 25 Oct 2009, 13:02
Posté le : Dim 25 Oct 2009, 13:04
Je voulais metre papy jump dans ma calculatrice mais j'attend la new version avec "l'acroiteur" de dificulté et comme ca je pourai te le testé bien qu'il soient j'espère pas extremement long
Lbl D
5->D :0->P
Menu("DIFICULTE :","NORMAL",N,"EXPERT",E,"PROGRESSIF",P,"QUITER",Q
Lbl P :1->P :6->D :Goto N
Lbl E :4->D
Lbl N
3->dim(Liste3
7->X :4->Y :1->B :0->C :0->S
EffEcr
Output(1,16,"A
Output(2,16,"L
Output(3,16,"T
Output(4,16,":
entAléat(1,15)->H
entAléat(1,15)->G
entAléat(1,15)->M
entAléat(1,15)->L
entAléat(1,15)->R
entAléat(1,15)->Q
entAléat(1,15)->W
7->V
Lbl A
Output(1,H,"-
Output(2,G,"-
Output(3,M,"-
Output(4,L,"-
Output(5,R,"-
Output(6,Q,"-
Output(7,W,"-
Output(8,V,"-
If Y=1:Then
If X[different de]1:Output(1,X-1," "
If X[different de]15:Output(1,X+1," "
End
Output(Y,X,"O
If ((Y=7 et X=V) ou (Y=6 et X=W) ou (Y=5 et X=Q) ou (Y=4 et X=R) ou (Y=3 et X=L) ou (Y=2 et X=M) ou (Y=1 et X=G)) et B=1 :Then
(-)1->B:0->C :End
If C[supérieur ou égal à]D:1->B
If B=(-)1:C+1->C
codeTouche->T
If T=105 :Goto M
0->A
A-(T=24)+(T=26)->A
If Y=1 et B=(-)1 :Then
Output(1,H," "
Output(2,G," "
Output(3,M," "
Output(4,L," "
Output(5,R," "
Output(6,Q," "
Output(7,W," "
Output(8,V," "
W->V :Q->W :R->Q :L->R :M->L :G->M :H->G
entAléat(1,15)->H
S+1->S
I->[théta]
partEnt(S/100->I
If I[différent de][théta] et P=1
D-1->D
partEnt((S-100*I)/10)->J
partEnt((S-100*I)-10*J)->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
EffEcr
1->[theta]
If D=4 :2->[theta]
If P=1 :3->[theta]
If (Liste3([theta]) [inférieur à] S : Then
Output(2,2,"MEILLLEUR SCORE
Output(3,5,"BATTU !
Output(5,3,"DE [5 espaces] POINTS
Output(5,7,S-Liste3([theta]
S->Liste3([theta]
Pause
End
Lbl G
EffEcr
Menu("-PAPY-JUMP-","REESSAYER",D,"SCORE",S,"QUITER",Q
Lbl Q
EffEcr
Output(2,4,"PAPY-JUMP
Output(5,5,"SYPOTU
Pause
EffEcr
Output(1,1,"
Stop
Lbl M
Menu("PAUSE","REPRENDRE",A,"RECOMENCER",D,"QUITER",Q
Lbl S
EffEcr
Output(1,6,"VOTRE
Output(2,5,"MEILLEUR
Output(3,6,"SCORE
Output(4,5,"EST
Output(4,9,Liste3(1
Output(5,4,"EN NORMAL
Output(6,6,"ET
Output(6,9,Liste3(2
Output(7,4,"EN EXPERT
Pause
EffEcr
Output(1,6,"ET
Output(1,9,Liste3(3
Output(2,2,"EN PROGRESSIF
Pause
Goto G
Autorisation : Membre
Nb de messages : 3370
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Lun 26 Oct 2009, 8:04
J'ai essayé d'alléger ton programme pour le taper plus vite.
Voici ce que cela donne:
Code
Lbl D
5->D :0->P
7->dim(Liste(1
Menu("DIFICULTE :","NORMAL",N,"EXPERT",E,"PROGRESSIF",P,"QUITER",Q
Lbl P :1->P :6->D :Goto N
Lbl E :4->D
Lbl N
3->dim(Liste3
7->X :4->Y :1->B :0->C :0->S
EffEcr
Output(1,16,"A
Output(2,16,"L
Output(3,16,"T
Output(4,16,":
For(H,1,8
entaléat(1,15->Liste1(H
End
7->V
Lbl A
For(H,1,8
Output(H,Liste1(H,"-
End
If Y=1:Then
If X[different de]1:Output(1,X-1," "
If X[different de]15:Output(1,X+1," "
End
Output(Y,X,"O
For(H,2,8
If non(Y=H) et et non(B=1) et non(X=Liste1(H
End
(-1)->B:0->C
End
If C[supérieur ou égal à]D:1->B
If B=(-)1:C+1->C
codeTouche->T
If T=105 :Goto M
0->A
A-(T=24)+(T=26)->A
If Y=1 et B=(-)1 :Then
For(H,1,8
Output(H,Liste1(H," "
If 8-H[supérieur à]1
Liste1(8-H->Liste1(7-H
End
entAléat(1,15)->Liste1(1
S+1->S
I->[théta]
partEnt(.01S->I
If I[différent de][théta] et P=1
D-1->D
partEnt((S-IE2).1)->J <== le E est la touche de la puissance de 10 ([2nd]+[,]
partEnt((S-IE2)-10J)->K <== idem
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
EffEcr
1->[theta]
If D=4 :2->[theta]
If P=1 :3->[theta]
If (Liste3([theta]) [inférieur à] S : Then
Output(2,2,"MEILLLEUR SCORE
Output(3,5,"BATTU !
Output(5,3,"DE [5 espaces] POINTS
Output(5,7,S-Liste3([theta]
S->Liste3([theta]
Pause
End
Lbl G
EffEcr
Menu("-PAPY-JUMP-","REESSAYER",D,"SCORE",S,"QUITER",Q
Lbl Q
EffEcr
Output(2,4,"PAPY-JUMP
Output(5,5,"SYPOTU
Pause
EffEcr
Output(1,1,"
Stop
Lbl M
Menu("PAUSE","REPRENDRE",A,"RECOMENCER",D,"QUITER",Q
Lbl S
EffEcr
Output(1,6,"VOTRE
Output(2,5,"MEILLEUR
Output(3,6,"SCORE
Output(4,5,"EST
Output(4,9,Liste3(1
Output(5,4,"EN NORMAL
Output(6,6,"ET
Output(6,9,Liste3(2
Output(7,4,"EN EXPERT
Pause
EffEcr
Output(1,6,"ET
Output(1,9,Liste3(3
Output(2,2,"EN PROGRESSIF
Pause
Goto G
Autorisation : Membre
Nb de messages : 655
Inscrit le : Dim 13 Sep 2009, 8:27
Posté le : Lun 26 Oct 2009, 8:06
Si tu as le cable je vais essayer de faire un 82.P
sinon si tu veux apprendre je te conseille de prendre ton temps et de chercher à comprendre se que tu recopies (en t'aidant de la notice).
Si il y a des choses que tu ne comprends pas tu peux nous demander