Avertissement :Il s'agit d'une page optimisée pour la navigation mobile. Voir la
page originale.
Je reposte amelioration et autre pour race
leton2111 le 18/10/2010 à 19:06
ce jeu proviendrai de ce forum mais moi je l'ai eu par mon frère mer ci de votre compréhensions
voila
Code
:7ü ( 
) T
:ClrHome
:6ü ( ) A:8ü ( ) I:10ü ( ) Y
:ClrList L†
:Tü ( ) dim L†
:Ansü ( ) dim L…
:Fill(0,L…
:For(X,1,T
:6ü ( ) L†(X
:Disp "/////] [/////
:End
:Output(1,8,"V
:For(X,0,ý^ ( 
) 9
:getKeyü ( ) K
:If K=24:I-1ü ( ) I
:If K=26:I+1ü ( ) I
:A-1+int 3randü ( ) A
:If A=1:2ü ( ) A
:If A=11:10ü ( ) A
:Aü ( ) L†(T
:Disp "
:Output(8,1,X
:Output(T,1,"////////////////
:Output(T,A,"] [
:Output(1,I,"V
:If rand<X/300
:Then
:A+int 4rand+1
:Output(T,Ans,"Á
:0.01Ans+L†(Tü ( ) L†(T
:End
:int L†(1
:If I÷ ( 
) Ans or Iù ( 
) 5+Ans or I=100fPart L†(1
:Goto 0
:SortA(L…,L†
:End:Lbl 0
:Output(1,I,"X
:Output(8,8,"GAME OVER
:Pause :ClrHome
:ClrList L…,L†
:Output(1,1,"
voila j'ai trois defi:
j'essai 1:::: de pouvoir accelerer le jeu (la voiture qui va plus vite)
entre autre que le ,v, va plus vite vers le bas
2:::: un peu plus compliqué : faire en sorte que le terrain fasse ca
\\\\\\\vvvv\\\\\\\\\\\
\\\\\\vvvv\\\\\\\\\\\\
\\\\\vvvv\\\\\\\\\\\\\
\\\\vvvv\\\\\\\\\\\\\\
\\\vvvv\\\\\\\\\\\\\\\
\\vvvv\\\\\\\\\\\\\\\\
\vvvv\\\\\\\\\\\\\\\\\
vvvv\\\\\\\\\\\\\\\\\\
vvv\\\\\\\\\\\\\\\\\\v
vv\\\\\\\\\\\\\\\\\\vv
v\\\\\\\\\\\\\\\\\\vvv
\\\\\\\\\\\\\\\\\\vvvv
\\\\\\\\\\\\\\\\\vvvv\
\\\\\\\\\\\\\\\\vvvv\\
le terrain passe de gauche a droite et le v de même
d'habitude le terrain reste dans l’écran allant de gauche a droite de manière aléatoire avec une case d'ecart
ca passe d'un coté a l'autre !
comme ca
\\\vvvv\\\\\\\\\\\\\\\
\\vvvv\\\\\\\\\\\\\\\\
\vvvv\\\\\\\\\\\\\\\\\
\\vvvv\\\\\\\\\\\\\\\\
\\\vvvv\\\\\\\\\\\\\\\
\\\\vvvv\\\\\\\\\\\\\\
\\\\\vvvv\\\\\\\\\\\\\
\\\\\\vvvv\\\\\\\\\\\\
\\\\\\\vvvv\\\\\\\\\\\
\\\\\\vvvv\\\\\\\\\\\\
\\\\\vvvv\\\\\\\\\\\\\
\\\\vvvv\\\\\\\\\\\\\\
\\\\\vvvv\\\\\\\\\\\\\
3:::: et un dernier défi : faire un menu activant ou désactivant la fonction precedente (le gauche droite /ou/ droite gauche)
__________________
-----menu!!
1:activer-(g/d)
2:désactiver-(g/d)
__________________
leton2111 le 21/10/2010 à 12:10
personne ne sait ?linkakro le 21/10/2010 à 22:09
Dans le sujet verrouillé par sangohan38, j'avais apporté un élément de réponse.
Hélas une partie du programme reste difficilement compréhensible.
EDIT : J'ai trouvé ! Il y avait une incohérence.
Il semble bien que le programme vienne du forum comme je l'ai dit dans un des nombreux sujets ou ce programme a été posté.
Dans celui que je pensais connaître, la voie de circulation est large de 4 cases. Dans celui que tu nous communiques quelqu'un a modifié l'affichage sans modifier la ligne d'avant goto0.
Je vais reporter la réponse de l'autre sujet et apporter un complément.linkakro le 22/10/2010 à 00:18
Le programme donne ceci.
Code
7ü ( ) T
ClrHome
6ü ( ) A:7ü ( ) I:10ü ( ) Y
ClrList L†
Tü ( ) dim(L†
Ansü ( ) dim(L…
Fill(0,L…
For(X,1,T
6ü ( ) L†(X
Disp "/////] [/////
End
Output(1,7,"V
For(X,0,ý^ ( ) (9
getKeyü ( ) K
If K=24:I-1ü ( ) I
If K=26:I+1ü ( ) I
A-1+int(3randü ( ) A
If I=0:16ü ( ) I
If I=17:1ü ( ) I
If A=0:16ü ( ) A
If A=17:1ü ( ) A
Aü ( ) L†(T
Disp "
Output(8,1,X
Output(T,1,"////////////////
Output(T,A,"]
Output(T,A+1-16(A+1>16)," "
Output(T,A+2-16(A+2>16),"[
Output(1,I,"V
L†(1
If Ans+1-I-16(Ans=16)
Goto 0
SortA(L…,L†
End:Lbl 0
Output(1,I,"X
Output(8,8,"GAME OVER
Pause :ClrHome
ClrList L…,L†
Output(1,1,"
Edit: J'ai apporté une correction.
leton2111 le 23/10/2010 à 11:27
ca repond a quelle question la 1 2 ou 3?leton 2111 le 27/10/2010 à 19:21
personne pour repondre ? meme pas comment l'accelererlinkakro le 27/10/2010 à 22:44
Le programme original était déjà optimal.
Mon amélioration ajoûte seulement la possibilité de passer d'un coté à l'autre.
D'ailleurs, j'ai trouvé un bug. Je vais tenter de le corriger. Avertissement :Il s'agit d'une page optimisée pour la navigation mobile. Voir la
page originale.
