Forum | TOUT sur la TI-82

TOUT sur la TI-82/TI-82 STATS/TI-82 STATS.fr - Index -> Programmes -> Les programmes des internautes -> All-Star Steping

All-Star Steping

Auteur

Message

Stupid

Autorisation : Membre
Nb de messages : 768
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 : 229
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 : 768
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 : 229
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 : 768
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 " "

Google_AdSense

unknow

Autorisation : Membre
Nb de messages : 229
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 : 768
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

NINJACODEUR-3000

Autorisation : Membre
Nb de messages : 35
Inscrit le : Jeu 15 Jui 2023, 8:21

Posté le : Jeu 15 Jui 2023, 13:51

les 69! dans ton prog ne ralentissent que temporairement le jeu

on m'a dit qu’il fallait mieux mettre des For() mais bon pas sur j'ai pas encore test alors...

TOUT sur la TI-82/TI-82 STATS/TI-82 STATS.fr - Index -> Programmes -> Les programmes des internautes -> All-Star Steping

Flux RSS