Forum | TOUT sur la TI-82

TOUT sur la TI-82/TI-82 STATS/TI-82 STATS.fr - Index -> Programmes -> Les programmes des internautes -> (Jeu) Pong2P (Jeu)

(Jeu) Pong2P (Jeu)

Auteur

Message

S.L

Autorisation : Membre
Nb de messages : 101
Inscrit le : Jeu 02 Jui 2011, 15:17

Posté le : Sam 06 Oct 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

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

----------------------
L'homme est né pour programmer.
Émulateur de TI en ligne!
Mes jeux: Bouge!;WallJump;Mouche;Enter;UPMario;Mémoriz;Copter;Pong2P;Pokémon;MineCraft
Mes Prog: XCodeX;IMC;Matrix;Noël
https://web.archive.org/web/20190527230815/https://sl-tiprog.e-monsite.com :site en cours de création.

Axel
Invité

Posté le : Mer 10 Oct 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

Autorisation : Membre
Nb de messages : 407
Inscrit le : Lun 07 Nov 2011, 12:09

Posté le : Jeu 11 Oct 2012, 8:01

Effectivement, j'ai vu deux lbl 1

(mais par contre, aucun goto 1 ?)

----------------------
Le nouveau site de tout82

blg_flg

Autorisation : Membre
Nb de messages : 646
Inscrit le : Mer 23 Mai 2012, 17:28

Posté le : Jeu 11 Oct 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

Autorisation : Membre
Nb de messages : 101
Inscrit le : Jeu 02 Jui 2011, 15:17

Posté le : Jeu 11 Oct 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

S.L

Autorisation : Membre
Nb de messages : 101
Inscrit le : Jeu 02 Jui 2011, 15:17

Posté le : Jeu 11 Oct 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
Invité

Posté le : Jeu 11 Oct 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

Autorisation : Membre
Nb de messages : 101
Inscrit le : Jeu 02 Jui 2011, 15:17

Posté le : Jeu 11 Oct 2012, 19:45

hurricane
Invité

Posté le : Sam 13 Oct 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

Autorisation : Membre
Nb de messages : 407
Inscrit le : Lun 07 Nov 2011, 12:09

Posté le : Sam 13 Oct 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

----------------------
Le nouveau site de tout82

Google_AdSense

Hurricane
Invité

Posté le : Dim 14 Oct 2012, 12:36

Citer : Cytropus

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

Autorisation : Membre
Nb de messages : 407
Inscrit le : Lun 07 Nov 2011, 12:09

Posté le : Dim 14 Oct 2012, 15:55

:If E=8:ú1üH

traduction

:If E=8:-1->H

----------------------
Le nouveau site de tout82

comment...
Invité

Posté le : Mar 16 Oct 2012, 14:37

Comment dois je faire pour entrer les "et" qui sont dans le code?merci d'avance

Cytropus

Autorisation : Membre
Nb de messages : 407
Inscrit le : Lun 07 Nov 2011, 12:09

Posté le : Mar 16 Oct 2012, 16:11

[2nde]+[test]+[>]

----------------------
Le nouveau site de tout82

Mr.Sleep
Invité

Posté le : Jeu 18 Oct 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

Autorisation : Membre
Nb de messages : 407
Inscrit le : Lun 07 Nov 2011, 12:09

Posté le : Jeu 18 Oct 2012, 21:25

Vérifies que t'as tout les label
Label A,C,B,Q,...

----------------------
Le nouveau site de tout82

Flusello
Invité

Posté le : Dim 21 Oct 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.

Google_AdSense

Cytropus

Autorisation : Membre
Nb de messages : 407
Inscrit le : Lun 07 Nov 2011, 12:09

Posté le : Lun 22 Oct 2012, 16:05

T'as bien mit F plus petit ou égale à 1 ?
T'as pas mit F/1

.

----------------------
Le nouveau site de tout82

labels
Invité

Posté le : Sam 27 Oct 2012, 19:32

slt; comment on change un label?

blg_flg

Autorisation : Membre
Nb de messages : 646
Inscrit le : Mer 23 Mai 2012, 17:28

Posté le : Sam 27 Oct 2012, 20:07

Comment ça? Explique mieux ce que tu veux faire.

?
Invité

Posté le : Dim 28 Oct 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

Autorisation : Membre
Nb de messages : 646
Inscrit le : Mer 23 Mai 2012, 17:28

Posté le : Dim 28 Oct 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
Invité

Posté le : Dim 28 Oct 2012, 13:41

j'avais oublié un Effecr mais ca marche toujours pas...

GilDev
Invité

Posté le : Dim 01 Déc 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

Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25

Posté le : Lun 02 Déc 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.free.fr/forum/sujet.php?sujet=279
Cf pages 18 et 21.

----------------------
ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)

Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store

GilDev
Invité

Posté le : Jeu 05 Déc 2013, 20:32

Merci beaucoup ! =)

TOUT sur la TI-82/TI-82 STATS/TI-82 STATS.fr - Index -> Programmes -> Les programmes des internautes -> (Jeu) Pong2P (Jeu)

Page générée en 6 requêtes

Flux RSS