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
Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Jeu 21 Oct 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.
---------------------- ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)
Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Ven 22 Oct 2010, 0: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.
---------------------- ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)
Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Mer 27 Oct 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.
---------------------- ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)
