Poster un nouveau sujet Poster une réponse <<   Page: , , , ..., , 10, , ..., , ,      >>
Snake
Auteur Message
Ratuss



Autorisation : Membre
Nb de messages : 1561
Inscrit le : Mer 01 Mar 2006, 20:41
Posté le : Sam 08 Déc 2007, 20:24   Citer 

Salut,

vérifiez ceci ;] :


...
:Goto 3
:Lbl 2
:6+50fPart((A+C)/50=>A
:8+80fPart((B+D)/80=>B
:If pxl-Test(A+2,B:Goto 4
:Text(A,B,"º
:Lbl 3
:round(1+NfPart(E/N),0=>E
:Text(Liste4(E),Liste5(E),"
:A=>Liste4(E:B=>Liste5(E
:getKey=>K
:If K=0:Goto 2
:If D=72:Then
...

----------------------
--- LISTE DES JEUX POUR TI ---
 Adresse email Haut de page Bas de page 
 
Google_AdSense



Publicité    



 
djyoda35



Autorisation : Membre
Nb de messages : 12
Inscrit le : Sam 08 Déc 2007, 20:03
Posté le : Dim 09 Déc 2007, 14:24   Citer 

A vrai dire, j'ai bien le Label 3, c'est à n'y rien comprendre ahh.gif
Peut-être je me suis trompé ailleurs, je vais revérifier, même si ça semble louche que ça soit une erreur de Label pour une faute de frappe; enfin vérifions quand même.
D'autres solutions ? (En tout cas vous êtes bien rapide ^^)

 Adresse email Haut de page Bas de page 
 
Ratuss



Autorisation : Membre
Nb de messages : 1561
Inscrit le : Mer 01 Mar 2006, 20:41
Posté le : Dim 09 Déc 2007, 14:35   Citer 


Citer
:6+50fPart((A+C)/50=>A
:8+80fPart((B+D)/80=>B
:If pxl-Test(A+2,B:Goto 4
:Text(A,B,"º
:
:Lbl 3




mouais alors essayez de rajouter un espace pour voir...

----------------------
--- LISTE DES JEUX POUR TI ---
 Adresse email Haut de page Bas de page 
 
djyoda35



Autorisation : Membre
Nb de messages : 12
Inscrit le : Sam 08 Déc 2007, 20:03
Posté le : Dim 09 Déc 2007, 15:06   Citer 

Apparemment ça marche, mais je n'ai fait qu'une partie et je n'ai que game over qui s'affiche a chaque fois que je lance le programme crazy.gif

Edit: Autant pour moi, j'ai rémédier a ce problème ^^

Un nouveau problème se pose:
Je n'ai que la touche du haut et celle du bas qui répondent aux mouvements...

 Adresse email Haut de page Bas de page 
 
Ratuss



Autorisation : Membre
Nb de messages : 1561
Inscrit le : Mer 01 Mar 2006, 20:41
Posté le : Dim 09 Déc 2007, 15:29   Citer 


Code
: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 or K=34:72=>D



vérifie ici pour voir s'il n'y pas d'erreurs ;°

----------------------
--- LISTE DES JEUX POUR TI ---
 Adresse email Haut de page Bas de page 
 
djyoda35



Autorisation : Membre
Nb de messages : 12
Inscrit le : Sam 08 Déc 2007, 20:03
Posté le : Dim 09 Déc 2007, 15:31   Citer 

J'ai recopié et revérifié deux fois, les mouvements marchent maintenant mais c'est les "cadavres" des serpents des parties antérieures et leur nourriture, ainsi que le Game Over qui me font, à nouveau (dès que rentre dedans bien sûr), un Game Over...
Merci quand même de ton aide ^^ Et le jeu, même s'il est en version 0.5, me suffit amplement et est finement conçu et agréable a jouer ^^
Et si tu arrives à me dépatouiller, alors là t'es vraiment un chef laugh.gif

 Adresse email Haut de page Bas de page 
 
Ratuss



Autorisation : Membre
Nb de messages : 1561
Inscrit le : Mer 01 Mar 2006, 20:41
Posté le : Dim 09 Déc 2007, 15:46   Citer 

arf la je sais pourquoi ca ne disparait pas :

il y a un endroit, precisemment ici :

:Lbl 3
:round(1+NfPart (E/N),0=>E
:Text(Liste4(E),Liste5(E),"
:A=>Liste4(E:B=>Liste5(E
:getKey=>K
:If K=0:Goto 2
:If D=72:Then
:If K=24:67=>D
:If K=26:77=>D

...ou il faut rajouter 4 espaces (après le ".)


happy.gif

----------------------
--- LISTE DES JEUX POUR TI ---
 Adresse email Haut de page Bas de page 
 
djyoda35



Autorisation : Membre
Nb de messages : 12
Inscrit le : Sam 08 Déc 2007, 20:03
Posté le : Dim 09 Déc 2007, 15:51   Citer 

Désolé de te dire ça mais comme j'ai tout lu précédemment, je l'avais déjà fait ! cry.gif
Je suppose que c'est par rapport aux listes qu'il y a un problème, parce que j'ai d'autres programmes qui utilise les mêmes listes, ça ne pourrait pas jouer?

 Adresse email Haut de page Bas de page 
 
Ratuss



Autorisation : Membre
Nb de messages : 1561
Inscrit le : Mer 01 Mar 2006, 20:41
Posté le : Dim 09 Déc 2007, 15:57   Citer 

vérifie ces lignes pour voir :/ ...


Code
:round(1+NfPart (E/N),0=>E
:Text(Liste4(E),Liste5(E),"
:A=>Liste4(E:B=>Liste5(E




Citer
Je suppose que c'est par rapport aux listes qu'il y a un problème, parce que j'ai d'autres programmes qui utilise les mêmes listes, ça ne pourrait pas jouer?



a priori non puisque le prog efface la liste au début...

----------------------
--- LISTE DES JEUX POUR TI ---
 Adresse email Haut de page Bas de page 
 
djyoda35



Autorisation : Membre
Nb de messages : 12
Inscrit le : Sam 08 Déc 2007, 20:03
Posté le : Dim 09 Déc 2007, 15:59   Citer 

J'ai exactement ça... crazy.gif
Pour info : qu'est ce que ça change les espaces? (j'essaye d'en mettre plus ou moins, pour voir)

 Adresse email Haut de page Bas de page 
 
Ratuss



Autorisation : Membre
Nb de messages : 1561
Inscrit le : Mer 01 Mar 2006, 20:41
Posté le : Dim 09 Déc 2007, 16:03   Citer 

les espaces permettent d'effacer le serpent puiqu'ils "écrivent" du blanc sur le bout de la queue.

(faut que j'aille bosser un peu dsl minied.gif )

+

----------------------
--- LISTE DES JEUX POUR TI ---
 Adresse email Haut de page Bas de page 
 
Google_AdSense



Publicité    



 
djyoda35



Autorisation : Membre
Nb de messages : 12
Inscrit le : Sam 08 Déc 2007, 20:03
Posté le : Lun 10 Déc 2007, 17:59   Citer 

Ok, ok je comprends, les études d'abord ^^

 Adresse email Haut de page Bas de page 
 
Ratuss



Autorisation : Membre
Nb de messages : 1561
Inscrit le : Mer 01 Mar 2006, 20:41
Posté le : Lun 10 Déc 2007, 18:19   Citer 

tu as bien mis 1=>E au début ?


:ClrDraw
:0=>Xmin
:94=>Xmax
sad.gif-)62=>Ymin
:0=>Ymax
:AxesOff
:FnOff
:6=>A:8=>B:44=>C:77=>D:1=>E:2=>N:0=>O
...

----------------------
--- LISTE DES JEUX POUR TI ---
 Adresse email Haut de page Bas de page 
 
djyoda35



Autorisation : Membre
Nb de messages : 12
Inscrit le : Sam 08 Déc 2007, 20:03
Posté le : Lun 10 Déc 2007, 19:03   Citer 

Effectivement, j'ai E->1...

J'ai recopié le 1.0, toujours les mêmes problèmes...

 Adresse email Haut de page Bas de page 
 
Ratuss



Autorisation : Membre
Nb de messages : 1561
Inscrit le : Mer 01 Mar 2006, 20:41
Posté le : Lun 10 Déc 2007, 19:11   Citer 

=> essaye de remplacer les 4 espaces par des symboles (des chiffres par exemples) pour voir ou est ce qu'il te les affiche extraterre.gif

----------------------
--- LISTE DES JEUX POUR TI ---
 Adresse email Haut de page Bas de page 
 
djyoda35



Autorisation : Membre
Nb de messages : 12
Inscrit le : Sam 08 Déc 2007, 20:03
Posté le : Lun 10 Déc 2007, 19:35   Citer 

Alors,
J'ai remplacé par "1234 et ça me donne :
- quand le serpent est vers le bas :
1234
o
o
o
- et à droite:
1234 (on ne voit pas les trois o)
idem mais inversé pour en haut et a gauche

 Adresse email Haut de page Bas de page 
 
Ratuss



Autorisation : Membre
Nb de messages : 1561
Inscrit le : Mer 01 Mar 2006, 20:41
Posté le : Lun 10 Déc 2007, 19:47   Citer 

Tu obtiens un truc exactement comme ca ?



----------------------
--- LISTE DES JEUX POUR TI ---
 Adresse email Haut de page Bas de page 
 
djyoda35



Autorisation : Membre
Nb de messages : 12
Inscrit le : Sam 08 Déc 2007, 20:03
Posté le : Lun 10 Déc 2007, 19:50   Citer 

Exactement comme ça

 Adresse email Haut de page Bas de page 
 
Google_AdSense



Publicité    



 
Ratuss



Autorisation : Membre
Nb de messages : 1561
Inscrit le : Mer 01 Mar 2006, 20:41
Posté le : Lun 10 Déc 2007, 19:52   Citer 

bah alors ca devrait marcher si tu mets les 4 espaces :p


Code
Texte(L„(E),L…(E),"1234"



Code
Texte(L„(E),L…(E),"    "



(tu peux virer le dernier guillemet si tu veux)

----------------------
--- LISTE DES JEUX POUR TI ---
 Adresse email Haut de page Bas de page 
 
djyoda35



Autorisation : Membre
Nb de messages : 12
Inscrit le : Sam 08 Déc 2007, 20:03
Posté le : Lun 10 Déc 2007, 19:56   Citer 

Je l'ai déjà remis, ça ne fait rien

 Adresse email Haut de page Bas de page 
 
Poster un nouveau sujet Poster une réponse <<   Page: , , , ..., , 10, , ..., , ,      >>





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