14Fermer16
deephLe 01/02/2007 à 19:19
Bah voilà, j'avais une heure de perm alors j'ai coder un peu sur mon système de collision, mais ça bug encore un peu :

D'après TI, on marque 'Pt-On(X,Y,[valeur])' donc, dans ce cas X et Y sont dans cet ordre, mais pxl-Test ce marque comme ça : 'pxl-Test(Y,X)', donc c'est l'inverse cheeky. Voici donc le code que j'ai fait :
ClrDraw
31→W:47→X
Line(46,39,48,39
Lbl 1
While 1
Pt-On(X,W,2
Repeat K
getKey→K
End
If K=25:Then
For(A,-1,1
If pxl-Test(W+2,X+A)=1:Then:Goto 1:Else:Pt-Off(X,W,2:W+1→W:End
End
End End


Normalement, on ne peut faire bouger le carré que vers le haut, mais il y a une ligne qui doit l'empecher d'avancer. Mais le problème ce que le carré passe dessus sans rien faire. Pourtant, j'ai tout vérifier et ça devrai marcher...