Planète Casio
Les membres ayant 30 points peuvent parler sur les canaux annonces, projets et hs du chat.
La shoutbox n'est pas chargée par défaut pour des raisons de performances. Cliquez pour charger.

Forum Casio - Autres questions


Index du Forum » Autres questions » Erreur saut lors d'un appel à Goto
Gab.c Hors ligne Membre Points: 449 Défis: 0 Message

Erreur saut lors d'un appel à Goto

Posté le 27/01/2016 15:45

Bonjour tout le monde
j'ai un problème, voici la partie du code:

Lbl A
ClrGraph
ClrText
Locate 7,1,"Parcours"
Locate 2,3,"-Nouvelle partie"
Locate 2,4,"-Scores"
Locate 2,5,"-Boutique"
Locate 2,6,"-Explication"
Locate 2,7,"-Exit"
3→B:7→Z
Prog "FLECHE"
B=3⇒Goto B
B=4⇒Goto C
B=5⇒Goto D
If B=6
Then
"[MENU] permet de"
"mettre la partie"
"en pause"
"On peut ainsi"
"enregistrer la"
"partie [F6]
IfEnd
If B=7
Then
√List 1→List 7
Stop
IfEnd
Goto A
Lbl C
ClrText
Locate 8,1,"Scores"
Locate 1,4,"Niveau max :"
Locate 13,4,List 1[2]-1
Locate 1,6,"Points max :"
Locate 13,6,List 1[1
While K≠48
Getkey→K:WhileEnd
Goto A


Quand je lance le programme, j'ai un "erreur saut" au niveau du "goto C".
Merci pour votre aide.

PS: je suis nouveau.

1, 2 – Suivante
Eltoredo Hors ligne Modérateur Points: 4301 Défis: 35 Message

Citer : Posté le 27/01/2016 15:47 | #

Peux-tu mettre l'ensemble du code dans la balise 'code' dans la barre d'outil de l'écriture de message ? C'est le '>_', tu sélectionne tout ton texte et tu cliques dessus
La procrastination est une vertu. (voir ma description pour comprendre mon raisonnement)
Breizh_craft Hors ligne Modérateur Points: 1171 Défis: 7 Message

Citer : Posté le 27/01/2016 15:53 | #

Cherche pas, c'est un bug des goto. Sans raisons, tu as des erreurs saut. Faut pas utiliser les goto / lbl
Breizh.pm – Un adminsys qui aime les galettes.
Darkysun Hors ligne Membre Points: 1747 Défis: 52 Message

Citer : Posté le 27/01/2016 15:59 | #

Met le code en entier peut etre que tu as mis plus de 10 lbl ?
Si je ne réponds pas à un post depuis trop longtemps : envoyez-moi un message pour me le rappeler !
Mes programmes
Et bientôt d'autres encore
En C
Cliquer pour enrouler
-Escape the Death
-Mon Fall Down
En Basic
Cliquer pour enrouler
-Mon morpion
-Mon jeu de mains
-Mon starwars
-Mon dessinatout
-Mon niaiseux version 2.0
-Mon niaiseux version 3.0
-Inferno
-Mon super labyrinthe (en cours)
-Mon call of duty en 3D

Mes projets
Cliquer pour enrouler
-Un nouveau ice slider où vous pouvez participer
-Casion (avec Az)



Eltoredo Hors ligne Modérateur Points: 4301 Défis: 35 Message

Citer : Posté le 27/01/2016 16:01 | #

Non Breizh, il ne faut pas "ne pas" utiliser les Lbl, juste dans une certaine mesure ou bien utilisés.
La procrastination est une vertu. (voir ma description pour comprendre mon raisonnement)
Breizh_craft Hors ligne Modérateur Points: 1171 Défis: 7 Message

Citer : Posté le 27/01/2016 16:03 | #

Oui enfin. Il faut les utiliser le moins possible.
Breizh.pm – Un adminsys qui aime les galettes.
Gab.c Hors ligne Membre Points: 449 Défis: 0 Message

Citer : Posté le 27/01/2016 16:06 | #

Voici le code entier mais je n'ai pas terminé.

Filename:   PARC
0ãE~UÙ
"P"ãList 1Ù
If Dim List 1È10Ù
Then {0,1,0,0,0,0,0,0,0,0ãList 1Ù
IfEndÙ
"VP"ãList 7Ù
If Dim List 7È10Ù
Then 10ãDim List 7Ù
{0,1,0,0,0,0,0,0,0,0ãList 1Ù
¸ËList 1ãList 7Ù
IfEndÙ
¸ËList 1[1]ÈList 7[1]×0ãList 1[1]Ù
¸ËList 1[2]ÈList 7[2]×1ãList 1[2]Ù
¸ËList 1[3]ÈList 7[3]×0ãList 1[3]Ù
¸ËList 1[4]ÈList 7[4]×0ãList 1[4]Ù
¸ËList 1[5]ÈList 7[5]×0ãList 1[5]Ù
¸ËList 1[6]ÈList 7[6]×0ãList 1[6]Ù
¸ËList 1[7]ÈList 7[7]×0ãList 1[7]Ù
¸ËList 1[8]ÈList 7[8]×0ãList 1[8]Ù
¸ËList 1[10]ÈList 7[10]×0ãList 1[10]Ù
ClsÙ
ViewWindow 1,127,0,1,63,0Ù
For 1ãA To 500:NextÙ
For 23ãA To 41 Step 6:Text A,3,"                               ":NextÙ
Prog "LAB"Ù
Lbl AÙ
ClrGraphÙ
ClrTextÙ
Locate 7,1,"Parcours"Ù
Locate 2,3,"-Nouvelle partie"Ù
Locate 2,4,"-Scores"Ù
Locate 2,5,"-Boutique"Ù
Locate 2,6,"-Explication"Ù
Locate 2,7,"-Exit"Ù
3ãB:7ãZÙ
For 1㪠To 150:NextÙ
Prog "FLECHE"Ù
B=3×Goto BÙ
B=4×Goto CÙ
B=5×Goto DÙ
If B=6Ù
Then Ù
"[MENU] permet de"Ù
"mettre la partie"Ù
"en pause"Ù
"On peut ainsi"Ù
"enregistrer la"Ù
"partie [F6]"Ù
IfEndÙ
If B=7Ù
Then Ù
¸ËList 1ãList 7Ù
StopÙ
IfEndÙ
Goto AÙ
Lbl CÙ
ClrTextÙ
Locate 8,1,"Scores"Ù
Locate 1,4,"Niveau max :"Ù
Locate 13,4,List 1[2]-1Ù
Locate 1,6,"Points max :"Ù
Locate 13,6,List 1[1Ù
While KÈ48Ù
GetkeyãK:WhileEndÙ
Goto AÙ
Lbl DÙ
ClrTextÙ
Locate 7,1,"Boutique"Ù
Locate 1,2,List 1[3]Ù
Locate 7,2,"$"Ù
Locate 2,4,"-Une vie (10$) : "Ù
Locate 17,4,List 1[4Ù
For 1㪠To 150:NextÙ
4ãB~ZÙ
Prog "FLECHE"Ù
K=48×Goto AÙ
If B=4Ù
Then If List 1[3]Ê10Ù
Then (List 1[4])+1ãList 1[4Ù
(List 1[3])-10ãList 1[3]Ù
IfEnd:IfEndÙ
Goto DÙ
Lbl BÙ
ClrTextÙ
Locate 9,1,"Mode"Ù
Locate 2,3,"-Normale"Ù
Locate 2,4,"-Grand parcour"Ù
Locate 2,5,"-Partie enregistr#E60A"Ù
For 1㪠To 150:NextÙ
3ãB:5ãZÙ
Prog "FLECHE"Ù
K=48×Goto AÙ
B=3×Goto 1Ù
If B=4Ù
Then 1ãUÙ
2ãDÙ
Goto 5Ù
IfEndÙ
If B=5Ù
Then If List 1[6]=0Ù
Then "Aucune parties enregistr#E60A"Ø
Goto BÙ
IfEndÙ
List 1[5]ãBÙ
List 1[6]ãPÙ
List 1[7]ãQÙ
List 1[8]ãUÙ
List 1[9]ãDÙ
List 1[10]ãSÙ
0ãList 1[5]Ù
0ãList 1[6]Ù
0ãList 1[7]Ù
0ãList 1[8]Ù
0ãList 1[9]Ù
0ãList 1[10]Ù
1ãEÙ
If U>0 And U<8Ù
Then Goto 5Ù
IfEndÙ
Goto 4Ù
IfEndÙ
Lbl 1Ù
0ãUÙ
ClrTextÙ
Locate 7,1,"Difficulte"Ù
Locate 2,3,"-Facile"Ù
Locate 2,4,"-Difficile"Ù
For 1㪠To 150:NextÙ
3ãB:4ãZÙ
Prog "FLECHE"Ù
K=48×Goto BÙ
If B=3Ù
Then 1ãDÙ
Goto 2Ù
IfEndÙ
If B=4Ù
Then 2ãDÙ
Goto 2Ù
IfEndÙ
Goto 1Ù
Lbl 2Ù
ViewWindow 1,127,0,1,63,0Ù
" MAP 1"Ù
" Batons"Ù
" XEG"Ù
" MAP 3"Ù
" Labyrinte"Ù
" Alexis"Ù
" Sentier"Ù
For 1㪠To 150:NextÙ
1ãB:List 1[2]ãZÙ
Prog "FLECHE"Ù
K=48×Goto 1Ù
Lbl 4Ù
If B=1Ù
Then Prog "MAP 1"Ù
2ãCÙ
Goto 3Ù
IfEndÙ
If B=2Ù
Then Prog "MAP 2"Ù
3ãCÙ
Goto 3Ù
IfEndÙ
If B=3Ù
Then Prog "XEG"Ù
4ãCÙ
Goto 3Ù
IfEndÙ
If B=4Ù
Then Prog "MAP 3"Ù
5ãCÙ
Goto 3Ù
IfEndÙ
If B=5Ù
Then Prog "LABYRINT"Ù
6ãCÙ
Goto 3Ù
IfEndÙ
If B=6Ù
Then Prog "MAP 4"Ù
7ãCÙ
Goto 3Ù
IfEndÙ
If B=7Ù
Then RclPict 2Ù
7ãCÙ
Goto 3Ù
IfEndÙ
Lbl 5Ù
ViewWindow 1,127,0,1,63,0Ù
U=1×Prog "MAP 1"Ù
U=2×Prog "MAP 2"Ù
U=3×Prog "XEG"Ù
U=4×Prog "MAP 3"Ù
U=5×Prog "LABYRINT"Ù
U=6×Prog "MAP 4"Ù
U=7×RclPict 2Ù
Lbl 3Ù
If (U=0 Or U=1) And E=0Ù
Then S=0Ù
Else SãRÙ
IfEndÙ
E=0×5ãP~QÙ
0ãM:0ãGÙ
Vertical 127Ù
Vertical 1Ù
Horizontal 63Ù
Horizontal 1Ù
Text 5,119,"À"Ù
PlotOn P,QÙ
DoÙ
GetkeyãäÙ
LpWhile äÈ64 And äÈ73 And äÈ63 And äÈ53Ù
DoÙ
PãG:QãHÙ
PlotOn P,QÙ
GetkeyãKÙ
If K=48Ù
Then DoÙ
GetkeyãKÙ
If K=29Ù
Then Ù
BãList 1[5]Ù
PãList 1[6]Ù
QãList 1[7]Ù
UãList 1[8]Ù
DãList 1[9]Ù
SãList 1[10]Ù
Goto AÙ
IfEndÙ
LpWhile KÈ53 And KÈ64 And KÈ73 And KÈ63Ù
IfEndÙ
GetkeyÙ
Ans=73×1ãM:M=1×Dsz PÙ
Ans=53×2ãM:M=2×Isz PÙ
Ans=63×3ãM:M=3×Dsz QÙ
Ans=64×4ãM:M=4×Isz QÙ
If PxlTest(64-Q,P)=1Ù
Then If List 1[4]>0Ù
Then "Voulez-vous utiliser une vie"Ù
" "Ù
" -Non"Ù
" -Oui"Ù
For 1㪠To 150:NextÙ
4ãB:5ãZÙ
Prog "FLECHE"Ù
B=4×Goto EÙ
List 1[4]-1ãList 1[4Ù
GãA:HãBÙ
DoÙ
PlotChg A,BÙ
GetkeyãäÙ
LpWhile äÈ53 And äÈ63 And äÈ73 And äÈ64Ù
Else Goto EÙ
IfEndÙ
IfEndÙ
If P>120 And Q>55Ù
Then 1ãGÙ
BreakÙ
IfEndÙ
Isz SÙ
LpWhile 1Ù
Lbl EÙ
ClrTextÙ
SD(List 1[2])ãSÙ
If G=1Ù
Then "GAGNE ·!··!··!·"Ù
"Score :"Ù
2SãSØ
If UÈ0 And UÉList 1[2Ù
Then ClrTextÙ
2S+RãSÙ
"Voulez-vous continuer"Ù
" -Non"Ù
" -Oui"Ù
For 1㪠To 150:NextÙ
3ãB:4ãZÙ
Prog "FLECHE"Ù
If B=4Ù
Then Isz UÙ
Goto 5Ù
IfEndÙ
IfEndÙ
C>List 1[2×CãList 1[2Ù
Else "PERDU"Ù
"Score :"Ù
UÈ0×0ãSÙ
SØ
IfEndÙ
"Argent :"Ù
List 1[3]+(SÁ1000)ãList 1[3Ù
SÁ1000Ø
ClrTextÙ
If S>List 1[1Ù
Then Ù
"VOUS AVEZ BATTU"Ù
"VOTRE MEILLEUR"Ù
"SCORE AVEC : "Ù
SØ
SãList 1[1Ù
IfEndÙ
Goto A
Au soir de votre vie, le seigneur ne comptera pas le nombre de fois ou vous êtes tombés, il comptera le nombre de fois ou vous vous êtes relevés.

Labyrinthe : un jeu de réflexe unique, élu Jeu Du Mois !!!
Darkysun Hors ligne Membre Points: 1747 Défis: 52 Message

Citer : Posté le 27/01/2016 16:12 | #

Bizarre ca jai compte 9 lbl (apres je me suis peut etre trompe)
Je vois que tu as bcp de programme, a la fin de chaque sous programme tu as bien rien mis (enfin tu na pas mis de progr "parc" ? ) pasque dappeller trop de fois cettz fonction peut aussi provoquer des erreurs sauts il me semble :/
Si je ne réponds pas à un post depuis trop longtemps : envoyez-moi un message pour me le rappeler !
Mes programmes
Et bientôt d'autres encore
En C
Cliquer pour enrouler
-Escape the Death
-Mon Fall Down
En Basic
Cliquer pour enrouler
-Mon morpion
-Mon jeu de mains
-Mon starwars
-Mon dessinatout
-Mon niaiseux version 2.0
-Mon niaiseux version 3.0
-Inferno
-Mon super labyrinthe (en cours)
-Mon call of duty en 3D

Mes projets
Cliquer pour enrouler
-Un nouveau ice slider où vous pouvez participer
-Casion (avec Az)



Gab.c Hors ligne Membre Points: 449 Défis: 0 Message

Citer : Posté le 27/01/2016 16:14 | #

Non je n'ai jamais mis de "prog "parc"" ou de "return".
Par ailleurs, je ne vois pas comment diminuer le nombre de "Lbl".
Ce programme est un jeu de labyrinthe que j'ai commencer a programmer il y a une semaine, je suis en seconde, je programme aussi sur Python.
Au soir de votre vie, le seigneur ne comptera pas le nombre de fois ou vous êtes tombés, il comptera le nombre de fois ou vous vous êtes relevés.

Labyrinthe : un jeu de réflexe unique, élu Jeu Du Mois !!!
Darkysun Hors ligne Membre Points: 1747 Défis: 52 Message

Citer : Posté le 27/01/2016 16:16 | #

Et tous tes programmes appeles existent ils ? (Padque la je vois pas dautre choses )
Si je ne réponds pas à un post depuis trop longtemps : envoyez-moi un message pour me le rappeler !
Mes programmes
Et bientôt d'autres encore
En C
Cliquer pour enrouler
-Escape the Death
-Mon Fall Down
En Basic
Cliquer pour enrouler
-Mon morpion
-Mon jeu de mains
-Mon starwars
-Mon dessinatout
-Mon niaiseux version 2.0
-Mon niaiseux version 3.0
-Inferno
-Mon super labyrinthe (en cours)
-Mon call of duty en 3D

Mes projets
Cliquer pour enrouler
-Un nouveau ice slider où vous pouvez participer
-Casion (avec Az)



Eltoredo Hors ligne Modérateur Points: 4301 Défis: 35 Message

Citer : Posté le 27/01/2016 16:19 | #

J'ai compté 10 Lbl avec CTRL + F, vérifie qu'ils sont tous utilisés

Lbl E, 3, 5, 4, 2, 1, B, D, C et A
La procrastination est une vertu. (voir ma description pour comprendre mon raisonnement)
Gab.c Hors ligne Membre Points: 449 Défis: 0 Message

Citer : Posté le 27/01/2016 16:25 | #

Tous mes programmes existes.
Oui je les ai tous utilisé.
Le problème est à goto C.
Au soir de votre vie, le seigneur ne comptera pas le nombre de fois ou vous êtes tombés, il comptera le nombre de fois ou vous vous êtes relevés.

Labyrinthe : un jeu de réflexe unique, élu Jeu Du Mois !!!
Darkysun Hors ligne Membre Points: 1747 Défis: 52 Message

Citer : Posté le 27/01/2016 16:28 | #

Je suis sur tel je ne peux faire ctrl F verifie sil ny a pas plusieurs goto C
Si je ne réponds pas à un post depuis trop longtemps : envoyez-moi un message pour me le rappeler !
Mes programmes
Et bientôt d'autres encore
En C
Cliquer pour enrouler
-Escape the Death
-Mon Fall Down
En Basic
Cliquer pour enrouler
-Mon morpion
-Mon jeu de mains
-Mon starwars
-Mon dessinatout
-Mon niaiseux version 2.0
-Mon niaiseux version 3.0
-Inferno
-Mon super labyrinthe (en cours)
-Mon call of duty en 3D

Mes projets
Cliquer pour enrouler
-Un nouveau ice slider où vous pouvez participer
-Casion (avec Az)



Gab.c Hors ligne Membre Points: 449 Défis: 0 Message

Citer : Posté le 27/01/2016 16:31 | #

Non, il n'y a q'un seul "Goto C".
Au soir de votre vie, le seigneur ne comptera pas le nombre de fois ou vous êtes tombés, il comptera le nombre de fois ou vous vous êtes relevés.

Labyrinthe : un jeu de réflexe unique, élu Jeu Du Mois !!!
Darkysun Hors ligne Membre Points: 1747 Défis: 52 Message

Citer : Posté le 27/01/2016 16:46 | #

Alors je suis desole mais je ne vois pas ou se trouve l'erreur
Si je ne réponds pas à un post depuis trop longtemps : envoyez-moi un message pour me le rappeler !
Mes programmes
Et bientôt d'autres encore
En C
Cliquer pour enrouler
-Escape the Death
-Mon Fall Down
En Basic
Cliquer pour enrouler
-Mon morpion
-Mon jeu de mains
-Mon starwars
-Mon dessinatout
-Mon niaiseux version 2.0
-Mon niaiseux version 3.0
-Inferno
-Mon super labyrinthe (en cours)
-Mon call of duty en 3D

Mes projets
Cliquer pour enrouler
-Un nouveau ice slider où vous pouvez participer
-Casion (avec Az)



Eltoredo Hors ligne Modérateur Points: 4301 Défis: 35 Message

Citer : Posté le 27/01/2016 16:47 | #

Peut-être un bug de curseur alors ou de second menu mal imbriqué ?
La procrastination est une vertu. (voir ma description pour comprendre mon raisonnement)
Gab.c Hors ligne Membre Points: 449 Défis: 0 Message

Citer : Posté le 27/01/2016 17:09 | #

Je ne comprends pas, la version précédente (ci-dessous) marchait très bien.

Filename:PARCOUR
¸ËList 1[1]ÈList 7[1]×0ãList 1[1]Ù
¸ËList 1[2]ÈList 7[2]×1ãList 1[2]Ù
¸ËList 1[3]ÈList 7[3]×0ãList 1[3]Ù
¸ËList 1[4]ÈList 7[4]×0ãList 1[4]Ù
ClsÙ
ViewWindow 1,127,0,1,63,0Ù
RclPict 1Ù
For 1ãA To 500:NextÙ
For 23ãA To 41 Step 6:Text A,3,"                               ":NextÙ
Prog "LAB"Ù
Lbl AÙ
ClrGraphÙ
ClrTextÙ
Locate 7,1,"Parcours"Ù
Locate 2,3,"-Nouvelle partie"Ù
Locate 2,4,"-Scores"Ù
Locate 2,5,"-Boutique"Ù
Locate 2,6,"-Explication"Ù
Locate 2,7,"-Exit"Ù
3ãB:7ãZÙ
For 1㪠To 150:NextÙ
Prog "FLECHE"Ù
B=3×Goto BÙ
B=4×Goto CÙ
B=5×Goto DÙ
If B=6Ù
Then List 1[5]ãBÙ
List 1[6]ãAÙ
List 1[7]ãBÙ
If B=7Ù
Then Ù
¸ËList 1[1]ãList 7[1]Ù
¸ËList 1[2]ãList 7[2]Ù
¸ËList 1[3]ãList 7[3]Ù
¸ËList 1[4]ãList 7[4]Ù
StopÙ
Goto AÙ
Lbl CÙ
ClrTextÙ
Locate 8,1,"Scores"Ù
Locate 1,4,"Niveau max :"Ù
Locate 13,4,List 1[2]-1Ù
Locate 1,6,"Points max :"Ù
Locate 13,6,List 1[1Ù
While KÈ48Ù
GetkeyãK:WhileEndÙ
Goto AÙ
Lbl DÙ
ClrTextÙ
Locate 7,1,"Boutique"Ù
Locate 1,2,List 1[3]Ù
Locate 7,2,"$"Ù
Locate 2,4,"-Une vie (10$) : "Ù
Locate 17,4,List 1[4Ù
For 1㪠To 150:NextÙ
4ãB~ZÙ
Prog "FLECHE"Ù
K=48×Goto AÙ
If B=4Ù
Then If List 1[3]Ê10Ù
Then (List 1[4])+1ãList 1[4Ù
(List 1[3])-10ãList 1[3]Ù
IfEnd:IfEndÙ
Goto DÙ
Lbl BÙ
ClrTextÙ
Locate 9,1,"Mode"Ù
Locate 2,3,"-Normale"Ù
Locate 2,4,"-Grand parcour"Ù
For 1㪠To 150:NextÙ
3ãB:4ãZÙ
Prog "FLECHE"Ù
K=48×Goto AÙ
B=3×Goto 1Ù
If B=4Ù
Then 1ãUÙ
2ãDÙ
Goto 5Ù
IfEndÙ
Lbl 1Ù
0ãUÙ
ClrTextÙ
Locate 7,1,"Difficulte"Ù
Locate 2,3,"-Facile"Ù
Locate 2,4,"-Difficile"Ù
For 1㪠To 150:NextÙ
3ãB:4ãZÙ
Prog "FLECHE"Ù
K=48×Goto BÙ
If B=3Ù
Then 1ãDÙ
Goto 2Ù
IfEndÙ
If B=4Ù
Then 2ãDÙ
Goto 2Ù
IfEndÙ
Goto 1Ù
Lbl 2Ù
ViewWindow 1,127,0,1,63,0Ù
" MAP 1"Ù
" Batons"Ù
" XEG"Ù
" MAP 3"Ù
" Labyrinte"Ù
" Alexis"Ù
" Sentier"Ù
For 1㪠To 150:NextÙ
1ãB:List 1[2]ãZÙ
Prog "FLECHE"Ù
K=48×Goto 1Ù
Lbl 4Ù
If B=1Ù
Then Prog "MAP 1"Ù
2ãCÙ
Goto 3Ù
IfEndÙ
If B=2Ù
Then Prog "MAP 2"Ù
3ãCÙ
Goto 3Ù
IfEndÙ
If B=3Ù
Then Prog "XEG"Ù
4ãCÙ
Goto 3Ù
IfEndÙ
If B=4Ù
Then Prog "MAP 3"Ù
5ãCÙ
Goto 3Ù
IfEndÙ
If B=5Ù
Then Prog "LABYRINT"Ù
6ãCÙ
Goto 3Ù
IfEndÙ
If B=6Ù
Then Prog "MAP 4"Ù
7ãCÙ
Goto 3Ù
IfEndÙ
If B=7Ù
Then RclPict 2Ù
7ãCÙ
Goto 3Ù
IfEndÙ
Lbl 5Ù
U=1×Prog "MAP 1"Ù
U=2×Prog "MAP 2"Ù
U=3×Prog "XEG"Ù
U=4×Prog "MAP 3"Ù
U=5×Prog "LABYRINT"Ù
U=6×Prog "MAP 4"Ù
U=7×RclPict 2Ù
Lbl 3Ù
If U=0 And U=1Ù
Then S=0Ù
Else SãRÙ
0ãSÙ
5ãP~Q:0ãM:0ãGÙ
Vertical 127Ù
Vertical 1Ù
Horizontal 63Ù
Horizontal 1Ù
Text 5,119,"À"Ù
PlotOn P,QÙ
DoÙ
GetkeyãäÙ
LpWhile äÈ64 And äÈ44 And äÈ53 And äÈ56Ù
DoÙ
PãG:QãHÙ
PlotOn P,QÙ
GetkeyãKÙ
If K=48Ù
Then DoÙ
GetkeyãKÙ
LpWhile KÈ53 And KÈ64 And KÈ73 And KÈ63Ù
IfEndÙ
GetkeyÙ
Ans=73×1ãM:M=1×Dsz PÙ
Ans=53×2ãM:M=2×Isz PÙ
Ans=63×3ãM:M=3×Dsz QÙ
Ans=64×4ãM:M=4×Isz QÙ
If PxlTest(64-Q,P)=1Ù
Then If List 1[4]>0Ù
Then "Voulez-vous utiliser une vie"Ù
" "Ù
" -Non"Ù
" -Oui"Ù
For 1㪠To 150:NextÙ
4ãB:5ãZÙ
Prog "FLECHE"Ù
B=4×Goto EÙ
List 1[4]-1ãList 1[4Ù
GãA:HãBÙ
DoÙ
PlotChg A,BÙ
GetkeyãäÙ
LpWhile äÈ53 And äÈ63 And äÈ73 And äÈ64Ù
Else Goto EÙ
IfEndÙ
IfEndÙ
If P>120 And Q>55Ù
Then 1ãGÙ
BreakÙ
IfEndÙ
Isz SÙ
LpWhile 1Ù
Lbl EÙ
ClrTextÙ
SD(List 1[2])ãSÙ
If G=1Ù
Then "GAGNE ·!··!··!·"Ù
"Score :"Ù
2SãSØ
If UÈ0 And UÉList 1[2Ù
Then ClrTextÙ
2S+RãSÙ
"Voulez-vous continuer"Ù
" -Non"Ù
" -Oui"Ù
For 1㪠To 150:NextÙ
3ãB:4ãZÙ
Prog "FLECHE"Ù
If B=4Ù
Then Isz UÙ
Goto 5Ù
IfEndÙ
IfEndÙ
C>List 1[2×CãList 1[2Ù
Else "PERDU"Ù
"Score :"Ù
UÈ0×0ãSÙ
SØ
IfEndÙ
"Argent :"Ù
List 1[3]+(SÁ1000)ãList 1[3Ù
SÁ1000Ø
ClrTextÙ
If S>List 1[1Ù
Then Ù
"VOUS AVEZ BATTU"Ù
"VOTRE MEILLEUR"Ù
"SCORE AVEC : "Ù
SØ
SãList 1[1Ù
IfEndÙ
Goto A


Puis j'ais fait des modifications à d'autre endroits du programme et sa ne marche plus.
Au soir de votre vie, le seigneur ne comptera pas le nombre de fois ou vous êtes tombés, il comptera le nombre de fois ou vous vous êtes relevés.

Labyrinthe : un jeu de réflexe unique, élu Jeu Du Mois !!!
Darkysun Hors ligne Membre Points: 1747 Défis: 52 Message

Citer : Posté le 27/01/2016 17:39 | #

Essaies de faire les mêmes modufs en verifiant a chaque fois si ca marche encore et tu verras bien ou ca bug
Si je ne réponds pas à un post depuis trop longtemps : envoyez-moi un message pour me le rappeler !
Mes programmes
Et bientôt d'autres encore
En C
Cliquer pour enrouler
-Escape the Death
-Mon Fall Down
En Basic
Cliquer pour enrouler
-Mon morpion
-Mon jeu de mains
-Mon starwars
-Mon dessinatout
-Mon niaiseux version 2.0
-Mon niaiseux version 3.0
-Inferno
-Mon super labyrinthe (en cours)
-Mon call of duty en 3D

Mes projets
Cliquer pour enrouler
-Un nouveau ice slider où vous pouvez participer
-Casion (avec Az)



Gab.c Hors ligne Membre Points: 449 Défis: 0 Message

Citer : Posté le 27/01/2016 17:55 | #

Je vient de me rendre compte qu'il me manquait un guillemet.
Le "Erreur saut" est résolut.
Mais maintenant, il me met "Erreur syntaxe" à "Goto B" et à "Goto D"(c'est à peut près au même endroit)???



Ajouté le 27/01/2016 à 18:17 :
Quelqu'un pour m'aider.
Au soir de votre vie, le seigneur ne comptera pas le nombre de fois ou vous êtes tombés, il comptera le nombre de fois ou vous vous êtes relevés.

Labyrinthe : un jeu de réflexe unique, élu Jeu Du Mois !!!
-florian66- Hors ligne Ancien rédacteur Points: 2384 Défis: 20 Message

Citer : Posté le 27/01/2016 18:24 | #

Le truc c'est que l'astuce du List1[a sans le ] ne marche pas donc rajoute en de partout et vérifie tes guillemets
In Arch, I trust ! And you ?
Gab.c Hors ligne Membre Points: 449 Défis: 0 Message

Citer : Posté le 27/01/2016 18:38 | #

J'ai rajouté les ] et vérifié les guillemets, mais sa ne marche toujours pas.


Ajouté le 27/01/2016 à 19:07 :
Help
Au soir de votre vie, le seigneur ne comptera pas le nombre de fois ou vous êtes tombés, il comptera le nombre de fois ou vous vous êtes relevés.

Labyrinthe : un jeu de réflexe unique, élu Jeu Du Mois !!!
1, 2 – Suivante
LienAjouter une imageAjouter une vidéoAjouter un lien vers un profilAjouter du codeCiterAjouter un spoiler(texte affichable/masquable par un clic)Ajouter une barre de progressionItaliqueGrasSoulignéAfficher du texte barréCentréJustifiéPlus petitPlus grandPlus de smileys !
Cliquez pour épingler Cliquez pour détacher Cliquez pour fermer
Alignement de l'image: Redimensionnement de l'image (en pixel):
Afficher la liste des membres
:bow: :cool: :good: :love: ^^
:omg: :fusil: :aie: :argh: :mdr:
:boulet2: :thx: :champ: :whistle: :bounce:
valider
:) ;) :D :p
:lol: 8) :( :@
0_0 :oops: :grr: :E
:O :sry: :mmm: :waza:
:'( :here: ^^ >:)

→ ⇒ √ Σ ∫ ≠ ≥ ≤ π θ ◢ ± α β γ δ Δ σ ≈ ∞ ∈ λ
Veuillez donner la réponse en chiffre
Vous devez activer le Javascript dans votre navigateur pour pouvoir valider ce formulaire.

Si vous n'avez pas volontairement désactivé cette fonctionnalité de votre navigateur, il s'agit probablement d'un bug : contactez l'équipe de Planète Casio.

Planète Casio v4.3 © créé par Neuronix et Muelsaco 2004 - 2024 | Il y a 171 connectés | Nous contacter | Qui sommes-nous ? | Licences et remerciements

Planète Casio est un site communautaire non affilié à Casio. Toute reproduction de Planète Casio, même partielle, est interdite.
Les programmes et autres publications présentes sur Planète Casio restent la propriété de leurs auteurs et peuvent être soumis à des licences ou copyrights.
CASIO est une marque déposée par CASIO Computer Co., Ltd