Poster un nouveau sujet Poster une réponse
help mouvement
Auteur Message
kevgaming57050



Autorisation : Membre
Nb de messages : 23
Inscrit le : Jeu 06 Déc 2012, 8:12
Posté le : Mar 11 Déc 2012, 13:42   Citer 

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

 Adresse email Haut de page Bas de page 
 
Cytropus



Autorisation : Membre
Nb de messages : 407
Inscrit le : Lun 07 Nov 2011, 12:09
Posté le : Mar 11 Déc 2012, 16:20   Citer 

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

----------------------
Le nouveau site de tout82
 Adresse email Haut de page Bas de page 
 
charlesjean



Autorisation : Membre
Nb de messages : 32
Inscrit le : Lun 08 Oct 2012, 18:28
Posté le : Mar 11 Déc 2012, 20:54   Citer 

ç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



----------------------
une journée sans rire est une journée perdue .
rire 30 minutes par jour rends la santé et augmente la durée de vie!
(ne remplace pas l'avis d'un spécialiste ou d'un professionnel de la santé,veuillez consulter un médecin)
 Adresse email Haut de page Bas de page 
 
Google_AdSense



Publicité    



 
kevgaming57050



Autorisation : Membre
Nb de messages : 23
Inscrit le : Jeu 06 Déc 2012, 8:12
Posté le : Mer 12 Déc 2012, 11:12   Citer 

Merci
je testerais les programme cet aprem'

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





  Page générée en 6 requêtes