C'est vrai, je l'avoue, je n'étais pas très concentré quand j'ai fait ce prog (le prof de philo parle un peu fort), mais je n'arrive vraiment pas à faire cette ***** de collision.
Le principe de mon prog : deux textes s'affichent à l'écran, ils partent chacun dans une direction, quand ils rencontrent le bord de l'écran, ils rebondissent, et quand ils se rencontrent, ils rebondissent et repartent à l'opposé. Le problème, c'est que la collision entre les deux textes merde : quand le "clairement©" remonte et que le "la méca ça powatte" descend, ils se traversent, mais dans l'autre sens pas...#confus#
Code :
Cls
Setfond 1
X%=120
Y%=64
Z%=12
A%=74
Xdir%=1
Ydir=-1
Zdir%=-1
Adir%=1
Txt$="La meca ca powatte ^^"
Txt2$="Clairement ©"
While Getkey=0
Cls
Text Z%,A%,Txt2$
Text X%,Y%,Txt$
Pause 2
Add X%,Xdir%
Add Y%,Ydir%
Add Z%,Zdir%
Add A%,Adir%
If X%+6*Len(Txt$)>=239 Then
Xdir%=-1
Endif
If X%<=0 Then
Xdir%=1
Endif
If Y%+8>=127 Then
Ydir%=-1
Endif
If Y%<=0 Then
Ydir%=1
Endif
If Z%+6*Len(Txt$)>=239 Then
Zdir%=-1
Endif
If Z%<=0 Then
Zdir%=1
Endif
If A%+8>=127 Then
Adir%=-1
Endif
If A%<=0 Then
Adir%=1
Endif
If X%=Z%,(Y%+8)=(A%+8) Then
Xdir%=-1
Zdir%=1
Endif
Wend
System
[EDIT: Désactivé les smileys]
-Edité le Samedi 2 octobre 2004 à 17:00 par limmt-
Administrer
Utilisateurs actifs :
Aucun membre + 1 visiteur
