Poster un nouveau sujet Poster une réponse <<   Page: , , 3,      >>
Un Bomberman trés réussit
Auteur Message
patate007



Autorisation : Membre
Nb de messages : 117
Inscrit le : Mar 09 Fév 2010, 8:49
Posté le : Jeu 23 Déc 2010, 0:44   Citer 

Quentinoute, tu as un très bon cours ici et si tu tu te sens a apprendre plus dans les détails, demande un prof particulier ici winkle.gif

----------------------
Joyeuse Pâques winkle.gif
 Adresse email Haut de page Bas de page 
 
ld
Avatar

Autorisation : Membre
Nb de messages : 373
Inscrit le : Jeu 23 Sep 2010, 16:05
Posté le : Lun 03 Jan 2011, 14:19   Citer 

Tient çà m'étonne que personne n'est penser a faire un prgm pour 2011...
Et là je vous vois déjà répondre: "Quoi ! on est en 2011 ! J'ai pas décoler les yeux du forum ! AAARRGG !!!"... laugh.gif

----------------------
Note Éphéméride Chrono Bombrman BlueFishEncryptor Labygénérateur Nord BandeauDeTexte LunarPhase Syracuse Papy-Jump Convertisseur ! SolveurDeSudoku VérificateurDeCodesBanquaire PrgmADiviser CryptageDeVigenere MiniSolv Reed-Solomon Code128Géodésie
 Adresse email Haut de page Bas de page 
 
Quentinoute
Invité
Posté le : Mer 05 Jan 2011, 19:13   Citer 

Re : Je suis entrein d'essayer de faire bouger une palette ( c'est juste un essai à la programation ) mais je galère trop ^^ j'ai rentré :
EffEcr
7==>A
Output(8,7,"----) PS : j'ai compris que (8,7 permet de placer objet c'est ca ?
codetouche==> K
mais apres je n'ai pas idée de quelle valeur il faut entrer pour K et pour A ?
Je me suis aider du prgm se PONG ( fait par sangohan38 )

  Haut de page Bas de page 
 
linkakro



Autorisation : Membre
Nb de messages : 3767
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Mer 05 Jan 2011, 20:53   Citer 

La colonne donne l'unité et la ligne les dizaines.
Un schéma du site du zéro serait plus net.
On utilise souvent 24,25,26,34 (les flèches)

Pour A j'ai oublié.

La question n'a pas bien sa place ici.

----------------------
ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)

Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store
 Adresse email Haut de page Bas de page 
 
ld
Avatar

Autorisation : Membre
Nb de messages : 373
Inscrit le : Jeu 23 Sep 2010, 16:05
Posté le : Mer 12 Jan 2011, 11:54   Citer 

La version optimisée du prgm, 35 octets en moins ! happy.gif Merci qui ? kiss.gif


Code

