Poster un nouveau sujet Poster une réponse
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   Citer 

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



 Adresse email Haut de page Bas de page 
 
unknow



Autorisation : Membre
Nb de messages : 229
Inscrit le : Jeu 12 Oct 2006, 19:30
Posté le : Ven 25 Mai 2007, 19:15   Citer 

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

----------------------
Ta le look coco
 Adresse email Haut de page Bas de page 
 
Stupid



Autorisation : Membre
Nb de messages : 768
Inscrit le : Jeu 28 Sep 2006, 18:42
Posté le : Ven 25 Mai 2007, 19:18   Citer 

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

 Adresse email Haut de page Bas de page 
 
unknow



Autorisation : Membre
Nb de messages : 229
Inscrit le : Jeu 12 Oct 2006, 19:30
Posté le : Ven 25 Mai 2007, 19:22   Citer 

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

----------------------
Ta le look coco
 Adresse email Haut de page Bas de page 
 
Stupid



Autorisation : Membre
Nb de messages : 768
Inscrit le : Jeu 28 Sep 2006, 18:42
Posté le : Ven 25 Mai 2007, 19:26   Citer 

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 " "

 Adresse email Haut de page Bas de page 
 
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   Citer 

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

----------------------
Ta le look coco
 Adresse email Haut de page Bas de page 
 
Stupid



Autorisation : Membre
Nb de messages : 768
Inscrit le : Jeu 28 Sep 2006, 18:42
Posté le : Ven 25 Mai 2007, 19:30   Citer 

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

 Adresse email Haut de page Bas de page 
 
NINJACODEUR-3000



Autorisation : Membre
Nb de messages : 35
Inscrit le : Jeu 15 Jui 2023, 8:21
Posté le : Jeu 15 Jui 2023, 13:51   Citer 

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...

 Adresse email Haut de page Bas de page 
 
Poster un nouveau sujet Poster une réponse





  Powered by Fire-Soft-Board v1.0.10 © 2004 - 2025 Groupe FSB
Page générée en 9 requêtes
BlackOne par Grimmlink