TOUT sur la TI-82/TI-82 STATS/TI-82 STATS.fr : forums, programmes, FAQ, manuels...

Résultat de la recherche

TOUT sur les TI-82 - Index -> Programmes -> Les programmes des internautes -> All-Star Steping

All-Star Steping

Auteur

Message

Stupid

Autorisation : Membre
Nb de messages : 769
Inscrit le : Jeu 28 Sep 2006, 18:42

Posté le : Ven 25 Mai 2007, 19:13

Les regles sont inscrites
Le programme Y je le donne juste aprés
Si vous voulez pas le recopier vous supprimez les deux premieres instructions et vous remplacez par

Code

:ClrHome
:Output(4,1,"****************
:Output(4,1,"****************

ü:sto->
ø:Pas égal à
:Le 1 des Listes
+:Le 6 des Listes

I% se trouve dans finances

Code

PRGM=STEP

:1ü

T:prgmY
:Output(3,1,"ALL-STAR STEPING
:Output(5,2,"UN JEU DU SLOVAK
:Output(8,1,"(C)COPYRIGHT2007
:If Dim L+=0
:{0,0,0,0}ü

L+
:Lbl 0
:Pause :ClrHome
:Menu("ALL-STAR STEPING","JOUER",J,"REGLES",S,"RECORDS",F
:Lbl S
:Disp "MEMORISEZ LES","LETTRES","RETAPEZ LESDANS","L'ORDRE DES QUE","+ S'AFFICHE,NE","TAPEZ PAS AVANT","SINON -200 POINT
;Pause:ClrHome
:Disp "CORRESPONDANCES:","H:HAUT","D:DROITE","B:BAS","G:GAUCHE
:Goto 0
:Lbl F
:Disp "NORMAL:","SCORE:","COUPS JUSTES:","","RAPIDE:","SCORE:","COUPS JUSTES:
:Output(2,7,L+(1
:Output(3,14,L+(3
:Output(6,7,L+(2
:Output(7,14,L+(4
:Goto 0
:Lbl J
:Menu "*****VITESSE:*****","NORMAL",N,"RAPIDE",R
:Lbl N:1ü

Z
:Goto L
:Lbl R:2ü

Z
:Lbl L
:2ü

Y:0ü

F:0ü

G:0ü

J
:Suite(0,A,1,10ü

L
:Lbl 1:ClrHome
:Y+1ü

Y:0ü

E
:For(T,1,Y
:randInt(1,4ü

X
:If X=1
:Output(1,T,"H
:If X=2
:Output(1,T,"D
:If X=3
:Output(1,T,"B
:If X=4
:Output(1,T,"G
:Xü

L(T
:69!:69!69!
:If Z=1:Then
:69!:69!:69!
:End:End
:For(B,1,(500+Y100)/z
:End
:ClrHome
:For(P,1,3
:Output(1,1,P
:69!:69!:69!:69!:69!
:End
:Output(1,1,"GO!
:69!:69!:69!:69!:69!:69!
:ClrHome
:0ü

M:0ü

E
:Getkeyü

C
:If C>0:Then
:Output(8,1,"FAUTE:-200
:F-200ü

F:J+1ü

J:End
:Lbl 3:M+1ü

M
:Output(1,M,M
:If MøY:Goto 3
:Lbl 2:E+1ü

E
:Output(3,E,"+
:For(B,1,200/Z
:End
:Getkeyü

C
:If C=25:1ü

A
:If C=26:2ü

A
:If C=34:3ü

A
:If C=24:4ü

A
:If AøL(E)
:Then :F-50ü

F
:Output(2,E,"X
:Else
:F+100+3Yü

F
:G+1ü

G
:Output(2,E,"O
:End
:69!:69!:69!
:If EøY:Goto 2
:If Yø10:Goto 1
:ClrHome
:If F>L+(Z
:Fü

L+(Z
:If G>L+(3 and Z=1
:Gü

L+(3
:If G>L+(4 and Z=2
:Gü

L+(4
:Output(1,1,"TON SCORE:
:Output(1,11,F
:Output(3,1,G
:Output(3,3,"/52
:Output(5,3,"I%
:Output(5,3,"
:Output(5,1,round((G/52)100,0
:Output(8,1,"FAUTES:
:Output(8,8,J

¤:Le carré dans Graph Stats

Code

PRGM=Y

:ClrHome
:For(Z,2,6,2
:For(A,1,8
:If T<2:Then
:Output(Z,A,"*
:Output(Z,17-A,"*
:End
:If T>1:Then
:Output(Z,A,"¤
:Output(Z,17-A,"¤
:End:End:End

unknow

Autorisation : Membre
Nb de messages : 232
Inscrit le : Jeu 12 Oct 2006, 19:30

Posté le : Ven 25 Mai 2007, 19:15

il marche pas celui la que j'ai transféré ainsi que fonky 4 (a cause des chaines)

----------------------
Ta le look coco

Stupid

Autorisation : Membre
Nb de messages : 769
Inscrit le : Jeu 28 Sep 2006, 18:42

Posté le : Ven 25 Mai 2007, 19:18

fallait recuperer chaine4 et chaine9 et créer les noms avec l'option correspondante et lui marche

unknow

Autorisation : Membre
Nb de messages : 232
Inscrit le : Jeu 12 Oct 2006, 19:30

Posté le : Ven 25 Mai 2007, 19:22

et comment je pouvais le savoir je l'ai transmis pendant que tu perdais lamentablement au basket alors que moi j'avais gagné!

----------------------
Ta le look coco

Stupid

Autorisation : Membre
Nb de messages : 769
Inscrit le : Jeu 28 Sep 2006, 18:42

Posté le : Ven 25 Mai 2007, 19:26

ouais mais j'ai failli gagné mais c'est à cause des briques que tu lançais et que je devais courrir pour les attraper que j'ai perdu

et la chaine4 c'est "(C)COPYRIGHT2007"
et la chaine9 c'est " "

unknow

Autorisation : Membre
Nb de messages : 232
Inscrit le : Jeu 12 Oct 2006, 19:30

Posté le : Ven 25 Mai 2007, 19:28

ba j'ai effacé une partie de ta presentation qui comportai une chaine et l'autre je sais pas.

----------------------
Ta le look coco

Stupid

Autorisation : Membre
Nb de messages : 769
Inscrit le : Jeu 28 Sep 2006, 18:42

Posté le : Ven 25 Mai 2007, 19:30

pour le p4 faudra que je mette le raiseau encore et ça ça va etre chaud et chiant...mais ça seriat enorme

TOUT sur les TI-82 - Index -> Programmes -> Les programmes des internautes -> All-Star Steping