| BILLIMK 1.0 |
| Auteur |
Message |
coc5
Autorisation : Membre
Nb de messages : 879
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 ] |
|
 |
  |
| |
vibra
Autorisation : Membre
Nb de messages : 591
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 : 879
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.
|
| |
|
| |
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 : 591
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 : 879
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
|
| |
|
| |
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 : 591
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 : 765
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 : 879
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
|
| |
|
| |
Google_AdSense
|
Publicité
|
|
|
|
| |
Stupid
Autorisation : Membre
Nb de messages : 765
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 : 591
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 : 591
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 : 230
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 : 879
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 
|
| |
|
| |
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 : 230
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. |
| |
|
| |
Reggie
Autorisation : Membre
Nb de messages : 46
Inscrit le : Lun 13 Avr 2009, 20:55
|
Posté le : Sam 02 Mai 2009, 19:09
|
|
|
Si t'es nul alors ouais c'est normal 
|
| |
|
| |
alexvire
Autorisation : Membre
Nb de messages : 230
Inscrit le : Dim 10 Mai 2009, 13:31
|
Posté le : Sam 02 Mai 2009, 20:26
|
|
|
Je vois pas où j'étais nul, j'ai fais 0 pénalité et en temps j'ai étais super rapide...
----------------------
Salut, visitez mon site:
Et mon forum !
Mes programmes.
Convertissez vos images en un programme à mettre sur votre TI. |
| |
|
| |
Reggie
Autorisation : Membre
Nb de messages : 46
Inscrit le : Lun 13 Avr 2009, 20:55
|
Posté le : Sam 02 Mai 2009, 20:29
|
|
|
Oui oui oui, c'est ce qu'on dit
Allez, au lieu de te plaindre que le jeu est trop dur, go pex
|
| |
|
| |
alexvire
Autorisation : Membre
Nb de messages : 230
Inscrit le : Dim 10 Mai 2009, 13:31
|
Posté le : Dim 03 Mai 2009, 15:54
|
|
|
Je dit pas que le jeu est trop dur, je dit juste que c'est pas normal qu'il mette 0 en score.
----------------------
Salut, visitez mon site:
Et mon forum !
Mes programmes.
Convertissez vos images en un programme à mettre sur votre TI. |
| |
|
| |
Reggie
Autorisation : Membre
Nb de messages : 46
Inscrit le : Lun 13 Avr 2009, 20:55
|
Posté le : Dim 03 Mai 2009, 17:28
|
|
|
Entraine toi, ptet que t'y arrivera 
|
| |
|
| |
alexvire
Autorisation : Membre
Nb de messages : 230
Inscrit le : Dim 10 Mai 2009, 13:31
|
Posté le : Lun 04 Mai 2009, 20:59
|
|
|
Je parle du record, pas du score, le score fonctionne mais il se convertit pas en record, par exemple:
Score: 77
Record: 0
Voilà. (Je m'y connais pas énormément en programmation mais je pense que ça vient du [D].) (coc5 serait-il possible de remplacer [D] par une liste du genre {L}BILLI car toutes les listes sous les chiffres de 1 à 6 sont prient.)
----------------------
Salut, visitez mon site:
Et mon forum !
Mes programmes.
Convertissez vos images en un programme à mettre sur votre TI. |
| |
|
| |
mael-ti
Autorisation : Membre
Nb de messages : 25
Inscrit le : Lun 09 Mar 2009, 13:28
|
Posté le : Mar 05 Mai 2009, 15:05
|
|
|
Salut coc, j'ai un petit service à te demander, pourais tu m'envoyer le preogremme car mon PC ne veut pas aller sur le site Badongo!
si ouienvoie ça sur mon adresse: mael.caron@gmail.com
tkt je l'est crer pour l'ocasion! ^^'
----------------------
Vive les ti! |
| |
|
| |
coc5
Autorisation : Membre
Nb de messages : 879
Inscrit le : Sam 16 Jui 2007, 13:37
|
Posté le : Mar 05 Mai 2009, 15:17
|
|
|
http://www.sendspace.com/file/m8mk5a
Et sinon alexvire :
Vérifie cette partie :
| Code |
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 :
|
Sinon oui change la liste mais bon je doute que ça résolve le problème.
|
| |
|
| |
alexvire
Autorisation : Membre
Nb de messages : 230
Inscrit le : Dim 10 Mai 2009, 13:31
|
Posté le : Mar 05 Mai 2009, 18:33
|
|
|
J'ai recopié la même chose.
Mais ça ne viendrait pas du signe <? On pourrait pas mettre:
If U+50Z>[D](1,2
A la place de:
If U+50Z<[D](1,2
???
----------------------
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 : 879
Inscrit le : Sam 16 Jui 2007, 13:37
|
Posté le : Mar 05 Mai 2009, 19:01
|
|
|
Ca fait longtemps que j'ai coder ce programme j'avoue, essaye.
|
| |
|
| |
Google_AdSense
|
Publicité
|
|
|
|
| |
alexvire
Autorisation : Membre
Nb de messages : 230
Inscrit le : Dim 10 Mai 2009, 13:31
|
Posté le : Mar 05 Mai 2009, 19:09
|
|
|
Voilà, j'ai essayé, la calculatrice me met "RECORD BATTU !" mais il est toujours égal à 0... Je pense que ça viens de [D]. J'ai essayé de le remplacer par une liste, mais ça me met "SYNTAX ERREUR", donc j'ai pas fais se qu'il faut... La liste s'appelle: "{L}BILLI". je comprend pas.
----------------------
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 : 879
Inscrit le : Sam 16 Jui 2007, 13:37
|
Posté le : Mar 05 Mai 2009, 19:20
|
|
|
Met 3 caractères maximum pour le nom de ta liste, et au lieu de [D](1,3) met {L}BIL(3) par exemple.
|
| |
|
| |
alexvire
Autorisation : Membre
Nb de messages : 230
Inscrit le : Dim 10 Mai 2009, 13:31
|
Posté le : Mar 05 Mai 2009, 20:27
|
|
|
Ok je ferais ça demain. Bonne soirée.
----------------------
Salut, visitez mon site:
Et mon forum !
Mes programmes.
Convertissez vos images en un programme à mettre sur votre TI. |
| |
|
| |
alexvire
Autorisation : Membre
Nb de messages : 230
Inscrit le : Dim 10 Mai 2009, 13:31
|
Posté le : Ven 08 Mai 2009, 20:46
|
|
|
Désolé, ça met: Erreur type donnée
Donc c'est pas ça...
----------------------
Salut, visitez mon site:
Et mon forum !
Mes programmes.
Convertissez vos images en un programme à mettre sur votre TI. |
| |
|
| |
