snap le 11/07/2011 à 17:43
-Vous vous souvenez tous de mon relief montagneux n'est-ce pas?
-non!
-Eh bien j'ai fait pour vous un jeu qui reprend en partie le relief mais en changeant quelques petites chose. Le programme est léger : 202 octets. Et si jamais vous avez des améliorations n'hésitez pas!
Voici le programme SPEEDY
Code
:AxesNAff
:FonctOff
:0 -> S
:While 1
:EffDessin
:47 -> X
:For(P,62,1,-1
:entAléat(0,2 -> A
:X-(1-A -> X
:For(G,-2,2
:Pxl-On(P,X-G
:End
:End
:47 -> X:62 -> P
:While P
:codeTouche -> K
:X+(K=26)-(K=24 -> X
:If non(pxl-Test(P,X:Goto G
:Pxl-Off(P,X
:P-1 -> P
:End
:S+62 -> S
:End
:Lbl G
:S+(62-P -> S
:Output(4,4,"PERDU!
:Output(5,4,"SCORE :
:For(B,0,S
:Output(5,12,B
:End
Pour ceux qui se demanderait pour le score pourquoi je l'ai mis comme sa et pas directement mettre après le test S+1, je leur répond que comme je l'ai mis la, le jeu va beaucoup plus vite et donc on peut régler la vitesse.
sandro le 12/07/2011 à 19:10
Je ne comprend pas non-plus le but de ce programme mais on peut l'optimiser:
Code
:AxesNAff
:FonctOff
:EffVar SWhile 1 //ici : 1 octé
:EffDessin
:47 -> X
:For(P,62,1,-1
:entAléat(0,2 -> A
:X-1+A -> X //ici : 1 octé
:For(G,-2,2
:Pxl-On(P,X-G
:End
:End
:47 -> X:62 -> P
:While P
:codeTouche -> K
:X+(K=26)-(K=24 -> X
:If non(pxl-Test(P,X:Goto G
:Pxl-Off(P,X
:P-1 -> P
:End
:S+62 -> S
:End
:Lbl G
:S+62-P -> S //ici : 1 octé
:Output(4,4,"PERDU!
:Output(5,4,"SCORE :
:For(B,0,S
:Output(5,12,B
:End
Sandro
