Gamme TI-82
Partager sur Facebook Fil RSS Imprimer la page
Cacher les résultats

Résultat de la recherche



Poster un nouveau sujet Poster une réponse Page: 1,      >>
BILLIMK 1.0
Auteur Message
coc5
Avatar

Autorisation : Membre
Nb de messages : 887
Inscrit le : Sam 16 Jui 2007, 13:37
Posté le : Mar 06 Nov 2007, 17:05   Citer 

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 !
 Adresse email Haut de page Bas de page 
 
vibra
Avatar

Autorisation : Membre
Nb de messages : 595
Inscrit le : Mer 04 Avr 2007, 13:29
Posté le : Mar 06 Nov 2007, 17:09   Citer 

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 !!!
 Adresse email Haut de page Bas de page 
 
Google_AdSense



Publicité    



 
Regedit



Autorisation : Membre
Nb de messages : 191
Inscrit le : Dim 30 Sep 2007, 12:24
Posté le : Mar 06 Nov 2007, 17:16   Citer 

J'ai pas compris les regles du jeu ><

----------------------
Les Packs jeux de Regedit :

Pack Alien Breed : 633,2 kb
Pack Skin/Rom pour VTI : 5380 kb
 Adresse email Haut de page Bas de page 
 
coc5
Avatar

Autorisation : Membre
Nb de messages : 887
Inscrit le : Sam 16 Jui 2007, 13:37
Posté le : Mar 06 Nov 2007, 17:18   Citer 

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 neutral.gif

=> 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 !
 Adresse email Haut de page Bas de page 
 
Regedit



Autorisation : Membre
Nb de messages : 191
Inscrit le : Dim 30 Sep 2007, 12:24
Posté le : Mar 06 Nov 2007, 17:19   Citer 

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

----------------------
Les Packs jeux de Regedit :

Pack Alien Breed : 633,2 kb
Pack Skin/Rom pour VTI : 5380 kb
 Adresse email Haut de page Bas de page 
 
vibra
Avatar

Autorisation : Membre
Nb de messages : 595
Inscrit le : Mer 04 Avr 2007, 13:29
Posté le : Mar 06 Nov 2007, 17:35   Citer 

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

----------------------
Vive la programmation et vive le vibraphone !!!
 Adresse email Haut de page Bas de page 
 
coc5
Avatar

Autorisation : Membre
Nb de messages : 887
Inscrit le : Sam 16 Jui 2007, 13:37
Posté le : Mar 06 Nov 2007, 17:57   Citer 


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 !
 Adresse email Haut de page Bas de page 
 
Regedit



Autorisation : Membre
Nb de messages : 191
Inscrit le : Dim 30 Sep 2007, 12:24
Posté le : Mar 06 Nov 2007, 18:11   Citer 


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 ...

----------------------
Les Packs jeux de Regedit :

Pack Alien Breed : 633,2 kb
Pack Skin/Rom pour VTI : 5380 kb
 Adresse email Haut de page Bas de page 
 
vibra
Avatar

Autorisation : Membre
Nb de messages : 595
Inscrit le : Mer 04 Avr 2007, 13:29
Posté le : Mar 06 Nov 2007, 20:35   Citer 

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

----------------------
Vive la programmation et vive le vibraphone !!!
 Adresse email Haut de page Bas de page 
 
Stupid



Autorisation : Membre
Nb de messages : 769
Inscrit le : Jeu 28 Sep 2006, 18:42
Posté le : Mar 06 Nov 2007, 21:18   Citer 

ç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...

 Adresse email Haut de page Bas de page 
 
Google_AdSense



Publicité    



 
coc5
Avatar

Autorisation : Membre
Nb de messages : 887
Inscrit le : Sam 16 Jui 2007, 13:37
Posté le : Mar 06 Nov 2007, 22:36   Citer 

->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 happy.gif

----------------------
Ne cliquez pas ici !
 Adresse email Haut de page Bas de page 
 
Stupid



Autorisation : Membre
Nb de messages : 769
Inscrit le : Jeu 28 Sep 2006, 18:42
Posté le : Mer 07 Nov 2007, 9:38   Citer 

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

 Adresse email Haut de page Bas de page 
 
Regedit



Autorisation : Membre
Nb de messages : 191
Inscrit le : Dim 30 Sep 2007, 12:24
Posté le : Mer 07 Nov 2007, 10:15   Citer 


Citer : vibra
Je suis pas sûr que ce soit sa qu'il voulait dire… happy.gif



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)

----------------------
Les Packs jeux de Regedit :

Pack Alien Breed : 633,2 kb
Pack Skin/Rom pour VTI : 5380 kb
 Adresse email Haut de page Bas de page 
 
vibra
Avatar

Autorisation : Membre
Nb de messages : 595
Inscrit le : Mer 04 Avr 2007, 13:29
Posté le : Mer 07 Nov 2007, 10:36   Citer 

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 ? beer.gif

----------------------
Vive la programmation et vive le vibraphone !!!
 Adresse email Haut de page Bas de page 
 
Regedit



Autorisation : Membre
Nb de messages : 191
Inscrit le : Dim 30 Sep 2007, 12:24
Posté le : Mer 07 Nov 2007, 10:52   Citer 

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).

----------------------
Les Packs jeux de Regedit :

Pack Alien Breed : 633,2 kb
Pack Skin/Rom pour VTI : 5380 kb
 Adresse email Haut de page Bas de page 
 
vibra
Avatar

Autorisation : Membre
Nb de messages : 595
Inscrit le : Mer 04 Avr 2007, 13:29
Posté le : Mer 07 Nov 2007, 14:04   Citer 

La classe… glasses.gif

----------------------
Vive la programmation et vive le vibraphone !!!
 Adresse email Haut de page Bas de page 
 
alexvire
Avatar

Autorisation : Membre
Nb de messages : 241
Inscrit le : Dim 10 Mai 2009, 13:31
Posté le : Ven 01 Mai 2009, 17:56   Citer 

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.

----------------------
Salut, visitez mon site:

Et mon forum !

Mes programmes.
Convertissez vos images en un programme à mettre sur votre TI.
 Adresse email Haut de page Bas de page 
 
coc5
Avatar

Autorisation : Membre
Nb de messages : 887
Inscrit le : Sam 16 Jui 2007, 13:37
Posté le : Sam 02 Mai 2009, 12:49   Citer 

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 winkle.gif

----------------------
Ne cliquez pas ici !
 Adresse email Haut de page Bas de page 
 
Reggie
Avatar

Autorisation : Membre
Nb de messages : 46
Inscrit le : Lun 13 Avr 2009, 20:55
Posté le : Sam 02 Mai 2009, 13:24   Citer 

Moi j'l'ai dl ahh.gif

 Adresse email Haut de page Bas de page 
 
alexvire
Avatar

Autorisation : Membre
Nb de messages : 241
Inscrit le : Dim 10 Mai 2009, 13:31
Posté le : Sam 02 Mai 2009, 18:08   Citer 

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.
 Adresse email Haut de page Bas de page 
 
Poster un nouveau sujet Poster une réponse Page: 1,      >>





  Powered by Fire-Soft-Board v1.0.10 © 2004 - 2016 Groupe FSB
Page générée en 9 requêtes
BlackOne par Grimmlink
 

Site hébergé par Free Page sous licence creative commons Page validée par le W3C (XHTML 1.0 Transitional) Feuille de style validée par le W3C Flux RSS 2.0 valide Page étiquetée par l'ICRA Page testée par Ocawa