Poster un nouveau sujet Poster une réponse
SPEEDY by SNAP
Auteur Message
snap



Autorisation : Membre
Nb de messages : 364
Inscrit le : Dim 13 Fév 2011, 14:17
Posté le : Lun 11 Juil 2011, 17:43   Citer 

-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.

----------------------
Commence un monopoly non graphique et compte bien le finir!
Lycée de l'escaut Valenciennes happy.gif
Fan de reflets d'acide!
le meilleur jeu du monde
http://snap-le-terrible.minitroopers.fr
 Adresse email Haut de page Bas de page 
 
calcugeek



Autorisation : Membre
Nb de messages : 72
Inscrit le : Jeu 26 Mai 2011, 16:41
Posté le : Mar 12 Juil 2011, 18:40   Citer 

Je suis peut être idiot mais quel est le but de ce programme? je n'y comprend absolument rien crazy.gif crazy.gif crazy.gif crazy.gif crazy.gif

----------------------
En école d'ingénieurs depuis cette année.
Continue de programmer sur ma ti malgré les 3 tonnes quotidiennes de devoirs ^^
Fan de metallica et de tous autres groupes sachant jouer du vrai métal. (yeah!!!)
 Adresse email Haut de page Bas de page 
 
sandro



Autorisation : Membre
Nb de messages : 1366
Inscrit le : Ven 25 Mar 2011, 22:58
Posté le : Mar 12 Juil 2011, 19:10   Citer 

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

----------------------
mort à l'inutile, place à la mémoire libre et aux programmes
 Adresse email Haut de page Bas de page 
 
snap



Autorisation : Membre
Nb de messages : 364
Inscrit le : Dim 13 Fév 2011, 14:17
Posté le : Mar 12 Juil 2011, 23:45   Citer 

Ben c'est tout con c'est juste un jeu ou on ne doit pas toucher les rebord. la ligne avance et il faut bouger à gauche et a droite pour eviter les "murs"
Mais bon j'y pensais et je me suis dit que la ligne était trop petite et donc j'ai décidé d'agrandir le tout. Je vous met le programme demain si j'ai le temps.

----------------------
Commence un monopoly non graphique et compte bien le finir!
Lycée de l'escaut Valenciennes happy.gif
Fan de reflets d'acide!
le meilleur jeu du monde
http://snap-le-terrible.minitroopers.fr
 Adresse email Haut de page Bas de page 
 
Poster un nouveau sujet Poster une réponse





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