Gamme TI-82
Partager sur Facebook Fil RSS Imprimer la page
Cacher les résultats

Résultat de la recherche



Poster un nouveau sujet Poster une réponse
Problème : Snake
Auteur Message
pixises
Invité
Posté le : Lun 01 Fév 2010, 22:02   Citer 

Bonjour,

J'ai trouvé sur un site internet le programme ci-dessous et je l'ai rentré dans ma calculette Ti-82 stats.fr. Je le lance, je vais dans 1:PLAY et là, ERR : ETIQUETTE. Seule possibilité quitter.
Pouvez-vous m'aider à résoudre ce problème s'il-vous plait happy.gif



:ClrHome
:Menu("MOFROG","PLAY",M,"INSTRUCTIONS",Z,"QUIT",R)
:Lbl R
:ClrHome
:Stop
:Lbl Z
:ClrHome
:Disp "USE THE ARROW"
:Disp "KEYS TO MOVE THE"
:Disp "O LOOKING THING."
:Pause
:ClrHome
:Disp "HIT THE Ä. DONT"
:Disp "RUN INTO YERSELF"
:Disp "AND DONT HIT THE"
:Disp "EDGE OF THE"
:Disp "SCREEN."
:Pause
:ClrHome
:Disp ""
:Disp "ENTER PAUSES IT."
:Pause
:Lbl M
:ClrHome
:6üN
:
:
:
:
:
:
:
:Lbl 8
:
:
:
:99üdim L…
:99üdim L†
:{16,8}üdim [E]
:Fill(0,[E]
:1ü[E](15,8
:1ü[E](16,8
:0üL
:1üO
:2üN
:2üY
:1üH
:0üV
:1üX
:XüL…(O
:YüL†(O
:ClrHome
:getKeyüA
:Goto 4
:Lbl 1
:getKeyüA
:If Aø0
:Then
:If A=105
:Goto 0
:If (A<27)(A>23
:Then
:ú(A=25)üV
:A-25üH
:End
:If A=34
:Then
:0üH
:1üV
:End
:End
:H+XüX
:V+YüY
:If (X=0)+(X=17)+(Y=0)+(Y=9
:Goto 5
:If [E](X,Y
:Goto 5
:Output(Y,X,"O"
:1ü[E](X,Y
:XüL…(N
:YüL†(N
:N+1-99(N=99)üN
:If (X=F)(Y=G
:Goto 4
:L…(O)üI
:L†(O)üJ
:0ü[E](I,J
:Output(J,I," "
ahh.gif+1-99(O=99)üO
:Goto 1
:Lbl 4
:int (rand*16+1)üF
:int (rand*8+1)üG
:If [E](F,G
:Goto 4
:L+1üL
:Output(8,15,int (L/10
:Output(8,16,L-int (L/10)*10
:Output(G,F,"Ä")
:
:Goto 1
:Lbl 5
:X-HüX
:Y-VüY
:If L=1
:Then
:úHüH
:úVüV
:Goto 1
:End
:For(A,1,9
:Y-AüF
:Y+AüG
:If Y>A
:Output(F,X,"*"
:If Y+A<9
:Output(G,X,"*"
:If Xù2A
:Output(Y,X-2A+1,"*"
:If X+2A<18
:Output(Y,X+2A-1,"*"
:If (Y>A)(X-A>0
:Output(F,X-A,"*"
:If (Y>A)(X+A<17
:Output(F,X+A,"*"
:If (G<9)(X>A
:Output(G,X-A,"*"
:If (G<9)(X+A<17
:Output(G,X+A,"*"
:End
:ClrHome
:If L÷29
:Then
:Output(2,5,"COME ON!"
:Output(4,2,"ONLY"
:Output(4,7,L
:Output(4,10,"POINTS?"
:Output(7,5,"PRACTICE!")
:Pause
:End
:If L>29 and L<49
:Then
:Disp "GOOD WORK!"
:Pause
:ClrHome
:
:End
:If Lù45 and L<59
:Then
:ClrHome
:Disp "YOURE GETTING"
:Disp "PRETTY GOOD!"
:Pause
:ClrHome
:Disp "KEEP TRYING,"
:Pause
:Disp "YOURE ALMOST GOD"
:Pause
:ClrHome
:End
:If Lù60 and L<150
:Then
:ClrHome
:Pause
:Disp "YOU WON!"
:Pause
:Disp "CONSIDERING...."
:Pause
:ClrHome
:Disp "I GUESS YOU WONT"
:Disp "GET MUCH HIGHER."
:Pause
:ClrHome
:Disp " I CONSIDER YOU"
:Disp " GOD"
:Pause
:ClrHome
:Disp ""
:Disp ""
:Disp " THE"
:Disp " END"
:Pause
:ClrHome
:Stop
:Goto 8
:Lbl 0
:Output(G,F," "
:Output(4,4,"[ PAUSE ]"
:Output(6,2,"PRESS 5 TO END"
:0üA
:While A=0
:getKeyüA
:End
:If A=83
:Then
:ClrHome
:Stop
:End
:For(J,4,6,2
:Output(J,2," "
:For(I,2,15
:If [E](I,J
:Output(J,I,"O"
:End
:End
:Output(G,F,"Ä"
:Goto 1

  Haut de page Bas de page 
 
pixises
Invité
Posté le : Lun 01 Fév 2010, 22:08   Citer 

Finalement c'est bon, l'erreur venait de moi. Mais j'ai un nouveau problème :
le programme se lance correctement, le snake attarque le premier *pi* puis... plus rien. Si j'arrète le jeu je suis reportée à cette ligne :


:0ü[E](I,J
:Output(J,I," "
ahh.gif+1-99(O=99)üO
:Goto 1
:Lbl 4
:int (rand*16+1)üF
:int (rand*8+1)üG
:If [E](F,G
:Goto 4
:L+1üL
:Output(8,15,int (L/10
:Output(8,16,L-int (L/10)*10

  Haut de page Bas de page 
 
Google_AdSense



Publicité    



 
Rézus
Avatar

Autorisation : Membre
Nb de messages : 861
Inscrit le : Sam 20 Jui 2009, 20:35
Posté le : Lun 01 Fév 2010, 22:10   Citer 

Il faut que tu regardes pour chaque goto si il y a bien le lbl correspondant dans le programme(c'est à dire pour goto 1 si il ya le lbl 1) .Je crois qu'il manque le lbl 0.

 Adresse email Haut de page Bas de page 
 
Poster un nouveau sujet Poster une réponse





  Powered by Fire-Soft-Board v1.0.10 © 2004 - 2016 Groupe FSB
Page générée en 9 requêtes
BlackOne par Grimmlink
 

Site hébergé par Free Page sous licence creative commons Page validée par le W3C (XHTML 1.0 Transitional) Feuille de style validée par le W3C Flux RSS 2.0 valide Page étiquetée par l'ICRA Page testée par Ocawa