[83] casse brique

par **persalteas** 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!!