Tout 82
Vous souhaitez réagir à ce message ? Créez un compte en quelques clics ou connectez-vous pour continuer.
Rechercher
 
 

Résultats par :
 


Rechercher Recherche avancée

Connexion

Récupérer mon mot de passe

Chatbox externe


Derniers sujets
» [JEU] Mon voisin du dessous
[Prgm] iPong 3D EmptyDim 16 Oct 2022 - 21:11 par Wistaro

» Bonne année 2018!
[Prgm] iPong 3D EmptyVen 2 Nov 2018 - 19:42 par Ti64CLi++

» Lancement du TI-Concours 2017 !
[Prgm] iPong 3D EmptySam 20 Mai 2017 - 0:27 par Paulo1026

» Chaînes Youtube des membres
[Prgm] iPong 3D EmptyVen 19 Mai 2017 - 22:41 par Wistaro

» cacul du taux d'intêret
[Prgm] iPong 3D EmptyVen 24 Mar 2017 - 21:50 par m@thieu41

» [Projet] Un mario by tout82
[Prgm] iPong 3D EmptyDim 29 Jan 2017 - 14:09 par Wistaro

» Cherche documentation assembleur TI82stat
[Prgm] iPong 3D EmptyMer 25 Jan 2017 - 12:29 par Ti64CLi++

» Probleme Ti-82 Stats fr
[Prgm] iPong 3D EmptyJeu 12 Jan 2017 - 13:56 par Ti64CLi++

» ROM 82 stats.fr
[Prgm] iPong 3D EmptyJeu 15 Déc 2016 - 10:24 par Ti64CLi++

Partenaires
TI-Planet Espace-TI : Forum

Faire un don à Tout-82...
Où va cet argent ?
Membres donateurs:- Persalteas (10€)
- Wistaro (5€)
- jo2geek (22€)

Les posteurs les plus actifs du mois
Aucun utilisateur

-25%
Le deal à ne pas rater :
Grille-Pain : Ukonic Xbox Series S 800 W Blanc
29.99 € 39.99 €
Voir le deal

[Prgm] iPong 3D

3 participants

Aller en bas

[Prgm] iPong 3D Empty [Prgm] iPong 3D

Message par Wistaro Dim 23 Mar 2014 - 17:34

Bonjour, bonsoir!

Je vous présente aujourd'hui mon nouveau jeu, iPong 3D
Avant toutes choses, voici un petit screen du jeu:
[Prgm] iPong 3D 1395591139img_ipong3d2
Sympa, non?

Comme son nom l'indique, iPong3D est un jeu de pong, jouable à 2 joueurs pour le moment.
Vous pouvez facilement modifier la taille du plateau de jeu, ainsi que les effets de 3D!


>Pour cela, rien de plus simple: il vous suffit d'aller dans le menu d'options, puis dimensions. Choisissez ensuite la largeur et la longueur de la fenêtre, et le programme arrangera tout seul le reste. Puis allez dans Réglages 3D, et choisissez avec les 4 flèches directionnelles l'effet de perspective que vous souhaitez. Choisissez Tout si vous voulez tout régler (3D + Dimension)

>Une fois dans le jeu, le premier joueur utilise les touches 2nde et Alpha pour jouer, et l'autre les flèches haut et bas.  
>Au bout de 10 buts, le joueur gagne, et la partie continue jusqu'à l'arrêt du programme.

>Appuyez sur CLEAR pour revenir au menu. Toute vos modifications de terrains sont conservées!


