Forum

Catégorie : Programmes
Forum : Les programmes des internautes
Vues : 3068
Réponses : 7
Type : discussion
Etat : réponses autorisées
Avertissement :
Il s'agit d'une page optimisée pour la navigation mobile. Voir la page originale.

All-Star Steping

Stupid le 25/05/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 le 25/05/2007 à 19:15
il marche pas celui la que j'ai transféré ainsi que fonky 4 (a cause des chaines)
Stupid le 25/05/2007 à 19:18
fallait recuperer chaine4 et chaine9 et créer les noms avec l'option correspondante et lui marche
unknow le 25/05/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é! laugh.gif
Stupid le 25/05/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 le 25/05/2007 à 19:28
ba j'ai effacé une partie de ta presentation qui comportai une chaine et l'autre je sais pas. pirate.gif
Stupid le 25/05/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 le 15/06/2023 à 13:51
les 69! dans ton prog ne ralentissent que temporairement le jeu loupe.gif

on m'a dit qu’il fallait mieux mettre des For() mais bon pas sur j'ai pas encore test alors...
Avertissement :
Il s'agit d'une page optimisée pour la navigation mobile. Voir la page originale.