Forum

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

POC3 (jeu de pong) - Page 1 / 11

coc5 le 06/10/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 happy.gif




image non contractuel^^






LE PROGRAMME ICI !



Code


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


"Ancienne version" a écrit :





http://www.badongo.com/file/4612936

[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
mad67 le 06/10/2007 à 16:31
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.
Stupid le 06/10/2007 à 18:06
mad67 a écrit :
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.


laugh.gif 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...
mad67 le 07/10/2007 à 09: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
mad67 le 07/10/2007 à 12:58
question c kelle touche pour se deplacer?
Mickael3813 le 07/10/2007 à 13:03
Salut moi jai juste une question je voudrais savoir comment on fait : Ans godgrace.gif
coc5 le 07/10/2007 à 15:33
mad67 a écrit :
question c kelle touche pour se deplacer?


Gauche et droite, comme dans tout pong qui se respecte eyeonly.gif

Mickael3615 a écrit :
Salut moi jai juste une question je voudrais savoir comment on fait : Ans


Simple : [2nd] + [{-}] (la touche à coté de [ENTER])
Mickael3813 le 07/10/2007 à 16:03
Moi j'ai une TI-82stats.fr donc Ans c'est en anglais et Rep pour les calculette française c'est ca ?
Sangohan38 le 07/10/2007 à 16:12
Oui, c'est sa.

Sangohan38
unknow le 08/10/2007 à 20:31
coc5 a écrit :

Gauche et droite, comme dans tout pong qui se respecte eyeonly.gif


LOOL


c'est vrai
mad67 le 10/10/2007 à 13:07
jai du mal le taper.
thibaut59850 le 10/10/2007 à 13:44
Salut,
Moi j'ai une 82Stats.fr et je ne trouve pas If not. Où je peux le trouver?
Mickael3813 le 10/10/2007 à 14:48
If not c'est égale à If nonLe If tu le trouves dans le catalogue [2nd]+[0] et nonc'est dans [math] fleche de droite et la tu y trouveras. godgrace.gif
thibaut59850 le 10/10/2007 à 15:14
OK merci!
Un autre petit truc getKey. Je trouve ça où? moodforlove.gif
Mickael3813 le 10/10/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.
Sangohan38 le 10/10/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 le 10/10/2007 à 16:58
oki merci!!
thibaut59850 le 10/10/2007 à 17:38
dsl mé g encor un pti probléme.
je ne sais pas où est rand. moodforlove.gif moodforlove.gif moodforlove.gif
Stupid le 10/10/2007 à 17:39
maths droite droite droite entrer (nbraleat)
thibaut59850 le 10/10/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
Avertissement :
Il s'agit d'une page optimisée pour la navigation mobile. Voir la page originale.