:Input"niveau",N,ZStandard:AxesNaff:RappelImage 0
:for(A,1,128:1-)L Bonbr(A:End
:0-)A:while A (plus petit que) N
:0-)L Bonbr(entAléat(2,128
:A+1-)A
:End
:For(A,-10,10:Ligne(-10,-10,A,A²-10:End
:AxsAff

:1-)B:0-)K
:For(A,1,128)
:if L Bombr(A:Then
:Output(B,A-K,"0"
:Else
:Output(B,A-K,"+":End
:if A=16B:Then
:B+1-)B:K+16-)K
:End:End

:1-)A:1-)B
:Output(A,B,"e"
:While 1
:Codetouche-)K
:if K=24 ou K=25 ou K=26 ou K=34:Then
:0-)L Bonbr(B+16(A-1
:Output(A,B," ":End
:B-(K=24)+(K=26-)B:A-(k=25)+(K=34-)A
:if A=0 ou A=9 ou B=0 ou B=17 ou k=45:Goto 1
:if non(L Bombr(B+16(A-1:Output(A,B,"e":end
:Lbl 1
:Somme(L Bombr-)B
:effvar L Bombr
:if B=o:Then
:Output(4,5,"100/100":Stop:End
:Output(8,2," /100
:Output(8,1,partEnt(100(128-N)-B)/(128-N



----------------------
Note Éphéméride Chrono Bombrman BlueFishEncryptor Labygénérateur Nord BandeauDeTexte LunarPhase Syracuse Papy-Jump Convertisseur ! SolveurDeSudoku VérificateurDeCodesBanquaire PrgmADiviser CryptageDeVigenere MiniSolv Reed-Solomon Code128Géodésie
 Adresse email Haut de page Bas de page 
 
linkakro



Autorisation : Membre
Nb de messages : 3767
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Mer 12 Jan 2011, 17:34   Citer 

Tu as visiblement conçu cette version sur le noyau de ta première version.
Ce n'est pas un reproche, mais la perte de certaines de mes optimisations est dommage.
Et ce n'est pas seulement une histoire de choix estétique.

Tant que tu ne publieras pas d'une manière ou d'une autre l'image de démarrage, la partie graphique sera innutile. Et je n'ai pas le courage de recopier l'image à partir de la vidéo pour la publier en .pic ou en asm.

Je reviens sur la discussion à propos des matrices : elles apportent une contrainte, mais elles rendent le prog compatible avec les 82 basiques.

----------------------
ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)

Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store
 Adresse email Haut de page Bas de page 
 
linkakro



Autorisation : Membre
Nb de messages : 3767
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Jeu 13 Jan 2011, 20:33   Citer 

La seule chose fondammentale est la boucle For de remplissage de la liste qui peut être remplacé par Delvar et Fill. Le reste n'est pas important. Si cela t'ennuie vraiment ne te donne pas ce mal.

Avec un câble tu peux envoyer l'image en .pic dans l'ordinateur puis nous pouvons la charger dans notre calculatrice.
Il y a aussi un logiciel dans le forum qui peut transformer l'image en un prog asm (il faut passer entre temps par un screen). C'est lourd, mais ce prog permet de charger l'image dans la calculatrice sans le câble. Par contre l'auteur doit se taper la copie ou le câble.

----------------------
ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)

Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store
 Adresse email Haut de page Bas de page 
 
Google_AdSense



Publicité    



 
ld
Avatar

Autorisation : Membre
Nb de messages : 373
Inscrit le : Jeu 23 Sep 2010, 16:05
Posté le : Ven 14 Jan 2011, 10:39   Citer 

Oui, t'as raison, c'est pas faut...
Je verrais. ahh.gif

----------------------
Note Éphéméride Chrono Bombrman BlueFishEncryptor Labygénérateur Nord BandeauDeTexte LunarPhase Syracuse Papy-Jump Convertisseur ! SolveurDeSudoku VérificateurDeCodesBanquaire PrgmADiviser CryptageDeVigenere MiniSolv Reed-Solomon Code128Géodésie
 Adresse email Haut de page Bas de page 
 
ld
Avatar

Autorisation : Membre
Nb de messages : 373
Inscrit le : Jeu 23 Sep 2010, 16:05
Posté le : Mar 08 Fév 2011, 17:16   Citer 

Voici les liens pour télécharger les 2 images de fond au choix. happy.gif
Elle en jettent !!! bigmouth.gif

http://www.filedropper.com/dscn1357

http://www.filedropper.com/dscn1368

Salut... glasses.gif

----------------------
Note Éphéméride Chrono Bombrman BlueFishEncryptor Labygénérateur Nord BandeauDeTexte LunarPhase Syracuse Papy-Jump Convertisseur ! SolveurDeSudoku VérificateurDeCodesBanquaire PrgmADiviser CryptageDeVigenere MiniSolv Reed-Solomon Code128Géodésie
 Adresse email Haut de page Bas de page 
 
linkakro



Autorisation : Membre
Nb de messages : 3767
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Mar 08 Fév 2011, 18:10   Citer 

Je compte à présent utiliser ces images pour publier les 83i et les asm83.

----------------------
ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)

Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store
 Adresse email Haut de page Bas de page 
 
Persalteas



Autorisation : Membre
Nb de messages : 2164
Inscrit le : Sam 23 Jan 2010, 20:09
Posté le : Mar 08 Fév 2011, 20:12   Citer 

gloups! pourquoi avec moi les liens marchent pas ? cry.gif

 Adresse email Haut de page Bas de page 
 
Persalteas



Autorisation : Membre
Nb de messages : 2164
Inscrit le : Sam 23 Jan 2010, 20:09
Posté le : Mer 09 Fév 2011, 19:41   Citer 

merci, mais ça je sais quand même. ce que je veut dire, c'est qu'est ce que je dois faire du "error 404 file not found" ?

"Ooops! this page appears broken ! " ça me fait marrer les messages d'erreur quand même. glasses.gif

 Adresse email Haut de page Bas de page 
 
Persalteas



Autorisation : Membre
Nb de messages : 2164
Inscrit le : Sam 23 Jan 2010, 20:09
Posté le : Jeu 10 Fév 2011, 14:19   Citer 

Eh! la savoie, c'est pas si paumé! j'ai une antenne relais à moins de 800m de chez moi, du haut de ma montagne.

n'empêche que je viens de réessayer, il ne trouve pas.
tant pis écoute. on ne peut pas tout avoir dans la vie. glasses.gif

 Adresse email Haut de page Bas de page 
 
linkakro



Autorisation : Membre
Nb de messages : 3767
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Mer 23 Mar 2011, 16:15   Citer 

J'avais oublié mais voici ma publication des screens de l.davin. http://www.mediafire.com/?6y2357gvvebvf
Il y a les deux screens sous toutes les formes : jpg, asm (txt/83p), 83i (pic).

----------------------
ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)

Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store
 Adresse email Haut de page Bas de page 
 
programath



Autorisation : Membre
Nb de messages : 36
Inscrit le : Jeu 24 Fév 2011, 21:45
Posté le : Jeu 24 Mar 2011, 14:20   Citer 

dans la 2eme version anglaise que linkakro a faite, y aurai-t-il pas un moyen a la fin par exemple si on a choisi le niveau 10, que ça mette:
niveau 10
score : 50/128
meilleur score du lvl: 75/128

voila par exemple ou alors:
niveau 10
score : 75/128
dernier score du lvl: 50/128
BRAVO ! nouveau record !

voila je sais pas comment faire alors winkle.gif, sinon très bon jeux très réussi

 Adresse email Haut de page Bas de page 
 
godzlove



Autorisation : Membre
Nb de messages : 44
Inscrit le : Sam 16 Oct 2010, 10:29
Posté le : Jeu 24 Mar 2011, 19:01   Citer 

ya qu'a demander winkle.gif


Code
ClrHome
Input "NIVEAU=",N
128->dim(L1
Fill(0,L1
For(A,1,N
Lbl 2
randInt(2,128)
If L1(Ans)=0
1->L1(Ans)
If L1(Ans)=1
Goto 2
End
ClrHome
0->K
For(A,1,8
For(B,1,16
K+1->K
If L1(K)=1
Output(A,B,"+
If L1(K)=0
Output(A,B,"0
End
End
1->A
1->B
Lbl 0
Output(A,B,"e
Repeat K
getKey->K
End
If K=45
Goto 1
If not(K=24 or K=25 or K=26 or K=34
Goto 0
B-(K=24)+(K=26)->D
A-(K=25)+(K=34)->C
If abs(4.5-C)>3.5 or abs(8.5-D)>7.5
Goto 0
If L1(D+(C-1)16)=1
Goto 0
Output(A,B," "
1->L1(B+(A-1)16
C->A
D->B
Output(A,B,"e
Goto 0
Lbl 1
sum(L1)->B
ClrHome
Output(1,1,"NIVEAU :
Output(1,10,N
Output(2,1,"SCORE=
Output(2,1,B-N
Output(2,5,"/
Output(2,6,128-N
Output(3,1,"MEILLEUR SCORE:
Output(4,1,     {choix de la variable du score}
If {choix de la variable du score} {inférieur à} N
Then
N->{choix de la variable du score}
Output (5,1,"BRAVO !
Output (6,1,"NOUVEAU RECORD !
End



 Adresse email Haut de page Bas de page 
 
linkakro



Autorisation : Membre
Nb de messages : 3767
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Jeu 24 Mar 2011, 20:00   Citer 

Je déconseille les records car il y a 128 niveaux dont la moitiée ayant un intérêt.
Mais c'est faisable.

Le mieux est une liste. Cette version est incompatible avec les 82 basiques.

Code
128->dim(lBOMBR
Lbl M
ClrHome
Menu("BOMBERMAN","JOUER",J,"SCORES",S,"QUIT",Q
Lbl J
Input "NIVEAU(0-127)=",N
128->dim(L1
Fill(0,L1
For(A,1,N
Lbl 2
randInt(2,128)
If L1(Ans)=0
1->L1(Ans)
If L1(Ans)=1
Goto 2
End
ClrHome
0->K
For(A,1,8
For(B,1,16
K+1->K
If L1(K)=1
Output(A,B,"+
If L1(K)=0
Output(A,B,"0
End
End
1->A
1->B
Lbl 0
Output(A,B,"e
Repeat K
getKey->K
End
If K=45
Goto 1
If not(K=24 or K=25 or K=26 or K=34
Goto 0
B-(K=24)+(K=26)->D
A-(K=25)+(K=34)->C
If abs(4.5-C)>3.5 or abs(8.5-D)>7.5
Goto 0
If L1(D+(C-1)16)=1
Goto 0
Output(A,B," "
1->L1(B+(A-1)16
C->A
D->B
Output(A,B,"e
Goto 0
Lbl 1
sum(L1)->B
ClrHome
Disp "NIVEAU=","SCORE=",B-N
Output(1,9,N
Output(3,5,"/
Output(3,6,128-N
Disp "RECORD=
Output(4,7,lBOMBR(N+1
If B-N>lBOMBR(N+1
B-N->lBOMBR(N+1
Goto M
Lbl S
0->N
For(A,1,8
ClrHome
For(B,1,9,8
For(C,1,8
Output(C,B,N
Output(C,B+4,lBOMBR(N+1
N+1->N
End
End
Pause
End
Goto M
Lbl Q



----------------------
ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)

Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store
 Adresse email Haut de page Bas de page 
 
ArcMokuro



Autorisation : Membre
Nb de messages : 29
Inscrit le : Lun 12 Déc 2011, 17:59
Posté le : Mar 13 Déc 2011, 15:40   Citer 

comment on fait -> (ans)

ou bien quesque sa veut dire ?

 Adresse email Haut de page Bas de page 
 
Persalteas



Autorisation : Membre
Nb de messages : 2164
Inscrit le : Sam 23 Jan 2010, 20:09
Posté le : Mar 13 Déc 2011, 16:06   Citer 

Ans c'est le dernier résultat.

En français, il s'appelle Rép.

[2nde][( - )]

 Adresse email Haut de page Bas de page 
 
ld
Avatar

Autorisation : Membre
Nb de messages : 373
Inscrit le : Jeu 23 Sep 2010, 16:05
Posté le : Lun 30 Juil 2012, 20:58   Citer 

Bombrman V Soft 267 octets au lieu de 520 !

Le but de ce jeu est simple, vous éte un petit "e" (Bomberman), et vous dever manger un maximun de "o" sans sortir du cadre, sans revenir sur vos pats, le tout en évitant les "+" (bombes) éparpiller sur l'écran. Bien sûr plus ils y a de "+" est plus ça se complique !
Ex: niveau 5 = 5 "+"... Attention les neurones !!!


Code
:EffEcr:Input "NIVEAU ",N
:128->dim(L1
:For(A,1,N
:1->L1(entAléat(2,128
:End
:1->B:0->K
:For(A,1,128
:Output(B,A-K,sous-Chaîne("0+",L1(A)+1,1
:If A=16B:Then:B+1->B:K+16->K
:End:End
:1->A:1->B
:Repeat L1(B+16(A-1
:Output(A,B,"e
:Repeat K
:codeTouche->K
:End
:1->L1(B+16(A-1
:Output(A,B," "
:B-(K=24 et B-1)+(K=26 et B-16->B
:A-(K=25 et A-1)+(K=34 et A-8->A
:End
:Output(8,1,somme(L1)-N
:Output(8,4,"/128
:EffListe L1



----------------------
Note Éphéméride Chrono Bombrman BlueFishEncryptor Labygénérateur Nord BandeauDeTexte LunarPhase Syracuse Papy-Jump Convertisseur ! SolveurDeSudoku VérificateurDeCodesBanquaire PrgmADiviser CryptageDeVigenere MiniSolv Reed-Solomon Code128Géodésie
 Adresse email Haut de page Bas de page 
 
Poster un nouveau sujet Poster une réponse <<   Page: , , 3,      >>





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