Forum

Catégorie : Programmes
Forum : Les programmes des internautes
Vues : 23021
Réponses : 207
Type : discussion
Etat : réponses autorisées
Avertissement :
Il s'agit d'une page optimisée pour la navigation mobile. Voir la page originale.

Papy-Jump - Page 2 / 11

dysto le 24/10/2009 à 16:44
Oui, ça rebondit quoi.
sypotu le 24/10/2009 à 16:59
Je ne sais pas quoi te dire... minied.gif
Essai de remplacer :
Code
A-(T=24)+(T=26)->A

par :
Code
If T=24:(-)1->A
If T=26:1->A
dysto le 24/10/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), ???
sypotu le 24/10/2009 à 17:25
happy.gif ouai c'est ça liste 3
J'ai trouvé mon erreur !!!!!
c'est :
X+A->X
et non :
X+A->A
Ca m'enerve ces erreurs !!! evil.gif
dysto le 24/10/2009 à 17:37
Bravo, c'était ça, ça marche =D !
1 : merci beaucoup =D !
2 : Comme quoi ça sert bien les testeurs !

godgrace.gif glasses.gif bigmouth.gif cupsmiley.gif
dysto le 24/10/2009 à 17:41
Juste pour savoir, est-ce que la difficulté est croissante ?
C'est quasiment infini sinon ^^ !
sypotu le 24/10/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 ?

Merci à toi pour l'avoir testé happy.gif
dysto le 24/10/2009 à 21:03
Oui pour le 100 de haut ^^ !
Pour corser une peu ^^ !
sypotu le 24/10/2009 à 22:52
ok je m'y attaque demain
louis54810 le 25/10/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 crazy.gif
sypotu le 25/10/2009 à 21:04
Voilà la nouvelle version bigmouth.gif :



Dès qu'on arrive à une centaine de plus c'est plus dur godgrace.gif

Fichier .83p

Code
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
dysto le 25/10/2009 à 21:38
Ça marche niquel winkle.gif !
J'ai juste rajouté rajouté :

Code

:"QUITTER",Q


Au premier menu.

Merci encore bigmouth.gif !
sypotu le 25/10/2009 à 21:45
Bin de rien happy.gif
bonne idée pour le Quiter, je le rajoute
louis54810 le 25/10/2009 à 23:42
Bon, plusqu'à m'y mettre pendant une voir deux bonne heures pour recopié ça =')
xD Je vais m'y attaquer bientôt ^^ et gg à toi sypotu winkle.gif
dysto le 26/10/2009 à 00:11
Allez, avec peu d'entrainement je l'ai fais en 30 minutes, c'est faisable winkle.gif !
louis54810 le 26/10/2009 à 00:40
Mais moi je commence seulement :p et je recopie juste je ne commence même pas la programatin moi même =')
Comme tu le dit si bien, patience !! xD
Sangohan38 le 26/10/2009 à 08: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


Sangohan38
sypotu le 26/10/2009 à 08: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 winkle.gif
louis54810 le 26/10/2009 à 12:26
Merci de me proposer votre aide c'est gentil =') Et non j'ai pas le cable cry.gif
drdiablo le 26/10/2009 à 18:54
Est-ce que quelqu'un pourrait mettre un fichier .83p svp? parce que j'aimerai pouvoir tester ce jeu avant 10ans(le temps de recopier sans fautes)
Avertissement :
Il s'agit d'une page optimisée pour la navigation mobile. Voir la page originale.