BILLIMK 1.0 (forum) | TOUT sur la TI-82

Forum

Catégorie : Programmes
Forum : Les programmes des internautes
Vues : 4270
Réponses : 33
Type : discussion
Etat : réponses autorisées

Avertissement :
Il s'agit d'une page optimisée pour la navigation mobile. Voir la page originale.

BILLIMK 1.0 - Page 1 / 2

coc5 le 06/11/2007 à 17:05

Un petit jeu (enfin de 1690 octets quand même^^) dans sa tout première version (Il n'y a pas encore de menu par exemple).

Il peut peut-être y avoir un petit bug, mais dans ce cas signalez le moi. J'ai en effet rarement rencontré autant de problèmes algorythmiques^^

http://www.badongo.com/file/5031852

Code



ClrHome

Disp "2nd= Horizontal ","ALPHA= Vertical ","","BUT DU JEU :","'CAPTURER' LES","BILLES SANS LES","ECRASER LE PLUS","RAPIDEMENT. 

Repeat getKey

End

ClrHome

Disp"2nd = Horizontal ","[Alpha] =  Vertical 

Repeat getKey

End

ClrDraw

0 -> Ymin:94 -> Xmax

0 -> Xmin:62 -> Ymax

{47 -> [ 2nd + 1 ]

{31 -> [ 2nd + 2 ]

{3 -> [ 2nd + 3 ]

[ 2nd + 3 ] -> [ 2ND + 4 ]

1 -> N:0 -> U

31 -> B:47 -> A

For(J,0,6,6

For(I,J,J+2

Horizontal Ymax-I

Horizontal I

Vertical I

Vertical Xmax-I

End

End

Pt-On(4,4,3

Pt-On(90,58,3

Pt-On(4,58,3

Pt-On(90,4,3

0 -> Z

Repeat K=22 or not(N

[ 2nd + 1 ] -> [ 2ND + 5 ]:[ 2nd + 2 ] -> [ 2ND + 6 ]

[ 2nd + 1 ]+[ 2nd + 3 ] -> [ 2nd + 1 ]

[ 2nd + 2 ]+[ 2ND + 4 ] -> [ 2nd + 2 ]

For(I,1,N

If pxl-Test(62-[ 2nd + 2 ](I),[ 2nd + 1 ](I)+[ 2nd + 3 ](I

Then

-[ 2nd + 3 ](I -> [ 2nd + 3 ](I

If pxl-Test(62-[ 2nd + 2 ](I),[ 2nd + 1 ](I)+[ 2nd + 3 ](I

0 -> [ 2nd + 3 ](I

End

If pxl-Test(62-[ 2nd + 2 ](I)-[ 2ND + 4 ](I),[ 2nd + 1 ](I

Then

-[ 2ND + 4 ](I -> [ 2ND + 4 ](I

If pxl-Test(62-[ 2nd + 2 ](I)-[ 2ND + 4 ](I),[ 2nd + 1 ](I

0 -> [ 2ND + 4 ](I

End

If not([ 2nd + 3 ](I))not([ 2ND + 4 ](I:Then

For(J,0,3

ClrHome

DispGraph

End

Pt-Off([ 2nd + 1 ](I),[ 2nd + 2 ](I),2

For(J,I,N

If J-N:Then

[ 2nd + 1 ](J+1 -> [ 2nd + 1 ](J

[ 2nd + 2 ](J+1 -> [ 2nd + 2 ](J

[ 2nd + 3 ](J+1 -> [ 2nd + 3 ](J

[ 2ND + 4 ](J+1 -> [ 2ND + 4 ](J

[ 2ND + 5 ](J+1 -> [ 2ND + 5 ](J

[ 2ND + 6 ](J+1 -> [ 2ND + 6 ](J

End

End

N-1 -> N

End

Pt-Off([ 2ND + 5 ](I),[ 2ND + 6 ](I),2

Pt-On([ 2nd + 1 ](I),[ 2nd + 2 ](I),2

End

getKey -> K

A -> C:B -> D

3(K=26)+A-3(K=24 -> A

B+3((K=25)-(K=34 -> B

Pt-Off(C,4,2

Pt-On(A,4,2

Pt-Off(C,58,2

Pt-On(A,58,2

Pt-Off(4,D,2

Pt-On(4,B,2

Pt-Off(90,D,2

Pt-On(90,B,2

If K=31:Then

For(I,7,55

If pxl-Test(61-I,A) or pxl-Test(61-I,A+3) or pxl-Test(61-I,A-3

Then

0 -> K:0 -> L

For(J,1,N

If [ 2nd + 2 ](J) = I and A = [ 2nd + 1 ](J:J -> K

If [ 2nd + 1 ](J) + [ 2nd + 3](J) = A

Then

-[ 2nd + 3 ](J -> [ 2nd + 3 ](J

If pxl-Test(62-[ 2ND + 4 ](J)-[ 2nd + 2 ](J),[ 2nd + 1 ](J)+[ 2nd + 3 ](J

0 -> [ 2nd + 3 ](J

End

End

If K:Then

Pt-Off(A,I,2

If N=1:Stop

For(L,K,N

If L-N:Then

[ 2nd + 1 ](L+1 -> [ 2nd + 1 ](L

[ 2nd + 2 ](L+1 -> [ 2nd + 2 ](L

[ 2nd + 3 ](L+1 -> [ 2nd + 3 ](L

[ 2ND + 4 ](L+1 -> [ 2ND + 4 ](L

[ 2ND + 5 ](L+1 -> [ 2ND + 5 ](L

[ 2ND + 6 ](L+1 -> [ 2ND + 6 ](L

End

End

N-1 -> N

Z+1 -> Z

End

End

Pxl-On(61-I,A

End

End

If K=21:Then

For(I,7,87

If pxl-Test(62-B,I-1) or pxl-Test(62-B,I-1) or pxl-Test(62-B,I-1

Then

0 -> K:0 -> L

For(J,1,N

If [ 2nd + 2 ](J)=B and I=[ 2nd + 1 ](J:J -> K

If [ 2nd + 2 ](J)+[ 2ND + 4 ](J)=B

Then

-[ 2ND + 4 ](J -> [ 2ND + 4 ](J

If pxl-Test(62 - [ 2ND + 4 ](J) - [ 2nd + 2 ](J) , [ 2nd + 1 ](J) + [ 2nd + 3 ](J

0 -> [ 2ND + 4 ](J

End

End

If K:Then

Pt-Off(I,B,2

If N=1:Stop

For([ 2nd + 2 ]K,N

If L-N:Then

[ 2nd + 1 ](L+1 -> [ 2nd + 1 ](L

[ 2nd + 2 ](L+1 -> [ 2nd + 2 ](L

[ 2nd + 3 ](L+1 -> [ 2nd + 3 ](L

[ 2ND + 4 ](L+1 -> [ 2ND + 4 ](L

[ 2ND + 5 ](L+1 -> [ 2ND + 5 ](L

[ 2ND + 6 ](L+1 -> [ 2ND + 6 ](L

End

End

N-1 -> N

Z+1 -> Z

End

End

Pxl-On(62-B,I-1

End

End

If not(fPart(U/50:Then

1+int(Nrand -> E

N+1 -> N

N -> dim([ 2nd + 1 ]

N -> dim([ 2nd + 2 ]

N -> dim([ 2ND + 4 ]

N -> dim([ 2nd + 3 ]

0 -> S

Repeat not(pxl-Test(62- [ 2nd + 2 ](N) - [ 2ND + 4 ](N) , [ 2nd + 1 ](N) + [ 2nd + 3 ](N

S+[ 2nd + 1 ](E -> [ 2nd + 1 ](N

S+[ 2nd + 2 ](E -> [ 2nd + 2 ](N

-[ 2nd + 3 ](E -> [ 2nd + 3 ](N

-[ 2ND + 4 ](E -> [ 2ND + 4 ](N

[ 2ND + 5 ](E -> [ 2ND + 5 ](N

[ 2ND + 6 ](E -> [ 2ND + 6 ](N

S+3 -> S

End

End

U+1 -> U

Text(1,1,U

Text(56,89,Z

End

If not(N:Then

Disp "TEMPS :",U,"PENALITE(s) :",50Z,"SCORE TOTAL :",U+50Z

{1,2 -> dim([D]

If U+50Z<[D](1,2

Then

Disp "RECCORD BATTU !

U+50Z -> [D](1,2

Else

Disp "RECCORD :

Output(7,10,[D](1,2

End

0 -> dim([ 2nd + 1 ]

0 -> dim([ 2nd + 2 ]

0 -> dim([ 2nd + 3 ]

0 -> dim([ 2ND + 4 ]

0 -> dim([ 2ND + 5 ]

0 -> dim([ 2ND + 6 ]

vibra le 06/11/2007 à 17:09

C'est bien sauf que théoriquement lorsque le trais ce trace, les boules se déplacenet encore, et c'est ce qu'il fait toute la difficulté du jeu !

Regedit le 06/11/2007 à 17:16

J'ai pas compris les regles du jeu ><

coc5 le 06/11/2007 à 17:18

Mais non justement car le trait apparait d'un coup normalement mais vu la rapidité d'execution de la calto et bien ça met plus de temps

=> Regedit
Il faut parvenir à faire disparaître la totalité des billes sans toutes les écraser avec un trait !
Pour faire disparaître une bille, il faut lui enlever toute possibilité de mouvement.

Regedit le 06/11/2007 à 17:19

ah waouh je go tester ca a l'air cooool

Edit : Erf je laisse tomber ta pas mis le code de graphlink, j'ai pas envie de tout recopier a la main

vibra le 06/11/2007 à 17:35

Désolé coc5, j'ai confondu avec un autre jeu qui resemble au tien t'as raison.

coc5 le 06/11/2007 à 17:57

Regedit a écrit :

ah waouh je go tester ca a l'air cooool

Edit : Erf je laisse tomber ta pas mis le code de graphlink, j'ai pas envie de tout recopier a la main

Tu peux le télécharger à partir du lien tu sais^^
Sinon je peux te l'envoyer je l'ai

Regedit le 06/11/2007 à 18:11

coc5 a écrit :

Regedit a écrit :
ah waouh je go tester ca a l'air cooool

Edit : Erf je laisse tomber ta pas mis le code de graphlink, j'ai pas envie de tout recopier a la main

Tu peux le télécharger à partir du lien tu sais^^
Sinon je peux te l'envoyer je l'ai

Ouais mais j'ai jamais rien compris a Badongo, ou faut clicker pour dl tout ca, ya que des trucs pour depenser du frics pour stocker des fichiers version premium user GOLLLLDDD 50€ par an tout ca ca me saoul trop.

Sinon pour l'idee de l'envoie je veux bien, mais faudrait que je vienne chez toi j'ai pas un cable assez long pour atteindre ta calto ...

vibra le 06/11/2007 à 20:35

Je suis pas sûr que ce soit ça qu'il voulait dire…

Stupid le 06/11/2007 à 21:18

ça a l'air sympa...mais t'as juste à attendre que la balle passe et tu cliques au bon moment quand elles passent au milieu vu que quand t'as appuyé sur 2nde les balles bougent plus...

coc5 le 06/11/2007 à 22:36

->Le but n'est pas d'écraser les balles !

Cette version comporte de nombreux manques, la version .1 sera disponible dès que j'ai le temps

Stupid le 07/11/2007 à 09:38

ben alors t'as juste à attendre qu'elles soient toues proches^^

Regedit le 07/11/2007 à 10:15

vibra a écrit :

Je suis pas sûr que ce soit sa qu'il voulait dire…

Je sais, c'etait a prendre au second degré. Mais ca tu le savais (je le dis au cas ou Elodie trainerais dans le coin :p)

vibra le 07/11/2007 à 10:36

J'étais en train de me poser une question métaphysique à propos de ça justement : peut-on consider internet comme un cable reliant toutes les TI du monde entre elles ?

Regedit le 07/11/2007 à 10:52

Ben oui, je sais que ya des gens qui ont fait un programme pour jouer a Bomberkids avec des gens du web (chais meme pas si ca passait pas par VTI).

vibra le 07/11/2007 à 14:04

La classe…

alexvire le 01/05/2009 à 17:56

Bonjour, je viens de taper le programme mais la calculatrice me met une erreur ici:

Code

For([ 2nd + 2 ]K,N

Juste après le N, j'ai pourtant vérifié le programme, mais ça me semble bizarre que le L4 soit collé au K... Au fait je possède une Ti-82 Stats.fr. Merci d'avance.

coc5 le 02/05/2009 à 12:49

Hum en effet, je comprends l'erreur.

En fait L1 est codé 'L,' par l'ordinateur lors du copier coller du code, et donc on remplace ensuite automatiquement les L, par des [2nd+2].
Mais pour le coup c'était L puis une virugle ','.
Ca veut dire que personne n'a encore recopié mon programe u_u

Bon merci de me signaler l'erreur, remplace le [2nd+2] par L et une virgule

Reggie le 02/05/2009 à 13:24

Moi j'l'ai dl

alexvire le 02/05/2009 à 18:08

C'est bon, le jeu marche mais à la fin mon score est égal à zéro, j'ai fais 0 pénalité et 72 en temps, c'est normal ou pas?

Désolé pour le Double-post mais je peux pas éditer mon message précédent ni le supprimer.

Avertissement :
Il s'agit d'une page optimisée pour la navigation mobile. Voir la page originale.

Forum

BILLIMK 1.0 - Page 1 / 2

Flux RSS

Abonnement à la newsletter