Forum

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

(Jeu) Pong2P (Jeu)

S.L le 06/10/2012 à 22:45
Pong2P (Pong deux joueurs) est ma toute première expérience en la matière. Après l'avoir terminé, je l'ai amélioré afin de rajouter plusieurs exclusivités:
- pouvoir changer la balle
- pouvoir choisir le score qui fera gagner le premier qui l'obtient
- fais apparaître la balle au hasard sur l'un des deux joueurs au début
- fais apparaître la balle sur le gagnant du point précédent
- empêche de jouer à l'autre joueur si la balle n'est pas dans son camp (pour donner de la difficulté au jeu)
- pouvoir mettre le jeu en pause

Image manquante

Télécharger le .8px ici

Nom: PONG2P
Taille: 1061 octets
Auteur: S.L

ü = flèche sto
ô = petit rond des degrès (en bas du catalogue)
Ð = petit carré (fais partit du graphique je crois- en bas du catalogue aussi)
ù = plus petit ou égal (2nd + Math)
÷ = plus grand ou égal (2nd + Math)
ø = signe pas égal (2nd + Math)
/!\ Aprés les guillemets " suivit de rien, il y a enfaite un espace /!\
Code
5ü ( ) O
1ü ( ) P
Lbl Q
EffEcr
Menu("*****PONG2P*****","PLAY",A,"INSTRUCTIONS",B,"OPTIONS",C,"CREDITS",D,"EXIT",E
Lbl E
EffEcr:Stop
Lbl C
codeTouch(ü ( ) K
Output(1,1,"CHOOSE THE BALL:
Output(3,1,"1: ô
Output(5,1,"2: Ð
Output(7,1,"3: O
If K=92:Then:1ü ( ) P:Goto R:End
If K=93:Then:2ü ( ) P:Goto R:End
If K=94:Then:3ü ( ) P:Goto R:End
Goto C
Lbl R
EffEcr
Input "SCORE FOR WIN?",O
If O<1 ou O>50:Then:Disp "ERROR
Pause :Return:End
Goto Q
Lbl D
Disp "GAME BY S.L","(C)2012
Pause
Goto Q
Lbl B
Disp "CONTROL:","P1: [7]/[1]","P2: [9]/[3]","PAUSE: [ENTER]","STOP: [CLEAR]"," ","CATCH THE BALL!
Pause
Goto Q
Lbl A
O-1ü ( ) N
3ü ( ) E
entAl–at(1,2)ü ( ) G
0ü ( ) J:0ü ( ) L
Lbl 1
4ü ( ) A
1ü ( ) B
4ü ( ) C
16ü ( ) D
3ü ( ) E
If G=1:2ü ( ) F
If G=2:15ü ( ) F
1ü ( ) H:1ü ( ) I
While 1
If E=8:ú ( ) 1ü ( ) H
If E=1:1ü ( ) H
If A=E et B=F:1ü ( ) I
If C=E et D=F:ú ( ) 1ü ( ) I
If AøE et F÷ ( ) 1:Goto 2
If CøE et Fù ( ) 16:Goto 3
If F÷ ( ) 8:Then
codeTouch(ü ( ) K
If K=105:Pause
If K=45:Then:EffEcr:Stop:End
If K=92 et A<8:A+1ü ( ) A
If K=72 et A>1:A-1ü ( ) A
End
If Fù ( ) 9:Then
codeTouch(ü ( ) M
If M=105:Pause
If M=45:Then:EffEcr:Stop:End
If M=94 et C<8:C+1ü ( ) C
If M=74 et C>1:C-1ü ( ) C
End
E+Hü ( ) E
F+Iü ( ) F
Output(A,B,"[
If A>1
Output(A-1,B,"
If A<8
Output(A+1,B,"
Output(C,D,"]
If C>1
Output(C-1,D,"
If C<8
Output(C+1,D,"
If P=1:Output(E,F,"ô
If P=2:Output(E,F,"Ð
If P=3:Output(E,F,"O
If E>1 et F<15
Output(E-1,F+1,"
If E>1 et F>1
Output(E-1,F-1,"
If E<8 et F>1
Output(E+1,F-1,"
If E<8 et F<16
Output(E+1,F+1,"
Output(1,7,J
Output(1,10,L
End
Lbl 2
If LøN:Then:L+1ü ( ) L:2ü ( ) G:Cü ( ) E:EffEcr:Goto 1:End
If L=N:Then:EffEcr:Disp "PLAYER 2 WIN!
Pause :Goto Q:End
Lbl 3
If JøN:Then:J+1ü ( ) J:1ü ( ) G:Aü ( ) E:EffEcr:Goto 1:End
If J=N:Then:EffEcr:Disp "PLAYER 1 WIN
Pause :Goto Q:End


Vous l'avez surement remarqué le jeu est en anglais, ça fais plus sérieux ou plus frimeur... godgrace.gif
Axel le 10/10/2012 à 21:38
Cela m'a l'air d'être un bon jeu... Mais dès que j'appuie sur "play" La calculatrice m'affiche "ERR : DOMAINE" et me renvoie à l'étape où on sélectionne le "output" de la balle : " If P=1:Output(E,F,° "
Sais-tu pourquoi?
Cytropus le 11/10/2012 à 08:01
Effectivement, j'ai vu deux lbl 1 karate.gif (mais par contre, aucun goto 1 ?)
blg_flg le 11/10/2012 à 16:20
Je n'ai pas examiné le code, mais il ne se serait pas trompé en mettant un "Lbl" à la place d'un "Goto"?
S.L le 11/10/2012 à 18:23
Effectivement il y avait une erreur de Lbl 1 dans le code, je l'ai corrigé même si elle n’influençait pas sur le bon fonctionnement du jeu.
Edit: si le jeu est deux fois plus rapide godgrace.gif
S.L le 11/10/2012 à 18:37
@Alex: tu t'es juste trompé c'est
Code
If P=1:Output(E,F,"°
et non
Code
If P=1:Output(E,F,° "
Axel le 11/10/2012 à 19:23
Ah oui!
Excuse moi Je me suis trompé en recopiant sur le forum'''
Je vais revérifier le programme. J'avais fais d'autres erreurs (il faut dire qu'il était tard le soir, j'étais crevé^^).
S.L le 11/10/2012 à 19:45
Ok happy.gif
hurricane le 13/10/2012 à 20:07
Bonjour moi lorsque je fais play, il me dit directement player 2 win mais je n'arrive pas à trouver la ou les erreurs quelqu'un pourrait-il m'aider ?
Cytropus le 13/10/2012 à 20:33
tu as fait une erreur soit à cette ligne:
Code
If AøE et F÷ ( ) 1:Goto 2

ou alors le End juste avant le Lbl 2
Hurricane le 14/10/2012 à 12:36
Cytropus a écrit :
tu as fait une erreur soit à cette ligne:
Code
If AøE et F÷ ( ) 1:Goto 2

ou alors le End juste avant le Lbl 2


Que veut dire le "ú" dans :

If E=8:ú1üH ?
Cytropus le 14/10/2012 à 15:55
:If E=8:ú1üH

traduction

:If E=8:-1->H
comment... le 16/10/2012 à 14:37
Comment dois je faire pour entrer les "et" qui sont dans le code?merci d'avance
Cytropus le 16/10/2012 à 16:11
[2nde]+[test]+[>] glasses.gif
Mr.Sleep le 18/10/2012 à 21:23
quand je lance le jeu il me met erreur:etiquette est-ce que jai mal tapé le code pourtant je l ai deja verifié aidez moi s'il vous plait merci d avance
Cytropus le 18/10/2012 à 21:25
Vérifies que t'as tout les label
Label A,C,B,Q,...
Flusello le 21/10/2012 à 20:54
Bonjour,

J'ai le même problème, lorsque je démarre une partie, ils me disent tout de suite player 2 win.
J'ai vérifier la ligne mentionnée dans les commentaires précédents correspondants au même problème et tout est en ordre.

Pouvez vous m'aider s'il vous plait.
Merci d'avance.
Cytropus le 22/10/2012 à 16:05
T'as bien mit F plus petit ou égale à 1 ?
T'as pas mit F/1 eyeonly.gif.
labels le 27/10/2012 à 19:32
slt; comment on change un label?
blg_flg le 27/10/2012 à 20:07
Comment ça? Explique mieux ce que tu veux faire.
? le 28/10/2012 à 13:15
salut,j'avais "player 2 win" j'ai corrigé et ca me met "player 1 win"
il faut que je change quoi?
merci d'avance!
blg_flg le 28/10/2012 à 13:34
Vérifie bien ces quelques lignes de la fin du programme:
Code
Lbl 2
If LøN:Then:L+1ü ( ) L:2ü ( ) G:Cü ( ) E:EffEcr:Goto 1:End
If L=N:Then:EffEcr:Disp "PLAYER 2 WIN!
Pause :Goto Q:End
Lbl 3
If JøN:Then:J+1ü ( ) J:1ü ( ) G:Aü ( ) E:EffEcr:Goto 1:End
If J=N:Then:EffEcr:Disp "PLAYER 1 WIN
nan le 28/10/2012 à 13:41
j'avais oublié un Effecr mais ca marche toujours pas...
GilDev le 01/12/2013 à 21:49
Bonjour !
Super jeu, je ne suis pas déçu de l'avoir recopié ! =) Je sais que c'est un vieux topic mais j'ai juste une question, comment peut-on augmenter la vitesse de la balle ? Car à cette vitesse, personne ne va jamais gagner. ^^'
Merci.
linkakro le 02/12/2013 à 19:01
Il n'y a pas vraiment de manipulation évidente qui permettrait d'augmenter la vitesse.
Il faudrait changer de technique et pratiquement tout réécrire.

Toutefois tu peux supprimer des fonctionnalités qui ne te servent pas, comme tout ce qui contrôle P, et remplacer ce qui dépend de P par un unique affichage.

Le pong de sangohan38 (amélioré par moi après requête d'internautes) devrait te convenir.
https://tout82.pages-perso.fre[...]t.php?sujet=279
Cf pages 18 et 21.
GilDev le 05/12/2013 à 20:32
Merci beaucoup ! =)
Avertissement :
Il s'agit d'une page optimisée pour la navigation mobile. Voir la page originale.