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



Autorisation : Membre
Nb de messages : 364
Inscrit le : Dim 13 Fév 2011, 14:17
Posté le : Dim 19 Jui 2011, 23:52   Citer 

Alors voila. Je savais pas quoi faire alors j'ai fait un avalanche tout con XD

PROGRAMME AVALANCH version 1.1


Code

:EffEcr
:Output(4,1,"avalanch by snap
:Output(1,1,"****************
:Output(8,1,"****************
:Pause
:EffEcr
:Lbl F
:-1 -> X
:For(G,3,6
:Output(G,12,"!
:Output(G,4,"!
:End
:Output(2,5,"-------
:Output(7,5,"-------
:8 -> B
:Menu("****************","Facile",A,"Moyen",B,"Difficile",C,"Quitter",Z
:Lbl A:60 -> Q
:Goto 1
:Lbl B:40 -> Q
:Goto 1
:Lbl C:20 -> Q
:Lbl 1
:X+1 -> X
:3 -> A
:entAléat(5,11 -> C
:While A [pas égal à] 7
:codeTouche -> K
:If K=45:Goto M
:If K=26:Then
:Output(6,B," "
:B+1 -> B
:If B=12:5 -> B
:End
:If K=24:Then
:Output(6,B," "
:B-1 -> B
:If B=4:11 -> B
:End
:Output(6,B,"[PI]          --> Le symbole
:Output(A,C,"I
:If A=6 et C=B:Goto M
:Q!
:Output(A,C," "
:A+1 -> A
:End
:Goto 1
:Lbl M
:EffEcr
:Output(3,5,"T MORT!
:Output(4,1,"TON SCORE EST DE
:Output(5,4,X
:Output(5,7,"Points
:Pause
:EffEcr
:Goto F
:Lbl Z
:EffEcr
:Output(1,1," "



Et voila! Donnez moi vos avis^^

----------------------
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 
 
cam!



Autorisation : Membre
Nb de messages : 36
Inscrit le : Dim 12 Jui 2011, 17:50
Posté le : Lun 20 Jui 2011, 9:56   Citer 

Ce jeu est vraiment bien (je l'est copié a la main). Cours et donc fluide. bigmouth.gif
Je me demandais juste s'il n'etais pas plus "simple" de mettre :

Code
 if K=24 ou K=26:output(6,B," "


Et d'enlever le "output(6,B," ") sur les 2 blocs de K=...
??

----------------------
cam!
 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 : Lun 20 Jui 2011, 11:52   Citer 

Ben je me posait la meme question hier. Mais comme je suis trop fainéant pour le faire, je l'ai pas fait XD.

J'ai testé et si on marque if K=24 ou K=26:Output(6,B," "
Sa prend 3 octets de plus.

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



Autorisation : Membre
Nb de messages : 438
Inscrit le : Dim 12 Déc 2010, 20:44
Posté le : Lun 20 Jui 2011, 12:28   Citer 

Excellent ce petit jeu! =)
Et pourquoi ne pas sauvegarder les meilleurs scores? =)
Je peux poster la version avec dès que je trouve 5mn pour la faire =)

----------------------
Ti-Connect 64bits
PROTECT
 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 : Lun 20 Jui 2011, 12:47   Citer 

Lol si tu veut mais je me disai que pour un jeu comme sa sa servait pas a grand chose^^ Voila la nouvelle version avec score

AVALANCHE version 1.2

Code

:3 -> dim(LAVA
:EffEcr
:Output(4,1,"avalanch by snap
:Output(1,1,"****************
:Output(8,1,"****************
:Pause
:Lbl F
:EffEcr
:-1 -> X
:For(G,3,6
:Output(G,12,"!
:Output(G,4,"!
:End
:Output(2,5,"-------
:Output(7,5,"-------
:8 -> B
:Menu("****************","Facile",A,"Moyen",B,"Difficile",C,"score",R,"Quitter",Z
:Lbl R
:Output(1,1,"SCORE :
:Output(3,1,"FACILE :
:Output(3,10,LAVA(3
:Output(5,1,"MOYEN :
:Output(5,9,LAVA(2
:Output(7,1,"DIFFICILE :
:Output(7,13,LAVA(1
:Pause
:Goto F
:Lbl A:60 -> Q
:Goto 1
:Lbl B:40 -> Q
:Goto 1
:Lbl C:20 -> Q
:Lbl 1
:X+1 -> X
:3 -> A
:entAléat(5,11 -> C
:While A [pas égal à] 7
:codeTouche -> K
:If K=45:Goto M
:If K=26:Then
:Output(6,B," "
:B+1 -> B
:If B=12:5 -> B
:End
:If K=24:Then
:Output(6,B," "
:B-1 -> B
:If B=4:11 -> B
:End
:Output(6,B,"[PI]          --> Le symbole
:Output(A,C,"I
:If A=6 et C=B:Goto M
:Q!
:Output(A,C," "
:A+1 -> A
:End
:Goto 1
:Lbl M
:EffEcr
:Output(3,5,"T MORT!
:Output(4,1,"TON SCORE EST DE
:Output(5,4,X
:Output(5,7,"Points
:Q/20 -> W
:If X>LAVA(W:X -> LAVA(W
:Pause
:EffEcr
:Goto F
:Lbl Z
:EffEcr
:Output(1,1," "



Voila! Si vous avez des améliorations n'hésitez pas!

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



Autorisation : Membre
Nb de messages : 438
Inscrit le : Dim 12 Déc 2010, 20:44
Posté le : Lun 20 Jui 2011, 14:49   Citer 

Oh tu sais je trouve pas ce jeu si inutile! =)
Ta version avec les scores est donc la bienvenue! =)

----------------------
Ti-Connect 64bits
PROTECT
 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 : Lun 20 Jui 2011, 14:51   Citer 

Je suis content qu'il plaise à quelqu'un^^ Mais bon je le trouve un peu simple notgood.gif et si on change la valeur de Q pour mettre 0, on voit pu les I qui tombent. ta pas une idée pour rendre plus compliqué?

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



Autorisation : Membre
Nb de messages : 438
Inscrit le : Dim 12 Déc 2010, 20:44
Posté le : Lun 20 Jui 2011, 14:52   Citer 

Comment ça...? Si tu affectes 0 à Q, au contraire, ça va aller plus vite non?

----------------------
Ti-Connect 64bits
PROTECT
 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 : Lun 20 Jui 2011, 14:54   Citer 

oui mais vu que sa va plus vite tu vois presque plus les I qui tombent. résultat ben il te faut juste un gro coup de veine pour pas te les prendre.

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



Autorisation : Membre
Nb de messages : 438
Inscrit le : Dim 12 Déc 2010, 20:44
Posté le : Lun 20 Jui 2011, 14:58   Citer 

Ah ok, j'avais pas vu le "pu" dans ton posts précédent...
Bah pour qu'il tombent rapidement mais qu'on les voit tt de mêle, je ne vois pas trop de solution, pour contré la logique en fin de compte... plus vite= moins visible logiquement... (enfin, sur TI)

----------------------
Ti-Connect 64bits
PROTECT
 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 : Lun 20 Jui 2011, 14:59   Citer 

Si le but est de ralentir, il suffit de mettre une boucle vide au bon endroit.
Si le but est d'accélérer, il faut optimiser ou choisir des commandes plus rapides.
Si le problème est que l'on ne voie plus les I, on peu peut-être simplement modifier la position de l'effaçaje ou de l'allumage : tant plus il y a de lignes de l'affichage à l'effaçage (dans ce sens), tant mieu on voit les I.

En espérent que celà corresponde à votre "question" que je n'ai pas très bien comprise
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 : Lun 20 Jui 2011, 15:01   Citer 

J'ai pas très bien compris ce que ta dit Sandro mais bon^^ Je vais laissé comme c'est. Le jeu est bien comme sa. Mais si vous avez des améliorations à faire parvenir n'hésitez pas winkle.gif

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



Autorisation : Membre
Nb de messages : 364
Inscrit le : Dim 13 Fév 2011, 14:17
Posté le : Lun 20 Jui 2011, 17:04   Citer 

C'est bon j'ai trouvé une amélioration. Maintenant vous avez 2 pi à controler dans deux carrés différents. C'est trop dur^^

nouvelle version : AVALANCHE 2.0


Code
:3 -> dim(LAVA
:EffEcr
:Output(4,1,"avalanch by snap
:Output(1,1,"****************
:Output(8,1,"****************
:Pause
:Lbl F
:EffEcr
:-1 -> X
:For(G,3,6
:Output(G,9,"!
:Output(G,15,"!
:Output(G,1,"!
:Output(G,7,"!
:End
:Output(2,2,"-----    -----
:Output(7,2,"-----    -----
:13 -> B
:5 -> [théta]
:Menu("****************","Facile",A,"Moyen",B,"Difficile",C,"score",R,"Quitter",Z
:Lbl R
:Output(1,1,"SCORE :
:Output(3,1,"FACILE :
:Output(3,10,LAVA(3
:Output(5,1,"MOYEN :
:Output(5,9,LAVA(2
:Output(7,1,"DIFFICILE :
:Output(7,13,LAVA(1
:Pause
:Goto F
:Lbl A:60 -> Q
:Goto 1
:Lbl B:40 -> Q
:Goto 1
:Lbl C:20 -> Q
:Lbl 1
:X+1 -> X
:3 -> A
:entAléat(10,14 -> C
:entAléat(2,6 -> Y
:While A [pas égal à] 7
:codeTouche -> K
:If K=45:Goto M
:If K=21:Then
:Output(6,[théta]," "
:[théta]-1 -> [théta]
:If [théta]=1:6 -> [théta]
:End
:If K=22:Then
:Output(6,[théta]," "
:[théta]+1 -> [théta]
:If [théta]=7:2 -> [théta]
:End
:If K=26:Then
:Output(6,B," "
:B+1 -> B
:If B=15:10 -> B
:End
:If K=24:Then
:Output(6,B," "
:B-1 -> B
:If B=9:14 -> B
:End
:Output(6,B,"[PI]          --> Le symbole
:Output(6,[théta],"[PI]    --> pareil
:Output(A,Y,"I
:Output(A,C,"I
:If A=6 et C=B ou A=6 et [théta]=Y:Goto M
:Q!
:Output(A,C," "
:Output(A,Y," "
:A+1 -> A
:End
:Goto 1
:Lbl M
:EffEcr
:Output(3,5,"T MORT!
:Output(4,1,"TON SCORE EST DE
:Output(5,4,X
:Output(5,7,"Points
:Q/20 -> W
:If X>LAVA(W:X -> LAVA(W
:Pause
:EffEcr
:Goto F
:Lbl Z
:EffEcr
:Output(1,1," "



Moi je l'adore comme sa^^ Yé un peu moins rapide mais il est dur^^

----------------------
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 21 Jui 2011, 17:20   Citer 

Au lieu d'ecrire

Citer

:Output(2,2,"-----
:Output(7,2,"-----
:Output(2,10,"-----
:Output(7,10,"-----



tu aurais pu mettre

Code

:Output(2,2,"-----    ------
:Output(7,2,"-----    ------



Sinon j'ai testé la version avec un seul pi et c'est tres bien fait pour un prog aussi court. Bravo! bigmouth.gif bigmouth.gif bigmouth.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 
 
Google_AdSense



Publicité    



 
snap



Autorisation : Membre
Nb de messages : 364
Inscrit le : Dim 13 Fév 2011, 14:17
Posté le : Mer 22 Jui 2011, 20:44   Citer 

merci^^ c'est vrai que je suis content pour une fois d'avoir fait un programme court, marrant et qui marche XD
Et merci aussi pour l'amélioration^^ Franchement je suis kéké de pas l'avoir vu

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



Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Jeu 23 Jui 2011, 0:31   Citer 

Je n'ai testé que la première mais que dire sinon WAOUH. bigmouth.gif
Simple et efficace glasses.gif

---
J'ai eu du mal avec ce fichu tiprogrameditor qui ne parle pas français. Et tigraphlink-83plusfr buggue.
Cela m'énerve parce que les éditeurs servent normalement à copier/coller. angry.gif

Et pour une fois je n'ai pas été déçu après la copie. happy.gif

Mais j'apprécierai beaucoup que tu postes les codes en anglais, cela m'épargnerai 80% du travail sans te donner une montagne de boulot pour autant. Enfin c'est quand même toi qui voit. winkle.gif
---

J'aime beaucoup ta temporisation variable avec la factorielle Q.

Je te proposes ce changement. Il y avait encore une autre forme mais elle avait le même poids.
Code
If K=26:Then
Output(6,B," "
B+1->B
If B=12:5->B
End
If K=24:Then
Output(6,B," "
B-1->B
If B=4:11->B
End

// devient

Output(6,B," "
B+(K=26)-(K=24)->B
If B=4:11->B
If B=12:5->B



----------------------
ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)

Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store
 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 : Jeu 23 Jui 2011, 12:02   Citer 

Ok j'essayerai^^ Merci happy.gif

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



Autorisation : Membre
Nb de messages : 364
Inscrit le : Dim 13 Fév 2011, 14:17
Posté le : Ven 24 Jui 2011, 17:47   Citer 

Personne à tester ma version avec les 2 pi à gérer dans deux carrés différents? cry.gif

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



Autorisation : Membre
Nb de messages : 438
Inscrit le : Dim 12 Déc 2010, 20:44
Posté le : Dim 26 Jui 2011, 16:39   Citer 

Désolé, je n'ais pas trop le temps de recopier, peut-tu faire un .82p ou autre s'il te plaît? Sinon je peux le faire dès que je trouve le temps... Merci =)

----------------------
Ti-Connect 64bits
PROTECT
 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 : Dim 26 Jui 2011, 21:58   Citer 

si je trouve le temps de télécharger ti graph link wé je le ferai^^ En attendant j'ai plein de trucs à faire et pas assez de temps pour sa XD Je le ferai peut-etre demain ou mardi je verrai

----------------------
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 
 
Tigre-obscure



Autorisation : Membre
Nb de messages : 131
Inscrit le : Mar 24 Mai 2011, 21:39
Posté le : Dim 26 Jui 2011, 23:43   Citer 

Bon j'avais envie de faire un truc donc tenez voici le .83p :
http://www.mediafire.com/?f5ps65541t61h7w
Je l'ai mis dans Mediafire parce que je sais pas où le mettre :x

Tigre =)

----------------------
Posté par Tigre-
Love Programme winkle.gif,Love jeux winkle.gif,Love S....,Love intelligence.
Un peu d'aide? (à propos de la calculette winkle.gif)
LISTE DES JEUX SUR LE FORUM
Liste des caractère ù,ü,ect... Clique ici
Lien pour télécharger un catalogue de touche Ti basic
Lien pour traduire un programme et le tapez à la calculatrice happy.gif

Tigre =)
 Adresse email Haut de page Bas de page 
 
azerty1



Autorisation : Membre
Nb de messages : 438
Inscrit le : Dim 12 Déc 2010, 20:44
Posté le : Lun 27 Jui 2011, 0:15   Citer 

Ah, merci, c'est bien sympa de ta part! winkle.gif
(sinon tu a aussi mégaupload pour hébergé, je le préfère d'ailleurs, plus accueillant tongue.gif )

EDTI: Aie, tu l'a mal fait... Tu n'as pas changé les caractère spéciaux, je crois que tu as simplement fais copié/collé vers ti graph link ou autre... Pzr exemple tu n'as pas midifié STo, tu as laissé "->"
Enfin bon, je le ferai demain si je peux =)

----------------------
Ti-Connect 64bits
PROTECT
 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 : Lun 27 Jui 2011, 9:44   Citer 

je n'ai pas encore testé la version avec 2 pi pour une raison : la flemme. clown.gif clown.gif
Par contre j'ai retouché un peu celui avec un seul pi. Maintenant le cadre change de taille en fonction de la difficulté. ça rajoute un peu de piment crazy.gif crazy.gif
Voici le code


Code

:3 -> dim(LAVA
:EffEcr
:Output(4,1,"avalanch by snap
:Output(1,1,"****************
:Output(8,1,"****************
:Pause
:Lbl F
:EffEcr
:-1 -> X
:8 -> B
:Menu("****************","Facile",A,"Moyen",B,"Difficile",C,"score",R,"Quitter",Z
:Lbl R
:Output(1,1,"SCORE :
:Output(3,1,"FACILE :
:Output(3,10,LAVA(3
:Output(5,1,"MOYEN :
:Output(5,9,LAVA(2
:Output(7,1,"DIFFICILE :
:Output(7,13,LAVA(1
:Pause
:Goto F
:Lbl A:60 -> Q:4->Y:12->Z:Goto [theta]
:Lbl B:40 -> Q:5->Y:11->Z:Goto [theta]
:Lbl C:20 -> Q:6->Y:10->Z
:lbl [theta]
:For(G,3,6
:Output(G,Y -1,"!
:Output(G,Z+1,"!
:End
:For(G,Y,Z
:Output(2,G,"-
:Output(7,G,"-
:end
:Lbl 1
:X+1 -> X
:3 -> A
:entAléat(Y,Z -> C
:While A [pas égal à] 7
:codeTouche -> K
:If K=45:Goto M
:If K=26:Then
:Output(6,B," "
:B+1 -> B
:If B>Z:then: Y->B:output(6,Z+1,"!":End
:End
:If K=24:Then
:Output(6,B," "
:B-1 -> B
:If B<Y:then:Z->B: output(6,Y-1,"!":End
:End
:Output(6,B,"[PI]          --> Le symbole
:Output(A,C,"I
:If A=6 et C=B:Goto M
:Q!
:Output(A,C," "
:A+1 -> A
:End
:Goto 1
:Lbl M
:EffEcr
:Output(3,5,"T MORT!
:Output(4,1,"TON SCORE EST DE
:Output(5,4,X
:Output(5,7,"Points
:Q/20 -> W
:If X>LAVA(W:X -> LAVA(W
:Pause
:EffEcr
:Goto F
:Lbl Z
:EffEcr
:Output(1,1," "



PS : je n'ai pas pris en compte l'amélioration de linkakro. J'espere qu'il ne m'en voudra pas trop eyeonly.gif eyeonly.gif Si c'est possible de l'intégrer, je suis d'accord évidemment (surtout que ce n'est pas mon prog à l'origine ) mais je ne comprend pas à quoi ça correspond donc je prefere ne pas poster de bétises. Voila Voila quelqu'un peut le tester?

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



Autorisation : Membre
Nb de messages : 364
Inscrit le : Dim 13 Fév 2011, 14:17
Posté le : Lun 27 Jui 2011, 14:08   Citer 

Pour la solution de likakro, c'était pour que le pi bouge je crois. si K=24 : sa donne B+0 (K=26 n'est pas vrai donc 0) -1 (car K=24 est vrai) donc le pi bouge en fonction du bouton ou tu apuie. J'avait oublier cette méthode au moment ou j'ai fait le programme.
J'ai pas encore testé ta version mais sa m'a l'air bien. Merci pour les amélioration. Je testerai quand j'aurai le temps... dans 20 min XD

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



Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Lun 27 Jui 2011, 14:30   Citer 

Non je ne t'en veux pas de ne pas avoir pris en compte l'amélioration du contrôle.
Mais c'est dommage car j'avais indiqué la partie exacte à remplacer.

L'astuce réside dans le fait que les tests donnent toujours pour résultat 0 ou 1.
Ainsi je place plusieurs tests dans un seul calcul. Les parenthèses séparent les tests des calculs.

----------------------
ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)

Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store
 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 : Lun 27 Jui 2011, 14:35   Citer 

D'accord mais à ce moment pourrais tu poster juste la partie qui change avec ta méthode? c'est vrai que c'est plus court et si je la pige, cette astuce pourrait m'aider dans plusieurs de mes programmes. cupsmiley.gif cupsmiley.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 
 
snap



Autorisation : Membre
Nb de messages : 364
Inscrit le : Dim 13 Fév 2011, 14:17
Posté le : Lun 27 Jui 2011, 14:38   Citer 

c'est pas très difficile à comprendre quand tu sais que ce qui est entre parenthèse c'est des condition et que une condition comme celle la, sa donne toujours 1 ou 0. Après sa, tu comprend tout. si il y a - et que la condition est vrai, sa donne -1. si il y a + et que la condition est fausse, sa donne +0

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



Autorisation : Membre
Nb de messages : 364
Inscrit le : Dim 13 Fév 2011, 14:17
Posté le : Lun 27 Jui 2011, 15:15   Citer 

Avec la version de linkakro, sa donne :

AVALANCH version 1.3

Code

:3 -> dim(LAVA
:EffEcr
:Output(4,1,"avalanch by snap
:Output(1,1,"****************
:Output(8,1,"****************
:Pause
:Lbl F
:EffEcr
:-1 -> X
:8 -> B
:Menu("****************","Facile",A,"Moyen",B,"Difficile",C,"score",R,"Quitter",Z
:Lbl R
:Output(1,1,"SCORE :
:Output(3,1,"FACILE :
:Output(3,10,LAVA(3
:Output(5,1,"MOYEN :
:Output(5,9,LAVA(2
:Output(7,1,"DIFFICILE :
:Output(7,13,LAVA(1
:Pause
:Goto F
:Lbl A:60 -> Q:4->Y:12->Z:Goto [theta]
:Lbl B:40 -> Q:5->Y:11->Z:Goto [theta]
:Lbl C:20 -> Q:6->Y:10->Z
:lbl [theta]
:For(G,3,6
:Output(G,Y -1,"!
:Output(G,Z+1,"!
:End
:For(G,Y,Z
:Output(2,G,"-
:Output(7,G,"-
:end
:Lbl 1
:X+1 -> X
:3 -> A
:entAléat(Y,Z -> C
:While A [pas égal à] 7
:codeTouche -> K
:If K=45:Goto M
:If K=21:Pause
:Output(6,B," "
:B+(K=26)-(K=24) -> B
:If B>Z:Y -> B
:If B<Y:Z -> B
:Output(6,B,"[PI]          --> Le symbole
:Output(A,C,"I
:If A=6 et C=B:Goto M
:Q!
:Output(A,C," "
:A+1 -> A
:End
:Goto 1
:Lbl M
:EffEcr
:Output(3,5,"T MORT!
:Output(4,1,"TON SCORE EST DE
:Output(5,4,X
:Output(5,7,"Points
:Q/20 -> W
:If X>LAVA(W:X -> LAVA(W
:Pause
:EffEcr
:Goto F
:Lbl Z
:EffEcr
:Output(1,1," "



Voila happy.gif

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



Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Lun 27 Jui 2011, 15:37   Citer 

Exact. En effet :

L'affichage du "!" est innutile car le PI n'a pas encore été affiché.
Parfois on peut remplacer les ">" et "<" par "=" mais il faut s'assurer que les variables initiales sont comprises entre les bornes et cela complique les bornes avec des +1/-1.

----

Globalement, tout test peut être intégré à un calcul entre parenthèses ou via une variable.

(A=B)+3(A<B)-2(A>B et C=0)->Z
Si A=B, alors Z=1
Si A<B, alors Z=3
Si A>B et C=0, alors Z=-2
Si A>B et C=/=0 alors Z=0

Les fonctions de test interprêtent 0 comme 0 et tout le reste comme 1.
If A signifie If A=/=0
If non(A) signifie If A=0
If non(A) et B signifie If A=0 et B=/=0

=====

Editez les entêtes des messages pour que l'on voit bien quelle version est l'amélioration de quoi.
Les versions les plus abouties sont : 1.3 (un pi et cadre variable) et 2.0 (deux pi)

----------------------
ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)

Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store
 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 : Lun 27 Jui 2011, 18:06   Citer 

Voila linkakro, j'ai éditez les messages en mettant la version du programme.
Si tu vois encore des amélioration, te gêne pas XD
Je parle aux autres aussi^^

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



Autorisation : Membre
Nb de messages : 1366
Inscrit le : Ven 25 Mar 2011, 22:58
Posté le : Lun 27 Jui 2011, 19:23   Citer 

Pour le "T ES MORT", l'apastrophe existe (menu angle).
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 : Lun 27 Jui 2011, 20:19   Citer 

Oui je c'est. C'est un petit plus pour ceux qui veulent XD

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



Publicité    



 
figg



Autorisation : Membre
Nb de messages : 7
Inscrit le : Mer 16 Nov 2011, 13:45
Posté le : Mer 16 Nov 2011, 18:48   Citer 

hmm...jai test la 2eme mais ya un prob, ca lit pas la premiere ligne:
3&#8594;dim(LAVA
c'est normal ? (jimagine que non puisque les autres ca marche...donc, comment corriger ce bug ?)

 Adresse email Haut de page Bas de page 
 
Google_AdSense



Publicité    



 
The K



Autorisation : Membre
Nb de messages : 850
Inscrit le : Sam 15 Oct 2011, 11:07
Posté le : Mer 16 Nov 2011, 18:54   Citer 

Le L dans "dim(LAVA)" est le petit L, disponible dans le menu [liste] ([seconde] puis [stats]), puis flèche droite, tout en bas.
Partout ailleurs ou est écrit LAVA, c'est ce petit L qui est représenté aussi.

----------------------
La la la ...

Avez-vous pensé à regarder le manuel avant de demander conseil ? Un manuel est fait avant tout pour être consulté : MANUEL

Vous avez un problème avec l'ordinateur avec votre calculatrice ? SOLUTION EN VIDEO

Mes programmes sur le site : Produit scalaire KMorpion Puissance 4 Mastermind

Mes nouveaux programmes de calcul formel : FCarré FPrime

Projet base de données : ici mais abandonné. Trop de travail ...
 Adresse email Haut de page Bas de page 
 
figg



Autorisation : Membre
Nb de messages : 7
Inscrit le : Mer 16 Nov 2011, 13:45
Posté le : Mer 16 Nov 2011, 19:33   Citer 

aah merci, ca marche maintenant godgrace.gif et au passage je trouve ce jeu superbe ! meme si je croyais que cetait le jeu ou on devait sauter sur des blocs qui tombait du ciel pour eviter la lave qui montait (d'ou mon quiproquo)

 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