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)

Page: 1, 2 >>

(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! Chat de Tout82!
Mes jeux: Bouge!;WallJump;Mouche;Enter;UPMario;Mémoriz;Copter;Pong2P;Pokémon;MineCraft
Mes Prog: XCodeX;IMC;Matrix;Noël
SL-TIProg :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 : 409
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 : 661
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 : 409
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

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 : 409
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 : 409
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

Google_AdSense

Cytropus

Autorisation : Membre
Nb de messages : 409
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.

Cytropus

Autorisation : Membre
Nb de messages : 409
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 : 661
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.

Page: 1, 2 >>

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

Flux RSS