Forum

Catégorie : Programmes
Forum : Les programmes des internautes
Vues : 28885
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 8 / 11

bazz le 18/09/2011 à 12:21
bonjour , moi j'adore ce jeu et il marche très bien godgrace.gif
Je change souvent de balle en remplacant le * par 0 ou des trucs comme sa eyeonly.gif
J'aimerai savoir si on pouvait changer de balle a chaque fois qu'elle est frappée eyeonly.gif
par exemple : je frappe une balle qui est un P puis quand l' I.A la renvoit sa devient un O puis quand je la renvois un n ... etc
Et si ( le must du must ) on pourrait aussi donner un nom d'utilisateur quand on commence une partie et que c'est les lettres de notre nom qui deviennent les balles
exemple:
commencer
nom d'utilisateur = basile
la premiere balle est un B puis elle devient un A puis un S ...jusqu'a E puis on recommence a B
Si vous arrivez a faire sa se serait top svp
et merci pour ce super jeu happy.gif
sandro le 18/09/2011 à 13:07
Ca devrait marcher si tu rajoute les 3 premières lignes et que tu modifie au niveau des deux lignes que j'ai un peut séparé des autres vers le milieu

Sandro

Code
Input "NOM:",Str1
1->G
Lenght(Str1 -> H

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,Sub(Str1,G,1
G+1-(H-1)(G=H) -> G

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,"
bazz le 18/09/2011 à 15:33
ou se situe la touche lenght svp cry.gif
linkakro le 18/09/2011 à 15:50
length est dans le catalogue. Elle se traduit par longueur.

Super, j'avais la flemme de le faire.

G+1-(H-1)(G=H) -> G
ne marche pas correctement.

Initialise G à 0 au lieu de 1 puis applique une de ces corrections.
G+1-H(G=H -> G
G+1-Hint(G/H -> G
sandro le 18/09/2011 à 19:00
Merci pour ta rectification
bazz le 18/09/2011 à 20:36
ils me mettent erreur argument quand je demarre le jeu meme quand je change sa :
G+1-(H-1)(G=H) -> G
par sa :
G+1-H(G=H -> G
aider moi svp
sandro le 18/09/2011 à 20:40
Alors essaye en remplaçant G+1-(H-1)(G=H) -> G par G+1 -> G:If G=H:1 -> G

Sandro
C#Master le 21/09/2011 à 20:50
Salut les mecs bigmouth.gif

J'ai une erreur syntaxe au niveau de la 3ème ligne (dim([F]), vous savez d'ou ça vient ? frozen.gif
Sangohan38 le 21/09/2011 à 20:54
Je pense que tu as du mettre [F] de la forme [+F+] or c'est la matrice F qu'il faut mettre c'est-à-dire dans le menu MATRIX.

Sangohan38
linkakro le 24/09/2011 à 19:36
bazz a écrit :
ils me mettent erreur argument quand je demarre le jeu meme quand je change sa :
G+1-(H-1)(G=H) -> G
par sa :
G+1-H(G=H -> G
aider moi svp
Une erreur argument ne vient pas de ça. Dis nous à quel endroit s'arrête le programme.
Macro le 07/10/2011 à 19:29
Salut à tous, j'ai recopié tout le programme, mais ça ne marqhe pas à cet endroit :

Menu("POC2 COC5(C)2007","COMMENCER",C,"CONTINUER",3,"QUITTER",5

C'est le C qui marche pas ... ^^' Pouvez-vous m'aider svp ? ahh.gif
Macro le 07/10/2011 à 19:31
C'est re moi, et pour l'erreur, ça me met "ERR:TYPE DONNEE"

Et pas type syntaxe ... crazy.gif frozen.gif

PS : pas trouvé l'option éditer, dsl ...
linkakro le 07/10/2011 à 19:44
Les menus peuvent provoquer des erreurs syntaxe,argument,type,étiquette.
Tu as commis une erreur soit de guillemets, soit de virgule quelque part sur la ligne avant C.

ps : les invités ne peuvent éditer les messages.
Macro le 07/10/2011 à 21:59
Bon, l'erreur s'est pas reproduite, j'ai réécris la ligne ^^
Mais autre beug ...

Cette fois à la ligne :

Output(Q,S," "

Là ça me beug sur la deuxième virgule ... Et là c'est re une erreur de syntaxe ... --' J'ai beau réécrire la ligne, rien ne change ...
programmathss le 07/10/2011 à 22:51
Marco C. ?? ^^

Le Q est compris entre 1 et 8 entier et le S entre 1 et 16 entier ?
linkakro le 07/10/2011 à 22:59
Si c'est une erreur de syntaxe, ce n'est pas la peine de chercher la cause d'une erreur domaine.

Output( saisi depuis le menu prgm+droite+6
puis [Q]+[,]+[S]+[,]+["]+[_]+["]
Output doit être sur une ligne vierge ou avoir ":" au début.
Macro le 07/10/2011 à 23:39
Maintenant le beug c'est sur la parenthèse de cette ligne (en gras)

min(14,max(1,F+(Ans>1-2P)-(Ans<2P-1->F
sandro le 08/10/2011 à 11:19
Bizard, j'ai executer sur ma TI82stats.fr, ça ne pose aucun problème : c'est quoi le type d'erreur affiché? Utilise tu bien les virgules au dessus de la touche [7] ?

Sandro
nico le 09/10/2011 à 11:00
je ne sais pas si c est normal, mais quand je joue la balle se deplace aussi vite que la plateforme ce qui faite que quand la balle est à l opposé c est impossible de l avoir. normal?
sandro le 09/10/2011 à 11:43
Jen sais rien, je n'y ai jamais joué.

Sandro
Avertissement :
Il s'agit d'une page optimisée pour la navigation mobile. Voir la page originale.