Gamme TI-82
Partager sur Facebook Fil RSS Imprimer la page
Cacher les résultats

Résultat de la recherche



Poster un nouveau sujet Poster une réponse Page: 1, , , ..., , ,      >>
POC3 (jeu de pong)
Auteur Message
coc5
Avatar

Autorisation : Membre
Nb de messages : 887
Inscrit le : Sam 16 Jui 2007, 13:37
Posté le : Sam 06 Oct 2007, 13:20   Citer 

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




Citer : "Ancienne version"





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




----------------------
Ne cliquez pas ici !
 Adresse email Haut de page Bas de page 
 
mad67
Avatar

Autorisation : Membre
Nb de messages : 638
Inscrit le : Sam 23 Jui 2007, 14:05
Posté le : Sam 06 Oct 2007, 16:31   Citer 

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.

 Adresse email Haut de page Bas de page 
 
Stupid



Autorisation : Membre
Nb de messages : 769
Inscrit le : Jeu 28 Sep 2006, 18:42
Posté le : Sam 06 Oct 2007, 18:06   Citer 


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.



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

 Adresse email Haut de page Bas de page 
 
mad67
Avatar

Autorisation : Membre
Nb de messages : 638
Inscrit le : Sam 23 Jui 2007, 14:05
Posté le : Dim 07 Oct 2007, 9:05   Citer 

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

 Adresse email Haut de page Bas de page 
 
mad67
Avatar

Autorisation : Membre
Nb de messages : 638
Inscrit le : Sam 23 Jui 2007, 14:05
Posté le : Dim 07 Oct 2007, 12:58   Citer 

question c kelle touche pour se deplacer?

 Adresse email Haut de page Bas de page 
 
Mickael3813
Avatar

Autorisation : Membre
Nb de messages : 17
Inscrit le : Dim 07 Oct 2007, 1:44
Posté le : Dim 07 Oct 2007, 13:03   Citer 

Salut moi jai juste une question je voudrais savoir comment on fait : Ans godgrace.gif

 Adresse email Haut de page Bas de page 
 
coc5
Avatar

Autorisation : Membre
Nb de messages : 887
Inscrit le : Sam 16 Jui 2007, 13:37
Posté le : Dim 07 Oct 2007, 15:33   Citer 


Citer : mad67
question c kelle touche pour se deplacer?



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


Citer : Mickael3615
Salut moi jai juste une question je voudrais savoir comment on fait : Ans



Simple : [2nd] + [{-}] (la touche à coté de [ENTER])

----------------------
Ne cliquez pas ici !
 Adresse email Haut de page Bas de page 
 
Mickael3813
Avatar

Autorisation : Membre
Nb de messages : 17
Inscrit le : Dim 07 Oct 2007, 1:44
Posté le : Dim 07 Oct 2007, 16:03   Citer 

Moi j'ai une TI-82stats.fr donc Ans c'est en anglais et Rep pour les calculette française c'est ca ?

 Adresse email Haut de page Bas de page 
 
Sangohan38



Autorisation : Membre
Nb de messages : 3391
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Dim 07 Oct 2007, 16:12   Citer 

Oui, c'est sa.

Sangohan38

----------------------
 Adresse email Haut de page Bas de page 
 
unknow
Avatar

Autorisation : Membre
Nb de messages : 232
Inscrit le : Jeu 12 Oct 2006, 19:30
Posté le : Lun 08 Oct 2007, 20:31   Citer 


Citer : coc5

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



LOOL


c'est vrai

----------------------
Ta le look coco

Tout nouveau design venait jeter un coup d'oeil ca en vaut la peine, ca a totalement changé
 Adresse email Haut de page Bas de page 
 
Google_AdSense



Publicité    



 
mad67
Avatar

Autorisation : Membre
Nb de messages : 638
Inscrit le : Sam 23 Jui 2007, 14:05
Posté le : Mer 10 Oct 2007, 13:07   Citer 

jai du mal le taper.

 Adresse email Haut de page Bas de page 
 
thibaut59850
Invité
Posté le : Mer 10 Oct 2007, 13:44   Citer 

Salut,
Moi j'ai une 82Stats.fr et je ne trouve pas If not. Où je peux le trouver?

  Haut de page Bas de page 
 
Mickael3813
Avatar

Autorisation : Membre
Nb de messages : 17
Inscrit le : Dim 07 Oct 2007, 1:44
Posté le : Mer 10 Oct 2007, 14:48   Citer 

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

 Adresse email Haut de page Bas de page 
 
thibaut59850
Invité
Posté le : Mer 10 Oct 2007, 15:14   Citer 

OK merci!
Un autre petit truc getKey. Je trouve ça où? moodforlove.gif

  Haut de page Bas de page 
 
Mickael3813
Avatar

Autorisation : Membre
Nb de messages : 17
Inscrit le : Dim 07 Oct 2007, 1:44
Posté le : Mer 10 Oct 2007, 15:31   Citer 

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.

 Adresse email Haut de page Bas de page 
 
Sangohan38



Autorisation : Membre
Nb de messages : 3391
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Mer 10 Oct 2007, 16:22   Citer 

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

----------------------
 Adresse email Haut de page Bas de page 
 
thibaut59850
Invité
Posté le : Mer 10 Oct 2007, 16:58   Citer 

oki merci!!

  Haut de page Bas de page 
 
Google_AdSense



Publicité    



 
thibaut59850
Invité
Posté le : Mer 10 Oct 2007, 17:38   Citer 

dsl mé g encor un pti probléme.
je ne sais pas où est rand. moodforlove.gif moodforlove.gif moodforlove.gif

  Haut de page Bas de page 
 
Stupid



Autorisation : Membre
Nb de messages : 769
Inscrit le : Jeu 28 Sep 2006, 18:42
Posté le : Mer 10 Oct 2007, 17:39   Citer 

maths droite droite droite entrer (nbraleat)

 Adresse email Haut de page Bas de page 
 
thibaut59850
Invité
Posté le : Mer 10 Oct 2007, 17:54   Citer 

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

  Haut de page Bas de page 
 
Poster un nouveau sujet Poster une réponse Page: 1, , , ..., , ,      >>





  Powered by Fire-Soft-Board v1.0.10 © 2004 - 2016 Groupe FSB
Page générée en 9 requêtes
BlackOne par Grimmlink
 

Site hébergé par Free Page sous licence creative commons Page validée par le W3C (XHTML 1.0 Transitional) Feuille de style validée par le W3C Flux RSS 2.0 valide Page étiquetée par l'ICRA Page testée par Ocawa