[83] casse brique

Voir le sujet précédent Voir le sujet suivant Aller en bas

[83] casse brique

Message par persalteas le Ven 28 Jan - 9:26

désolé de poster encore des progs en basic, mais j'ai encore quelques projets non terminés..
dont celui ci:

alors je vous présente mon casse brique (enfin mon deuxième casse brique), qui n'est malheureusement pas fini, mais qui est déjà classe.

ses avantages: pas trop lent pour un casse briques en basic
beaux graphismes (enfin même si je les poste pas tous ici)
léger en octets.
vu que c'est une matrice qui gère les briques, ça va être très simple de faire un éditeur de niveaux

ses inconvénients: eh bien le rebond sur brique ne fonctionne pas à tout les coups.

voilà la partie principale de mon code:

Code:

:FonctNAff
:AxesNAff
:Normal
:Flottant
:1->Xmin
:95->Xmax
:1->Ymin
:63->Ymax
:EffDessin

ici il y a une longue portion de code réservée à la présentation du jeu (persalteas présente cassebrique etc...)que je ne poste pas car 1) c'est long et je suis flemmard, 2) je ne souhaite pas dévoiler mes super graphismes tout de suite.

:Lbl 0
:Menu("--CASSE BRIQUE--","JOUER",1,"QUITTER",Q
:Lbl 1
:Horizontale 1
:Horizontale 63
:Verticale 1
:Verticale 95
:For(K,5,95,3
:Pt-Aff(K,4
:End
:18->L
:0->S
:20->P
:2->E:2->F
:[[1,1,1,1,1,1,1,1,1][1,1,1,1,1,1,1,1,1][1,1,1,1,1,1,1,1,1][1,1,1,1,1,1,1,1,1]]->[C]
:For(X,3,83,10
:For(Y,3,24,6
:[C]((Y-3)/6+1,(X-3).1+1->K
:Ligne(X,63-Y,X+9,63-Y,K
:Ligne(X,63-Y,X,58-Y,K
:Ligne(X,58-Y,X+9,58-Y,K
:Ligne(X+9,63-Y,X+9,58-Y,K
:End
:End
:25->X:9->Y
:For(K,P,P+L,3
:Pt-Aff(K,4,2
:End
:Texte(32,25,"PRESS ENTER...
:Pause
:Texte(32,25,"  tapez 51 espaces ici(ça fait env 3 lignes)    "
:Repeat K=45
:codeTouche->K
:If K=24 et P>5:Then
:Pt-NAff(P+L,4,2
:P-3->P
:Pt-Aff(P,4,2
:End
:If K=26 et P+L<91:Then
:Pt-NAff(P,4,2
:P+3->P
:Pt-Aff(P,4,2
:End
:Pt-NAff(X,Y,2
:X+E->X
:Y+F->Y
:Pt-Aff(X,Y,2
:If Y<6 et non(X>P et X<P+L):Goto P
:0->Q
:0->R
:0->T
:0->U
:If pxl-Test(61-Y-F,X+E-1:1->Q
:If pxl-Test(63-Y-F,X+E+1:1->R
:If pxl-Test(63-Y-F,X+E-3:1->T
:If pxl-Test(65-Y-F,X+E-1:1->U
:If U et Y<10:S+2->S
:If Q ou U:-F->F
:If T ou R:-E->E
:If (Q ou R ou T ou U) et Y>10 et Y<58 et X>5 et X<90:Then
:0->A
:If Q:1->A
:If R:2->A
:If T:3->A
:If U:4->A
:prgmZBRICK
:End
:End
:Lbl P
:EffDessin
:Horizontale 1
:Horizontale 63
:Verticale 1
:Verticale 95
:For(A,1,95
:Pt-Aff(A,40
:Pt-Aff(A,39
:Pt-Aff(95-A,29
:Pt-Aff(95-A,28
:End
:Texte(26,35,"PERDU  !
:Texte(39,30,"SCORE :    ",S
:Pause
:Lbl Q
:EffDessin
bon et ici il y a toute la tripotée de commandes habituelles pour effacer les variables et remmettre les paramètres de la calto à zéro, j'ai la flemme de les recopier, vous les connaissez.

et maintenant le programme ZBRICK que le programme appelle:

Code:

:arrondi((62-Y)/6,0->I
:arrondi(X.1,0->J
:If A=1:Then
:0->R
:For(A,4,1,-1
:If [C](A,J:A->R
:If R:0->A
:End
:R-1->R
:End
:
:If A=2:Then
:I->R
:J+1->J
:End
:
:If A=3:Then
:I->R
:J-1->J
:End
:
:If A=4:I->R
:
:If A=1 ou A=4:R-1->R
:If A=2 ou A=3:R-2->R
:0->[C](R+1,J
:S+10->S
:6R+3->R
:10J-7->J
:Ligne(J,63-R,J+9,63-R,0
:Ligne(J,63-R,J,58-R,0
:Ligne(J,58-R,J+9,58-R,0
:Ligne(J+9,63-R,J+9,58-R,0


Je ne comprends pas vraiment moi même le programme ZBRICK, je l'ai programmé un peu au hasard, au fur et à mesure de modifs quand ça ne marchait pas.

résultat, je ne sais pas pourquoi ma balle ne rebondit pas à tout les coups.

J'accepte donc vos idées sur le rebondissement de la balle sur une brique.

Je veux bien savoir aussi si vous savez comment faire pour que la balle ne rebondisse pas selon la même direction si elle tombe en plein centre de la balle ou sur un bord.

merci!!

_________________
[Vous devez être inscrit et connecté pour voir cette image]

persalteas
Platinum 2
Platinum 2

Sexe : Masculin
Age : 21
Messages : 2068
Date d'inscription : 30/06/2010
Etudes : PACES (médecine)
Points Forum : 114
Points Concours : 10
Langages :
  • - TI-Basic Z80
  • - xLib
  • - Grammer
  • - TI-Basic Nspire
Calculatrices :
  • - TI-82 Stats.fr
  • - TI-83
  • - TI-83+
  • - TI-84+ SE
  • - TI-86
  • - TI-Nspire
  • - TI-Nspire CX
  • - Casio Collège
  • - Casio Graph

TI-84 Pocket.fr


http://tiemulation.kegtux.org

Revenir en haut Aller en bas

Re: [83] casse brique

Message par nikitouzz le Lun 3 Sep - 20:23

je ne comprend pas le "pt-aff" ???? c'est peut etre une commende en français Content

_________________
[Vous devez être inscrit et connecté pour voir cette image]
Invité née le 0 a aujord'huis 0 ans et a posté 11 messages... je suis derrière vous

2x2x2 : 2.18 secondes / 2x2x2 une main : 21.15 secondes / 2x2x2 yeux bandés : 47.59
3x3x3 : 5.97 secondes / 3x3x3 une main : 49.86 secondes
4x4x4 : 1.49 minutes / 4x4x4 une main : 6.50 minutes
5x5x5 : 4.10 minutes / 5x5x5 une main : 18.02 minutes
6x6x6 : 8.10 minutes
7x7x7 : 16.03 minutes
9x9x9 : 58.26 minutes

3x3x1 : 0.73secondes / 3x3x2 : 30.55secondes / 3x3x3 : 5.97secondes / 3x3x4 : 1.09minutes / 3x3x5 : 1.46minutes / 3x3x6 : 2.06minutes

megaminx : 5.59 minutes / pyraminx : 7.91 secondes / square-one : 1.07

nikitouzz
Platinum 1
Platinum 1

Sexe : Masculin
Age : 21
Messages : 1834
Date d'inscription : 16/01/2011
Points Forum : 7
Points Concours : 6
Langages :
  • - TI-Basic Z80
  • - ASM TI-83+ / TI-84+
  • - Axe Parser
  • - TI-Basic 68K
  • - TI-Basic Nspire
Calculatrices :
  • - TI-73
  • - TI-76.fr
  • - TI-82 Stats.fr
  • - TI-83+
  • - TI-84+
  • - TI-92
  • - TI-Nspire
  • - TI-Nspire CX

TI-84+ SE


Revenir en haut Aller en bas

Re: [83] casse brique

Message par noelthebest le Mar 4 Sep - 6:20

Ca veut dire Pt-On(.

_________________
[Vous devez être inscrit et connecté pour voir cette image]

[Vous devez être inscrit et connecté pour voir cette image]
[Vous devez être inscrit et connecté pour voir cette image]

noelthebest
Platinum 1
Platinum 1

Sexe : Masculin
Age : 19
Messages : 1969
Date d'inscription : 12/03/2011
Etudes : ENS Cachan
Points Forum : 20
Points Concours : 9
Langages :
  • - TI-Basic Z80
  • - ASM TI-83+ / TI-84+
  • - Axe Parser
Calculatrices :
  • - TI-83+.fr
  • - TI-Nspire CX
  • - Casio Collège
  • - Casio Graph

TI-84+ SE


Revenir en haut Aller en bas

Re: [83] casse brique

Message par The K le Mar 4 Sep - 6:54

Code:
:If A=2 ou A=3:R-2->R
:0->[C](R+1,J

La brique se casse uniquement si A = 2 ou A = 3. C'est voulu ?

(pas étudié dans la détail sorry x') )

The K
Or 1
Or 1

Sexe : Masculin
Age : 20
Messages : 141
Date d'inscription : 02/11/2011
Etudes : Passe en TS spé math
Points Forum : 1
Points Concours : 0
Langages :
  • - TI-Basic Z80
  • - TI-Basic Nspire
Calculatrices :
  • - TI-84 Pocket.fr
  • - TI-Nspire CAS
  • - TI-Nspire CX
  • - Casio Graph

TI-84 Pocket.fr


Revenir en haut Aller en bas

Re: [83] casse brique

Message par nikitouzz le Mar 4 Sep - 14:50

je ne sais pas il faut demander a persalteas mais vu le code je pense que oui....

_________________
[Vous devez être inscrit et connecté pour voir cette image]
Invité née le 0 a aujord'huis 0 ans et a posté 11 messages... je suis derrière vous

2x2x2 : 2.18 secondes / 2x2x2 une main : 21.15 secondes / 2x2x2 yeux bandés : 47.59
3x3x3 : 5.97 secondes / 3x3x3 une main : 49.86 secondes
4x4x4 : 1.49 minutes / 4x4x4 une main : 6.50 minutes
5x5x5 : 4.10 minutes / 5x5x5 une main : 18.02 minutes
6x6x6 : 8.10 minutes
7x7x7 : 16.03 minutes
9x9x9 : 58.26 minutes

3x3x1 : 0.73secondes / 3x3x2 : 30.55secondes / 3x3x3 : 5.97secondes / 3x3x4 : 1.09minutes / 3x3x5 : 1.46minutes / 3x3x6 : 2.06minutes

megaminx : 5.59 minutes / pyraminx : 7.91 secondes / square-one : 1.07

nikitouzz
Platinum 1
Platinum 1

Sexe : Masculin
Age : 21
Messages : 1834
Date d'inscription : 16/01/2011
Points Forum : 7
Points Concours : 6
Langages :
  • - TI-Basic Z80
  • - ASM TI-83+ / TI-84+
  • - Axe Parser
  • - TI-Basic 68K
  • - TI-Basic Nspire
Calculatrices :
  • - TI-73
  • - TI-76.fr
  • - TI-82 Stats.fr
  • - TI-83+
  • - TI-84+
  • - TI-92
  • - TI-Nspire
  • - TI-Nspire CX

TI-84+ SE


Revenir en haut Aller en bas

Re: [83] casse brique

Message par The K le Mar 4 Sep - 17:05

Oh la euh vraiment pas étudié dans le détail ...

JE N'AI RIEN DIT !!!!!

X')

The K
Or 1
Or 1

Sexe : Masculin
Age : 20
Messages : 141
Date d'inscription : 02/11/2011
Etudes : Passe en TS spé math
Points Forum : 1
Points Concours : 0
Langages :
  • - TI-Basic Z80
  • - TI-Basic Nspire
Calculatrices :
  • - TI-84 Pocket.fr
  • - TI-Nspire CAS
  • - TI-Nspire CX
  • - Casio Graph

TI-84 Pocket.fr


Revenir en haut Aller en bas

Re: [83] casse brique

Message par nikitouzz le Mar 4 Sep - 17:34

hum... je ne comprend pas la manière donc est agencé le code... persalteas tu peut nous éclairé ?

_________________
[Vous devez être inscrit et connecté pour voir cette image]
Invité née le 0 a aujord'huis 0 ans et a posté 11 messages... je suis derrière vous

2x2x2 : 2.18 secondes / 2x2x2 une main : 21.15 secondes / 2x2x2 yeux bandés : 47.59
3x3x3 : 5.97 secondes / 3x3x3 une main : 49.86 secondes
4x4x4 : 1.49 minutes / 4x4x4 une main : 6.50 minutes
5x5x5 : 4.10 minutes / 5x5x5 une main : 18.02 minutes
6x6x6 : 8.10 minutes
7x7x7 : 16.03 minutes
9x9x9 : 58.26 minutes

3x3x1 : 0.73secondes / 3x3x2 : 30.55secondes / 3x3x3 : 5.97secondes / 3x3x4 : 1.09minutes / 3x3x5 : 1.46minutes / 3x3x6 : 2.06minutes

megaminx : 5.59 minutes / pyraminx : 7.91 secondes / square-one : 1.07

nikitouzz
Platinum 1
Platinum 1

Sexe : Masculin
Age : 21
Messages : 1834
Date d'inscription : 16/01/2011
Points Forum : 7
Points Concours : 6
Langages :
  • - TI-Basic Z80
  • - ASM TI-83+ / TI-84+
  • - Axe Parser
  • - TI-Basic 68K
  • - TI-Basic Nspire
Calculatrices :
  • - TI-73
  • - TI-76.fr
  • - TI-82 Stats.fr
  • - TI-83+
  • - TI-84+
  • - TI-92
  • - TI-Nspire
  • - TI-Nspire CX

TI-84+ SE


Revenir en haut Aller en bas

Re: [83] casse brique

Message par persalteas le Mer 5 Sep - 6:34

Je devrais supprimer ce topic...

ce programme n'était qu'un début.

Abouti, ça donne le fameux PUREBREAKER du TI-Concours.

_________________
[Vous devez être inscrit et connecté pour voir cette image]

persalteas
Platinum 2
Platinum 2

Sexe : Masculin
Age : 21
Messages : 2068
Date d'inscription : 30/06/2010
Etudes : PACES (médecine)
Points Forum : 114
Points Concours : 10
Langages :
  • - TI-Basic Z80
  • - xLib
  • - Grammer
  • - TI-Basic Nspire
Calculatrices :
  • - TI-82 Stats.fr
  • - TI-83
  • - TI-83+
  • - TI-84+ SE
  • - TI-86
  • - TI-Nspire
  • - TI-Nspire CX
  • - Casio Collège
  • - Casio Graph

TI-84 Pocket.fr


http://tiemulation.kegtux.org

Revenir en haut Aller en bas

Re: [83] casse brique

Message par nikitouzz le Mer 5 Sep - 9:38

hum d'accord donc je verrouille ce topic Content merci pour ces précisions je ne regarde jamais les date de publications ^^

_________________
[Vous devez être inscrit et connecté pour voir cette image]
Invité née le 0 a aujord'huis 0 ans et a posté 11 messages... je suis derrière vous

2x2x2 : 2.18 secondes / 2x2x2 une main : 21.15 secondes / 2x2x2 yeux bandés : 47.59
3x3x3 : 5.97 secondes / 3x3x3 une main : 49.86 secondes
4x4x4 : 1.49 minutes / 4x4x4 une main : 6.50 minutes
5x5x5 : 4.10 minutes / 5x5x5 une main : 18.02 minutes
6x6x6 : 8.10 minutes
7x7x7 : 16.03 minutes
9x9x9 : 58.26 minutes

3x3x1 : 0.73secondes / 3x3x2 : 30.55secondes / 3x3x3 : 5.97secondes / 3x3x4 : 1.09minutes / 3x3x5 : 1.46minutes / 3x3x6 : 2.06minutes

megaminx : 5.59 minutes / pyraminx : 7.91 secondes / square-one : 1.07

nikitouzz
Platinum 1
Platinum 1

Sexe : Masculin
Age : 21
Messages : 1834
Date d'inscription : 16/01/2011
Points Forum : 7
Points Concours : 6
Langages :
  • - TI-Basic Z80
  • - ASM TI-83+ / TI-84+
  • - Axe Parser
  • - TI-Basic 68K
  • - TI-Basic Nspire
Calculatrices :
  • - TI-73
  • - TI-76.fr
  • - TI-82 Stats.fr
  • - TI-83+
  • - TI-84+
  • - TI-92
  • - TI-Nspire
  • - TI-Nspire CX

TI-84+ SE


Revenir en haut Aller en bas

Re: [83] casse brique

Message par Contenu sponsorisé Aujourd'hui à 15:40


Contenu sponsorisé


Revenir en haut Aller en bas

Voir le sujet précédent Voir le sujet suivant Revenir en haut

- Sujets similaires

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