Erreur Syntaxe mais je vois pas où...
Posté le 11/06/2016 10:53
Bonjour,
Sur TBCM j'ai une erreur Syntaxe... Le débuggeur m'indique une seule erreur : un nombre de guillemets impairs (73)... Mais étant donné que j'utilise Locate ça devrait pas poser de problèmes normalement...
Filename:LVL1
File 5Ù
DoÙ
'Premier 0 = SautÙ
'0 nÑ2 = Niv fini au moins une foisÙ
'0 nÑ3 = MortsÙ
'0 nÑ4 = En cours de saut.Ù
'0 nÑ5 = Niveau finiÙ
20ãªÙ
5ãäÙ
2ãFÙ
RanBin#(1,999)ãCÙ
{0,0,0,0,0,0}ãList 1Ù
[[1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1][1,0,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1][1,0,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1][1,0,3,3,3,3,3,3,3,3,3,3,0,0,0,0,0,0,0,0,1][1,0,0,0,0,0,0,0,0,0,0,0,3,3,0,3,3,3,0,0,1][1,0,0,0,0,0,0,0,0,0,0,0,0,0,4,0,0,0,3,3,1][1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1]]ãMat AÙ
Mat AãMat BÙ
1ãYÙ
1ãXÙ
For 1ãY To 7Ù
For 1ãX To 21Ù
Mat A[Y,X]=0=>Locate X,Y,""Ù
Mat A[Y,X]=1=>Locate X,Y,"#E6A4"Ù
Mat A[Y,X]=2=>Locate X,Y,"#E6A5"Ù
Mat A[Y,X]=3=>Locate X,Y,"#E6B2"Ù
Mat A[Y,X]=4=>Locate X,Y,"#E59B"Ù
NextÙ
NextÙ
20ãXÙ
5ãYÙ
Locate X,Y,"ä"Ù
20ãXÙ
5ãYÙ
0ãGÙ
0ãPÙ
DoÙ
For 0ãA To 232Ù
NextÙ
0ãMÙ
GetkeyãMÙ
If M=28 And Mat A[Y+1,X]È0Ù
Then Ù
Dsz YÙ
Locate X,Y,"ä"Ù
Locate X,Y+1," "Ù
Else If M=28 And Mat A[Y+1,X]=0Ù
Then Ù
Isz YÙ
Locate X,Y,"ä"Ù
Locate X,Y-1," "Ù
IfEndÙ
IfEndÙ
If M=0 And Mat A[Y+1,X]=0Ù
Then Ù
Isz YÙ
Locate X,Y,"ä"Ù
Locate X,Y-1," "Ù
IfEndÙ
If M=27 And Mat A[Y,X+1]=0Ù
Then Ù
Isz XÙ
Locate X,Y,"ä"Ù
Locate X-1,Y," "Ù
If Mat A[Y+1,X]=0Ù
Then Ù
Isz YÙ
Locate X,Y,"ä"Ù
Locate X,Y-1," "Ù
IfEndÙ
IfEndÙ
If M=38 And Mat A[Y,X-1]=0Ù
Then Ù
Dsz XÙ
Locate X,Y,"ä"Ù
Locate X+1,Y," "Ù
If Mat A[Y+1,X]=0Ù
Then Ù
Isz YÙ
Locate X,Y,"ä"Ù
Locate X,Y-1," "Ù
IfEndÙ
IfEndÙ
If Mat A[Y+1,X]=2 Or Mat A[Y-1,X]=2 Or Mat A[Y,X-1]=2 Or Mat A[Y,X+1]=2Ù
Then Ù
1ãGÙ
Dsz XÙ
Locate X,Y,"ä"Ù
Locate X+1,Y," "Ù
IfEndÙ
If Mat A[Y+1,X]=4Ù
Then Ù
1ãPÙ
IfEndÙ
LpWhile P-1 And G-1 And M-47Ù
If P=1Ù
Then Ù
ClrTextÙ
Locate 1,1,"Tu es mort ·!·"Ù
Locate 4,3,"RejouerÙ
Locate 4,5,"Retour au menu"Ù
Locate 4,7,"Quitter"Ù
Locate 1,3,"~#E69F"Ù
1ãXÙ
3ãYÙ
1ãCÙ
DoÙ
For 0ãA To 232Ù
NextÙ
GetkeyãVÙ
If V=28Ù
Then Ù
If C=2 Or C=3Ù
Then Ù
Dsz CÙ
Y-2ãYÙ
Locate X,Y,"~#E69F"Ù
Locate X,Y+2," "Ù
IfEndÙ
IfEndÙ
If V=37Ù
Then Ù
If C=1 Or C=2Ù
Then Ù
Isz CÙ
Y+2ãYÙ
Locate X,Y,"~#E69F"Ù
Locate X,Y-2," "Ù
IfEndÙ
IfEndÙ
LpWhile V-31Ù
C=1×ClrTextÙ
C=2×Prog "MENUTBCM"Ù
C=3×ClrTextÙ
C=3×Locate 1,1,"Au revoir ·!· [@E745@E758@E745]"Ù
C=3×StopÙ
IfEndÙ
If G=1Ù
Then Ù
ClrTextÙ
Locate 5,3,"Tu as fini le"Ù
Locate 7,5,"#E670#E60F#E64C#E644#E640#E648 1·!·"Ù
Locate 17,7,"#E6A1@E745@E758@E745#E6A2"Ù
For 0ãA To 232Ù
NextÙ
DoÙ
GetkeyÙ
LpWhile Ans-31Ù
ClrTextÙ
ClsÙ
Prog "MENUTBCM"Ù
IfEndÙ
LpWhile 1
Voilà le Code qui plante...
Citer : Posté le 11/06/2016 11:16 | #
Si t'as un nombre de guillemets impair, faut pas s'étonner. ><
Et l'erreur syntaxe, elle arrive sur quelle ligne ?
Citer : Posté le 11/06/2016 11:17 | #
Si t'as un nombre de guillemets impair, faut pas s'étonner. ><
Ben si je me rappelle bien avec les Locate on a pas forcément besoin de fermer nan ? -_-
Ajouté le 11/06/2016 à 11:17 :
Si t'as un nombre de guillemets impair, faut pas s'étonner. ><
Et l'erreur syntaxe, elle arrive sur quelle ligne ?
A la toute fin... Après le LpWhile 1
olerontentasesennéberlariprent
Merci pour ce mot vraiment bizarre Totoyo
Citer : Posté le 11/06/2016 11:25 | #
Et tu as vérifié ton sous programme "MENUTCM" ?
Citer : Posté le 11/06/2016 11:26 | #
Euh nan ça pourrait venir de là ?
olerontentasesennéberlariprent
Merci pour ce mot vraiment bizarre Totoyo
Citer : Posté le 11/06/2016 11:27 | #
Je vois qu'il manque un guillemet ici si personne ne te l'a fait remarquer.
Citer : Posté le 11/06/2016 11:28 | #
Je vois qu'il manque un guillemet ici si personne ne te l'a fait remarquer.
Il me l'avait fait remarquer Programateur, mais avec les Locate y a pas besoin de fermer si je me rappelle bien...
olerontentasesennéberlariprent
Merci pour ce mot vraiment bizarre Totoyo
Citer : Posté le 11/06/2016 11:29 | #
Je sais pas mais vu que tu l'appelle c'est possible !
Ça expliquerait qu'en arrivant à la fin, LpWhile 1 soit considéré comme du texte... d'où l'erreur !
Après je sais pas...
Citer : Posté le 11/06/2016 11:29 | #
Je sais pas mais vu que tu l'appelle c'est possible !
Ça expliquerait qu'en arrivant à la fin, LpWhile 1 soit considéré comme du texte... d'où l'erreur !
Après je sais pas...
Ah ouuuuui possible bon je vais tenter et espérer que ça soit bien ça...
olerontentasesennéberlariprent
Merci pour ce mot vraiment bizarre Totoyo
Citer : Posté le 11/06/2016 11:30 | #
Et bien ferme quand-même et essaye
Citer : Posté le 11/06/2016 11:32 | #
Ah ouep effectivement merci pour votre aide précieuse je viens de fermer et c'était ça. Bon, déjà j'avais pas vu ce problème (ouep je suis aveugle
EDIT :
Du coup voilà Niveau 1 fini ENFIN !
olerontentasesennéberlariprent
Merci pour ce mot vraiment bizarre Totoyo