bonsoir à tous. voici un pong dont le but est de gagner XD.
il e joue avec les touches f(x) et fenêtre pour le joueur du haut de l'écran et les touches trace et graphe pour le joueur du bas de l'écran.
voici le code
voici le lien de téléchargment du fichier .83: http://adf.ly/dvLVS
n'hésitez pas à laisser vos commentaires. merci d'avance.
il e joue avec les touches f(x) et fenêtre pour le joueur du haut de l'écran et les touches trace et graphe pour le joueur du bas de l'écran.
voici le code
- Code:
:Input "POINTS MAX:",M
:0→A
:0→C
:Lbl 0
:ClrHome
:7→B
:7→E
:7→Y
:6→X
:1→S
:-1→T
:4→P
:Output(1,1,"----------------
:Output(8,1,"----------------
:Repeat P=1
:P-1→P
:Output(4,8,P
:For(H,1,320
:End
:End
:Lbl 1
:ClrHome
:Output(1,E,"---
:Output(8,B,"---
:getKey→K
:If K=11 and E>1:E-2→E
:If K=12 and E<14:E+2→E
:If K=14 and B>1:B-2→B
:If K=15 and B<14:B+2→B
:Output(Y,X,"0
:If Y=1:Then
:If X=E+2 or X=E or X=E+1:Then
:1→T
:Else
:A+1→A
:Output(4,13,A
:If A=M:Then
:Output(5,12,"GAGNE
:Output(4,3,C
:Stop
:End
:Pause
:Goto 0
:End
:End
:If Y=8:Then
:If X=B or X=B+1 or X=B+2:Then
:-1→T
:Else
:C+1→C
:Output(4,3,C
:If C=M:Then
:Output(4,1,"GAGNE
:Output(5,12,A
:Stop
:End
:Pause
:Goto 0
:End
:End
:If X=16:‾1→S
:If X=1:1→S
:X+S→X
:Y+T→Y
:Goto 1
voici le lien de téléchargment du fichier .83: http://adf.ly/dvLVS
n'hésitez pas à laisser vos commentaires. merci d'avance.
Dernière édition par grmycaire le Sam 22 Fév 2014 - 12:41, édité 1 fois