Autorisation : Membre
Nb de messages : 891
Inscrit le : Sam 16 Jui 2007, 13:37
Posté le : Sam 06 Oct 2007, 13:20
La deuxième version de mon pong.
J'ai retapé l'integralité du code pour une meilleur fluidité et une Ai plus réaliste et performante. edit 25/10/2007 : Cette version est une nouvelle version.
Si vous rencontrer [Liste <2nd +1>], ce n'est pas une instruction ! c'est juste les touches qu'il faut taper pour avoir la bonne instruction
1->Y
2->dim( [Liste <2nd puis 1>]
{1,9->dim([F]
Lbl M
ClrHome
Menu("POC3 COC5(C)2007","COMMENCER",C,"CONTINUER",3,"NIVEAU A.I",4,"QUITTER",5
Lbl 5:Stop
Lbl 4
10P->A
ClrHome
Disp "NIVEAU A.I",""," DEBUTANT"," FACILE"," MOYEN"," DIFFICILE"," HARDCORE
1->F
Repeat K=105
getKey->K
A->C
min(5,max(1,A+(K=34)-(K=25->A
If F:A->C
0->F
Output(C+2,1," "
Output(A+2,1,"*
End
A/10->P
Goto M
Lbl C
{3,3-> [Liste <2nd puis 1>]
Lbl D
If P>.5 or P<.1:.3->P
6->F:7->A:7->E:8->B
7->G:7->H:0->C:0->D
2->Y
Goto 0
Lbl 3
If not([F](1,1
Goto M
[F](1,1->A
[F](1,7->D
[F](1,2->B
[F](1,8->C
[F](1,3->E
Ans->G
[F](1,4->F
Ans->H
[F](1,9->P
{ [F](1,5),[F](1,6-> [Liste <2nd puis 1>]
1->Y
Lbl 0
A->Q
B->S
Repeat K=22
Repeat not(Y
Output(Q,S," "
B+(B=17)+not(B->B
Output(A,B,"*
Output(1,H," "
Output(1,F,"===
getKey->K
If Y-1:Then
(Ans=26)-(Ans=24->M
Output(8,E," "
min(14,max(1,E+M->E
Output(8,E,"===
B+C(A-1->O
F->H
If O>16:32-O->O
If O<1:2-O->O
3rand2P(O-F-1+(A<4)2rand
If P>.3 and A=2 and F=B-1:9E-9F
min(14,max(1,F+(Ans>1-2P)-(Ans<2P-1->F
End
If Y=2
Output(4,4,"APPUYEZ SUR UNE TOUCHE
If Y:Then
If K and K-24 and K-26:0->Y
If Y=2:min(E+2,max(E,B->B
ClrHome
Output(1,16, [Liste <2nd puis 1>] (2
Output(8,1, [Liste <2nd puis 1>] (1
End
End
If K=21:Pause
A->Q
B->S
A+D->A:B+C->B
If A=9 or not(A
Then
1+not(A
-1+ [Liste <2nd puis 1>] (Ans-> [Liste <2nd puis 1>] (Ans
ClrHome
If Ans
Goto D
If [Liste <2nd puis 1>] (2:Disp "VOUS AVEZ PERDU!
If [Liste <2nd puis 1>] (1:Disp "VOUS AVEZ","GAGNE !
Stop
End
C-2C(B+C>16 or B+C<1->C
A>6->V
A<3->W
If V and E [INFERIEUR OU EGAL] B and E [SUPERIEUR OU EGAL ]B-2 or W and F [INFERIEUR OU EGAL] B and F [SUPERIEUR OU EGAL] B-2:Then
(B-(F+1)W-(E+1)V)(1+(A=8 or A=1->C
W-V->D
End
End
Menu("SAUVEGARDER ?","OUI",O,"NON",N
Lbl O
[[A,B,E,F, [Liste <2nd puis 1>] (1), [Liste <2nd puis 1>] (2),D,C,P->[F]
Lbl N
ClrHome
Output(1,9,"
[LISTE 1] correspond à L1, qui se marque par [2nd] + [1]
Code
1->Y
2->dim([LISTE 1]
{1,8->dim([F]
Lbl M
Menu("POC2 COC5(C)2007","COMMENCER",C,"CONTINUER",3,"QUITTER",5
Lbl 5:Stop
Lbl C
{4,4->[LISTE 1]
Lbl D
6->F:7->A:7->E:8->B
7->G:7->H:0->C:0->D
2->Y
Goto 0
Lbl 3
If not([F](1,1
Goto M
[F](1,1->A
[F](1,7->D
[F](1,2->B
[F](1,8->C
[F](1,3->E
Ans->G
[F](1,4->F
Ans->H
{[F](1,5),[F](1,6->[LISTE 1]
2->Y
Lbl 0
A->Q
B->S
Repeat K=22
Repeat not(Y
Output(8,G," "
Output(8,E,"===
Output(Q,S," "
Output(A,B,"*
Output(1,H," "
Output(1,F,"===
Output(1,1,[LISTE 1]2
Output(8,1,[LISTE 1]1
E->G
getKey->K
max(1,min(14,E+(Ans=26)-(Ans=24->E
If Y=2:Then
Output(4,4,"APPUYEZ SUR UNE TOUCHE
If K=21 or K=105:0->Y
min(E+2,max(E,B->B
ClrHome
End
End
A->Q
B->S
A+D->A:B+C->B
If A=9 or not(A
Then
1+not(A
[LISTE 1](Ans) - 1->[LISTE 1](Ans
If Ans
Goto D
Stop
End
C-2C(B+C>16 or B+C<1->C
A>6->V
A<3->W
If V and E [INFERIEUR OU EGAL] B and E [SUPERIEUR OU EGAL] B-2 or W and F[INFERIEUR OU EGAL]B and F[SUPERIEUR OU EGAL]B-2:Then
(B-(F+1)W-(E+1)V)(1+(A=8 or A=1->C
W-V->D
End
B+C(A-1->O
F->H
If O>16:32-O->O
If O<1:2-O->O
rand.2(O-F-1+(A<4)2rand
min(14,max(1,F+(Ans>0)-(Ans<0->F
End
Menu("SAUVEGARDER ?","OUI",O,"NON",N
Lbl O
[[A,B,E,F,[LISTE 1])(1,[LISTE 1](2),D,C->[F]
Lbl N
ClrHome
Autorisation : Membre
Nb de messages : 768
Inscrit le : Jeu 28 Sep 2006, 18:42
Posté le : Sam 06 Oct 2007, 18:06
Citer : mad67
bravo c le pong le mieux fait mais comme je naime pas qu'on fasse mieux que moi je vais integrer un pong dans mon vista.
je vais me lancer dans la lutte aussi rien que pour essayer de faire mieux que mad, et si tu fais un vista faut que tu fasses un jeu d'échec et un démineur...
Autorisation : Membre
Nb de messages : 630
Inscrit le : Sam 23 Jui 2007, 14:05
Posté le : Dim 07 Oct 2007, 9:05
ils sont prevu en effet le solitaire et le ink ball manqueront par contre mais pait et vord seront la aussi la version msn elle dechire et celle de coc5 marche pas car g essayer avec mes 2 82 stats
Autorisation : Membre
Nb de messages : 17
Inscrit le : Dim 07 Oct 2007, 1:44
Posté le : Mer 10 Oct 2007, 15:31
En faite le programme est écrit en anglais et vu que les stats.fr sont en francais il faut trouver les traductions, je sais que sur un sujet ils avaient mis les traduction mais faut chercher mais t'inquiete pas il y en aura bien un qui va te repondre a cette question.
Autorisation : Membre
Nb de messages : 3370
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Mer 10 Oct 2007, 16:22
Alors désoler mais la traduction n'est pas totale mais va dans la section article et cherche traduction anglaise/française.
Tu trouvera que Getkey veut dire Codetouche.
Sangohan38
thibaut59850 Invité
Posté le : Mer 10 Oct 2007, 16:58
oki merci!!
thibaut59850 Invité
Posté le : Mer 10 Oct 2007, 17:38
dsl mé g encor un pti probléme.
je ne sais pas où est rand.
Autorisation : Membre
Nb de messages : 768
Inscrit le : Jeu 28 Sep 2006, 18:42
Posté le : Mer 10 Oct 2007, 17:39
maths droite droite droite entrer (nbraleat)
thibaut59850 Invité
Posté le : Mer 10 Oct 2007, 17:54
mon programme ne fonctionne pas. il me dit qu'il y a une erreur au niveau de:
out(Q,S,"
Quelqu'un peut-il me dire comment je dois faire pour faire fonctionner mon programme?
Merci d'avance