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

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.

Cela semble potable.

Tu peux utiliser un For au lieu du repeat pour le compte à rebours.

Code:

:4→P
:Output(1,1,"----------------
:Output(8,1,"----------------
:Repeat P=1
:P-1→P
:Output(4,8,P
:For(H,1,320
:End
:End

Code:

:Output(1,1,"----------------
:Output(8,1,"----------------
:For(P,4,1,¯1
:Output(4,8,P
:For(H,1,320
:End
:End

Code:

:Output(1,1,"----------------
:Output(8,1,"----------------
:For(P,1,4
:Output(4,8,5-P
:For(H,1,320
:End
:End

Coucou, joli programme

Une petite optimisation:

Code:


:0→A
:0→C

deviens

Code:


DelvarADelvarC

Il faut que je me penche davantage sur le programme pour trouver d'éventuelles optimisations.

Linkakro a écrit:Cela semble potable.

Tu peux utiliser un For au lieu du repeat pour le compte à rebours.

oui j'avais pas fait guafe. et pour les optimisation j'ai vraiment pas réfléchis.

n'hésitez tout de même pas à donner votre avis. merci d'avance pour vos conseils.

Encore une optimisation possible:

Code:


: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

Deviens:

Code:


E-2(K=11 and E>1 ->E
E+2(K=12 and E<14 ->E
B-2(K=14 and E>1 ->B
E+2(K=15 and E<14 ->B


Je ne recherche plus certaines optimisations comme celle-ci qui sont valables dans tous les programmes et présentes dans les tutoriels. Tant mieux si quelqu'un s'y colle.

à la rache

= à l'arrache
http://forum.wordreference.com/showthread.php?t=740454&langid=6

Tu vois d'autre optimisations ?

J'ai pas vraiment cherché.
Je regarde maintenant que tu sollicite, et je vois surtout des goto dans des alternatives/boucles. Je signale donc la présence de bugs dans l'algorithmie liés à cette utilisation inadaptée de Goto. http://tout82.free.fr/forum/sujet.php?sujet=2757

EDIT: place à ma tentative. Pas testé pour l'instant.

ambiguïté des coordonnées:

J'ai déplacé des actions. J'ai gardé volontairement une séparation entre les tests de ligne et colonne pour gagner en rapidité en ne faisant pas le test des barres si c'est innutile. Cela ne doit pas avoir grande influence cependant.

Code:

:Input "POINTS MAX:",M
:0→A
:0→C
:While M>max(A,C
:ClrHome
:7→B
:7→E
:7→Y
:6→X
:1→S
:-1→T
:Output(1,1,"----------------
:Output(8,1,"----------------
:For(P,0,3
:Output(4,8,4-P
:For(H,1,320
:End
:End
:Repeat Y=1 or Y=8
:ClrHome
:Output(1,E,"---
:Output(8,B,"---
:getKey→K
:max(1,min(14,E+2((K=12)-(K=11→E
:max(1,min(14,B+2((K=15)-(K=14→B
:If X=16:‾1→S
:If X=1:1→S
:X+S→X
:Y+T→Y
: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
:End
:End
:If Y=8
:Then
:If X=B or X=B+1 or X=B+2
:Then
:‾1→T
:Else
:C+1→C
:End
:End
:End
:Output(4,13,A
:Output(4,3,C
:Pause
:End
:If A=M
:Output(5,12,"GAGNE
:If C=M
:Output(4,1,"GAGNE
:End

Je suis pas trop motivé après tous les pongs que j'ai vu et le mien.

pour les flemmards, les liens de téléchargements sont maintenant disponible au début du sujets :-)