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
Publicité
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...
|- TI-82 | |- Archives |- TI-82 STATS | |- Archives |- TI-82 STATS.fr | |- Archives |- TI-82+ | |- Archives |- TI-82 Advanced | |- Archives |- TI-82 Advanced Edition Python | |- Archives |- Câble, logiciel de transmission et émulateur | |- Archives |- Les programmes des internautes |- Les programmes du site |- Aide à la programmation |- Python82 |- Les concours |- Articles |- Le "blog" |- Que pensez-vous du site ? |- Espace de liberté