ras le cul des maths - Page 16

les sp c bien quand ton prog est bien hierarchisé amsi quand t'as plein de truc sur un mem pied d'egalité les goto sont mieux adaptés

j'suis pas d'accord

microbug
a écrit : savoir programmer, c'est aussi savoir optimiser.

Je dis pas le contraire, mais c'est pas pratique de faire les deux en même temps.

c peut etre pas pratique, mais on est obligé de le faire l'un puis l'autre

C'est pour ça que c'est plus pratique d'utiliser les goto.

goto n'a pas de rapport avec l'optimisation

If k=337 or k=340 or k=338 or k=344 or k=2:k»t

Dans cette ligne, que veut dire k=2 déjà.

rien sans doute

ok!

ca marche sans ?

oui.
97»tt:236»xx:104»yy
While tt?264
getkey()»kk
If kk=97 or kk=119 or kk=122 or kk=115:kk»tt
If xx=0 or xx=238 or yy=0 or yy=107:Exit
If pxlTest (yy,xx)=true:Exit
PxlOn yy,xx
If tt=97:xx-1»xx
If tt=119:yy-1»yy
If tt=115:xx+1»xx
If tt=122:yy+1»yy
EndWhile

Par contre celui la marche pas. Il me met plus domain error mais il affiche rien.

Nan c bon çui la g compris pourkoi y s'affiche pas...par contre g toujours le m^me probleme de domain error que je comprends pas!

pkoi tu double les variables ( yy, xx, kk, tt... ) ?

Ya deux serpents.

le prmier, les variables sont x,y,k,t alors g boublé les variables du deuxieme pour faire plus simple.

T'as une 92+ ou une 89 ?

92 vu les dimensions de l'écran.
la telle quelle vu le code que tu as donné au post 460, le serpent n'avancera que si tu appuies sur une touche sinon il restera immobile.
Effectivement, tu initialises tt à 97 pour que le serpenr avance dans un sens. Mais l'appel de la fonction getkey() vient effacer cette valeur, meme si aucune touche n'est appuyé, donc si tu n'appuie pas sur les fleche, la valeur de tt passe à 0 et le serpent ne bouge pas

92+

microbug> g bien recu ton prog j'te remercie, j'men sui pas servi pour le moment mais si je trouve un truc, compte sur moi pour te prevenir.

il est pas buggé mon prog
lis attentivement le post 465, ca devrait t'aider

Je montre le prog en entier,c plus simple:

()
Prgm
Local x,y,k,t,xx,yy,tt,kk
DispG
340»t:2»x:3»y
While t?264
getKey()»k
If k=337 or k=340 or k=338 or k=344: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

97»tt:236»xx:104»yy
getkey()»kk
If kk=97 or kk=119 or kk=122 or kk=115:kk»tt
If xx=0 or xx=238 or yy=0 or yy=107:Exit
If pxlTest (yy,xx)=true:Exit
PxlOn yy,xx
If tt=97:xx-1»xx
If tt=119:yy-1»yy
If tt=115:xx+1»xx
If tt=122:yy+1»yy
EndWhile

ClrDraw
DispHome
EndPrgm

Si quelqu'un voit une différence entre le premier et le deuxième.
Sachant que si j'enleve le deuxième, le premier fonctionne bien.

microbug> pourtant dans le premier g fais la même chose et ca marche.

J e pige plus là.

le premier serpent marchera, pas le deuxieme:
ce que tu dois faire:
mettre l'initialisation des variable du 2 eme serpent ( xx,yy,... ) hors de la boucle while ( comme pour le premier serpent, juste apres )

comme ca?

DispG
340»t:2»x:3»y
97»tt:236»xx:104»yy
While t<>264

En tout cas si c ca, g toujours domain error.

Et tu peut diviser la taille de ton prog par plus que deux. A peu prés 55% des instructions sont inutiles

Si il marchait d'abord ce serait déjà pas mal.

L'optimisation on verra apres.

Bah... normalement, si tu jarte tes déclarations de variable du deuxième joueur hors du While, ça marche

Mais si je jarte les variables du deuxième serpent hors du while, je les met où?

tu les mets avant le while, ciommme celle du premier serpent

Si j'avais à faire un jeu comme ça, j'utiliserais des variables x1, x2, x3... avec des indirections pour jouer avec n'importe kel nbr de serpents

Et les indirections, je les fais comment?

Ca pourrait être interressant, je voulais d'abords faire comme ca, puis faire une IA après pour voir comment on fait!

Euh microbug et macintoc, vous dites des choses différentes où je suis complètement éclaté là!