Autorisation : Membre
Nb de messages : 1
Inscrit le : Dim 07 Sep 2008, 6:49
Posté le : Dim 07 Sep 2008, 6:56
Bonjour,
Ayant reçu une ti-82 il n'y a pas longtemps jai entendu dire qu'on pouvait y mettre des programme sou jeu. J'ai voulu mettr eun jeu mais n'ayant pas de cables je dois tout écrire moi même.Je dois ecrire ceci (le ü est en fait une flèche vers la droite (touche sto)):
Code
:PlotsOff :FnOff :FullScreen:AxesOff:GridOff:ClrDraw
:Text(20,28,"CAMBODGE
:Text(26,40,"PAR
:Text(32,31,"ERIC PIEL
:Text(38,38,"1996
:0üXmin:1ü¾X
:0üYmin:1ü¾Y
:Lbl D
:10üT
:[[0ü[E] [couleur=#FF0000]--------------- L'erreur est ici supposément[/couleur]
:{17,11üdim [E]
:17üJ
:If E=1 and P<70 and P>0:PüJ
:For(I,1,Ans
:int 15rand+2üU
:int 9rand+2üV
:If [E](U,Ans:I-1üI
:1ü[E](U,V
:End
:ClrDraw
:For(I,1,55,6
:Line(2,I,92,I
:End
:For(I,2,92,6
:Line(I,1,I,55
:End
:Text(0,59,"SCORE:0
:Text(31,46,"+
:Line(46,31,50,31
:Text(0,8,"A COTE:
:8üX:5üY:0üS
:Lbl A
:Repeat Ans
:getKeyüI
:End
:XüU:YüV
:If I=24 or I=72 or I=82 or I=92:X-1üX
:If I=25 or I=73 or I=72 or I=74:Y-1üY
:If I=26 or I=84 or I=74 or I=94:X+1üX
:If I=34 or I=93 or I=94 or I=92:Y+1üY
:min(15,max(1,XüX
:min(9,max(1,YüY
:If X=U:If YøV:Goto V
:If I=105 or I=83:Goto C
:If I=11:Goto D
:If I=15:Goto F
:Goto A
:Lbl C
:If 1=[E](X+1,Y+1
:Then
:Text(0,2,"VOUS ETES MORT!
:Goto F
:End
:If not [E](X+1,Y+1:Then
:Goto 2
:0üT
:For(I,0,2
:For(J,0,2
:If I=1 and J=1:2üJ
:T+(0<[E](X+I,Y+JüT
:End
:End
:Lbl 2
:
:sum ({0,0,0,0,0,0,0,0}<{[E](X,Y),[E](X+1,Y),[E](X+2,Y),[E](X,Y+1),[E](X+2,Y+1),[E](X,Y+2),[E](X+1,Y+2),[E](X+2,Y+2üT
:Lbl 1
:Ans-9ü[E](X+1,Y+1
:S+1üS:Text(0,81,S
:End
:Text(0,32,T
:If S<135-J:Goto A
:Text(0,0,"VOUS AVEZ GAGNE!
:Goto F
:Lbl V
:If T<9:Then
:Text(V6+1,U6-2,T
:Else
:Text(V6+1,U6-2,"
:End
:Line(U6-2,61-V6,U6+2,61-V6
:9+[E](X+1,Y+1üT
:If Ans<9:Then
:Text(0,32,Ans
:Else
:Text(0,32,"
:End
:Text(Y6+1,X6-2,"+
:Line(X6-2,61-Y6,X6+2,61-Y6
:Goto A
:Lbl F
:For(I,1,9
:For(J,1,15
:If 1=[E](J+1,I+1
:Then
:Text(I6+1,J6-2,"X
:Line(J6-3,61-I6,J6+2,61-I6
:End
:End
:End
:[[0ü[E]
donc voilà si quelqu'un sait si la personne qui a créé le jeu est dans l'erreur ou comemnt le corriger ce serait très gentil. Merci.
Autorisation : Membre
Nb de messages : 3293
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Dim 07 Sep 2008, 9:09
C'est normal qu'il y est une erreur car [E] est une matrice et non une variable.
Donc plusieurs solutions:
-C'est la lettre E et non la matrice E,
-C'est bien la matrice E mais il manque les coordonées pour mettre le 0 dans celle-ci,
-Les [[ provoquent l'erreure.
Vu l'emplacement et ce qui suis, la ligne devrait être 0->E.
Sangohan38
antoine2055 Invité
Posté le : Dim 07 Sep 2008, 16:08
Merci beaucoup il n'y a plus d'erreur à cet endroit mais maintenant une erreur de syntaxe là:
Code
:PlotsOff :FnOff :FullScreen:AxesOff:GridOff:ClrDraw
:Text(20,28,"CAMBODGE
:Text(26,40,"PAR
:Text(32,31,"ERIC PIEL
:Text(38,38,"1996
:0üXmin:1ü¾X
:0üYmin:1ü¾Y
:Lbl D
:10üT
:[[0ü[E]
:{17,11üdim [E][couleur=#FF0000]--------------- L'erreur est ici [/couleur]
:17üJ
:If E=1 and P<70 and P>0:PüJ
:For(I,1,Ans
:int 15rand+2üU
:int 9rand+2üV
:If [E](U,Ans:I-1üI
:1ü[E](U,V
:End
:ClrDraw
:For(I,1,55,6
:Line(2,I,92,I
:End
:For(I,2,92,6
:Line(I,1,I,55
:End
:Text(0,59,"SCORE:0
:Text(31,46,"+
:Line(46,31,50,31
:Text(0,8,"A COTE:
:8üX:5üY:0üS
:Lbl A
:Repeat Ans
:getKeyüI
:End
:XüU:YüV
:If I=24 or I=72 or I=82 or I=92:X-1üX
:If I=25 or I=73 or I=72 or I=74:Y-1üY
:If I=26 or I=84 or I=74 or I=94:X+1üX
:If I=34 or I=93 or I=94 or I=92:Y+1üY
:min(15,max(1,XüX
:min(9,max(1,YüY
:If X=U:If YøV:Goto V
:If I=105 or I=83:Goto C
:If I=11:Goto D
:If I=15:Goto F
:Goto A
:Lbl C
:If 1=[E](X+1,Y+1
:Then
:Text(0,2,"VOUS ETES MORT!
:Goto F
:End
:If not [E](X+1,Y+1:Then
:Goto 2
:0üT
:For(I,0,2
:For(J,0,2
:If I=1 and J=1:2üJ
:T+(0<[E](X+I,Y+JüT
:End
:End
:Lbl 2
:
:sum ({0,0,0,0,0,0,0,0}<{[E](X,Y),[E](X+1,Y),[E](X+2,Y),[E](X,Y+1),[E](X+2,Y+1),[E](X,Y+2),[E](X+1,Y+2),[E](X+2,Y+2üT
:Lbl 1
:Ans-9ü[E](X+1,Y+1
:S+1üS:Text(0,81,S
:End
:Text(0,32,T
:If S<135-J:Goto A
:Text(0,0,"VOUS AVEZ GAGNE!
:Goto F
:Lbl V
:If T<9:Then
:Text(V6+1,U6-2,T
:Else
:Text(V6+1,U6-2,"
:End
:Line(U6-2,61-V6,U6+2,61-V6
:9+[E](X+1,Y+1üT
:If Ans<9:Then
:Text(0,32,Ans
:Else
:Text(0,32,"
:End
:Text(Y6+1,X6-2,"+
:Line(X6-2,61-Y6,X6+2,61-Y6
:Goto A
:Lbl F
:For(I,1,9
:For(J,1,15
:If 1=[E](J+1,I+1
:Then
:Text(I6+1,J6-2,"X
:Line(J6-3,61-I6,J6+2,61-I6
:End
:End
:End
:[[0ü[E]
Je me demandais aussi si je dois changer tous les [E] par des E. En fesant cela où il y a une erreur de syntaxe, je me retrouve avec une data error. Deplus malheureusement en fesant ceci j'ai trop supprimé et maintenant les donnée de la ligne en dessous se sont retrouvé sur cette ligne. Y a t'il un moyen de rajouter une ligne sans supprimer l'autre en dessous?Merci.
Autorisation : Membre
Nb de messages : 3293
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Lun 08 Sep 2008, 20:13
Pour rajouter une ligne, il faut appuyer sur 2nd+Del.
Ensuite c'est les [E] qu'il faut mettre (dans le menu Matrix)
Pour ton erreur, tape {17,11->dim[E] ça devrait marcher.
Enfin, vu l'aspect du programme, je pense qu'il ne marchera quand même pas à la fin.
