Autorisation : Membre
Nb de messages : 61
Inscrit le : Mer 03 Fév 2010, 14:01
Posté le : Mer 10 Fév 2010, 13:44
Salut à tous !
Voici donc un jeu de penalties ....
Ce jeu est mon 3eme 100% moi , le 2eme était tellement minable que je ne l'ai pas posté
Il est super lourd et pourrais être amélioré, mais je l'ai fait à l'arrache en cours de math alors bon ...
Si vous avez des idées pour l'améliorer et/ ou le raccourcir, donnez les-moi svp
Voici le code:
Code
:EffEcr
:Ouptut(3,3,"REAL MADRID
:Output(4,7,"VS
:Output(5,2,"FC BARCELONE
:Output(6,1,"****************
:Output(7,1,"----PENALTYS----
:Pause
:0->S
:Lbl 0
:EffEcr
:8->B
:8->C
:Lbl 1
:Output(1,5,"-------
:Output(2,5,"! !
:Output(3,5,"! !
:Output(4,1,"----------------
:entAléat(6,10->X
:codeTouche->K
:Output(2,8,"ø ø correspond à théta
:Output(3,8,"T
:Output(7,7,"ø pareil
:Output(8,7,"A
:Output(B,C,"°
:If K=11:Goto 11
:If K=12:Goto 12
:If K=13:Goto 13
:If K=14:Goto 14
:If K=15:Goto 15
:Goto 1
:Lbl 11
:Output(2,8," "
:Output(3,8," "
:Output(2,X,"ø
:Output(3,X,"T
:Lbl A
:Output(B,C,"°
:B-1->B
:If B=4:C-1->C
:If B=3:C-1->C
:If B=2 et C[different de]X:Goto 2
:If B=2 et C=X:Goto 3
:Lbl 12
:Output(2,8," "
:Output(3,8," "
:Output(2,X,"ø
:Output(3,X,"T
:Lbl B
:Output(B,C,"°
:B-1->B
:If B=3:C-1->C
:If B=2 et C[different de]X:Goto 2
:If B=2 et C=X:Goto 3
:Goto B
:Lbl 13
:Output(2,8," "
:Output(3,8," "
:Output(2,X,"ø
:Output(3,X,"T
:Lbl C
:Output(B,C,"°
:B-1->B
:If B=2 et C[different de]X:Goto 2
:If B=2 et C=X:Goto 3
:Goto C
:Lbl 14
:Output(2,8," "
:Output(3,8," "
:Output(2,X,"ø
:Output(3,X,"T
:Lbl D
:Output(B,C,"°
:B-1->B
:If B=3:C+1->C
:If B=2 et C[different de]X:Goto 2
:If B=2 et C=X:Goto 3
:Goto D
:Lbl 15
:Output(2,8," "
:Output(3,8," "
:Output(2,X,"ø
:Output(3,X,"T
:Lbl E
:Output(B,C,"°
:B-1->B
:If B=4:C+1->C
:If B=3:C+1->C
:If B=2 et C[different de]X:Goto 2
:If B=2 et C=X:Goto 3
:Goto E
:Lbl 2
:Pause
:EffEcr
:Output(4,6,"BUT !
:S+1->S
:Pause
:Goto 0
:Lbl 3
:Pause
:EffEcr
:Output(4,5,"RATE !
:Output(6,4,"SERIE:
:Output(6,10,S
:Pause
:Effecr
:If S<L1(5:Goto ø correspond toujours a théta
:If S>L1(1:Goto W
:IF S>L1(2:Goto V
:If S>L1(3:Goto U
:If S>L1(4:Goto T
:If S>L1(5:Goto S
:Lbl S
:Output(2,1,"VOUS AVEZ BATTU
:Output(4,1,"LE 5E MEILLEUR
:Output(6,6,"SCORE
:S->L1(5
:Pause
:Goto ø
:Lbl T
:Output(2,1,"VOUS AVEZ BATTU
:Output(4,1,"LE 4E MEILLEUR
:Output(6,6,"SCORE
:L1(4->L1(5
:S->L1(4
:Pause
:Goto ø
:Lbl U
:Output(2,1,"VOUS AVEZ BATTU
:Output(4,1,"LE 3E MEILLEUR
:Output(6,6,"SCORE
:L1(4->L1(5
:L1(3->L1(4
:S->L1(3
:Pause
:Goto ø
:Lbl V
:Output(2,1,"VOUS AVEZ BATTU
:Output(4,1,"LE 2E MEILLEUR
:Output(6,6,"SCORE
:L1(4->L1(5
:L1(3->L1(4
:L1(2->L1(3
:S->L1(2
:Pause
:Goto ø
:Lbl W
:Output(4,1,"MEILLEUR SCORE !
:L1(4->L1(5
:L1(3->L1(4
:L1(2->L1(3
:L1(1->L1(2
:S->L1(1
:Pause
:Goto ø
:Lbl ø
:EffEcr
:Output(2,1,"MEILLEURS SCORES
:Output(3,1,"1.
:Output(3,3,L1(1
:Output(4,1,"2.
:Output(4,3,L1(2
:Output(5,1,"3.
:Output(5,3,L1(3
:Output(6,1,"4.
:Output(6,3,L1(4
:Output(7,1,"5.
:Output(7,3,L1(5
:0->S
:Pause
:Goto 0
Alors ø correspond à théta.
L1 correspond a la liste 1 que l'on obtient en faisant [2nd]+[1]
Avant de lancer le jeu il faut dimensionner sa liste ainsi(juste la première fois après c'est plus la peine ):
5->dim(L1 (il faut l'écrire sur sa calto)
oui je sais les Lbl sont nombreux et dans tous les sens mais comme je l'ai déjà dit j'ai fait ce programme à l'arrache
Merci de me donner votre avis
P.S.: merci à Didouille pour son explication sur les listes
---------------------- -------------------------------
Même les profs devraient adorer la TI-82.Stats !!!
Elle empêche de dormir en cours ^^
Autorisation : Membre
Nb de messages : 61
Inscrit le : Mer 03 Fév 2010, 14:01
Posté le : Mer 10 Fév 2010, 19:42
Au fait j'ai oublié le fonctionnement
Pour tirer il faut appuyer sur f( x ), fenêtre, zoom, trace ou graphe pour choisir la direction .Il faut appuyer (plusieurs fois) sur entrée pour rejouer.
Le but c'est de marquer le plus de but à la suite sans que le "gardien" arrête le "ballon"
Vous pouvez raccourcir le programme si vous ne voulez qu'un seul meilleur score
ca donne ca
, le 2eme était tellement minable que je ne l'ai pas posté 
alors bon ...
):
mais comme je l'ai déjà dit j'ai fait ce programme à l'arrache 
