bonjour ,j'ai recopier un code sur internet (il s'agit d'un snake) et j'ai un problème. j'ai beau manger les points le serpent ne grandit pas , ni le score par ailleur.
Code
Disp "SNAKE DE"," LINKAKRO","GAVEZ VOTRE"," SERPENT !"
Pause
ClrHome
Normal
Float
ClrHome
0üXmin ú62üYmin
94üXmax
0üYmax
AxesOff
FnOff
ClrList L
ClrDraw
26üD
0üK
3üZ
2.02üL(1)
2.01üL(2)
2üL(3)
Text(2*6,8,0
Text(2*6,4,0
Text(2*6,0,0
2üY
2üX
0üN
Menu("LABYRINTHE","",F,"",1,"",2,"",3
Lbl 1
Line(46,ú3,46,ú57
Line(2,ú33,90,ú33
1üN
Goto F
Lbl 2
Line(2,ú21,78,ú21
Line(14,ú39,90,ú39
2üN
Goto F
Lbl 3
3üN
Line(30,ú21,30,ú3
Line(62,ú3,62,ú21
Line(62,ú21,30,ú21
Line(2,ú39,30,ú39
Line(30,ú39,30,ú(9*6+3)
Line(62,ú39,94,ú39
Line(62,ú39,62,ú57
Lbl F
randInt(0,22)üS
randInt(0,9)üT
If pxl-Test(T*6+3,S*4+2)
Goto F
Text(T*6,S*4,"+
Lbl A
getKeyüJ
If J
JüK
If K=21
Menu("PAUSE","CONTINUER",P,"Stop",T
Lbl P
If K=24 and Dø26 or K=25 and Dø34 or K=26 and Dø24 or K=34 and Dø25
KüD
X-(D=24)+(D=26)üX
Y-(D=25)+(D=34)üY
X-23(X=23)+23(X=ú1)üX
Y-10(Y=10)+10(Y=ú1)üY
If K=21
0üK
getKeyüJ
If J
JüK
If pxl-Test(Y*6+3,X*4+2)
Goto S1
Lbl S2
Text(Y*6,X*4,"0
Text(iPart(L(Z))*6,100fPart(L(Z))*4," "
For(W,Z,1,ú1
L(W)üL(W+1)
End
Y+X/100üL(1)
Goto A
Lbl S1
If YøT or XøS
Goto T
Z+1üZ
Lbl E
randInt(0,22)üS
randInt(0,9)üT
If pxl-Test(T*6+3,S*4+2)
Goto E
Text(T*6,S*4,"+
Goto S2
Lbl T
Disp "GAME OVER","NIVEAU=","SCORE="
Output(2,9,N
Output(3,9,Z
ClrList L
Disp "SIGNE LINKAKRO"
voilà. pour info ,le programe chez moi fait 860 octets de ram puisque je lui est enlever du coude inutil (comme fermer les guillemets(sauf a certain endroits évidement ) , les parentaises et etc ). si vous pouvez m'aider ce serait super simpas
eArnoow Invité
Posté le : Dim 16 Sep 2012, 13:58
Désolé mais ça c'est pas de mon niveau (je suis encore à Chaud-froid xD)
Autorisation : Membre
Nb de messages : 878
Inscrit le : Sam 15 Oct 2011, 11:07
Posté le : Dim 16 Sep 2012, 14:42
Un snake de Linkakro qui ne fonctionne pas m'étonnerait fort.
Regarde le topic de départ si il a apporté une précision à ce sujet ou modifié des choses.
Si non re-vérifie que tu n'as pas fait la moindre erreur.
---------------------- La la la ...
Avez-vous pensé à regarder le manuel avant de demander conseil ? Un manuel est fait avant tout pour être consulté : MANUEL
Un problème de programmation ? Allez consulter ce tutoriel crée pour cela : TUTORIEL PROGRAMMATION
Vous avez un problème avec l'ordinateur avec votre calculatrice ? SOLUTIONEN VIDEO
Autorisation : Membre
Nb de messages : 3767
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Lun 17 Sep 2012, 2:46
Je n'ai pas posté ce programme sur ce forum il me semble, mais je l'ai posté sur le site Espace-TI.
Ce programme doit fonctionner mais il se fait vieux : j'ai depuis lors progressé et écrit un autre snake complètement différent.
Il est probable qu'une erreur se situe au niveau des pxl-Test.
Les point se renouvellent-t-ils lorsque tu en manges un ?
---------------------- ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)
je vais peu être remètre les parentaise que je n'ai pas fermer pour essayer d'élleger le programe en même temps que je le vérifie
warior-bill Invité
Posté le : Lun 17 Sep 2012, 19:04
3 ème post (oui je sais c'est interdit mais en inviter on ne peu pas éditer ) j'ai trouver ,et en faite c'était juste une erreur de signe ^^ donc oui ,il n'y a aucun problème . merci car sinnon je n'aurait pas trouver , pisque je vérifier les pxl test et j'ai mit un "=" au lieu d'un "->" ) voilà
![](../images/char/<img src="./images/smileys/cupsmiley.gif" border="0" alt="cupsmiley.gif" title="cupsmiley.gif" />.png)
) voilà
, ça sert qu'à alourdir le programme au contraire.