Autorisation : Membre
Nb de messages : 369
Inscrit le : Dim 13 Fév 2011, 14:17
Posté le : Lun 17 Oct 2011, 16:34
Salut à tous! et oui encore moi! Je suis productif ces temps ci Il y a pas longtemps je me suis souvenu d'un jeu que j'avais eu en seconde et j'avais toujours essayé de le refaire mais je n'y arrivais jamais. (Et je pouvais pas voir l'autre jeu car il était bloqué par protect ). Et aujourd'hui Je l'ai fait! J'y suis arrivé! Alors je vous le poste.
VOITURE : (Taille : 239 Octets)
Code
:Effecr
:For(A,1,16
:Output(1,A,"*
:Output(8,A,"*
:If non(PartDéc(A/2:Output(A/2,1,"*
:If non(PartDéc(A/2:Output(A/2,16,"*
:End
:Output(4,2,"VOITURE BY SNAP
:Pause
:EffEcr
:Disp"","","","","","","
:1 -> A
:1 -> B
:1 -> C
:1 -> D
:1 -> E
:8 -> X
:0 -> S
:Repeat X >= A et X <= A+1
:CodeTouche -> K
:Min(16,Max(1,X+(K=26)-(K=24 -> X
:Output(3,X,"0
:S+1 -> S
:B -> A
:C -> B
:D -> C
:E -> D
:EntAléat(1,15 -> E
:Output(7,E,"{}
:Disp "
:End
:EffEcr
:Disp "Perdu! Score :
:S
Autorisation : Membre
Nb de messages : 369
Inscrit le : Dim 13 Fév 2011, 14:17
Posté le : Mar 18 Oct 2011, 10:20
Salut! Sandro, pour les sept fois "", c'est pour que le prochain disp fasse monter l'écran d'un cran ce qui donne l'impression que la voiture avance. Par exemple, essaie de faire un programme ou tu met :
Tu comprendra peut-être mieux.
Mais le truc pour faire en graphique c'est que je pourrais plus utiliser la méthode du disp alors faudra que je change tout^^ Donc je vais surement pasle faire parce que si on change la méthode du disp, sa ira beaucoup moins vite et ce ne sera pas jouable. Après libre à vous d'essayer
Autorisation : Membre
Nb de messages : 369
Inscrit le : Dim 13 Fév 2011, 14:17
Posté le : Mar 18 Oct 2011, 21:35
le signe <= et >= veulent dire supérieur ou égal et inférieur ou égal. C'est pas égal + supérieur. C'est les signe que t'as en faisant seconde + math + 4 ou 6
Autorisation : Membre
Nb de messages : 1387
Inscrit le : Ven 25 Mar 2011, 22:58
Posté le : Mer 19 Oct 2011, 12:59
même pour un programme de maths ça peut sevir : si on veut affficher des choses en divers endroit d'unne même ligne, on est obligé d'utiliser des Imput, mais grâce à ta technique, on poura aussi les décaler vers le haut pour en afficher des nouveaux sans tout reafficher.
Sandro
---------------------- mort à l'inutile, place à la mémoire libre et aux programmes
Autorisation : Membre
Nb de messages : 369
Inscrit le : Dim 13 Fév 2011, 14:17
Posté le : Mer 19 Oct 2011, 13:19
Wé pourquoi pas^^ Voila une version avec un meilleur score si jamais quelqu'un veut^^
Code
:1 -> dim(LRA
:Effecr
:For(A,1,16
:Output(1,A,"*
:Output(8,A,"*
:If non(PartDéc(A/2:Output(A/2,1,"*
:If non(PartDéc(A/2:Output(A/2,16,"*
:End
:Output(3,2,"VOITURE BY SNAP
:Output(5,2,"MEILLEUR SCORE
:Output(6,8,LRA(1
:Pause
:EffEcr
:Disp"","","","","","","
:1 -> A
:1 -> B
:1 -> C
:1 -> D
:1 -> E
:8 -> X
:0 -> S
:Repeat X >= A et X <= A+1
:CodeTouche -> K
:Min(16,Max(1,X+(K=26)-(K=24 -> X
:Output(3,X,"0
:S+1 -> S
:B -> A
:C -> B
:D -> C
:E -> D
:EntAléat(1,15 -> E
:Output(7,E,"{}
:Disp "
:End
:EffEcr
:Disp "Perdu! Score :",S
:If S>LRA(1 : Then
:S -> LRA(1
:disp "RECORD BATTU!!
Autorisation : Membre
Nb de messages : 369
Inscrit le : Dim 13 Fév 2011, 14:17
Posté le : Mer 19 Oct 2011, 13:40
Merci pour ces amélio^^ je pense jamais au effVar^^ et ensuite pour les majuscules pas besoin et en plus si je me souviens bien toute les lettres que j'ai mit peuvent être en minuscule sur la calto
Autorisation : Membre
Nb de messages : 369
Inscrit le : Dim 13 Fév 2011, 14:17
Posté le : Mer 19 Oct 2011, 19:00
Edite ton post et met le nom du mec qui a fait le high score dans la présentation Et je viens de remarquer un truc : Ta pas mit de titre a ton menu!! Erreur syntaxe! ^^