Poster un nouveau sujet Poster une réponse
Probleme Pong
Auteur Message
alex2509



Autorisation : Membre
Nb de messages : 2
Inscrit le : Jeu 23 Sep 2010, 21:15
Posté le : Jeu 23 Sep 2010, 21:22   Citer 

Bonjour, j'ai recopier sur ma calculette le code d'un pong, le probleme est que quand je bouge l'ancien deplacement reste afficher ainsi que celui de la balle ce qui fait qu'a la fin il y a des balles partout. Je ne sais pas si vous voyez ce que je veux dire. Voici le code du jeu :




Code
:If Qøsin Ä
:Stop
:ClrHome
:Disp "PONG BY MICHAEL
:Pause
:ClrHome
:0üS
:4üR:4üC
:1üL:1üD
:3üX
:Repeat 0
:getKeyüK
:Output(8,X," 
:X-(K=24)+(K=26)üX
:X+(X=0)-(X=16)üX
:Output(8,X,"--
:Output(R,C,"
:R+DüR:C-LüC
:If R=1
:1üD
:If R=8
:ú1üD
:If C=1
:ú1üL
:If C=16
:1üL
:Output(R,C,"ô
:If R=8
:Then
:If CøX and CøX+1
:Then
:ClrHome
:Disp "GAME OVER."
:Disp "SCORE:",S
:Stop
:End
:End
:S+1üS
:Output(8,X," 
:getKeyüK
:X-(K=24)+(K=26)üX
:X+(X=0)-(X=16)üX
:Output(8,X,"--
:If K=22
:Then
:ClrHome
:Disp S
:Return
:End
:End




 Adresse email Haut de page Bas de page 
 
Google_AdSense



Publicité    



 
Rézus



Autorisation : Membre
Nb de messages : 835
Inscrit le : Sam 20 Jui 2009, 20:35
Posté le : Jeu 23 Sep 2010, 21:25   Citer 

Il ne faut pas oublier de mettre un espace après les guillemets aux lignes Output(8,X," et Output(R,C,"

 Adresse email Haut de page Bas de page 
 
alex2509



Autorisation : Membre
Nb de messages : 2
Inscrit le : Jeu 23 Sep 2010, 21:15
Posté le : Jeu 23 Sep 2010, 21:35   Citer 

Merci beaucoup ca marche nickel happy.gif !!

 Adresse email Haut de page Bas de page 
 
Poster un nouveau sujet Poster une réponse





  Page générée en 6 requêtes