Forum

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

Help mouvement

kevgaming57050 le 11/12/2012 à 13:42
Salut a tous et je recherche le programme de base (racine) pour faire un "0" qui doit eviter des "-"
LE 0 DOIT EVITER AVEC LES COMMANDES HAUT BAS ET LE - CE QUI VEUR DIRE QUE DES QUE LE -
TOUCHE LE 0 IL MEURT ET DES QUE - TOUCHE LAUTRE EXTREMITE LE METTRE QUELQUE PART D'AUTRE AVEC LA VRIATION 1,8 EN HAUTEUR CE QUI VEUT DIRE QUE LE - DOIT AVOIR SA
output(A,B,"0"
donc le B DOIT AVOIR B+1->B mais apres je sais pas
merci de vos futures aides
Cytropus le 11/12/2012 à 16:20
Je crois que j'ai à peu près compris ce que tu cherches

Code
:4->B
:entAléat(1,8->D
:16->C
:While C=/=3 et D=/=B
:EffEcr
:C-1->C
:If C=0:Then
:16->C
:entAléat(1,8->D
:End
:Output(B,3,"0"
:Output(D,C,"-"
:CodeTouche->T
:B-(T=25)+(T=34)->B
:End
:Disp " perdu"



Es-ce que c'est bien ça ? crazy.gif
charlesjean le 11/12/2012 à 20:54
ça me rappelle un des jeux que j'avais fais et qui repose sur les mêmes principes:
Code
Pause
ClrHome
0ü ( ) Á
25ü ( ) W
4ü ( ) A
8ü ( ) B
4ü ( ) R
12ü ( ) S
ú ( ) 1ü ( ) P
randInt(1,8)ü ( ) Y
randInt(1,16)ü ( ) Z
Lbl 4
If Wø25
Then
1+Wü ( ) W
Else
If P=ú ( ) 1
Goto 5
Output(N,O," ")
Output(J,K," ")
Output(L,M," ")
Output(P,Q," ")
Output(T,U," ")
Lbl 5
randInt(1,8)ü ( ) H
randInt(1,16)ü ( ) I
randInt(1,8)ü ( ) J
randInt(1,16)ü ( ) K
randInt(1,8)ü ( ) L
randInt(1,16)ü ( ) M
randInt(1,8)ü ( ) P
randInt(1,16)ü ( ) Q
randInt(1,8)ü ( ) T
randInt(1,16)ü ( ) U
randInt(1,16)ü ( ) O
randInt(1,8)ü ( ) N
0ü ( ) W
End
If C=0
Then
1ü ( ) C
Else
0ü ( ) C
End
Output(Y,Z,"à")
Output(A,B,"*")
Output(N,O,"X")
Output(J,K,"X")
Output(L,M,"X")
Output(P,Q,"X")
Output(T,U,"X")
Output(R,S,"C")
If HøA or IøB
Output(H,I," ")
Rü ( ) F
Sü ( ) G
Bü ( ) I
Aü ( ) H
getKeyü ( ) E
If E=24 or E=25 or E=26 or E=34
Then
If E=24
Then
If B>1
Then
B-1ü ( ) B
Else
16ü ( ) B
End
End
If E=25
Then
If A>1
Then
A-1ü ( ) A
Else
8ü ( ) A
End
End
If E=26
Then
If B<16
Then
B+1ü ( ) B
Else
1ü ( ) B
End
End
If E=34
Then
If A<8
Then
A+1ü ( ) A
Else
1ü ( ) A
End
End
End
If C=1
Then
If B>S
S+1ü ( ) S
If B<S
S-1ü ( ) S
If A>R
R+1ü ( ) R
If A<R
R-1ü ( ) R
Output(F,G," ")
End
If A=R and B=S
Then
Lbl 10
Output(5,1,"SCORE:")
Output(5,7,Á)

Stop
End
If A=Y and B=Z
Then
randInt(1,8)ü ( ) Y
randInt(1,16)ü ( ) Z
Á+50ü ( ) Á
End
If A=T and B=U or A=J and B=K or A=L and B=M or A=N and B=O
Goto 10
Goto 4
kevgaming57050 le 12/12/2012 à 11:12
Merci
je testerais les programme cet aprem'
Avertissement :
Il s'agit d'une page optimisée pour la navigation mobile. Voir la page originale.