BILLIMK 1.0 |
Auteur |
Message |
coc5
Autorisation : Membre
Nb de messages : 891
Inscrit le : Sam 16 Jui 2007, 13:37
|
Posté le : Mar 06 Nov 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 ] |
---------------------- Ne cliquez pas ici ! |
|
|
|
vibra
Autorisation : Membre
Nb de messages : 595
Inscrit le : Mer 04 Avr 2007, 13:29
|
Posté le : Mar 06 Nov 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 !
---------------------- Vive la programmation et vive le vibraphone !!! |
|
|
|
Regedit
Autorisation : Membre
Nb de messages : 191
Inscrit le : Dim 30 Sep 2007, 12:24
|
Posté le : Mar 06 Nov 2007, 17:16
|
|
|
J'ai pas compris les regles du jeu ><
|
|
|
|
coc5
Autorisation : Membre
Nb de messages : 891
Inscrit le : Sam 16 Jui 2007, 13:37
|
Posté le : Mar 06 Nov 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.
---------------------- Ne cliquez pas ici ! |
|
|
|
Regedit
Autorisation : Membre
Nb de messages : 191
Inscrit le : Dim 30 Sep 2007, 12:24
|
Posté le : Mar 06 Nov 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
Autorisation : Membre
Nb de messages : 595
Inscrit le : Mer 04 Avr 2007, 13:29
|
Posté le : Mar 06 Nov 2007, 17:35
|
|
|
Désolé coc5, j'ai confondu avec un autre jeu qui resemble au tien t'as raison.
---------------------- Vive la programmation et vive le vibraphone !!! |
|
|
|
coc5
Autorisation : Membre
Nb de messages : 891
Inscrit le : Sam 16 Jui 2007, 13:37
|
Posté le : Mar 06 Nov 2007, 17:57
|
|
|
Citer : Regedit | 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
---------------------- Ne cliquez pas ici ! |
|
|
|
Regedit
Autorisation : Membre
Nb de messages : 191
Inscrit le : Dim 30 Sep 2007, 12:24
|
Posté le : Mar 06 Nov 2007, 18:11
|
|
|
Citer : coc5 |
Citer : Regedit | 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
Autorisation : Membre
Nb de messages : 595
Inscrit le : Mer 04 Avr 2007, 13:29
|
Posté le : Mar 06 Nov 2007, 20:35
|
|
|
Je suis pas sûr que ce soit ça qu'il voulait dire…
---------------------- Vive la programmation et vive le vibraphone !!! |
|
|
|
Stupid
Autorisation : Membre
Nb de messages : 768
Inscrit le : Jeu 28 Sep 2006, 18:42
|
Posté le : Mar 06 Nov 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
Autorisation : Membre
Nb de messages : 891
Inscrit le : Sam 16 Jui 2007, 13:37
|
Posté le : Mar 06 Nov 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
---------------------- Ne cliquez pas ici ! |
|
|
|
Google_AdSense
|
Publicité
|
|
|
|
|
Stupid
Autorisation : Membre
Nb de messages : 768
Inscrit le : Jeu 28 Sep 2006, 18:42
|
Posté le : Mer 07 Nov 2007, 9:38
|
|
|
ben alors t'as juste à attendre qu'elles soient toues proches^^
|
|
|
|
Regedit
Autorisation : Membre
Nb de messages : 191
Inscrit le : Dim 30 Sep 2007, 12:24
|
Posté le : Mer 07 Nov 2007, 10:15
|
|
|
Citer : vibra | 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
Autorisation : Membre
Nb de messages : 595
Inscrit le : Mer 04 Avr 2007, 13:29
|
Posté le : Mer 07 Nov 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 ?
---------------------- Vive la programmation et vive le vibraphone !!! |
|
|
|
Regedit
Autorisation : Membre
Nb de messages : 191
Inscrit le : Dim 30 Sep 2007, 12:24
|
Posté le : Mer 07 Nov 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
Autorisation : Membre
Nb de messages : 595
Inscrit le : Mer 04 Avr 2007, 13:29
|
Posté le : Mer 07 Nov 2007, 14:04
|
|
|
La classe…
---------------------- Vive la programmation et vive le vibraphone !!! |
|
|
|
alexvire
Autorisation : Membre
Nb de messages : 241
Inscrit le : Dim 10 Mai 2009, 13:31
|
Posté le : Ven 01 Mai 2009, 17:56
|
|
|
Bonjour, je viens de taper le programme mais la calculatrice me met une erreur ici:
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.
---------------------- Salut, visitez mon site:
Et mon forum !
Mes programmes.
Convertissez vos images en un programme à mettre sur votre TI. |
|
|
|
coc5
Autorisation : Membre
Nb de messages : 891
Inscrit le : Sam 16 Jui 2007, 13:37
|
Posté le : Sam 02 Mai 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
---------------------- Ne cliquez pas ici ! |
|
|
|
Reggie
Autorisation : Membre
Nb de messages : 46
Inscrit le : Lun 13 Avr 2009, 20:55
|
Posté le : Sam 02 Mai 2009, 13:24
|
|
|
Moi j'l'ai dl
|
|
|
|
alexvire
Autorisation : Membre
Nb de messages : 241
Inscrit le : Dim 10 Mai 2009, 13:31
|
Posté le : Sam 02 Mai 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.
---------------------- Salut, visitez mon site:
Et mon forum !
Mes programmes.
Convertissez vos images en un programme à mettre sur votre TI. |
|
|
|