ras le cul des maths - Page 8

A la fin ca donne ca:

Prgm
ClrDraw
setGraph("Axes","OFF")
340»tst
2»x
2»y
While tst?264
getKey()»key
If key=337 or key=340 or key=338 or key=344 or key=264:key»tst
PxlOn y,x
If tst=337 Then:x-1»x
ElseIf tst=338 Then:y-1»y
ElseIf tst=340 Then:x+1»x
ElseIf tst=344 Then:y+1»y
EndIf
EndWhile
DelVar x,y,key,tst

Youpi

voiiiiilà ! Au bout de 7 pages on y est arrivé

Bon maintenant je vous propose un petit défi, ça sera pas long :
Faire le tron le plus optimisé en vitesse et en taille. On les release tous en même temps et on compare. ok ?

Pourkoi on peut faire plus court que ca?

Oui... Je pense...

Bon allez les regles du jeu :

- Faire un tron très simple, où le serpent se déplace dans 4 directions.
- Si il touche sa queue ou si on appuie sur ESC, ça quitte.
- Si on sort de l'écran, ça quitte aussi.

Le tout en pur Ti-basic

Tu vas ptêt un peu vite la!

Juste deux questions:

1 C koi l'algo si on touche la queue...?

2 Pour sortir de l'écran c un truc dans le genre: si le pixel <>x et y alors on sort du prog?

y'a plusieurs méthodes pour tout ça, je te laisse chercher

Bon... MacIntoc & Microbug :
Regardez le post #211 et #213, c rapide à faire

Comment tu les fait les screenshots?

tu utilise Tisshot (va voir ds les archives de Ti-fr)

Bon je v plutot proposer mon truc dans l'autre topic...

faut pas utiliser tishot, faut utiliser le nouveau, il est bcp mieu je trouve

Pas moi

arrete l'interface est top et on peut retoucher l'image directement

bof...

C koi le nouvo?

Pourkoi il axepte pas If pxlon x,y:stop

Si le pixel est allumé tu t'arrête.

cherche, il y a eu une news sur ti-fr y a quelques semaines

Ouais j'm'en souviens j'l'avais installé mais je l'ai plus...(formatage!)

223 pxlon est une fonction qui ne retourne pas de resultat donc tu ne peux pas l'utiliser dans un test.
utilise pxltest(x,y) qui renvoie 1 si le pixel est allumé et 0 si eteint

If pxlTest(y,x)=1 Then
Stop
EndIf

Mais ca ne change rien ca.

c le stop qui cloche.
fait
if pxltest(y,x)=1 then
pxloff(y,x)
endif

stop tout seul ca veut rien dire. tu stop pas un pixel

pxltest renvois true ou false
Et sans guillemet

Renvoie true or false? Et ben c bon ca non?

1=true

Arf! j'en sais rien!

false = 0, true = 1

mais de toute façon le '=true' est mit par défaut quand tu met rien...

donc 'if pxltest(y,x)' ça suffit

Il est bien placé la?

While tst?264
getKey()»key
If key=337 or key=340 or key=338 or key=344 or key=264:key»tst
PxlOn y,x
If pxlTest(y+1,x+1) Then
PxlOff y,x
EndIf
If tst=337 Then:x-1»x
ElseIf tst=338 Then:y-1»y
ElseIf tst=340 Then:x+1»x
ElseIf tst=344 Then:y+1»y
EndIf

Fo le placé avant le test des touche logiquement!

If pxlTest(y+1,x+1) Then

à koi ça sert de tester ce pixel ???????

Ben le pxel x,y est toujours allumé donc c le pixel x+1,y+1 qu'il fo tester! (c ce que je croyais)

qu'est-ce que t'en a à foutre du pixel x+1 y+1 ???

Nan, y a quelque chose de plus simple. Tu teste le pixel que tu t'apprètes à allumer. Si il renvois true, c'est que tu bouffe ta queu donc tu quittes.