Autorisation : Membre
Nb de messages : 373
Inscrit le : Jeu 23 Sep 2010, 16:05
Posté le : Lun 03 Jan 2011, 14:19
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 !!!"...
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 )
Autorisation : Membre
Nb de messages : 3767
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Mer 05 Jan 2011, 20:53
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)
Autorisation : Membre
Nb de messages : 3767
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Mer 12 Jan 2011, 17:34
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)
Autorisation : Membre
Nb de messages : 3767
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Jeu 13 Jan 2011, 20:33
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)
Autorisation : Membre
Nb de messages : 3767
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Mar 08 Fév 2011, 18:10
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)
Autorisation : Membre
Nb de messages : 3767
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Mer 23 Mar 2011, 16:15
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)
Autorisation : Membre
Nb de messages : 36
Inscrit le : Jeu 24 Fév 2011, 21:45
Posté le : Jeu 24 Mar 2011, 14:20
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 , sinon très bon jeux très réussi
Autorisation : Membre
Nb de messages : 44
Inscrit le : Sam 16 Oct 2010, 10:29
Posté le : Jeu 24 Mar 2011, 19:01
ya qu'a demander
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
Autorisation : Membre
Nb de messages : 3767
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Jeu 24 Mar 2011, 20:00
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)
Autorisation : Membre
Nb de messages : 373
Inscrit le : Jeu 23 Sep 2010, 16:05
Posté le : Lun 30 Juil 2012, 20:58
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