Poster un nouveau sujet Verrouillé
amelioration et autre pour le jeu de race
Auteur Message
leton2111



Autorisation : Membre
Nb de messages : 9
Inscrit le : Jeu 07 Oct 2010, 19:14
Posté le : Dim 17 Oct 2010, 18:57   Citer 

voila

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


j'essai 1 de pouvoir accelerer le jeu (la voiture qui va plus vite)

2 un peu plus compliqué : faire en sorte que le terrain fasse ca
\\\\\\\\\\\\\\\\\\\\\\
voila

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


j'essai 1 de pouvoir accelerer le jeu (la voiture qui va plus vite)

2 un peu plus compliqué : faire en sorte que le terrain fasse ca
\\\\\\\\\\\\\\\\\\\\\\
voila

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


j'essai 1 de pouvoir accelerer le jeu (la voiture qui va plus vite)

2 un peu plus compliqué : faire en sorte que le terrain fasse ca
\\\\\\\ v \\\\\\\\\\\
\\\\\\ \\\\\\\\\\\\
\\\\\ \\\\\\\\\\\\\
\\\\ \\\\\\\\\\\\\\
\\\ \\\\\\\\\\\\\\\
\\ \\\\\\\\\\\\\\\\
\ v \\\\\\\\\\\\\\\\\
\\\\\\\\\\\\\\\\\\
\\\\\\\\\\\\\\\\\\
\\\\\\\\\\\\\\\\\\
\\\\\\\\\\\\\\\\\\ v
\\\\\\\\\\\\\\\\\\
\\\\\\\\\\\\\\\\\ \
\\\\\\\\\\\\\\\\ \\

ca passe d'un coté a l'autre !

et un dernier défi : faire un menu activant ou désactivant la fonction precedente (le gauche droite oudroite gauche)

 Adresse email Haut de page Bas de page 
 
leton2111



Autorisation : Membre
Nb de messages : 9
Inscrit le : Jeu 07 Oct 2010, 19:14
Posté le : Dim 17 Oct 2010, 19:15   Citer 

un petit bug dsl

voila

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

j'essai 1 de pouvoir accelerer le jeu (la voiture qui va plus vite)

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

ca passe d'un coté a l'autre !

et un dernier défi : faire un menu activant ou désactivant la fonction precedente (le gauche droite oudroite gauche)

 Adresse email Haut de page Bas de page 
 
linkakro



Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Dim 17 Oct 2010, 23:15   Citer 

Tu peux éditer tes messages ! Et il y a la prévisualisation.

Il y a possibilité avec des if, en compliquant l'affichage et avec une formule.
Mais je n'ai pas bien compris le rôle de chaque variable. Pour commencer, il y a ça.

Code
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

Devient:

Code
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


Pour le reste j'en ai marre, je verrai plus tard. C'est assez incompréhensible.

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

Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store
 Adresse email Haut de page Bas de page 
 
Google_AdSense



Publicité    



 
Sangohan38



Autorisation : Membre
Nb de messages : 3293
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Dim 17 Oct 2010, 23:23   Citer 

C'est vrai que ce sujet est incompréhensible.
En plus, c'est pas ton jeu donc explique d'où il provient pour que l'on voit où on été faites les modifications.

Je verrouille donc ce sujet jusqu'à ce que tu m'aie envoyé où poster un sujet compréhensible.

Sangohan38

 Adresse email Haut de page Bas de page 
 
Poster un nouveau sujet Verrouillé





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