Forum

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

Amelioration et autre pour le jeu de race

leton2111 le 17/10/2010 à 18:57
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)
leton2111 le 17/10/2010 à 19:15
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)
linkakro le 17/10/2010 à 23:15
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.
Sangohan38 le 17/10/2010 à 23:23
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
Avertissement :
Il s'agit d'une page optimisée pour la navigation mobile. Voir la page originale.