la droite de quoi ?
comprends pas la question
kran Le 02/05/2002 à 20:53 Avec ti-paint plus, quand je trace une droite, en gros je la trace au pif.
bein c comme ca alors je sias pas je l'utilise pas
bein tu fais au pif ou tu reprogrammes le soft
kran Le 02/05/2002 à 21:16 Pourkoi ca marche pas ca:
Prgm
Local x,y,k,t,a,b,c,d
DispG
340»t:2»x:3»y
While t?264
getKey()»k
If k=337 or k=340 or k=338 or k=344 or k=2:k»t
If x=0 or x=238 or y=0 or y=107:Exit
If pxlTest(y,x)=true:Exit
PxlOn y,x
If t=337:x-1»x
If t=338:y-1»y
If t=340:x+1»x
If t=344:y+1»y
EndWhile
337»a:236»b:104»c
While t?264
getkey()»d
If d=119 or d=115 or d=97 or d=122:d»a
If x=0 or x=238 or y=0 or y=107:Exit
PxlOn c,b
If a=97:b-1»b
If a=119:c-1»c
If a=115:b+1»b
If a=122:c+1»c
EndWhile
ClrDraw
DispHome
Il manque une ligne entre les deux serpents mais je vois pas koi.
ben la le programme va tourner sur la premiere boucle while
puis ensuite sur la boucle du 2 eme serpent
faut que tu mette les 2 serpentds dans la meme boucle
while t!=264
// gestion de snakie 1
// gestion de snake 2
endwhile
kran Le 02/05/2002 à 21:22 ()
Prgm
Local x,y,k,t,a,b,c,d
DispG
340»t:2»x:3»y
While t?264
getKey()»k
If k=337 or k=340 or k=338 or k=344 or k=2:k»t
If x=0 or x=238 or y=0 or y=107:Exit
If pxlTest(y,x)=true:Exit
PxlOn y,x
If t=337:x-1»x
If t=338:y-1»y
If t=340:x+1»x
If t=344:y+1»y
337»a:236»b:104»c
getkey()»d
If d=119 or d=115 or d=97 or d=122 or d=2:d»a
If b=0 or b=238 or c=0 or c=107:Exit
PxlOn c,b
If a=97:b-1»b
If a=119:c-1»c
If a=115:b+1»b
If a=122:c+1»c
EndWhile
ClrDraw
DispHome
EndPrgm
G un "domain error" a la ligne PxlOn c,b
ca veut dire qu'une des valeurs de c ou b est trop grande ou trop petite par rapport a l'ecran
kran Le 02/05/2002 à 21:37 O fait, j'lé pas reçu ton mail!
le mail je l'ai envoyé à l'adresse ou tu t'es inscrit sur le forum
sinon l'erreur vient du fait ( je pense ) que le serpent se deplace et doit se diriger vers un mur logiquement mais que comme il part tres pres du mut tu a pas le temps de voir non ?
dans ton prog tu ne test pas si les serpents sortent de l'ecran ce qui provoque un bug
faut que tu fasse:
if c > je c plus combien then
disp " tu t fait nické"
end if
( le tout avant le pxlon naturellement )
regarde le post 349 et corrige parce que la gros bug
kran Le 02/05/2002 à 22:14 Si change d par a ca me met "undefined variable".
La pourtant g ca:
340»t:2»x:3»y
While t?264
getKey()»k
En remplacant t par a et k par d ca revient au même que ce ke g fé.
oué mais le probleme c dans le 2 eme serpent
tu as getkey > une variable
et apres pour la gestion des deplacement tu utilise une autre variable
c parce que tu a ensuite k>>t que j'avais pas vu
donne les valeur de b et c quand ca plante
kran Le 02/05/2002 à 22:24 Je les donne:
236»b:104»c
Nan la j'avoue que je suis largué...
Vous essayez de faire un Tron à deux joueur ??

Membre fondateur de la Ligue Anti-MacIntoc
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Un expert est quelqu'un qui en sait de plus en plus sur de moins en moins
de choses, jusqu'à ce qu'il connaisse absolument tout à propos de rien.