Voici le code:
IPONG3D a écrit:
:DelVar I
:0Xmin:1∆X
:0Ymax:62Ymin
:GridOff:AxesOff
:77D:45C:33Z:47Θ
:ClrDraw
:Lbl 7
:"IPONGStr1
:1B
:For(A,13,46,7
: Text(A,3,sub(Str1,B,1
: B+1B:End
:55A
:For(B,10,28,1
: Line(9,B,86,B
: Line(9,A,86,A
: A+1A
:End
:Text(29,28,"BY WISTARO
:For(T,9,86
: For(U,29,36,1
: Pt-Change(T,U
: End:End
:For(T,36,29
: Line(9,T,86,T
: 69!-69!
:End
:StorePic 3
:Lbl C
:DelVar IClrDraw:RecallPic 3
:Menu("  °IPONG°  ","> JOUER",5,"> OPTIONS",3,"> QUITTER",4
:Lbl 3
:Menu("OPTIONS","DIMENTIONS",6,"REGLAGES 3D",8,"TOUT",B,"RETOUR",C
:Lbl 8:1I:Goto 5
:Lbl B:1I
:Lbl 6
:ClrHome:ClrDraw
:Disp "LARGEUR?"
:Input "DEFAUT=45:",C
:Disp "LONGUEUR?"
:Input "DEFAUT=77:",D
:For(A,Θ-D/2,Θ+D/2
: Line(A,Z-C/2,A,Z+C/2
:End
:StorePic 3
:Lbl 5
:StorePic 2
:7G:7H
:Repeat K=105
: getKey→K
: G+(K=26)-(K=24G
: H+(K=25)-(K=34H
: If max(K={24,25,26,34:Then
: ClrDraw
: RecallPic 2:End
: Line(Θ-D/2,Z+C/2,Θ+G-D/2,Z+H+C/2
: Line(Θ+D/2,Z+C/2,Θ+G+D/2,Z+H+C/2
: Line(Θ+G-D/2,Z+H+C/2,Θ+G+D/2,Z+H+C/2
: If G0:Then
: Line(Θ+D/2,Z-C/2,Θ+G+D/2,Z+H-C/2
: Line(Θ+G+D/2,Z+H+C/2,Θ+G+D/2,Z+H-C/2
: Else
: Line(Θ-D/2,Z-C/2,Θ+G-D/2,Z+H-C/2
: Line(Θ+G-D/2,Z+H+C/2,Θ+G-D/2,Z+H-C/2
: End
: If not(I:Goto A
:End
:Lbl A
:StorePic 1
:DelVar VDelVar W
:Lbl 1
:RecallPic 1
:44A:32B
:randInt(0,1M
:randInt(0,1N
:ZE:EF
:Θ+4-D/2O
:Θ-4+D/2P
:Z+C/2Q
:Z-C/2R
:P+3L:O-2S
:Repeat AL or AS or K=45
: getKey→K
: Text(57,25,V
: Text(57,68,W
: If max(K={21,31:Line(O,Q,O,R
: If max(K={25,34:Line(P,Q,P,R
: Line(P,E,P,E+3,0
: Line(O,F,O,F+3,0
: E-2(K=34)+2(K=25E
: F-2(K=31)+2(K=21F
: Pt-On(A,B,2
: Pt-Off(A,B
: A+M-(not(MA
: B+N-(not(NB
: If not(Pxl-Test(B+2,A:DelVar N
: If not(Pxl-Test(B,A+2:DelVar M
: If not(Pxl-Test(B-2,A:1N
: If not(Pxl-Test(B,A-2:1M
:End
:If K=45:Goto C
:V+(ALV
:W+(ASW
:ClrHome
:If V=10:Pause "VICTOIRE J1
:If W=10:Pause "VICTOIRE J2
:If V<10 or W<10:Goto 1
:Goto 2
:Lbl 4
:Stop

Caractéristiques (v1.0):
> Mode 2 joueurs
> Graphismes 3D/Moteur 3D
> Compteur de victoires
> Design entièrement modulable: effets 3D, tailles


Laissez vos avis, et vos suggestions! Smile


Je suis actuellement en train de travailler sur un v2 du programme. Elle sera bien plus rapide, voici un aperçut:
[Prgm] iPong 3D 1395592013-img-aipong. Elle comporte malheureusement de nombreux bugs que je suis en train de corriger!


Voilà, voilà Smile
Wistaro
Wistaro
Passioné
Passioné

Messages : 918
Points Concours : 86
Productivité : 28
Date d'inscription : 16/06/2013
Localisation : Tarbes - DUT GEII
Calculatrice(s) :
  • TI-82
  • TI-82 Stats
  • TI-82 Stats.fr

. : TI-82 Stats.fr

https://www.youtube.com/user/Wistaro

Revenir en haut Aller en bas

[Prgm] iPong 3D Empty Re: [Prgm] iPong 3D

Message par m@thieu41 Dim 23 Mar 2014 - 20:43

Impressionnant  Bien Joué 

Je regarderai ton code à l'occasion Wink
m@thieu41
m@thieu41
----------------------
----------------------

Messages : 939
Points Concours : 65
Productivité : 47
Date d'inscription : 02/06/2013
Localisation : Nice, France
Calculatrice(s) :
  • TI-82 Stats.fr

. : TI-82 Stats.fr

Revenir en haut Aller en bas

[Prgm] iPong 3D Empty Re: [Prgm] iPong 3D

Message par Linkakro Dim 23 Mar 2014 - 21:01

Pardon ? la balle se déplacerait en 3 dimensions ? Bravo. C'est bien mieux que ma première impression.
Néanmoins la profondeur manque de visibilité je trouve.
J'imagine les raquettes comme des carrés en perspective, le la balle soit comme un cube soit comme une intersection de trois segments orientés suivant les axes.
Linkakro
Linkakro
----------------------
----------------------

Messages : 533
Points Concours : 55
Productivité : 31
Date d'inscription : 30/07/2013
Localisation : origine région centre, puis perpignan
Calculatrice(s) :
  • TI-82 Stats.fr

. : TI-82 Stats.fr

Revenir en haut Aller en bas

[Prgm] iPong 3D Empty Re: [Prgm] iPong 3D

Message par Wistaro Lun 24 Mar 2014 - 8:18

Linkakro a écrit:Pardon ? la balle se déplacerait en 3 dimensions ? Bravo. C'est bien mieux que ma première impression.
Néanmoins la profondeur manque de visibilité je trouve.
J'imagine les raquettes comme des carrés en perspective, le la balle soit comme un cube soit comme une intersection de trois segments orientés suivant les axes.

Je pense que si on met les raquettes et la balle en perspective également, le programme va être fortement ralentit.

Quelle a été ta première impression ?
Wistaro
Wistaro
Passioné
Passioné

Messages : 918
Points Concours : 86
Productivité : 28
Date d'inscription : 16/06/2013
Localisation : Tarbes - DUT GEII
Calculatrice(s) :
  • TI-82
  • TI-82 Stats
  • TI-82 Stats.fr

. : TI-82 Stats.fr

https://www.youtube.com/user/Wistaro

Revenir en haut Aller en bas

[Prgm] iPong 3D Empty Re: [Prgm] iPong 3D

Message par Linkakro Lun 24 Mar 2014 - 17:21

D'abord j'ai cru que la balle demeurait sur une face du pavé. Cela me déçois d'un jeu 3D. Par ailleurs la face est dans le plan de l'écran donc la perspective même cavalière perd de l'intérêt.
Ensuite j'ai lu le message de m@thieu41 et les caractéristiques annoncées : Graphismes 3D/Moteur 3D. J'ai donc cru que je me trompais, que la balle et les raquettes se déplacent dans l'espace.
J'ai alors proposé d'ajouter de la perspective au dessin des curseurs.

Enfin j'ai analysé à l'instant le code pour constater que la balle et les raquettes demeurent dans un plan.
Je conteste l'appellation "Moteur 3D".
Wistaro a écrit:Caractéristiques (v1.0):
> Mode 2 joueurs
> Graphismes 3D/Moteur 3D
> Compteur de victoires
> Design entièrement modulable: effets 3D, tailles

D'autres choses me paraissent valoir la peine d'être changées.
Code:
:Repeat K=105
: getKey→K
...
: If not(I:Goto A
:End
Lbl A
Dans ces conditions place ceci plutôt qu'un Goto. Le Goto n'apporte aucun avantage.
Repeat K=105 or not(I

Je suis tenté de ne pas calculer régulièrement C/2 et D/2.

Tu peux stocker des pxl-Test dans M et N plutôt que d'utiliser des tests If.
Même si tu utilises toujours quelques If, tu peux tout-de-même en utiliser moins.

EDIT : mauvaise idée, j'ai oublié que M et N peuvent être inchangé dans le code original contrairement à ma proposition qui ne le respecte que difficilement.


Dernière édition par Linkakro le Lun 24 Mar 2014 - 23:03, édité 1 fois
Linkakro
Linkakro
----------------------
----------------------

Messages : 533
Points Concours : 55
Productivité : 31
Date d'inscription : 30/07/2013
Localisation : origine région centre, puis perpignan
Calculatrice(s) :
  • TI-82 Stats.fr

. : TI-82 Stats.fr

Revenir en haut Aller en bas

[Prgm] iPong 3D Empty Re: [Prgm] iPong 3D

Message par Wistaro Lun 24 Mar 2014 - 18:37

Peut-on simplifier ceci
Code:
If not(Pxl-Test(B+2,A:DelVar N
: If not(Pxl-Test(B,A+2:DelVar M
: If not(Pxl-Test(B-2,A:1→N
: If not(Pxl-Test(B,A-2:1→M

En ceci
Code:
 Pxl-Test(B+2,A->N
: Pxl-Test(B,A+2->M
: not(Pxl-Test(B-2,A->N
: not(Pxl-Test(B,A-2→M
? Ou en mieux?

Pour les curseurs 3D, il faudrait alors que la face noire soit le fond du pavé, pour que la profondeur du curseur soit visible....Dans ce cas, il faut également changer la balle...Mais même dans ce cas, la perspective ne paraîtrait pas du tout réaliste... Ou alors extruder les curseurs vers l'avant....


Un autre soucis se pose. Lorsque la balle atterrit sur un curseur en mouvement, celle-ci n'est pas arrêté car une ligne noire empêche la trace lorsque l'utilisateur presse les touche. Je pourrais rajouter 2 lignes noires, l'une du Y supérieur du plateau jusqu'au Y supérieur du curseur, et pareil pour le Y inférieur.
Cette méthode ralentit fortement le jeu
Wistaro
Wistaro
Passioné
Passioné

Messages : 918
Points Concours : 86
Productivité : 28
Date d'inscription : 16/06/2013
Localisation : Tarbes - DUT GEII
Calculatrice(s) :
  • TI-82
  • TI-82 Stats
  • TI-82 Stats.fr

. : TI-82 Stats.fr

https://www.youtube.com/user/Wistaro

Revenir en haut Aller en bas

[Prgm] iPong 3D Empty Re: [Prgm] iPong 3D

Message par Linkakro Lun 24 Mar 2014 - 23:01

Tu viens de me faire réaliser que représenter la profondeur est plus pénible que je pensais. Un autre problème se pose avec les deux faces de premier plan qui sont actuellement blanches, car on ne peut pas se contenter de les mettre en transparence.

Je n'ai pas compris cette histoire de barre noire ou blanche supplémentaire. Je ne maîtrise pas assez le code actuellement.

Je réalise que j'ai eu tort de te proposer de stocker les pxl-Test dans M et N : si aucune condition n'est remplie alors la valeur est inchangée. Tandis que ma proposition de stocker directement le résultat booléen modifiera la valeur en toutes circonstances. Et s'assurer en booléen de ne pas agir dans un certain cas est assez pénible.

autre remarque:

Tu décrémentes A lorsque le pas M est nul. Comme la variable M est booléenne, cela revient à ajouter ou enlever 1.
Je te propose ceci. J'espère gagner du temps en ne lisant la variable qu'une seule fois.
Code:
: A+M-(not(M→A // Parenthèse devant not inutile par ailleurs.
: B+N-(not(N→B
////// deviendrait
: A+2M-1→A
: B+2N-1→B
Linkakro
Linkakro
----------------------
----------------------

Messages : 533
Points Concours : 55
Productivité : 31
Date d'inscription : 30/07/2013
Localisation : origine région centre, puis perpignan
Calculatrice(s) :
  • TI-82 Stats.fr

. : TI-82 Stats.fr

Revenir en haut Aller en bas

[Prgm] iPong 3D Empty Re: [Prgm] iPong 3D

Message par Wistaro Mer 26 Mar 2014 - 14:04

[code]: Pxl-Test(B+2,A) or not(Pxl-Test(B-2,A→N
: Pxl-Test(B,A+2) or not(Pxl-Test(B,A-2→M [code]

Cela ne fonctionne pas :-(

Je poste ma v2 aujourd'hui
Wistaro
Wistaro
Passioné
Passioné

Messages : 918
Points Concours : 86
Productivité : 28
Date d'inscription : 16/06/2013
Localisation : Tarbes - DUT GEII
Calculatrice(s) :
  • TI-82
  • TI-82 Stats
  • TI-82 Stats.fr

. : TI-82 Stats.fr

https://www.youtube.com/user/Wistaro

Revenir en haut Aller en bas

[Prgm] iPong 3D Empty Re: [Prgm] iPong 3D

Message par Wistaro Mer 26 Mar 2014 - 17:02

Nouvelle version!

Voici tout d'abord le code:
iPONG 3D a écrit:
:DelVar I
:0Xmin:1∆X
:0Ymax:62Ymin
:GridOff:AxesOff
:77D:45C:33Z:47Θ
:ClrDraw
:Lbl 7
:"IPONGStr1
:1B
:For(A,13,46,7
: Text(A,3,sub(Str1,B,1
: B+1B:End
:55A
:For(B,10,28,1
: Line(9,B,86,B
: Line(9,A,86,A
: A+1A
:End
:Text(29,28,"BY WISTARO
:For(T,9,86
: For(U,29,36,1
: Pt-Change(T,U
: End:End
:For(T,36,29
: Line(9,T,86,T
: 69!-69!
:End
:StorePic 3
:Lbl C
:DelVar IClrDraw:RecallPic 3
:Menu(" °IPONG° ","> JOUER",5,"> OPTIONS",3,"> QUITTER",4
:Lbl 3
:Menu("OPTIONS","DIMENTIONS",6,"REGLAGES 3D",8,"TOUT",B,"RETOUR",C
:Lbl 8:1I:Goto 5
:Lbl B:1I
:Lbl 6
:ClrHome:ClrDraw
:Disp "LARGEUR?
:Input "DEFAUT=46:",C
:Disp "LONGUEUR?
:Input "DEFAUT=77:",D
:For(A,Θ-D/2,Θ+D/2
: Line(A,Z-C/2,A,Z+C/2
:End
:StorePic 3
:Lbl 5
:StorePic 2
:7G:7H
:Repeat K=105 or not(I
: getKey→K
: G+(K=26)-(K=24G
: H+(K=25)-(K=34H
: If max(K={24,25,26,34:Then
: ClrDraw
: RecallPic 2:End
: Line(Θ-D/2,Z+C/2,Θ+G-D/2,Z+H+C/2
: Line(Θ+D/2,Z+C/2,Θ+G+D/2,Z+H+C/2
: Line(Θ+G-D/2,Z+H+C/2,Θ+G+D/2,Z+H+C/2
: If G0:Then
: Line(Θ+D/2,Z-C/2,Θ+G+D/2,Z+H-C/2
: Line(Θ+G+D/2,Z+H+C/2,Θ+G+D/2,Z+H-C/2
: Else
: Line(Θ-D/2,Z-C/2,Θ+G-D/2,Z+H-C/2
: Line(Θ+G-D/2,Z+H+C/2,Θ+G-D/2,Z+H-C/2
: End:End
:Lbl A
:StorePic 1
:DelVar VDelVar W
:Lbl 1
:RecallPic 1
:44A:32B
:randInt(0,1M
:randInt(0,1N
:ZE:EF
:Θ+4-D/2O
:round(O,0O
:O+(O/2=int(O/2))→O
:Θ-4+D/2P
:round(P,0P
:P+(P/2=int(P/2))→P
:Z+C/2Q
:Z-C/2R
:int(abs(R)-1L
:int(abs(Q)+1S
:Repeat AP or AO or K=45
: getKey→K
: Text(57,25,V
: Text(57,68,W
: If max(K={21,31:Then:Line(O,Q,O,F:Line(O,F+3,O,R:End
: If max(K={25,34:Then
: Line(P,Q,P,E:Line(P,E+3,P,R
: End
: Line(P,E,P,E+3,0
: Line(O,F,O,F+3,0
: E-2(K=34)+2(K=25E
: F-2(K=31)+2(K=21F
: A+2M-2not(MA
: B+2N-2not(NB
: If not(Pxl-Test(B+3,A:DelVar N
: If not(Pxl-Test(B,A+3:DelVar M
: If BS:Then
: Pt-Off(A,B
: Pt-On(A+2,B+2
: End
: If BL:Then
: Pt-On(A+2,B-2
: Pt-On(A-2,B-2
: End
: Pt-On(A-2,B+2
: If not(Pxl-Test(B-3,A:1N
: If not(Pxl-Test(B,A-3:1M
:End
:If K=45:Goto C
:V+(APV
:W+(AOW
:ClrHome
:If V=10:Pause "VICTOIRE J1
:If W=10:Pause "VICTOIRE J2
:If V<10 or W<10:Goto 1
:Goto C
:Lbl 4
:Stop

Screen: [Prgm] iPong 3D 1395848617aipong1

Ajouts:
> Rapiditée augmentée
> Optmisation du code
Wistaro
Wistaro
Passioné
Passioné

Messages : 918
Points Concours : 86
Productivité : 28
Date d'inscription : 16/06/2013
Localisation : Tarbes - DUT GEII
Calculatrice(s) :
  • TI-82
  • TI-82 Stats
  • TI-82 Stats.fr

. : TI-82 Stats.fr

https://www.youtube.com/user/Wistaro

Revenir en haut Aller en bas

[Prgm] iPong 3D Empty Re: [Prgm] iPong 3D

Message par Contenu sponsorisé


Contenu sponsorisé


Revenir en haut Aller en bas

Revenir en haut

- Sujets similaires

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum