Le jeune programmeur le 04/11/2016 à 11:30
Voici le code du jeu "Pong", en version basique :
Merci de me dire s'il y a une erreur dans le programme...
Code
:3->A:4->X
:1->S:1->T
:randInt(1,8->Y
:Repeat K=45 or X=1 and A[différent de]Y
:ClrHome
:Output(A,1,"[")
:Output(Y,X,"O")
:getKey->K
:max(1,min(8,A+(Ans=34)-(Ans=25->A
:T(Y>1 and Y<8 )+(Y=1)-(Y=8->T
:S(X>1 and X<16)+(X=1)-(X=16->S
:X+Ans->X:Y+T->Y
:End
:Pause "Game Over!
:ClrHome:"
!