Forum

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

Pes - Page 1 / 3

mad67 le 28/01/2007 à 15:59
voila mon pes6:

Code
clrhome
output4,4,"Madian corp"
output5,4,"presente"
output6,4,"pes 6
fot(T,0,800)
end
clrhome
0->S
0->Y
0->Z
input"ton equipe",str1
input"equipe ia:",str2
input"difficulté 2 a 9",Z
input"but victoire:",Y
clrhome
0->G
0->H
lbl99
0->M
0->S
5->A
1->B
5->C
16->D
5->E
8->F
lbl 1
if A=E and B+1=F
0->M
if C=E and F+1=D and A+2<ou egal a C or C=E and F+1=D and A-2>ou egal a C
5->M
if M=5
F-1->F
rand int (1,Z)->Theta
if Theta=1
goto6
if C=E and F+1=D and C=A and C> ou egal a 5
goto 9
if C=E and F+1=D and C=A and C< ou egal a 4
goto 8
if C=E and F+1=D
goto7
if C>E
C-1->C
if C<E
C+1->C
if D<F+1
D+1->D
if D>F+1
D-1->D
lbl6
clrhome
output(A,B,"X
output(C,D,O
output(E,F,".
output(3,1,"-
output(7,1,3-
output(3,16,"-
output(7,16,"-
if F=1 and E> ou egal a 4 and E<ou egal a6
goto 10
if F=16 and E>ou egal a 4and E<ou egal a6
goto11
if F=1 or F=16
goto 12
getkey->K
if K=45 and A=E and B+1=F
5->S
if C=E and F+1=D
0->S
if S=5
F+1->F
if K=26 and A=E and B+1=F
goto 2
if K=24 and A=E and B+1=F
goto 3
if K=34 and A=E and B+1=F
goto 5
if K=25 and A=E and B+1=F
goto 4
if K=24
B-1->B
if K=26
B+1->B
if K=25
A-1->A
if K=34
A+1->A
goto1
lbl 2
F+1->F
B+1->B
goto 1
lbl 3
F-1->F
B-1->B
goto 1
lbl 4
A-1->A
E-1->E
goto 1
lbl 5
A+1->A
E+1->E
goto 1
lbl 7
F-1->F
D-1->D
goto 6
lbl 8
C+1->C
E+1->E
goto 6
lbl 9
C-1->C
E-1->E
goto 6
lbl 10
H+1->H
goto 13
lbl 11
G+1->G
goto 13
lbl 12
goto 13
lbl 13
clrhome
disp"Le score est de",str1,G,Str2,H
for(T,0,800
end
clrhome
if G=Y
goto 16
if H=Y
goto 17
goto 99
lbl 16
disp str1,"A gagné
for(T,0,800
end
clrhome
stop
lbl 17
disp str2,"A gagné
for(T,0,800
end
clrhome
stop
el spectro le 30/01/2007 à 11:27
a quoi sert ce programme ?? ahh.gif
Sangohan38 le 30/01/2007 à 13:16
On dirait un jeu de tir au but.
Il n'est compatible qu'a partir de la 82 STATS car il y a l'instruction STRING.

Sangohan38
mad67 le 31/01/2007 à 14:54
Pas de tir au but mais de foot pur et dur
mad67 le 31/01/2007 à 15:05
voila mon pes6 amélioré avec comptage de minute etc...
Code
clrhome
output4,4,"Madian corp"
output5,4,"presente"
output6,4,"pes 6
fot(T,0,800)
end
clrhome
input"ton equipe",str1
input"equipe ia:",str2
input"difficulté 2 a 9",Z
clrhome
0->G
0->H
0->Y
lbl99
0->M
0->S
5->A
1->B
5->C
16->D
5->E
8->F
lbl 1
if A=E and B+1=F
0->M
if C=E and F+1=D and A+2<ou egal a C or C=E and F+1=D and A-2>ou egal a C
5->M
if M=5
F-1->F
rand int (1,Z)->Theta
if Theta=1
goto6
if C=E and F+1=D and C=A and C> ou egal a 5
goto 9
if C=E and F+1=D and C=A and C< ou egal a 4
goto 8
if C=E and F+1=D
goto7
if C>E
C-1->C
if C<E
C+1->C
if D<F+1
D+1->D
if D>F+1
D-1->D
lbl6
clrhome
output(A,B,"X
output(C,D,O
output(E,F,".
output(3,1,"-
output(7,1,3-
output(3,16,"-
output(7,16,"-
Y+0.5->Y
if Y=90:goto 13
if F=1 and E> ou egal a 4 and E<ou egal a6
goto 10
if F=16 and E>ou egal a 4and E<ou egal a6
goto11
if F=1 or F=16
goto 12
getkey->K
if K=45 and A=E and B+1=F
5->S
if C=E and F+1=D
0->S
if S=5
F+1->F
if K=26 and A=E and B+1=F
goto 2
if K=24 and A=E and B+1=F
goto 3
if K=34 and A=E and B+1=F
goto 5
if K=25 and A=E and B+1=F
goto 4
if K=24
B-1->B
if K=26
B+1->B
if K=25
A-1->A
if K=34
A+1->A
goto1
lbl 2
F+1->F
B+1->B
goto 1
lbl 3
F-1->F
B-1->B
goto 1
lbl 4
A-1->A
E-1->E
goto 1
lbl 5
A+1->A
E+1->E
goto 1
lbl 7
F-1->F
D-1->D
goto 6
lbl 8
C+1->C
E+1->E
goto 6
lbl 9
C-1->C
E-1->E
goto 6
lbl 10
H+1->H
goto 13
lbl 11
G+1->G
goto 13
lbl 12
goto 13
lbl 13
clrhome
disp"Le score est de",str1,G,Str2,H
for(T,0,800
end
clrhome
Disp"on est a la",Y,"minute"
fot(T,0,800
end
clrhome
if Y=90
goto 40
goto 99


if G>H
goto 16
if H>G
goto 17
if G=H
goto 18
lbl 18
clrhome
disp"matche nul"
for(T,0,800
end
clrhome
stop
lbl 16
clrhome
disp str1,"A gagné
for(T,0,800
end
clrhome
stop
lbl 17
disp str2,"A gagné
for(T,0,800
end
clrhome
stop
Sangohan38 le 01/02/2007 à 13:15
Il y a combien de joueurs?

Sangohan38
mad67 le 03/02/2007 à 10:07
2 ton joueur et l ia
mad67 le 14/02/2007 à 14:12
voici la version ti 82 http://www.new-uploader.com/fi[...]1/PES5.83p.html
pour l avoir sans cable ti graph link!!
unknow le 28/02/2007 à 11:29
Sa a l'air sympa ton jeu mais comment tu fais pour rentrer les commandes :
_rand int
_Theta
_getkey
???
parceque ma TI est en francais et ces enntrées son en anglais et je c'est pas à quoi sa correspond en francais.
Sangohan38 le 28/02/2007 à 13:32
Va sur cette page: http://tout82.free.fr/forum/sujet.php?sujet=620
Et tu trouvera une page comportant toutes les traductions que tu cherche.

Sangohan38
unknow le 02/03/2007 à 11:38
je sui aller voir mais je n'ai pas tout trouver. Il me reste :
_Theta
_str1/str2(je ne c pa commen entré ces entré et g une ti-82 stat)
Sangohan38 le 02/03/2007 à 14:25
Str sont les string c'est à dire des chaines de caractères.
Theta est un signe grec coresspondant à [ALPHA]+3.
Pour Str, fait [2nd]+0 et cherche.

Sangohan38
Blackangel le 02/03/2007 à 17:59
Bonjour,

On peut aussi y acceder en faisant [var] + 7, c'est plus rapide que le catalogue je trouve...

Blackangel
Sangohan38 le 03/03/2007 à 15:01
Je ne connaissait pas l'emplacement c'est pour cela que j'ai donné cette méthode.

Sangohan38
mad67 le 05/03/2007 à 11:15
sinon l autre version c'est sans string
mad67 le 23/05/2007 à 07:41
et voila l'amelioration que j'ai faite que je posterai(elle est fini)
PMdej le 23/05/2007 à 18:20
Enfin !!!!
t'as pas intéret a ce qu'il soit pourrie parce que avec le temps que t'as mis a le fair !!!!! .....; enfin c'est toujours ca !!!!
godgrace.gif
mad67 le 26/05/2007 à 11:28
j'avais arreter de programmer
PMdej le 26/05/2007 à 18:01
ouais ouais ..... la bonne excuse !!!!! ....
godgrace.gif
mad67 le 27/05/2007 à 12:11
toi ta rien programmer encore alors tu peux parler
Avertissement :
Il s'agit d'une page optimisée pour la navigation mobile. Voir la page originale.