Forum

Catégorie : Support
Forum : TI-82 STATS.fr
Vues : 1462
Réponses : 19
Type : discussion
Etat : réponses autorisées
Avertissement :
Il s'agit d'une page optimisée pour la navigation mobile. Voir la page originale.

Jeux du snake beug

Olvor le 05/02/2012 à 03:51
Bonjour bigmouth.gif
donc après avoir passer enviton 2h a recopier ca (voir 3h avec toute les choses que j'ai chercher crazy.gif ) :


Code

EffDessin
0=>Xmin
94=>Xmax
(-)62=>Ymin
0=>Ymax
AxesNAff
FonctNAff
16=>A:18=>B:44=>C:77=>D:1=>E:2=>N:0=>O
7=>dim(Liste6
1=>P
Goto S
Lbl R
EffEcr:Disp "BLOQUE
Pause
Lbl S
Menu("NIVEAU","",A,"",B,"",C,"",D,"",E,"",F,"",G
Lbl E
If 39>Liste6(4:Goto R
5=>P:38=>B
For(ø,23,68,5
For(Z,13,16
Ligne(ø,Z-ø,ø+3,Z-ø
End
End
Goto A
Lbl F
If 39>Liste6(5:Goto R
26=>A:6=>P
For(ø,42,45
Ligne(8,20-ø,86,20-ø
Ligne(8,(-)ø,27,(-)ø
Ligne(67,(-)ø,86,(-)ø
Ligne(ø-14,(-)7,ø-14,(-)21
Ligne(ø-14,(-)32,ø-14,(-)57
Ligne(ø+21,(-)32,ø+21,(-)57
Ligne(ø+21,(-)7,ø+21,(-)10
End
Goto A
Lbl G
If 39>Liste6(6:Goto R
6=>A:7=>P
For(ø,1,15
13+5ent(NbrAléat14=>I
5ent(NbrAléat8+3=>J
For(Z,0,3
Ligne(I,Z-J,I+3,Z-J
End
End
Goto A
Lbl C
3=>P
Lbl D
If 39>Liste6(3-ent(P/3:Goto R
For(ø,7,10
For(Z,0,45,45
Ligne(8,(-)ø-Z,41,(-)ø-Z
Ligne(53,(-)ø-Z,86,(-)ø-Z
End
For(Z,1,76,75
Ligne(ø+Z,(-)11,ø+Z,(-)25
Ligne(ø+Z,(-)37,ø+Z,(-)51
End:End
If P=3:Goto A
3=>P
Lbl B
If 39>Liste6(P:Goto S
For(ø,27,35
Ligne(28,(-)ø,66,(-)ø
End
Ligne(32,(-)31,62,(-)31,0
P+1=>P
Lbl A
If .7349=partDéc(Liste6(P:Liste6(P=>O
EffListe Liste4
EffListe Liste5
99=>dim(Liste4
99=>dim(Liste5
For(ø,1,6,1.4
Ligne(88,(-)ent(ø),6,(-)ent(ø)
End
Ligne(6,(-)57,88,(-)57
Ligne(88,(-)56,88,(-)6
Ligne(6,(-)6,6,(-)56
Texte(0,13," SCORE : 3
Texte(0,53," HIGH : ",ent(O
Lbl 5
(-)8-5ent(NbrAléat10=>I
8+5ent(NbrAléat16=>J
If pxl-Test((-)I,J:Goto 5
Ligne(J,I,J+2,I-2
Ligne(J,I-2,J+2,I
Goto 3
Lbl 2
6+50partDéc((A+C)/50=>A
8+80partDéc((B+D)/80=>B
If pxl-Test(A+2,B:Goto 4
Texte(A,B,"º
Lbl 3
arrondi(1+NpartDéc(E/N),0=>E
Texte(Liste4(E),Liste5(E),"[4 espaces]
A=>Liste4(E:B=>Liste5(E
codeTouch(=>K
If K=0:Goto 2
If D=72:Then
If K=24:67=>D
If K=26:77=>D
If 1=abs(K-25:44=>C
Goto 2:End
If C[pas égal à]44:Goto 2
If K=25:39=>C
If K=34:49=>C
If K=25 ou K=34:72=>D
Goto 2
Lbl 4
Texte(A,B,"º
Ligne(B+1,(-)A-3,B+2,(-)A-2
If (-)I[pas égal à]A+2 ou J[pas égal à]B ou N=99:Goto Q
N+1=>N
Texte(0,38,N+1
Goto 5
Lbl Q
If N+1>O:N+1.7349=>Liste6(P
Texte(27,31,"GAME OVER
Pause
EffEcr
Output(2,5,"SNAKE NN
Output(3,3,"VERSION  1.0
Output(5,5,"NOUFNOUF
Output(6,5,"06/10/06

j'ai un beug d'affichage après la passage du snake il reste des trace qui rend le jeux très dur a voir
quelqu'un pourrait corrigée et me dire dou vien le beug ?

merci d'avance, cordiamlement OLvor happy.gif
tapenad le 05/02/2012 à 10:09
essaie ça:
Texte(Liste4(E),Liste5(E),"[4 espaces]"
les guillemets pour les espaces a la fin sont obligatoires...
sandro le 05/02/2012 à 13:54
ça, je crois vraiment pas : les guillemets en fin de ligne sont TOUJOURS facultatifs.

Sandro
Olvor le 05/02/2012 à 14:13
salut bigmouth.gif
merci de me répondre mais faudrait s'accordé sur la raison ^^ minied.gif
Olvor le 05/02/2012 à 14:19
re
en fait le beug c'est que j'ai mi les 4espace dans le [ ] crazy.gif mais j'ai un beug de score ........ mtn
linkakro le 05/02/2012 à 16:51
Quand tu dis "sans le [ ]", ça désigne la touche espace ou des crochets ?
En tout cas il fallait écrire quatre espaces.
Les guillemets de fin sont facultatifs mais permettent de faciliter la relecture du code.

Décrit-nous plus en détails ce qui se passe au niveau du score.
(défaut d'affichage ? erreur de domaine ? mémorisation des records ? ...)
Code
Texte(0,38,N+1)  // à vérifier

Liste6 désigne L6 saisi avec 2nde+6.

Texte(0,53," HIGH : ",ent(O   // O est la lettre O.
Olvor le 06/02/2012 à 00:30
re bigmouth.gif et merci de s'occuppé de moi happy.gif
donc pour les []

j'ai fait sa :
Code
Texte(Liste4(E),Liste5(E),"[    ]


au lieu de :
Code
Texte(Liste4(E),Liste5(E),"    "


et donc pour le score je commence directement a 3 puis je passe a 33 et après sa suis bien 34.35.35.36.37.etc...
linkakro le 06/02/2012 à 00:46
Enlève ces crochets, ne touche pas aux guillemets du début, et ce sera parfait.

Je crois que la position d'affichage du score initial et la position d'affichage régulier du score sont décalés l'un par rapport à l'autre.
Texte(0,34,N+1) devrait régler le problème.
Olvor le 06/02/2012 à 00:51
re
je suis débille j'ai meme pas donner le bon code tenez celuil la c'est le bon
crazy.gif crazy.gif crazy.gif

Code
EffDessin
0=>Xmin
94=>Xmax
(-)62=>Ymin
0=>Ymax
AxesNAff
FonctNAff
6=>A:8=>B:44=>C:77=>D:1=>E:2=>N:0=>O
1=>dim(Liste6
If .7349=partDéc(Liste6(1:Liste6(1=>O
EffListe Liste4
EffListe Liste5
99=>dim(Liste4
99=>dim(Liste5
For(ø,1,6,1.4
Ligne(88,(-)ent(ø),6,(-)ent(ø)
End
Ligne(6,(-)57,88,(-)57
Ligne(88,(-)56,88,(-)6
Ligne(6,(-)6,6,(-)56
Texte(0,13," SCORE : 3
Texte(0,53," HIGH : ",ent(O
Lbl 5
(-)8-5ent(NbrAléat10=>I
8+5ent(NbrAléat16=>J
If pxl-Test((-)I,J:Goto 5
Ligne(J,I,J+2,I-2
Ligne(J,I-2,J+2,I
Goto 3
Lbl 2
6+50partDéc((A+C)/50=>A
8+80partDéc((B+D)/80=>B
If pxl-Test(A+2,B:Goto 4
Texte(A,B,"º
Lbl 3
arrondi(1+NpartDéc(E/N),0=>E
Texte(Liste4(E),Liste5(E),"[4 espaces]
A=>Liste4(E:B=>Liste5(E
codeTouch(=>K
If K=0:Goto 2
If D=72:Then
If K=24:67=>D
If K=26:77=>D
If 1=abs(K-25:44=>C
Goto 2:End
If C[pas égal à]44:Goto 2
If K=25:39=>C
If K=34:49=>C
If K=25 ou K=34:72=>D
Goto 2
Lbl 4
Texte(A,B,"º
Ligne(B+1,(-)A-3,B+2,(-)A-2
If (-)I[pas égal à]A+2 ou J[pas égal à]B ou N=99:Goto Q
N+1=>N
Texte(0,38,N+1
Goto 5
Lbl Q
If N+1>O:N+1.7349=>Liste6(1
Texte(27,31,"GAME OVER
Pause
EffEcr
Output(2,5,"SNAKE NN
Output(3,3,"VERSION  1.0
Output(5,5,"NOUFNOUF
Output(6,5,"06/10/06
Olvor le 06/02/2012 à 01:00
re bigmouth.gif
ok merci =)
alors mtn je commence a 3 et ca ce poursui normal (3.4.5.6.7.8.9.etc...)
Olvor le 13/02/2012 à 18:43
bonjour, bigmouth.gif
heu svp aider moi
le score beug et je passe de 0 a 4 au début puis sa continu normal (4.5.5.6.7.8.9)
merci d'avence bigmouth.gif
linkakro le 13/02/2012 à 18:56
Code
Texte(0,53," HIGH : ",ent(O   // O est la lettre O.
Olvor le 14/02/2012 à 17:34
re happy.gif
alors remplacé 0 -> O :
na rien changer crazy.gif
c'est bizar .......
linkakro le 14/02/2012 à 17:56
Alors on a changé de code et tu as obtenu des problèmes que tu n'avais pas avant...

Sinon ce que je t'ai indiqué dans mon dernier message n'a pas d'influence sur ton problème car la ligne affiche le record et non le score.

Code
2=>N:0=>O  // Au début

Texte(0,13," SCORE : 3
Texte(0,53," HIGH : ",ent(O

Texte(0,38,N+1
Olvor le 14/02/2012 à 22:45
re happy.gif
excuse moi mais je n'est pas bien comprit ce que tu me damnde de fair
linkakro le 14/02/2012 à 23:50
Je te propose de relire les lignes de codes contenus dans la balise code.
Et si ce n'est toujours pas le lieu des erreurs, on en cherchera d'autres.
Olvor le 22/02/2012 à 18:38
re
excuse moi de répondre bcp de temps après ...
heu oui mais je voi pas d'erur , et j'en est meme corrigé ici genre pour ne pas commencé a 3 mais a 0

FAUX
Code
Texte(0,13," SCORE : 3



BON
Code
Texte(0,13," SCORE : 0


et aussi pour ne pas que lorsque l'on attrape une pomme ou ... ne pas passé de 0
à 01 (et donc avent 3 *mange une pomme* 31)

FAUX
Code
Texte(0,38,N+1



BON
Code
Texte(0,34,N+1
Pb le 10/10/2012 à 14:45
J'un problème avec ma calculette elle me dit qu'il y a une erreur à la ligne :
Ligne(88,(-)ent(tetha),6(-)ent(tetha)
blg_flg le 10/10/2012 à 15:29
Ça doit être au niveau des "moins" que ça pose problème. Il ne faut pas appuyer sur la touche parenthèse, puis moins, puis re-parenthèse. Il faut utiliser la touche moins "de la négativité". winkle.gif

Pense à toujours préciser le type d'erreur: syntaxe, argument, etc. happy.gif
Merci le 10/10/2012 à 18:52
Ok merci
Avertissement :
Il s'agit d'une page optimisée pour la navigation mobile. Voir la page originale.